CE PLUS - Nota 010186
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 24/05/2010 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:12:44
Descrição da Nota: AJUSTE NA FORMATAÇÃO DOS VALORES DAS DESPESAS NAS MENSAGENS DA NOTA
Sintoma
Os valores das despesas nas mensagens da nota fiscal estão sendo preenchidos utilizando ponto no
lugar da virgula.
Solução
Ajustado programa para utilizar a moeda na motagens dos valores das despesas para as mensagens da
nota fiscal.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10186 Data: 24/05/2010 Hora: 14:11:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10186
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07524 - 00001 - 7.0 - 00007 - QUEBRA DE ADIÇÕES CONSIDERA QUANTIDADES DE ANTIDUMP DIFERENTES
07718 - 00002 - 7.0 - 00007 - NOTAS FISCAIS MENSAGENS EM PORTUGUÊS INDEPENDENTE DO IDIOMA LOGAD
----------------------------------------------------------------------------------------------------
AJUSTE NA FORMATAÇÃO DOS VALORES DAS DESPESAS NAS MENSAGENS DA NOTA
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM - NOTA - FISCAL - GLOBAL - COMPLEMANTAR - DESPESA - VALOR
/PWS/SAPMZYCI016 - /PWS/SAPMZYCI029 - FORMATAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ebeln = itab_zycit042_mark-ebeln
ebelp = itab_zycit042_mark-ebelp.
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.
* >> Início da inclusão: FORM MENSAGENS_NF
WRITE itab_zycit049_aux_r-vldp TO v_vldp_x
CURRENCY /pws/zycbt007-waersb.
* << Fim da inclusão
v_cont = v_cont + 1.
it_zycee006-indice = v_cont.
CONCATENATE 'Imp. Importacao R$' v_tamanho v_vldp_x
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
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.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF NOT v_vldp IS INITIAL.
MOVE : itab_zycit049_aux_r-descr TO v_descr,
v_vldp TO v_vldp_x.
* >> Início da inclusão: FORM MENSAGENS_NF
WRITE v_vldp TO v_vldp_x CURRENCY /pws/zycbt007-waersb.
* << Fim da inclusão
CONCATENATE v_descr v_tamanho INTO v_descr.
CONCATENATE v_descr v_vldp_x INTO it_zycee006-msg
SEPARATED BY space.
APPEND it_zycee006.
v_ind = v_ind + 1.
ENDIF.
CLEAR v_vldp.
ENDLOOP.
CLEAR: v_vlpis, v_vlcofins.
LOOP AT itab_zycit042_mark.
...
...
v_vlcofins_aux = v_vlcofins_aux + itab_zycit100-vlcofins.
v_vlpis = v_vlpis + v_vlpis_aux.
v_vlcofins = v_vlcofins + v_vlcofins_aux.
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
WRITE itab_zycit049_aux_r-vldp TO v_vldp_x
CURRENCY /pws/zycbt007-waersb.
* << Fim da inclusão
CONCATENATE 'PIS' v_tamanho v_vldp_x
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 inclusão: FORM MENSAGENS_NF
WRITE itab_zycit049_aux_r-vldp TO v_vldp_x
CURRENCY /pws/zycbt007-waersb.
* << Fim da inclusão
CONCATENATE 'COFINS' v_tamanho v_vldp_x
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 .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
CLEAR: v_vlpis, v_vlcofins.
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.
* >> Início da exclusão: FORM MENSAGENS_NFC
MOVE : v_vlpis TO v_vldp_x.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
itab_resum-vlcompl = v_vlpis.
WRITE itab_resum-vlcompl TO v_vldp_x+1 LEFT-JUSTIFIED
CURRENCY /pws/zycbt007-waersb.
* << Fim da inclusão
CONCATENATE 'PIS' v_tamanho v_vldp_x
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
v_tamanho = '............................'.
CLEAR v_vldp_x.
IF NOT v_vlcofins IS INITIAL.
* >> Início da exclusão: FORM MENSAGENS_NFC
MOVE: v_vlcofins TO v_vldp_x.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NFC
itab_resum-vlcompl = v_vlcofins.
WRITE itab_resum-vlcompl TO v_vldp_x+1 LEFT-JUSTIFIED
CURRENCY /pws/zycbt007-waersb.
* << Fim da inclusão
CONCATENATE 'COFINS' v_tamanho v_vldp_x
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
...