CE PLUS - Nota 007718
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 25/07/2014 14:32:19
Data/Hora Última Alteração: 25/07/2014 14:32:19
Descrição da Nota: NOTAS FISCAIS MENSAGENS EM PORTUGUÊS INDEPENDENTE DO IDIOMA LOGADO
Sintoma
Quando crio uma NF logado em Inglês as mensagens da NF estão em Inglês, porém a NF é um documento
nacional e as mensagens devem ser em portugês
Solução
Alterar de Elemento de Texto traduzido para não traduzido nas mensagens da NF
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07718 Data: 05/12/2008 Hora: 10:53:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07718
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07557 - 00001 - 7.0 - 00007 - ADEQUAÇÃO DO NUMERO DA NFE NAS MENSAGENS DA NF DE REMESSA E COMPL
----------------------------------------------------------------------------------------------------
NOTAS FISCAIS MENSAGENS EM PORTUGUÊS INDEPENDENTE DO IDIOMA LOGADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - MENSAGENS - IDIOMA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF wa_zycit001-meioemba EQ 'PS'.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
WHERE nrseq = wa_zycit001-nrseq.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-083 /pws/zycit093-identify '/'
itab_zycit085-nrseqdi text-066 v_dtreg
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.BL / Nº Seq.:' /pws/zycit093-identify '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
ENDIF.
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-021 itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi text-066 v_dtreg
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.BL / Nº Seq.:' itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
ENDIF.
APPEND it_zycee006.
IF NOT itab_zycit003[] IS INITIAL.
SELECT nrseq embarca FROM /pws/zycit001 INTO TABLE itab_zycit001_msg
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
ENDIF.
v_cont = 1.
LOOP AT itab_zycit001_msg.
IF itab_zycit001_msg-nrseq EQ itab_zycit042-nrseq.
v_cont = v_cont + 1.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-020 itab_zycit001_msg-nrseq '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Embarque nº' itab_zycit001_msg-nrseq '/'
* << Fim da inclusão
itab_zycit001_msg-embarca INTO it_zycee006-msg
SEPARATED BY space.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
ENDLOOP.
IF NOT itab_zycit085-urfdesp IS INITIAL.
SELECT SINGLE descdesp FROM /pws/zycet132
INTO /pws/zycet132-descdesp
WHERE codesp = itab_zycit085-urfdesp.
v_cont = v_cont + 1.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-067 /pws/zycet132-descdesp
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Local de Desembaraço:' /pws/zycet132-descdesp
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
CLEAR v_dtreg.
IF itab_zycit001[] IS INITIAL AND NOT itab_zycit042[] IS INITIAL.
SELECT nrseq padest bukrs FROM /pws/zycit001 INTO TABLE
itab_zycit001
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq = itab_zycit042-nrseq.
ENDIF.
IF itab_zycit007[] IS INITIAL.
SELECT nrseq valor waers tpimp FROM /pws/zycit007 INTO TABLE
itab_zycit007 WHERE nrseq = wa_zycit001-nrseq AND
* >> Início da exclusão: FORM MENSAGENS_NF
tpimp = text-049.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
tpimp = 'II'.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit001[] IS INITIAL.
SELECT land1 zolla bezei FROM t615t INTO TABLE itab_descpais
FOR ALL ENTRIES IN itab_zycit001
WHERE zolla = itab_zycit001-padest.
ENDIF.
IF NOT itab_descpais[] IS INITIAL.
SELECT land1 landx FROM t005t INTO TABLE itab_t005t
FOR ALL ENTRIES IN itab_descpais
WHERE land1 = itab_descpais-land1
...
...
IF itab_zycit007_aux_r[] IS INITIAL.
SELECT * FROM /pws/zycit007 INTO TABLE itab_zycit007_aux_r
WHERE nrseq = wa_zycit001-nrseq.
ENDIF.
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc EQ 0.
MOVE itab_zycit085-nrdi TO v_nrdi .
WRITE itab_zycit085-dtreg TO v_dtreg USING EDIT MASK '__.__.____'.
ENDIF.
READ TABLE itab_zycit007 WITH KEY nrseq = v_nrseq
* >> Início da exclusão: FORM MENSAGENS_NF
tpimp = text-049.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
tpimp = 'II'.
* << Fim da inclusão
IF sy-subrc EQ 0.
WRITE itab_zycit007-valor TO v_impim CURRENCY itab_zycit007-waers.
ENDIF.
READ TABLE itab_zycit001 WITH KEY nrseq = wa_zycit001-nrseq.
IF sy-subrc EQ 0.
READ TABLE itab_descpais WITH KEY zolla = itab_zycit001-padest.
IF sy-subrc EQ 0.
READ TABLE itab_t005t WITH KEY land1 = itab_descpais-land1.
IF sy-subrc EQ 0.
MOVE itab_t005t-landx TO v_landx.
...
...
MOVE itab_zycit003 TO itab_zycit003_mark.
APPEND itab_zycit003_mark.
ENDLOOP.
v_tamanho = '................'.
CLEAR v_vldp_x.
IF NOT v_valor_r IS INITIAL.
MOVE : v_valor_r TO itab_zycit049_aux_r-vldp,
itab_zycit049_aux_r-vldp TO v_vldp_x.
v_cont = v_cont + 1.
it_zycee006-indice = v_cont.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-057 v_tamanho v_vldp_x
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Imp. Importacao R$' v_tamanho v_vldp_x
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
v_tamanho = '.............................................'.
v_ind = v_cont + 1.
CLEAR: itab_zycit019, itab_zycit020, itab_zycit039.
REFRESH: itab_zycit019, itab_zycit020, itab_zycit039.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020
...
...
AND NOT itab_zycit100-codregtripiscofi EQ '5'.
v_vlpis = v_vlpis + itab_zycit100-vlpis.
v_vlcofins = v_vlcofins + itab_zycit100-vlcofins.
ENDIF.
ENDLOOP.
v_tamanho = '...............................'.
CLEAR v_vldp_x.
IF NOT v_vlpis IS INITIAL.
MOVE : v_vlpis TO itab_zycit049_aux_r-vldp,
itab_zycit049_aux_r-vldp TO v_vldp_x.
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'PIS' v_tamanho v_vldp_x
* << Fim da inclusão
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-086 v_tamanho v_vldp_x
* << Fim da exclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
v_tamanho = '............................'.
CLEAR v_vldp_x.
IF NOT v_vlcofins IS INITIAL.
MOVE: v_vlcofins TO itab_zycit049_aux_r-vldp,
itab_zycit049_aux_r-vldp TO v_vldp_x.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-087 v_tamanho v_vldp_x
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'COFINS' v_tamanho v_vldp_x
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
LOOP AT itab_zycit042_mark.
IF v_fundap NE 'X'.
READ TABLE itab_zycit100 WITH KEY
nrseq = itab_zycit042_mark-nrseq
ebeln = itab_zycit042_mark-ebeln
ebelp = itab_zycit042_mark-ebelp .
IF sy-subrc EQ 0 AND
...
...
ebelp = itab_zycit042_mark-ebelp .
IF sy-subrc EQ 0.
v_icms_dif = v_icms_dif + itab_zycit480-vl_icms.
ENDIF.
ENDIF.
ENDLOOP.
IF v_icms_dif NE 0.
v_ind = v_ind + 1.
WRITE v_icms_dif TO v_dificms CURRENCY itab_zycit049-waers.
v_tamanho = '....................'.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-078 v_tamanho v_dificms
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Valor do ICMS:' v_tamanho v_dificms
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_dif = 'X'.
v_ind = v_ind + 1.
* >> Início da exclusão: FORM MENSAGENS_NF
it_zycee006-msg = text-097 .
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Valor ICMS: Diferido'.
* << Fim da inclusão
CLEAR v_dif.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_base_dif NE 0.
v_ind = v_ind + 1.
WRITE v_base_dif TO v_basedif CURRENCY itab_zycit049-waers.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE text-079 v_basedif
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Base de Cálculo do ICMS:' v_basedif
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
CLEAR wa_zyglt369.
SELECT SINGLE *
FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
...
...
/pws/zycie001-tpdecl EQ 'DI'.
LOOP AT itab_zycit042_mark.
MOVE itab_zycit042_mark-ebeln TO itab_pedido-ebeln.
COLLECT itab_pedido.
ENDLOOP.
SORT itab_pedido BY ebeln.
CLEAR v_cont .
DESCRIBE TABLE itab_pedido LINES v_line.
LOOP AT itab_pedido.
IF sy-tabix EQ '1' .
* >> Início da exclusão: FORM MENSAGENS_NF
it_zycee006-msg = text-102.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
it_zycee006-msg = 'Pedidos nº'.
* << Fim da inclusão
ENDIF.
CONCATENATE it_zycee006-msg itab_pedido-ebeln INTO it_zycee006-msg
SEPARATED BY '-' .
v_cont = v_cont + 1.
IF v_cont EQ '5' .
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
CONCATENATE it_zycee006-msg itab_pedido-ebeln INTO it_zycee006-msg
SEPARATED BY ',' .
...
...
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF wa_zycit001-meioemba EQ 'PS'.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
WHERE nrseq = wa_zycit001-nrseq.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE text-083 /pws/zycit093-identify '/'
itab_zycit085-nrseqdi text-066 v_dtreg
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Nr.BL / Nº Seq.:' /pws/zycit093-identify '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
ENDIF.
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE text-021 itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi text-066 v_dtreg
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'DI / Nº Seq.:' itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
ENDIF.
APPEND it_zycee006.
IF NOT itab_zycit044[] IS INITIAL.
SELECT nrseq embarca FROM /pws/zycit001 INTO TABLE itab_zycit001_msg
FOR ALL ENTRIES IN itab_zycit044
WHERE nrseq = itab_zycit044-nrseq.
ENDIF.
v_cont = 1.
LOOP AT itab_zycit001_msg.
v_cont = v_cont + 1.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE text-020 itab_zycit001_msg-nrseq '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Embarque nº' itab_zycit001_msg-nrseq '/'
* << Fim da inclusão
itab_zycit001_msg-embarca INTO it_zycee006-msg
SEPARATED BY space.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDLOOP.
IF NOT itab_zycit085-urfdesp IS INITIAL.
SELECT SINGLE descdesp FROM /pws/zycet132
INTO /pws/zycet132-descdesp
WHERE codesp = itab_zycit085-urfdesp.
v_cont = v_cont + 1.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE text-067 /pws/zycet132-descdesp
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Local de Desembaraço:' /pws/zycet132-descdesp
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
CLEAR v_dtreg.
SELECT * FROM /pws/zycit100
INTO TABLE itab_zycit100_aux
WHERE nrseqdi = itab_zycit085-nrseqdi.
IF itab_zycit003[] IS INITIAL.
SELECT *
...
...
MOVE itab_j1bnfdoc-docdat TO v_pstdat.
PERFORM formata_data.
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit042_auxre-docnum
IMPORTING
nfnum = v_nfnum2
series = v_series.
it_zycee006-indice = v_idm .
CONCATENATE v_nfnum2 '-' v_series INTO v_nf.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE text-059 v_nf '-'
text-060 v_data2
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Nota Fiscal Global Nº' v_nf '-'
'Data de emissão' v_data2
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
v_idm = v_idm + 1.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT /pws/zycie043-observ1 IS INITIAL.
it_zycee006-indice = '3'.
it_zycee006-msg = /pws/zycie043-observ1.
...
...
IF NOT /pws/zycie043-observ5 IS INITIAL.
it_zycee006-indice = '7'.
it_zycee006-msg = /pws/zycie043-observ5.
APPEND it_zycee006.
ENDIF.
v_idm = it_zycee006-indice.
IF v_base_dif NE 0.
v_idm = v_idm + 1.
it_zycee006-indice = v_idm.
WRITE v_base_dif TO v_basedif CURRENCY itab_zycit049-waers.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE text-079 v_basedif
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Base de Cálculo do ICMS:' v_basedif
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
CLEAR v_icms_nfr_1.
READ TABLE itab_zycit044 INDEX 1.
IF sy-subrc EQ 0.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
LOOP AT itab_zycit042 WHERE docnum = itab_zycit044-docnumnfg.
READ TABLE itab_zycit100_aux WITH KEY ebeln = itab_zycit042-ebeln
...
...
ENDIF.
ELSE.
CLEAR v_icms_dif.
ENDIF.
ENDLOOP.
IF NOT v_icms_nfr_1 IS INITIAL.
v_cont = v_cont + 1.
it_zycee006-indice = v_cont.
WRITE v_icms_nfr_1 CURRENCY itab_zycit100-waersbem
TO v_icms_nfr.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE text-088 v_icms_nfr
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Valor Total do ICMS da Operação: R$' v_icms_nfr
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
IF v_dif = 'X'.
* >> Início da exclusão: FORM MENSAGENS_NF_R
it_zycee006-msg = text-097 .
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
it_zycee006-msg = 'Valor ICMS: Diferido'.
* << Fim da inclusão
CLEAR v_dif.
v_cont = v_cont + 1.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
ENDIF.
SELECT SINGLE *
FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
v_txtkey LIKE thead-tdname.
DATA: BEGIN OF itab_pedido OCCURS 0.
DATA: ebeln TYPE ekpo-ebeln.
DATA: END OF itab_pedido.
DATA: v_line TYPE i.
v_cont = v_cont + 1.
it_zycee006-nrseq = /pws/zycie264-nrseqc.
it_zycee006-branch = /pws/zycie264-j_1bbranch.
it_zycee006-indice = v_cont.
WRITE /pws/zycit085-dtreg TO v_dtreg.
* >> Início da exclusão: FORM MENSAGENS_NFC
CONCATENATE text-008 /pws/zycit085-nrdi '/' /pws/zycit085-nrseqdi
text-009 v_dtreg INTO it_zycee006-msg
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
CONCATENATE 'DI / Nº Seq.:'
/pws/zycit085-nrdi '/' /pws/zycit085-nrseqdi
' Data:' v_dtreg INTO it_zycee006-msg
* << Fim da inclusão
SEPARATED BY space.
APPEND it_zycee006.
v_cont = 1.
LOOP AT itab_zycit001.
v_cont = v_cont + 1.
* >> Início da exclusão: FORM MENSAGENS_NFC
CONCATENATE text-010 itab_zycit001-nrseq '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
CONCATENATE 'Embarque nº' itab_zycit001-nrseq '/'
* << Fim da inclusão
itab_zycit001-embarca INTO it_zycee006-msg
SEPARATED BY space.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDLOOP.
IF NOT /pws/zycit085-urfdesp IS INITIAL.
SELECT SINGLE descdesp FROM /pws/zycet132 INTO
/pws/zycet132-descdesp
WHERE codesp = /pws/zycit085-urfdesp.
v_cont = v_cont + 1.
* >> Início da exclusão: FORM MENSAGENS_NFC
CONCATENATE text-011 /pws/zycet132-descdesp
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
CONCATENATE 'Local de Desembaraço:' /pws/zycet132-descdesp
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
it_zycee006-indice = v_cont.
APPEND it_zycee006.
ENDIF.
CLEAR v_dtreg.
LOOP AT itab_zycit001.
READ TABLE itab_zycit042 WITH KEY
nrseq = itab_zycit001-nrseq.
IF sy-subrc = 0.
READ TABLE itab_j1bnfdoc WITH KEY docnum = itab_zycit042-docnum.
...
...
MOVE itab_j1bnfdoc-docdat TO v_pstdat.
PERFORM formata_data.
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = itab_zycit042-docnum
IMPORTING
nfnum = v_nfnum2
series = v_series.
it_zycee006-indice = v_cont .
CONCATENATE v_nfnum2 '-' v_series INTO v_nf.
* >> Início da exclusão: FORM MENSAGENS_NFC
CONCATENATE text-030 text-020 v_nf '-'
text-021 v_data2
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
CONCATENATE 'NF Complementar à' 'Nº' v_nf '-'
'Data de emissão' v_data2
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
v_cont = v_cont + 1.
ENDIF.
ENDIF.
ENDLOOP.
DATA: v_tam TYPE i,
v_tam2 TYPE i,
v_tam3 TYPE i,
v_times TYPE i.
...
...
LOOP AT itab_zycit265_mark.
v_vlpis = v_vlpis + itab_zycit265_mark-vldp_pis.
v_vlcofins = v_vlcofins + itab_zycit265_mark-vldp_cofins.
ENDLOOP.
CLEAR itab_zycit265_mark.
REFRESH itab_zycit265_mark.
v_tamanho = '...............................'.
CLEAR v_vldp_x.
IF NOT v_vlpis IS INITIAL.
MOVE : v_vlpis TO v_vldp_x.
* >> Início da inclusão: FORM MENSAGENS_NFC
CONCATENATE 'PIS' v_tamanho v_vldp_x
* << Fim da inclusão
* >> Início da exclusão: FORM MENSAGENS_NFC
CONCATENATE text-028 v_tamanho v_vldp_x
* << Fim da exclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
v_tamanho = '............................'.
CLEAR v_vldp_x.
IF NOT v_vlcofins IS INITIAL.
MOVE: v_vlcofins TO v_vldp_x.
* >> Início da exclusão: FORM MENSAGENS_NFC
CONCATENATE text-029 v_tamanho v_vldp_x
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
CONCATENATE 'COFINS' v_tamanho v_vldp_x
* << Fim da inclusão
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
CLEAR wa_zyglt369.
SELECT SINGLE *
FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
...
...
itab_zycit001-tpdecl EQ 'DI'.
LOOP AT itab_zycit265_c2 .
MOVE itab_zycit265_c2-ebeln TO itab_pedido-ebeln.
COLLECT itab_pedido.
ENDLOOP.
SORT itab_pedido BY ebeln.
CLEAR v_cont .
DESCRIBE TABLE itab_pedido LINES v_line.
LOOP AT itab_pedido.
IF sy-tabix EQ '1' .
* >> Início da exclusão: FORM MENSAGENS_NFC
it_zycee006-msg = text-037.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
it_zycee006-msg = 'Pedidos nº'.
* << Fim da inclusão
ENDIF.
CONCATENATE it_zycee006-msg itab_pedido-ebeln
INTO it_zycee006-msg SEPARATED BY '-'.
v_cont = v_cont + 1.
IF v_cont EQ '5' .
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
CONCATENATE it_zycee006-msg itab_pedido-ebeln
INTO it_zycee006-msg SEPARATED BY ','.
...