CE PLUS - Nota 004091
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 03/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:13:31
Descrição da Nota: NA CRIAÇÃO DA NF, NÃO TRAZ O VALOR DO PESO BRUTO VINDO DA DI.
Sintoma
Na criação da nota fiscal, não está puxando o valor do peso bruto vindo da DI
Solução
gravar dados da tabela /PWS/ZYCIT093 ao salvar a DI.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04091 Data: 03/07/2007 Hora: 15:10:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04091
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01745 - 00001 - 6.0 - 00024 - NÃO VERIFICAR O RECEBIMENTO AO FAZER O ENCERRAMENTO
01940 - 00002 - 6.0 - 00024 - PERFORMANCE DA TRANSAÇÃO /PWS/ZYCI001_A ESTÁ CONSUMINDO MUITA MEM
----------------------------------------------------------------------------------------------------
NA CRIAÇÃO DA NF, NÃO TRAZ O VALOR DO PESO BRUTO VINDO DA DI.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA FISCAL - PESO BRUTO - DI - RECOF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
CLEAR v_nf.
ENDIF.
ENDFORM.
FORM seleciona_bl.
IF itab_zycit094[] IS INITIAL.
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
WHERE nrseq EQ /pws/zycit001-nrseq.
ENDIF.
ENDFORM.
FORM seleciona_di.
* >> Início da exclusão: FORM SELECIONA_DI
IF NOT itab_zycit100[] IS INITIAL.
EXIT.
ENDIF.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
CLEAR v_di.
ENDIF.
* << Fim da exclusão
PERFORM eliminar_fatura.
ENDFORM.
FORM trata_detitem.
v_contador = 0.
IF v_status_s NE '0'.
LOOP AT itab_zycit003 WHERE mark EQ 'X'.
v_ip = sy-tabix.
v_contador = v_contador + 1.
ENDLOOP.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '137'
WITH v_j_1bnbm.
ENDIF.
ENDIF.
CLEAR p_qtd.
EXIT.
ENDIF.
ENDFORM.
FORM eliminar_fatura.
* >> Início da inclusão: FORM ELIMINAR_FATURA
IF itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
CLEAR v_di.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
CLEAR v_di.
ENDIF.
ENDIF.
* << Fim da inclusão
IF /pws/zycie001-regime = '16' AND v_di IS INITIAL AND
NOT /pws/zycie001-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseq = /pws/zycie001-nrseq.
IF sy-subrc = 0.
DELETE FROM /pws/zycit093 WHERE nrseqce = /pws/zycit094-nrseqce.
DELETE FROM /pws/zycit094 WHERE nrseqce = /pws/zycit094-nrseqce.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce AND
tpfatura = '01'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
/pws/zycie001-tpdecl EQ 'DI'.
it_code-fcode = 'DI'. APPEND it_code.
SET PF-STATUS '0100' EXCLUDING 'DI'.
ENDIF.
IF /pws/zycie001-tpdecl EQ 'DSI' .
it_code-fcode = 'DA'. APPEND it_code.
ENDIF.
IF /pws/zycie001-regime EQ '16' .
it_code-fcode = 'RECEB'. APPEND it_code.
it_code-fcode = 'BL'. APPEND it_code.
* >> Início da inclusão: MODULE STATUS_0050
it_code-fcode = 'FAT'. APPEND it_code.
* << Fim da inclusão
ENDIF.
SELECT SINGLE land1 INTO v_land1 FROM t001
WHERE bukrs = /pws/zycie001-bukrs.
IF /pws/zycie001-regime IS INITIAL.
it_code-fcode = 'DA'.
APPEND it_code.
it_code-fcode = 'CUSTO_DA'.
APPEND it_code.
ENDIF.
IF v_land1 NE 'BR' AND
...