Execução de API Cadastro Cliente

Cintia, coloquei o fonte aqui.
Como falei, nao está pronto, o codigo está meio "sujo", mas está funcionando.

Bom dia @bootstrapmaster .
Para a API, se passar zero para o numero da pessoa, o sistema cria a numeração automaticamente.

Exemplo pela api329, ele já gera o cliente financeiro.

Código:

{dzp/dzinc/cdapi229.i} /* tt-emitente tt-loc-entr */
{dzp/dzinc/cdapi300.i1} /* tt-erros tt-versao-integr  */

def temp-table tt-dist-emitente-aux no-undo like dist-emitente
        INDEX ch-codigo IS PRIMARY cod-emitente.

def temp-table tt-dist-emitente no-undo like dist-emitente
    field cod-maq-origem   as   integer format "9999"
    field num-processo     as   integer format ">>>>>>>>9" initial 0
    field num-sequencia    as   integer format ">>>>>9"    initial 0
    field ind-tipo-movto   as   integer format "99"        initial 1
    INDEX ch-codigo IS PRIMARY  cod-maq-origem
                                num-processo
                                num-sequencia.

def var i-codigo-emitente   as int      no-undo.


/* busca codigo emitente */
run cdp/cd9960.p (output i-codigo-emitente).


/* tt-versao-integr */
CREATE tt-versao-integr.
ASSIGN tt-versao-integr.cod-versao-integracao = 001
       tt-versao-integr.ind-origem-msg        = 01.

      
/* tt-emitente */
CREATE tt-emitente.
ASSIGN tt-emitente.ind-tipo-movto = 1                          /* Tipo de operação 1-inclusão */
       tt-emitente.identific      = 1                          /* Idendificação 1- Cliente, 2- fornecedor, 3- ambos */
       tt-emitente.data-implant   = TODAY                      /* Data Implantação */
       tt-emitente.cod-gr-cli     = 10                         /* Cod Grupo de cliente */
       tt-emitente.cgc            = "45990181000189"           /* CGC */
       tt-emitente.cgc-cob        = "45990181000189"           /* CGC Cobranca  se PJ */
       tt-emitente.natureza       = 1                          /* PF,PJ,estrangeiro,trading */
       tt-emitente.cod-emitente   = i-codigo-emitente          /* Codigo cliente */
       tt-emitente.nome-abrev     = "TESTE150"                 /* Nome Abreviado */ 
       tt-emitente.nome-emit      = "TESTE150"                 /* Nome Completo Emitente */
       tt-emitente.nome-matriz    = "TESTE150"                 /* Nome Matriz */
       tt-emitente.portador       = 9991                       /* Codigo Portador */
       tt-emitente.port-prefer    = 9991                       /* Codigo Portador Preferencial */
       tt-emitente.modalidade     = 1                          /* Sim 1 -  Cb Simples, 2 - Desconto, 3 - Caução, 4 - Judicial, 5 - Repres, 6 - Carteira, 7 - vendor, 8 - cheque, 9 - nota promissoria */
       tt-emitente.pais           = "brasil"                   /* Pais */
       tt-emitente.pais-cob       = "brasil"                   /* Pais Cobranca */
       tt-emitente.estado         = "SP"                       /* Unidade Federativa */
       tt-emitente.estado-cob     = "SP"                       /* Unidade Federativa Cobranca */
       tt-emitente.cidade         = "campinas"                 /* Cidade */
       tt-emitente.cidade-cob     = "campinas"                 /* Cidade Cobranca */
       tt-emitente.bairro         = "PQ Via Norte"             /* Bairro */
       tt-emitente.bairro-cob     = "PQ Via Norte"             /* Bairro Cobranca */
       tt-emitente.endereco       = "Rua Bobert Bosch,1"       /* Endereço */
       tt-emitente.endereco-cob   = "Rua Bobert Bosch,1"       /* Endereço Cobranca */
       tt-emitente.cep            = "13015904"                 /* CEP */
       tt-emitente.cep-cob        = "13015904"                 /* CEP Cobranca */
       tt-emitente.ins-estadual   = ""                         /* Inscrição Estadual */
       tt-emitente.ins-est-cob    = ""                         /* Inscrição Estadual Cobranca */
       tt-emitente.atividade      = "OUTROS"                   /* Ramo de Atividade */
       tt-emitente.cod-rep        = 4008                       /* Codigo Representante */
       tt-emitente.tp-rec-padrao  = 101                        /* Tipo de receita padrão */
       tt-emitente.agencia        = "00000000"                 /* Cod agencia bancaria */
       tt-emitente.conta-corren   = "000000000000"             /* Codigo da conta Corrente */
       tt-emitente.categoria      = ""                         /* Categoria */
       tt-emitente.cod-banco      = 0                          /* Cod banco */
       tt-emitente.end-cobranca   = i-codigo-emitente          /* Codigo do cliente de cobranca */
       tt-emitente.dt-lim-cred    = 12/31/9999                 /* Data limite de Credito */
       tt-emitente.contrib-icms   = no                         /* Contribuinte ICMS  se PF NO se PJ YES */
       tt-emitente.cod-transp     = 3                          /* Codigo transportadora */
       tt-emitente.log-nf-eletro  = yes                        /* Recebe NFE */
       .

/* tt-loc-entr */
CREATE tt-loc-entr.
ASSIGN tt-emitente.cod-entrega  = "Padrao"   
       tt-loc-entr.cod-entrega  = "Padrao"   
       tt-loc-entr.nome-abrev   = tt-emitente.nome-abrev
       tt-loc-entr.cidade       = tt-emitente.cidade
       tt-loc-entr.endereco     = tt-emitente.endereco
       tt-loc-entr.e-mail       = tt-emitente.e-mail
       tt-loc-entr.estado       = tt-emitente.estado
       tt-loc-entr.ins-estadual = tt-emitente.ins-estadual
       tt-loc-entr.pais         = tt-emitente.pais
       tt-loc-entr.cep          = tt-emitente.cep
       tt-loc-entr.cgc          = tt-emitente.cgc.


/* Chamada */
run cdp/cdapi329.p (input  table tt-versao-integr,
                    output table tt-erros-geral,
                    input  table tt-emitente,
                    input  table tt-loc-entr,
                    input  table tt-dist-emitente).

Valeu @Maicon putton, vou verificar.
Atualmente realizo uma série de consistencias, e se tudo bem uso a cdapi366b para gravar o emitente, e a utb765zl para gravar o cliente financeiro.