Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 17/10/2011 00:00:00
Data/Hora Última Alteração: 17/10/2011 14:50:39
Descrição da Nota: COM INCOTERM FOB O CAMPO FRETE ESTÁ ABERTO.
Sintoma
Com incoterm FOB o campo FRETE está aberto.
Solução
Atualizado programa para fechar campos de frete e seguro conforme incoterm.
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11547 Data: 17/10/2011 Hora: 09:20:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11547
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00089
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
COM INCOTERM FOB O CAMPO FRETE ESTÁ ABERTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
INCOTERM - FOB - FRETE - CAMPO ABERTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
IF /pws/zycit031-inco1_ci = 'FOB'.
CASE /pws/zycie006-tpfatura.
WHEN '01' OR '09' OR '11'.
IF screen-name = '/PWS/ZYCIE006-VLFRE' OR
screen-name = '/PWS/ZYCIE006-VLSEG' .
screen-input = '0'.
CLEAR /pws/zycie006-vlseg.
* >> Início da exclusão: MODULE SET_SCREEN
IF ( t001-land1 = 'AR' OR t001-land1 = 'CL' ) AND
screen-name = '/PWS/ZYCIE006-VLFRE'.
screen-input = '1'.
ELSEIF screen-name = '/PWS/ZYCIE006-VLFRE'.
screen-input = '0'.
CLEAR : /pws/zycie006-vlfre.
ENDIF.
* << Fim da exclusão
ENDIF.
WHEN '02'.
IF screen-name = '/PWS/ZYCIE006-VLMERC' OR
screen-name = '/PWS/ZYCIE006-VLSEG' .
screen-input = '0'.
CLEAR : /pws/zycie006-vlmerc, /pws/zycie006-vlseg.
ENDIF.
...