CE PLUS - Nota 012925
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Suframa - Pexpam
Data/Hora da Publicação: 05/02/2014 15:06:28
Data/Hora Última Alteração: 05/02/2014 15:06:28
Descrição da Nota: INCLUSÃO DE CAMPOS NO ENVIO DO TXT - PLI SUFRAMA
Sintoma
Não estavam sendo carregados alguns campos para a geração do TXT do PLI Suframa.
Solução
Desenvolvimento adicional para incluir 3 novos campos e excluir 1 campo na geração do arquivo TXT do
PLI Suframa.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12925 Data: 23/04/2013 Hora: 10:41:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12925
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10308 - 00001 - 8.0 - 00004 - PROGRAMA DE TRANSMISSÃO PARA SUFRAMA 5.0 /PWS/ZYCIR041
10376 - 00002 - 8.0 - 00004 - PLI OS CAMPOS FAB. SOB ENCOMENDA E MAT. USADO GRAVAVAM NA TABELA
10494 - 00003 - 8.0 - 00004 - AJUSTES NA PLI PARA TRANSMISSÃO E GERAÇÃO DO ARQUIVO TEXTO
10549 - 00004 - 8.0 - 00004 - ARQUIVO DA PLI ESTAVA DISPOSICIONANDO OS CAMPOS DO REGISTRO 03
----------------------------------------------------------------------------------------------------
INCLUSÃO DE CAMPOS NO ENVIO DO TXT - PLI SUFRAMA
----------------------------------------------------------------------------------------------------
Palavras Chave:
INCLUSÃO DE CAMPOS ENVIO TXT PLI SUFRAMA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR041
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR041
...
DATA: BEGIN OF it_output_30 OCCURS 0,
filler01(4193),
END OF it_output_30.
DATA: BEGIN OF it_output_final OCCURS 0,
filler01(343),
filler03(4193),
filler04(70),
filler05(43),
filler07(4088),
filler08(401),
* >> Início da exclusão:
filler09(137),
filler10(57),
* << Fim da exclusão
* >> Início da inclusão:
filler09(122),
filler10(75),
* << Fim da inclusão
END OF it_output_final.
DATA: w_conta_item(05) TYPE n,
w_seq(10),
w_ncm(08),
w_codsufra(04) TYPE n,
w_branco(254),
w_ano(04),
w_fileo TYPE string,
v_txtkey1 LIKE thead-tdname,
v_txtkey2 LIKE thead-tdname,
...
...
it_reg09-ncm_merc TO it_output_30-filler01+21(08),
it_reg09-produto_zfm TO it_output_30-filler01+29(04),
w_zeros TO it_output_30-filler01+33(07),
it_reg09-naladi TO it_output_30-filler01+40(08),
w_peso TO it_output_30-filler01+48(15),
w_qtde TO it_output_30-filler01+63(14),
it_reg09-aplic_merc TO it_output_30-filler01+77(01),
it_reg09-moeda+0(03) TO it_output_30-filler01+78(03),
it_reg09-incoterms TO it_output_30-filler01+81(03),
w_valor TO it_output_30-filler01+84(15),
* >> Início da exclusão: FORM MONTA_09
w_valor2 TO it_output_30-filler01+99(15),
w_mat_usado TO it_output_30-filler01+114(01),
w_cond_merc TO it_output_30-filler01+115(01),
it_reg09-urf_entr TO it_output_30-filler01+116(07),
it_reg09-pais_proc TO it_output_30-filler01+123(03),
it_reg09-urf_despacho TO it_output_30-filler01+126(07),
w_aliqii+2(04) TO it_output_30-filler01+133(04).
MOVE it_output_30-filler01+0(137) TO it_output_final-filler09.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_09
w_mat_usado TO it_output_30-filler01+99(01),
w_cond_merc TO it_output_30-filler01+100(01),
it_reg09-urf_entr TO it_output_30-filler01+101(07),
it_reg09-pais_proc TO it_output_30-filler01+108(03),
it_reg09-urf_despacho TO it_output_30-filler01+111(07),
w_aliqii+2(04) TO it_output_30-filler01+118(04).
MOVE it_output_30-filler01+0(122) TO it_output_final-filler09.
* << Fim da inclusão
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
FORM monta_08.
it_reg08-tipo_reg = '08'.
it_reg08-nrseqli = it_reg03-nrseqli.
it_reg08-cd_inscsuf = it_reg03-cd_inscsuf.
PERFORM busca_tabela_080.
...
...
it_reg10-produto_zfm TO it_output_30-filler01+29(04),
w_zeros TO it_output_30-filler01+33(07),
w_tipo_ac_tar TO it_output_30-filler01+40(01),
w_ac_aladi TO it_output_30-filler01+41(03),
it_reg10-reg_tribut TO it_output_30-filler01+44(01),
it_reg10-fund_leg TO it_output_30-filler01+45(02),
it_reg10-cob_cambial TO it_output_30-filler01+47(01),
it_reg10-modal_pgto TO it_output_30-filler01+48(02),
it_reg10-dia_lim_pgto TO it_output_30-filler01+50(03),
it_reg10-orgao_fin TO it_output_30-filler01+53(02),
* >> Início da exclusão: FORM MONTA_10
it_reg10-mot_sem_cob+0(02) TO it_output_30-filler01+55(02).
MOVE it_output_30-filler01+0(57) TO it_output_final-filler10.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_10
it_reg10-mot_sem_cob+0(02) TO it_output_30-filler01+55(02),
w_agencia TO it_output_30-filler01+57(05),
it_reg10-drawback TO it_output_30-filler01+62(13).
MOVE it_output_30-filler01+0(75) TO it_output_final-filler10.
* << Fim da inclusão
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
FORM monta_03.
LOOP AT it_reg03 WHERE numli = w_numli.
MOVE: w_seq TO it_reg03-trat_prev.
PERFORM trata_decimais_01.
TRANSLATE it_reg03-ncm_merc USING '. '.
...