CE PLUS - Nota 011451
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 13/09/2011 10:56:17
Data/Hora Última Alteração: 13/09/2011 10:56:17
Descrição da Nota: NOTA FISCAL DE REMESSA GRAVA NUMERO DE ITEM ERRADO NO PWCE.
Sintoma
Ao gerar a nota fiscal de remessa o programa esta gravando na tabela numero de item da nota
correspondente a nota fiscal global.
Solução
Atualizado programa para atualizar o campo ITMNUM da tabela /PWS/ZYCIT044 de acordo com a sequencia
em que é utilizado na criação da nota de remessa.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11451 Data: 13/09/2011 Hora: 10:04:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11451
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00084
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08216 - 00001 - 7.0 - 00009 - IMPLEMENTAÇÃO NA CRIAÇÃO DA NOTA FISCAL PARA PREENCHER O INCOTERM
----------------------------------------------------------------------------------------------------
NOTA FISCAL DE REMESSA GRAVA NUMERO DE ITEM ERRADO NO PWCE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - REMESSA - NUMERO - ITEM - ITMNUM - /PWS/ZYCIT044
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM fill_data_j1b1_r.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
DATA v_itmnum TYPE sy-tabix.
* << Fim da inclusão
...
...
ENDIF.
IF NOT itab_zycit044[] IS INITIAL.
SELECT * FROM t001w INTO TABLE itab_t001w
FOR ALL ENTRIES IN itab_zycit044
WHERE werks = itab_zycit044-werks.
IF sy-subrc EQ 0.
READ TABLE itab_t001w WITH KEY werks = itab_zycit044-werks.
ENDIF.
ENDIF.
CLEAR: v_icms_dif, v_base_dif.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
CLEAR v_itmnum.
* << Fim da inclusão
LOOP AT itab_zycit044.
READ TABLE itab_zycit042_d WITH KEY
nrseq = itab_zycit044-nrseq
ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
wa_zycit042_d = itab_zycit042_d.
wa_zycit044 = itab_zycit044.
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit044-tpnf
regio = itab_t001w-regio.
IF sy-subrc NE 0.
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit044-tpnf
regio = space.
ENDIF.
PERFORM itens_nf_r.
CLEAR itab_zycit033.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
ADD 10 TO v_itmnum.
itab_zycit044-itmnum = v_itmnum.
MODIFY itab_zycit044 TRANSPORTING itmnum.
* << Fim da inclusão
ENDLOOP.
it_zycee005-transpnac = /pws/zycie043-transpnac.
IF it_zycee005-ntgew LT '0.001'. "#EC PORTABLE
it_zycee005-ntgew = '0.001'.
ENDIF.
PERFORM pega_inco_pedido
USING
itab_zycit044-ebeln
CHANGING
it_zycee005-inco1
...