CE PLUS - Nota 008817
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 12/08/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:20:08
Descrição da Nota: AO CRIAR NF, NA MENSAGEM APARECE NÚMERO DO BL E NÃO MENCIONA DI/DSI
Sintoma
Ao criar NF, na mensagem aparece número do BL e não menciona DI/DSI
Solução
Corrigidos para exibir mensagem de DI/DSI.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08817 Data: 12/08/2009 Hora: 10:48:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08817
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07718 - 00001 - 7.0 - 00007 - NOTAS FISCAIS MENSAGENS EM PORTUGUÊS INDEPENDENTE DO IDIOMA LOGAD
----------------------------------------------------------------------------------------------------
AO CRIAR NF, NA MENSAGEM APARECE NÚMERO DO BL E NÃO MENCIONA DI/DSI
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF - MENSAGEM - DI - DSI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
WHERE nrseqdi = v_nrseq.
ENDIF.
it_zycee006-nrseq = /pws/zycie041-nfglobal.
it_zycee006-branch = wa_zycit001-j_1bbranch.
it_zycee006-indice = '1'.
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
* >> Início da exclusão: FORM MENSAGENS_NF
IF wa_zycit001-meioemba EQ 'PS'.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
WHERE nrseq = wa_zycit001-nrseq. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
CONCATENATE 'Nr.BL / Nº Seq.:' /pws/zycit093-identify '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
IF itab_zycit085-tpdi EQ 'S'.
CONCATENATE 'Nr.Seq.DSI: ' '/'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.BL / Nº Seq.:' itab_zycit085-nrdi '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.Seq. DI:'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
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.
CONCATENATE 'Embarque nº' itab_zycit001_msg-nrseq '/'
itab_zycit001_msg-embarca INTO it_zycee006-msg
* >> Início da exclusão: FORM MENSAGENS_NF
SEPARATED BY space. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
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.
CONCATENATE 'Local de Desembaraço:' /pws/zycet132-descdesp
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
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.
...
...
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.
CONCATENATE 'Imp. Importacao R$' v_tamanho v_vldp_x
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
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
WHERE regio = adrc-region AND ( baseicms = 'X' OR
...
...
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 = '....................'.
CONCATENATE 'Valor do ICMS:' v_tamanho v_dificms
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_ind.
APPEND it_zycee006.
ENDIF.
IF v_dif = 'X'.
v_ind = v_ind + 1.
it_zycee006-msg = 'Valor ICMS: Diferido'. "#EC NOTEXT
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.
CONCATENATE 'Base de Cálculo do ICMS:' v_basedif
* >> Início da exclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
it_zycee006-indice = v_ind.
APPEND it_zycee006.
CLEAR: v_base_dif.
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
...
...
ENDIF.
v_cont = v_cont + 1.
it_zycee006-nrseq = /pws/zycie043-nfremessa.
it_zycee006-branch = wa_zycit001-j_1bbranch.
it_zycee006-indice = v_cont.
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
* >> Início da exclusão: FORM MENSAGENS_NF_R
IF wa_zycit001-meioemba EQ 'PS'.
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
WHERE nrseq = wa_zycit001-nrseq. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
CONCATENATE 'Nr.BL / Nº Seq.:' /pws/zycit093-identify '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
IF itab_zycit085-tpdi EQ 'S'.
CONCATENATE 'Nr.Seq.DSI:'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
* >> Início da exclusão: FORM MENSAGENS_NF_R
ENDIF.
* << Fim da exclusão
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE 'DI / Nº Seq.:' itab_zycit085-nrdi '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Nr.Seq. DI:'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
* >> Início da exclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* << Fim da inclusão
ENDIF.
APPEND it_zycee006.
IF NOT itab_zycit044[] IS INITIAL.
...