Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Frete Internacional
Data/Hora da Publicação: 25/11/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 15:45:46
Descrição da Nota: FATURA DE FRETE TRAZER O VALOR E A MOEDA AUTOMÁTICAMENTE DO BL
Sintoma
Ao criar a fatura de frete o programa não esta buscando automaticamente o valor e a moeda do frete
do BL
Solução
Verificar no BL o valor e a moeda do frete para já trazer preenchido na Fatura de Frete
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07641 Data: 25/11/2008 Hora: 15:58:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07641
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FATURA DE FRETE TRAZER O VALOR E A MOEDA AUTOMÁTICAMENTE DO BL
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - FRETE - BL - VALOR - MOEDA - AUTOMÁTICO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
PERFORM valida_trans USING '/PWS/ZYCI003_L' ''.
ELSE.
MESSAGE s061 WITH text-072.
ENDIF.
ELSE.
MESSAGE s061 WITH text-026 text-027.
ENDIF.
ENDIF.
PERFORM recuperando_itens.
FREE MEMORY ID '003'.
* >> Início da inclusão: FORM CALL_FATURA
FREE MEMORY ID 'IP003B'.
* << Fim da inclusão
ENDFORM.
FORM call_bl.
IF v_status_s EQ '1'.
CLEAR: v_nrbl.
IF /pws/zycie001-nacional IS INITIAL.
SELECT SINGLE nrseqce "#EC CI_NOFIRST
FROM /pws/zycit094 INTO v_nrbl
WHERE nrseq EQ /pws/zycie001-nrseq.
ELSEIF NOT /pws/zycie001-nrseqref IS INITIAL.
SELECT SINGLE nrseqce "#EC CI_NOFIRST
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
ELSE.
IF /pws/zycie006-belnr_mr1m IS INITIAL.
screen-input = v_status_s.
MODIFY SCREEN.
ELSE.
screen-input = v_status_s.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name EQ '/PWS/ZYCIE006-WAERS'.
IF /pws/zycie006-tpfatura IS INITIAL.
screen-required = 0.
ELSE.
screen-required = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF /pws/zycie006-vlmerc IS INITIAL AND
/pws/zycie006-vlfre IS INITIAL AND
/pws/zycie006-vlseg IS INITIAL.
CLEAR /pws/zycie006-vltotal.
ENDIF.
WHEN '0106'.
LOOP AT SCREEN.
IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.
screen-input = '0'.
...