Antológico script de atualização na integração com o Microsiga Protheus

UPDATE S
SET S.A1_CGC = T.E1_ZZ_CGC, S.A1_COD = T.E1_COD, S.A1_LOJA = T.E1_LOJA
FROM SE1010 S, TITULO T
WHERE S.E1_ZZ_SEQ = T.E1_ZZ_SEQ
AND LTRIM(RTRIM(T.E1_LOJA) <> ''