CE PLUS - Nota 007339
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Complementar
Data/Hora da Publicação: 22/09/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:46:32
Descrição da Nota: ACRESCENTAR DESPESAS NAS MENSAGENS DA NOTA FISCAL COMPLEMENTAR
Sintoma
Necessário arescentar despesas nas mensagens da nota fiscal complementar
Solução
Fazer o desenvolvimento para acrescentar despesas nas mensagens de NF Complementar.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07339 Data: 22/09/2008 Hora: 10:52:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07339
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00065
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ACRESCENTAR DESPESAS NAS MENSAGENS DA NOTA FISCAL COMPLEMENTAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESAS - MENSAGENS - NF COMPLEMENTAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
* >> Início da inclusão: FORM MENSAGENS_NFC
DATA: v_tam TYPE i,
v_tam2 TYPE i,
v_tam3 TYPE i,
v_times TYPE i.
v_tam3 = strlen( it_zycee006-msg ).
v_tam2 = strlen( v_vldp_x ) .
* << Fim da inclusão
...
...
it_zycee006-indice = v_cont .
CONCATENATE v_nfnum2 '-' v_series INTO v_nf.
CONCATENATE text-030 text-020 v_nf '-'
text-021 v_data2
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
v_cont = v_cont + 1.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM MENSAGENS_NFC
PERFORM monta_resumo.
DATA v_descr(40).
LOOP AT itab_resum WHERE vlreal NE space.
READ TABLE itab_zycit019 WITH KEY codigo = itab_resum-codigo.
IF sy-subrc = '0'.
v_descr = itab_zycit019-descr .
CLEAR : v_vldp_x , v_tamanho.
write itab_resum-vlreal TO v_vldp_x left-justified.
v_tam = strlen( itab_zycit019-descr ).
v_times = 35 - v_tam .
DO v_times TIMES.
CONCATENATE v_descr '.' INTO v_descr.
ENDDO.
CONCATENATE v_descr v_tamanho v_vldp_x
INTO it_zycee006-msg SEPARATED BY space.
APPEND it_zycee006.
ENDIF.
ENDLOOP.
* << Fim da inclusão
CLEAR: v_vlpis, v_vlcofins.
...