CE PLUS - Nota 007641

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

Versões Tratadas

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'.

...