CE PLUS - Nota 007799

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Fatura Mercadoria

Data/Hora da Publicação: 17/12/2008 00:00:00

Data/Hora Última Alteração: 03/02/2010 17:09:17

Descrição da Nota: NÃO ESTAVA LEVANDO O PAÍS DO FABRICANTE CORRETAMENTE PARA A FATURA

Sintoma

 

Ao gerar uma fatura com mais de um fabricante com paises diferentes e extornar esta fatura e alterar

no embarque os fabricantes para paises diferentes estava levando o pais do fabricante anterior

 

Solução

 

Verificar se o pais do fabricante e diferente do anterior

Versões Tratadas

7.0

Informações Complementares

 

----------------------------------------------------------------------------------------------------

Nota Número 07799 Data: 17/12/2008 Hora: 11:38:35

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 07799

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00079

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

----------------------------------------------------------------------------------------------------

NÃO ESTAVA LEVANDO O PAÍS DO FABRICANTE CORRETAMENTE PARA A FATURA

----------------------------------------------------------------------------------------------------

Palavras Chave:

FATURA - FABRICANTE - PAÍS

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI003F02

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003F02

 

...

    ENDIF.

    IF NOT /pws/zycie006-fabricante IS INITIAL.

      /pws/zycie003-flagfabr = 'S'.

    ENDIF.

    IF /pws/zycie003-flagfabr = 'S'.

      CLEAR lfa1.

      IF NOT /pws/zycie003-lifnrfabr IS INITIAL.

        SELECT SINGLE * FROM lfa1

          WHERE lifnr EQ /pws/zycie003-lifnrfabr.

        MOVE lfa1-name1 TO itab_zycit003-descfab.

* >> Início da exclusão: FORM CARREGA_DESCR

        IF itab_zycit003-paisfab IS INITIAL.

* << Fim da exclusão

* >> Início da inclusão: FORM CARREGA_DESCR

        IF itab_zycit003-paisfab IS INITIAL OR

           ( itab_zycit003-paisfab NE lfa1-land1 AND

             NOT lfa1-land1 IS INITIAL ).

* << Fim da inclusão

          MOVE lfa1-land1 TO itab_zycit003-paisfab.

        ENDIF.

      ENDIF .

    ELSEIF /pws/zycie003-flagfabr = 'N'.

      CLEAR /pws/zycie003-lifnrfabr.

    ENDIF.

  ELSE.

    itab_zycit003-descfab   = /pws/zycie006-descfab.

    IF itab_zycit003-paisfab IS INITIAL.

      itab_zycit003-paisfab   = /pws/zycie006-paisfab.

...