CE PLUS - Nota 004297
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 30/07/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:55:51
Descrição da Nota: LIQUIDAÇÃO - VERIFICAÇÃO DE DOCUMENTO COMPENSADO - FATURA C/ ORDEM PAGTO
Sintoma
Ao efetuar a liquidação de um contrato onde a fatura esta associada à uma ordem de pagamento, esta
sendo verificado se o documento esta compensado, mas não esta considerando o documento da ordem e
sim o da fatura, que esta compensado, e não efetua a liquidação.
Solução
Verificar se a fatura esta associada a uma ordem de pagamento, para considerar o documento da tabela
/pws/zycbt226 quando for verificar se o mesmo esta compensado.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04297 Data: 30/07/2007 Hora: 10:46:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04297
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - VERIFICAÇÃO DE DOCUMENTO COMPENSADO - FATURA C/ ORDEM PAGTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO VERIFICAÇÃO DE DOCUMENTO COMPENSADO FATURA C/ ORDEM PAGTO
/PWS/ZYCBT226 BELNR_OP BELNR_OP2
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
v_erro_documento = 'X'.
ENDIF.
ENDFORM.
FORM documento_fatura
USING
value(p_vinculacao) TYPE t_vinculacao
p_itab_zycbt017 TYPE t_itab_zycbt017
p_itab_zycbt030 TYPE t_itab_zycbt030.
FIELD-SYMBOLS:
<fs_belnr> TYPE bseg-belnr,
* >> Início da inclusão: FORM DOCUMENTO_FATURA
<fs_budat> TYPE bkpf-budat,
* << Fim da inclusão
<fs_zycbt017> TYPE t_zycbt017,
<fs_zycbt030> TYPE t_zycbt030.
CHECK NOT p_vinculacao IS INITIAL.
READ TABLE p_itab_zycbt017
WITH KEY
nrinvoic = p_vinculacao-nrinvoic
nrparcf = p_vinculacao-nrparcf
gsberf = p_vinculacao-gsberf
ASSIGNING <fs_zycbt017>.
READ TABLE p_itab_zycbt030
WITH KEY
nrinvoic = p_vinculacao-nrinvoic
nrparcf = p_vinculacao-nrparcf
gsberf = p_vinculacao-gsberf
ASSIGNING <fs_zycbt030>.
IF <fs_zycbt017> IS ASSIGNED AND
<fs_zycbt030> IS ASSIGNED.
* >> Início da inclusão: FORM DOCUMENTO_FATURA
READ TABLE itab_zycbt226
WITH KEY
nrinvoic = p_vinculacao-nrinvoic
nrparcf = p_vinculacao-nrparcf
gsberf = p_vinculacao-gsberf
ASSIGNING <fs_zycbt226>.
IF <fs_zycbt226> IS ASSIGNED.
IF NOT <fs_zycbt226>-belnr_op2 IS INITIAL.
ASSIGN <fs_zycbt226>-belnr_op2 TO <fs_belnr>.
ASSIGN <fs_zycbt226>-dtlancto2 TO <fs_budat>.
ELSEIF NOT <fs_zycbt226>-belnr_op IS INITIAL.
ASSIGN <fs_zycbt226>-belnr_op TO <fs_belnr>.
ASSIGN <fs_zycbt226>-dtlancto TO <fs_budat>.
ENDIF.
ELSE.
ASSIGN <fs_zycbt030>-budat TO <fs_budat>.
* << Fim da inclusão
IF <fs_zycbt030>-belnr6 IS INITIAL.
ASSIGN <fs_zycbt030>-belnr TO <fs_belnr>.
ELSE.
ASSIGN <fs_zycbt030>-belnr6 TO <fs_belnr>.
* >> Início da inclusão: FORM DOCUMENTO_FATURA
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM adiciona_documentos
USING
<fs_zycbt017>-bukrs
<fs_belnr>
* >> Início da exclusão: FORM DOCUMENTO_FATURA
<fs_zycbt030>-budat
* << Fim da exclusão
* >> Início da inclusão: FORM DOCUMENTO_FATURA
<fs_budat>
* << Fim da inclusão
'S'.
ENDIF.
ENDFORM.
FORM adiciona_documentos
USING
value(p_bukrs) TYPE bseg-bukrs
value(p_belnr) TYPE bseg-belnr
value(p_dtdocto) TYPE bseg-augdt
value(p_shkzg) TYPE bseg-shkzg.
DATA:
...