CE PLUS - Nota 013511
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 11/12/2013 09:05:18
Data/Hora Última Alteração: 11/12/2013 09:05:18
Descrição da Nota: AJUSTADO PROGRAMA PARA COMPLETAR OS CAMPOS NUMERICOS COM ZERO
Sintoma
Ajustado programa para completar os campos numericos com zero.
Solução
Ajustado programa para completar os campos numericos com zero.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13511 Data: 10/12/2013 Hora: 14:33:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13511
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
13497 - 00001 - 9.0 - 00006 - CORREÇÃO NA GERAÇÃO DO ARQUIVO TXT DA PLI.
----------------------------------------------------------------------------------------------------
AJUSTADO PROGRAMA PARA COMPLETAR OS CAMPOS NUMERICOS COM ZERO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROGRAMA - GERA - ARQUIVO - TXT - COMPLETAR - CAMPO - NUMERICO - ZERO
/PWS/ZYCIR041
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR041
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR041
...
it_reg01-tipo_doc TO it_output_30-filler01+256(01),
it_reg01-doc_refer TO it_output_30-filler01+257(08),
'0' TO it_output_30-filler01+265(01),
it_reg01-tipo_aplic TO it_output_30-filler01+266(01),
w_li_refer+0(10) TO it_output_30-filler01+267(10),
it_reg01-nr_proex TO it_output_30-filler01+277(08),
it_reg01-ano_proex TO it_output_30-filler01+285(04),
it_reg01-e_mail TO it_output_30-filler01+289(50),
it_reg01-versao TO it_output_30-filler01+339(03),
w_ind_exig TO it_output_30-filler01+342(01).
* >> Início da inclusão: FORM MONTA_01
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+21(01),
it_output_30-filler01+36(03),
it_output_30-filler01+233(08),
it_output_30-filler01+241(04),
it_output_30-filler01+256(01),
it_output_30-filler01+266(01),
it_output_30-filler01+267(10),
it_output_30-filler01+277(08),
it_output_30-filler01+285(04),
it_output_30-filler01+339(03).
* << Fim da inclusão
MOVE it_output_30-filler01+0(343) TO it_output_final-filler01.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
...
...
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),
w_mat_usado TO it_output_30-filler01+99(01),
w_cond_merc TO it_output_30-filler01+100(01),
* >> Início da inclusão: FORM MONTA_09
it_reg09-comunc-compra TO it_output_30-filler01+101(13),
* << Fim da inclusão
it_reg09-urf_entr TO it_output_30-filler01+114(07),
it_reg09-pais_proc TO it_output_30-filler01+121(03),
it_reg09-urf_despacho TO it_output_30-filler01+124(07),
w_aliqii+2(04) TO it_output_30-filler01+131(04).
* >> Início da inclusão: FORM MONTA_09
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+29(11),
it_output_30-filler01+48(15),
it_output_30-filler01+63(14),
it_output_30-filler01+77(01),
it_output_30-filler01+78(03),
it_output_30-filler01+84(15),
it_output_30-filler01+114(07),
it_output_30-filler01+121(03),
it_output_30-filler01+124(07),
it_output_30-filler01+131(04).
* << Fim da inclusão
MOVE it_output_30-filler01+0(135) TO it_output_final-filler09.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
...
...
it_reg08-pais_aquis_merc TO it_output_30-filler01+217(03),
it_reg08-ausencia_fabric TO it_output_30-filler01+220(01),
it_reg08-fabricante TO it_output_30-filler01+221(60),
it_reg08-end_fabric TO it_output_30-filler01+281(40),
it_reg08-nr_fabric TO it_output_30-filler01+321(06),
it_reg08-compl_fabric TO it_output_30-filler01+327(21),
it_reg08-uf_fabric TO it_output_30-filler01+348(20),
w_branco+0(05) TO it_output_30-filler01+368(05),
it_reg08-mun_fabric TO it_output_30-filler01+373(25),
it_reg08-pais_orig_merc TO it_output_30-filler01+398(03).
* >> Início da inclusão: FORM MONTA_08
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+29(11),
it_output_30-filler01+217(03),
it_output_30-filler01+220(01),
it_output_30-filler01+398(03).
* << Fim da inclusão
MOVE it_output_30-filler01+0(401) TO it_output_final-filler08.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
...
...
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),
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).
* >> Início da inclusão: FORM MONTA_10
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+29(11),
it_output_30-filler01+40(01),
it_output_30-filler01+44(01),
it_output_30-filler01+45(02),
it_output_30-filler01+47(01),
it_output_30-filler01+48(02),
it_output_30-filler01+50(03),
it_output_30-filler01+53(02),
it_output_30-filler01+55(02).
* << Fim da inclusão
MOVE it_output_30-filler01+0(75) TO it_output_final-filler10.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
...
...
.
CONCATENATE it_output_30-filler01 v_texto2
INTO it_output_30-filler01.
REPLACE '¤' WITH ' ' INTO it_output_30-filler01.
WHILE sy-subrc EQ 0.
REPLACE '¤' WITH ' ' INTO it_output_30-filler01.
ENDWHILE.
ELSE.
DATA w_brancoss(3783).
ENDIF.
* >> Início da inclusão: FORM MONTA_03
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+29(04),
it_output_30-filler01+33(11),
it_output_30-filler01+44(14),
it_output_30-filler01+78(18).
* << Fim da inclusão
MOVE it_output_30-filler01+0(4193) TO it_output_final-filler03.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDLOOP.
ENDFORM.
...
...
w_ncm TO it_reg04-ncm_merc,
w_codsufra TO it_reg04-produto_zfm.
MOVE: it_reg04-tipo_reg TO it_output_30-filler01+0(02),
it_reg04-trat_prev TO it_output_30-filler01+02(10),
it_reg04-cd_inscsuf TO it_output_30-filler01+12(09),
it_reg04-ncm_merc TO it_output_30-filler01+21(08),
it_reg04-proc_anuente TO it_output_30-filler01+29(20),
it_reg04-sig_anuente+0(10) TO it_output_30-filler01+49(10),
it_reg04-produto_zfm TO it_output_30-filler01+59(04),
w_zeros TO it_output_30-filler01+63(07).
* >> Início da inclusão: FORM MONTA_04
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+59(11).
* << Fim da inclusão
MOVE it_output_30-filler01+0(70) TO it_output_final-filler04.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDIF.
ENDFORM.
...
...
MOVE: it_reg05-tipo_reg TO it_output_30-filler01+0(02),
it_reg05-trat_prev TO it_output_30-filler01+02(10),
it_reg05-cd_inscsuf TO it_output_30-filler01+12(09),
it_reg05-ncm_merc TO it_output_30-filler01+21(08),
it_reg05-destaque_ncm TO it_output_30-filler01+29(03),
it_reg05-produto_zfm TO it_output_30-filler01+32(04),
w_zeros TO it_output_30-filler01+36(07).
* >> Início da inclusão: FORM MONTA_05
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+29(03),
it_output_30-filler01+32(11).
* << Fim da inclusão
MOVE it_output_30-filler01+0(43) TO it_output_final-filler05.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
...
...
MOVE: w_seq TO it_reg07-trat_prev,
w_ncm TO it_reg07-ncm_merc,
w_codsufra TO it_reg07-produto_zfm.
MOVE: it_reg07-tipo_reg TO it_output_30-filler01+0(02),
it_reg07-trat_prev TO it_output_30-filler01+02(10),
it_reg07-cd_inscsuf TO it_output_30-filler01+12(09),
it_reg07-ncm_merc TO it_output_30-filler01+21(08),
it_reg07-produto_zfm TO it_output_30-filler01+29(04),
w_zeros TO it_output_30-filler01+33(07),
v_texto TO it_output_30-filler01+40(4048).
* >> Início da inclusão: FORM MONTA_07
PERFORM camp_num CHANGING:
it_output_30-filler01+0(02),
it_output_30-filler01+12(09),
it_output_30-filler01+29(11).
* << Fim da inclusão
MOVE it_output_30-filler01+0(4088) TO it_output_final-filler07.
APPEND it_output_final.
CLEAR it_output_final.
APPEND it_output_30.
CLEAR it_output_30.
ENDFORM.
...
...
* >> Início da inclusão:
FORM camp_num CHANGING p_camp.
WRITE p_camp TO p_camp RIGHT-JUSTIFIED.
translate p_camp using ' 0'.
ENDFORM.
* << Fim da inclusão