Histórico da Página
...
| Bloco de código | ||
|---|---|---|
| ||
/*01*/ def input param lg-mens-tela-par as log no-undo. /*02*/ def input param lg-simulacao-par as log no-undo. /*03*/ def input param r-maquclin-par as recid no-undo. /*04*/ def input param in-tipo-proces-par as char format "x(01)" no-undo. /*05*/ def input param segmento-req-par as char format "x(8000)" no-undo. /* Segmento com os dados do documento (sem o serviço) */ /*06*/ def input param id-aplicativo-par like paramint.id-aplicativo no-undo. /*07*/ def output param segmento-res-par as char format "x(8000)" no-undo. /* Segmento com retorno dos dados do documento (sem o serviço) */ /*08*/ def output param cd-erro-sistema-par as char no-undo. /*09*/ def input param lg-trata-comb-nao-perm-wac-par as int no-undo. /*10*/ def output param ds-erro-sistema-ptu-par as char init "" no-undo. /*11*/ def output param ds-erro-comb-nao-perm-par as char no-undo. /*12*/ def input param table for tmp-servicos-req. /* Solicitação de serviços, substitui parte do segmento */ /*13*/ def output param table for tmp-docusos. /* Retorno temp igual a docusos para acesso em caso de simulação */ /*14*/ def output param table for tmp-procusos. /* Retorno temp igual a procusos para acesso em caso de simulação */ /*15*/ def output param table for tmp-insuusos. /* Retorno temp igual a insuusos para acesso em caso de simulação */ /*16*/ def output param table for tmp-retorno-serv. /* Retorno do resultado do registro por movimento */ |
Outros programas:
AC1000: Adicionado 4 parâmetros igual aos 4 últimos do AC1006D e enviar da mesma forma que descrito a cima. Somente é necessário alterar caso o segmento seja enviado com o código 80190260 no substr(segmento-req-par,56,08).
| Bloco de código | ||
|---|---|---|
| ||
/*01*/ def input param lg-mens-tela-par as log no-undo.
/*02*/ def input param in-tipo-proces-par as char format "x(01)" no-undo.
/*03*/ def input param nm-arq-ent-par as char no-undo.
/*04*/ def input param segmento-req-par as char format "x(8000)" no-undo.
/*05*/ def input param nm-diret-entra-par as char format "x(100)" no-undo.
/*06*/ def input param nm-diret-saida-par as char format "x(100)" no-undo.
/*07*/ def input param id-aplicativo-par as char format "x(20)" no-undo.
/*08*/ def output param segmento-res-par as char format "x(8000)" no-undo.
/*09*/ def output param cd-erro-sistema-par as char format "x(04)" no-undo.
/*10*/ def input param lg-trata-comb-nao-perm-wac-par as int no-undo.
/*11*/ def input param table for tmp-servicos-req.
/*12*/ def output param table for tmp-docusos.
/*13*/ def output param table for tmp-procusos.
/*14*/ def output param table for tmp-insuusos.
/*15*/ def output param table for tmp-retorno-serv. |
AC1000D até AC1000Z, ACURASERIOUS e ACURASIEMENS - Não foi passado os parâmetros novos pois os fontes foram considerados descontinuados.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas