CE PLUS - Nota 008918
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 31/08/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:21:21
Descrição da Nota: AO SALVAR DI COM FATURA TIPO P, NÃO VERIFICA PAGAMENTO ANTECIPADO.
Sintoma
No momento de criação da DI, ao salvar a mesma o programa alerta sobre o pagamento antecipado da
fatura tipo P, porém não executa a associação do mesmo.
Solução
Verificar campo correto ao fazer fatura tipo P.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08918 Data: 31/08/2009 Hora: 14:12:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08918
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00811 - 00001 - 6.0 - 00022 - SISTEMA NÃO REALIZA A FATURA EM ALGUNS EMBARQUES.
----------------------------------------------------------------------------------------------------
AO SALVAR DI COM FATURA TIPO P, NÃO VERIFICA PAGAMENTO ANTECIPADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - FATURA TIPO P - PAGAMENTO ANTECIPADO - BATCH INPUT.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
( itab_zycit132[] NE itab_zycit132_ini[] AND
( itab_zycit132_ini[] IS INITIAL OR
v_par = 'X' ) ) ) )
OR ( /pws/zycie006-frpagto = 'A' ).
PERFORM custeando_despesa_inco.
ELSEIF ( /pws/zycie006-tpfatura = '01'
OR /pws/zycie006-tpfatura = '11' ).
PERFORM fill_nrseq_pgfat.
PERFORM calc_vlreal.
ENDIF.
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
COMMIT WORK.
* << Fim da exclusão
IF /pws/zycie006-tpfatura EQ '11'
AND e_subrc NE '8'.
IF v_parcela NE 'X'.
PERFORM cria_remessa.
ELSE.
LOOP AT itab_zycit132 WHERE status = 'C' OR status = space.
v_idx = sy-tabix.
PERFORM cria_remessa.
MODIFY itab_zycit132 INDEX v_idx.
ENDLOOP.
...
...
FORM verifica_associacao.
IF ( NOT itab_zycit132[] IS INITIAL AND /pws/zycie006-frpagto = 'P'
AND v_par NE 'X' AND NOT itab_zycit132_ini[] IS INITIAL )
OR ( /pws/zycie006-frpagto = 'P' AND
itab_zycit132[] IS INITIAL AND
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
NOT wa_zycie006_ini-belnr_p IS INITIAL )
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
NOT /pws/zycie006-belnr_p IS INITIAL )
* << Fim da inclusão
OR /pws/zycie006-frpagto NE 'P'.
IF NOT itab_zycbt117[] IS INITIAL.
SELECT * FROM /pws/zycbt131 INTO TABLE itab_zycbt131
FOR ALL ENTRIES IN itab_zycbt117
WHERE nrseq = itab_zycbt117-nrseq
AND nrseq_pgfat = /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
CLEAR v_pg_ant.
ENDIF.
ENDIF.
...