[RESOLVIDO] Importação de Fornecedor - CD0401

Bom dia,
estou fazendo uma rotina que faz a leitura de um arquivo xml, gerado por um portal, e faço a integração deste fornecedor, no cadastro CD0401 (Utilizamos o EMS206 e EMS506 ainda).
Para importação está funcionando perfeitamente, mais como sempre o cliente sempre gosta de mudar alguma coisa, me solicitou para fazer uma importação para casos de alteração de cadastro.
Alguém tem alguma idéia de como fazer para alteração? Segue abaixo código para a inclusão.

/*------------------------------------------------------------------------------
pi-cria-fornec
------------------------------------------------------------------------------*/
DEFINE VARIABLE h-boad098 AS HANDLE NO-UNDO.
DEFINE VARIABLE r-rowid-emitente AS ROWID NO-UNDO.
DEFINE VARIABLE i-cont AS INTEGER NO-UNDO.

IF NOT VALID-HANDLE(h-boad098) THEN
RUN adbo/boad098.p PERSISTENT SET h-boad098.

EMPTY TEMP-TABLE tt-emitenteBO.
EMPTY TEMP-TABLE tt-ErroBO.

CREATE tt-emitenteBO.
BUFFER-COPY tt-emitente EXCEPT char-2 int-1 TO tt-EmitenteBO.
ASSIGN tt-EmitenteBO.cod-entrega = "Padrão".


RUN validateCreate IN h-boad098 (INPUT TABLE tt-EmitenteBO,
OUTPUT TABLE tt-ErroBO,
OUTPUT r-rowid-emitente).

DELETE PROCEDURE h-boad098 NO-ERROR.


depois faço a integração com o EMS506.
/************* Integracao 2.00 X 5.00 *****************/
if can-find(funcao where funcao.cd-funcao = "adm-cdc-ems-5.00"
and funcao.ativo = yes
and funcao.log-1 = yes) then do:
find first param-global NO-LOCK no-error.
if param-global.log-2 = yes THEN DO:
validate emitente no-error.

run cdp/cd1608.p (input emitente.cod-emitente,
input emitente.cod-emitente,
input emitente.identific,
input yes,
input 1,
input 1,
input "utb765zb2.tmp",
input "TERMINAL":U,
input "").

END.
end.
/*********** Fim Integracao 2.00 X 5.00 ****************/