CE PLUS - Nota 007270
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 08/09/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:01:17
Descrição da Nota: NOTA FISCAL ELETRÔNICA NFE PARA O EMBARQUE ANTIGO
Sintoma
Embarque antigo não atende Nota Fiscal Eletrônica
Solução
Desenvolvimento Adicional para Tratar a Nota Fiscal Eletrônica no Embarque Antigo
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07270 Data: 08/09/2008 Hora: 10:41:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07270
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00063
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06798 - 00001 - 7.0 - 00006 - AJUSTE NOS PROGRAMAS DE EXPORTAÇÃO PARA ATENDER A NOTA FISCAL ELE
----------------------------------------------------------------------------------------------------
NOTA FISCAL ELETRÔNICA NFE PARA O EMBARQUE ANTIGO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL ELETRÔNICA NFE NF-E EMBARQUE ANTIGO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE001F01B
REPS /PWS/MZYCE001F01C
REPS /PWS/MZYCE001F01D
REPS /PWS/MZYCE001TOP
----------------------------------------------------------------------------------------------------
Aplicar a Nota 6798, exceto os trechos referentes ao Embarque Novo (/PWS/SAPMZYCE003) e seus
includes.
Após aplicação da Nota 6798, aplicar o Trecho abaixo para Alterar o Embarque Antigo.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE001F01B
...
ENDLOOP.
ENDIF.
LOOP AT itab_zycet002a.
IF NOT itab_zycet002a-vbeln_vf IS INITIAL.
MOVE-CORRESPONDING itab_zycet002a TO itab_aux.
APPEND itab_aux.
ENDIF.
ENDLOOP.
IF NOT itab_aux[] IS INITIAL.
SELECT DISTINCT
* >> Início da exclusão: FORM BUSCA_DADOS_EXTRAS_OV
j_1bnflin~docnum j_1bnflin~itmnum j_1bnfdoc~nfnum
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS_OV
j_1bnflin~docnum j_1bnflin~itmnum
* << Fim da inclusão
j_1bnflin~refkey
FROM j_1bnflin JOIN j_1bnfdoc
ON j_1bnfdoc~docnum = j_1bnflin~docnum
INTO TABLE itab_j_1bnf
FOR ALL ENTRIES IN itab_aux
WHERE j_1bnflin~reftyp = 'BI'
AND j_1bnflin~refkey = itab_aux-vbeln_vf.
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS_OV
LOOP AT itab_aux.
READ TABLE itab_j_1bnf WITH KEY refkey = itab_aux-vbeln_vf.
v_ind = sy-tabix.
CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'
EXPORTING
i_docnum = itab_j_1bnf-docnum
IMPORTING
e_nfnum = itab_j_1bnf-nfnum
EXCEPTIONS
documento_invalido = 1
documento_nao_preenchido = 2.
IF sy-subrc = 0.
MODIFY itab_j_1bnf INDEX v_ind.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM save_cont.
DATA: v_program LIKE sy-repid.
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMB026'.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-programa IS INITIAL AND
NOT itab_zyglt100-formulario IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE001F01C
...
ENDLOOP.
ENDIF.
LOOP AT itab_zycet002a.
IF NOT itab_zycet002a-vbeln_vf IS INITIAL.
MOVE-CORRESPONDING itab_zycet002a TO itab_aux.
APPEND itab_aux.
ENDIF.
ENDLOOP.
IF NOT itab_aux[] IS INITIAL.
SELECT DISTINCT
* >> Início da exclusão: FORM BUSCA_DADOS_EXTRAS
j_1bnflin~docnum j_1bnflin~itmnum j_1bnfdoc~nfnum
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS
j_1bnflin~docnum j_1bnflin~itmnum
* << Fim da inclusão
j_1bnflin~refkey
FROM j_1bnflin JOIN j_1bnfdoc
ON j_1bnfdoc~docnum = j_1bnflin~docnum
INTO TABLE itab_j_1bnf
FOR ALL ENTRIES IN itab_aux
WHERE j_1bnflin~reftyp = 'BI'
AND j_1bnflin~refkey = itab_aux-vbeln_vf.
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS
LOOP AT itab_aux.
READ TABLE itab_j_1bnf WITH KEY refkey = itab_aux-vbeln_vf.
v_ind = sy-tabix.
CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'
EXPORTING
i_docnum = itab_j_1bnf-docnum
IMPORTING
e_nfnum = itab_j_1bnf-nfnum
EXCEPTIONS
documento_invalido = 1
documento_nao_preenchido = 2.
IF sy-subrc = 0.
MODIFY itab_j_1bnf INDEX v_ind.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM ajusta_itab_konv_remessas.
REFRESH: itab_konv_temp,
itab_konv,
itab_zycet008_rem.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE001F01D
...
ENDLOOP.
ENDIF.
LOOP AT itab_zycet002a_dev.
IF NOT itab_zycet002a_dev-vbeln_vf IS INITIAL.
MOVE-CORRESPONDING itab_zycet002a_dev TO itab_aux.
APPEND itab_aux.
ENDIF.
ENDLOOP.
IF NOT itab_aux[] IS INITIAL.
SELECT DISTINCT
* >> Início da exclusão: FORM BUSCA_DADOS_EXTRAS_DEV
j_1bnflin~docnum j_1bnflin~itmnum j_1bnfdoc~nfnum
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS_DEV
j_1bnflin~docnum j_1bnflin~itmnum
* << Fim da inclusão
j_1bnflin~refkey
FROM j_1bnflin JOIN j_1bnfdoc
ON j_1bnfdoc~docnum = j_1bnflin~docnum
INTO TABLE itab_j_1bnf
FOR ALL ENTRIES IN itab_aux
WHERE j_1bnflin~reftyp = 'BI'
AND j_1bnflin~refkey = itab_aux-vbeln_vf.
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS_DEV
LOOP AT itab_aux.
READ TABLE itab_j_1bnf WITH KEY refkey = itab_aux-vbeln_vf.
v_ind = sy-tabix.
CALL FUNCTION '/PWS/ZYCE_BUSCA_NUMERO_NF'
EXPORTING
i_docnum = itab_j_1bnf-docnum
IMPORTING
e_nfnum = itab_j_1bnf-nfnum
EXCEPTIONS
documento_invalido = 1
documento_nao_preenchido = 2.
IF sy-subrc = 0.
MODIFY itab_j_1bnf INDEX v_ind.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM BUSCA_DADOS_EXTRAS_DEV
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM atualiza_itab_zycet002a_dev.
DATA: v_dummy LIKE /pws/zycet002-nrseq,
v_steuc LIKE /pws/zycet002-steuc.
READ TABLE itab_vbkd INDEX 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE001TOP
...
xblnr LIKE /pws/zycet002-xblnr,
aufnr LIKE vbrp-aufnr,
pspid LIKE vbrp-ps_psp_pnr,
kokrs LIKE vbrp-kokrs,
zqtdemb LIKE /pws/zycet002-zqtdemb,
END OF itab_zycet002a.
DATA: it_002_old LIKE itab_zycet002a OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_j_1bnf OCCURS 10,
docnum LIKE j_1bnflin-docnum,
itmnum LIKE j_1bnflin-itmnum,
* >> Início da exclusão:
nfnum LIKE j_1bnfdoc-nfnum,
* << Fim da exclusão
refkey LIKE j_1bnflin-refkey,
* >> Início da inclusão:
nfnum LIKE /pws/zycet002-nfnum,
* << Fim da inclusão
END OF itab_j_1bnf.
DATA: BEGIN OF itab_zycet162 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet162.
DATA: END OF itab_zycet162.
DATA BEGIN OF itab_zycet161 OCCURS 10.
INCLUDE STRUCTURE /pws/zycet161.
...