CE PLUS - Nota 009122
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 01/10/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:21:03
Descrição da Nota: NÃO PERMITIR CRIAR FATURA COM ITENS DE ICOTERM¿S DIFERENTES.
Sintoma
O programa de fatura está permitindo gerar fatura para itens com icoterm diferentes quando o
programa é executado por fora do embarque.
Solução
Ajustado critério de seleção dos itens na criação da fatura por fora do embarque para verificar o
icoterm dos itens.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09122 Data: 01/10/2009 Hora: 10:30:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09122
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04525 - 00001 - 7.0 - 00002 - AJUSTE PARA REALIZAR O RATEIO DE IMPOSTOS DE ACORDO COM A ANA
----------------------------------------------------------------------------------------------------
NÃO PERMITIR CRIAR FATURA COM ITENS DE ICOTERM¿S DIFERENTES.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - ITEM - ICOTERM - DIFERENTE - MERCADORIA
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
/pws/zycit003~waers_real /pws/zycit003~waers_mov
/pws/zycit003~waers_dif /pws/zycit003~descfab
/pws/zycit003~paisfab /pws/zycit003~mtart /pws/zycit003~werks
/pws/zycit003~lifnr /pws/zycit003~j_1bnbm
/pws/zycit003~fabric /pws/zycit003~nrseqcacl
/pws/zycit003~qtd_itencacl /pws/zycit003~indic_obrig
/pws/zycit003~porigem /pws/zycit003~paquis
/pws/zycit003~mfrpn /pws/zycit003~lifnrfabr
/pws/zycit003~flagfabr
/pws/zycit003~nrseqda
* >> Início da exclusão: FORM SELECIONAR_ITENS
/pws/zycit001~inco1
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
/pws/zycit003~inco1
* << Fim da inclusão
FROM ( /pws/zycit003 INNER JOIN /pws/zycit001
ON /pws/zycit003~nrseq = /pws/zycit001~nrseq )
INTO CORRESPONDING FIELDS OF TABLE itab_zycit003_aux
WHERE /pws/zycit003~nrseq IN so_nrseq
AND /pws/zycit003~ebeln IN so_ebeln
AND /pws/zycit003~lifnr IN itab_lifnr
AND /pws/zycit003~waers IN so_waers
AND /pws/zycit003~nrseq_pgfat EQ space
AND /pws/zycit001~bukrs EQ pa_bukrs
* >> Início da exclusão: FORM SELECIONAR_ITENS
AND /pws/zycit001~inco1 IN itab_inco1
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
AND /pws/zycit003~inco1 IN itab_inco1
* << Fim da inclusão
AND /pws/zycit001~j_1bbranch EQ pa_impor.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT002'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'FAT002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
screen-input = '0'.
ENDIF.
IF screen-name = '/PWS/ZYCIE006-NRFAT' AND
NOT /pws/zycie006-nrfat IS INITIAL.
screen-input = '0'.
ENDIF.
IF screen-name = '/PWS/ZYCIE006-BUKRS' AND
NOT /pws/zycie006-bukrs IS INITIAL.
screen-input = 0.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name = '/PWS/ZYCIE006-J_1BBRANCH' AND
screen-input = '1'.
screen-required = 1.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
IF ( /pws/zycie006-tpfatura NE '01'
AND /pws/zycie006-tpfatura NE '11' )
AND screen-name = 'TAB_ITENS'.
screen-input = '0'.
MODIFY SCREEN.
screen-invisible = '1'.
ELSE.
screen-invisible = '0'.
...