[RESOLVIDO] Implantação de Emitente

Boa Noite!

Poderiam me informar qual API ou BO posso utilizar para incluir emitente no ems2? Tem integração com ems5 também.

Tenho que desenvolver um programa que faz integração com sistema legado aonde devo incluir emitente no datasul.

bom dia

vou falar da minha experiência, talvez tenha outro caminho melhor, mas as BO´s é uma para cada tabela e eles também não validam muita coisa, por isso você tem que colocar a informação correta.

boad098 emitente
bodi102 local de entrega

alteração do emitente
assign r-chave = ROWID(emitente).

empty temp-table tt-bo-erro.
RUN validateupdate IN hDBOad098 (INPUT TABLE tt-emitente,
INPUT r-chave,
OUTPUT TABLE tt-bo-erro).

/* não localizei o exemplo, mas para incluir seria o validateInsert */


atualizar local de entrega
assign r-chave-di102 = ROWID(loc-entr).

RUN validateUpdate IN hDBOdi102 (INPUT TABLE tt-loc-entr
, INPUT r-chave-di102
, OUTPUT TABLE tt-bo-erro).


atualizar ems5
IF can-find(funcao where funcao.cd-funcao = "adm-cdc-ems-5.00"
and funcao.ativo = YES
and funcao.log-1 = YES ) then do:
/*
int iEmitIni,
int iEmitFim,
int iIdentific,
boolean lAtualiza, ---> vai atualizar ?
int iOperac, ---> tipo de operação 1=inclusão/alteracao 2=exclusao
int iSequencia, ---> se diferente 0 então ioperacao = 1
String cFilename, ---> nome arquivo
String cCaminho, ---> arquivo não sabe,
String cNome) ---> nao utilizado
*/
run cdp/cd1608.p (input tt-emitente.cod-emitente,
input tt-emitente.cod-emitente,
input tt-emitente.identific,
input YES,
input 1,
input 0,
input "utb765zb.tmp",
input "Arquivo":U,
input "").

end.

enfim, precisa alterar a tabela emitente, local de entrega e mandar atualizar o ems5, possívelmente pode ter ficado alguma coisa para trás, se alguém souber pode complementar.

espero que te ajude.

Bom Dia!

Valeu pessoal vou testar os dois modos.

dá uma olhada no layout, pois nem todos os campos da tabela estão no layout do cd1302 (EMS2) e nem no layout de importação do cliente ASCII (ems5).

até