CE PLUS - Nota 001858
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 02/08/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:27:50
Descrição da Nota: REMESSA - GRAVAÇÃO DA ESTRATÉGIA DE LIBERAÇÃO
Sintoma
Financeiro-Remessa sem Imposto-Ao processar o Boleto no Complemento do Boleto, o programa não lança
o nr. 02(cód.liberação) no campo FRGZU da tabela zycbt031 (Boleto) e isso faz com que a Saída de
Pagto (zycb115) não encontre o boleto a ser processado.
Solução
Ajustar a passagem pela estratégia de liberação,
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01858 Data: 02/08/2006 Hora: 09:38:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01858
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01482 - 00001 - 6.0 - 00023 - REMESSA / ESTRATÉGIA. LIBERAÇÃO
01756 - 00002 - 6.0 - 00024 - REMESSA COM ORIGEM - DUMP COMPLEMENTO BOLETO
----------------------------------------------------------------------------------------------------
REMESSA - GRAVAÇÃO DA ESTRATÉGIA DE LIBERAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA GRAVAÇÃO DA ESTRATÉGIA DE LIBERAÇÃO FRGZU
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
ENDIF.
ENDIF.
PERFORM contabilizacao.
IF erro_bi_principal IS INITIAL.
IF /pws/zycbe124-frgzu IS INITIAL.
* >> Início da inclusão: FORM ALTERA_DADOS
CLEAR v_competencia.
LOOP AT itab_zycat025 WHERE frpagto_imp = 'C'.
READ TABLE itab_zycat024 WITH KEY tpimp = itab_zycat025-tpimp.
IF sy-subrc = 0 AND NOT itab_zycat024-cont_imp IS INITIAL.
v_competencia = 'X'.
ENDIF.
EXIT.
ENDLOOP.
IF /pws/zycbe124-tpoper EQ 'P' AND
( ( /pws/zycbe124-frpagto EQ 'C' AND
/pws/zycbe124-criacao EQ 'S' ) OR
v_competencia EQ 'X' ).
* << Fim da inclusão
PERFORM verifica_estrategia_liberacao.
* >> Início da inclusão: FORM ALTERA_DADOS
ELSEIF /pws/zycbe124-tpoper EQ 'R'.
/pws/zycbe124-frgzu = '2'.
ENDIF.
* << Fim da inclusão
ENDIF.
MODIFY /pws/zycbt124 FROM /pws/zycbe124.
DELETE FROM /pws/zycbt115 WHERE nrcorrep = /pws/zycbe124-nrseq
AND tpdoc = 'N'.
/pws/zycbt115-nrcorrep = /pws/zycbe124-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
w_ok NE 'EXEC' AND
ok_code NE 'EXEC'.
IF wa_zycbt124-tpoper = 'R'.
/pws/zycbe031-frgzu = '2'.
ELSE.
* >> Início da exclusão: FORM SELECIONAR_CP
READ TABLE itab_zycat025 WITH KEY frpagto_imp = 'R'.
IF ( ( wa_zycbt124-frpagto EQ 'R' OR wa_zycbt124-criacao NE 'S' )
AND sy-subrc EQ 0
AND /pws/zycbe031-frgzu IS INITIAL ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_CP
READ TABLE itab_zycat025 WITH KEY frpagto_imp = 'C'.
IF ( wa_zycbt124-frpagto EQ 'R' OR wa_zycbt124-criacao NE 'S' )
AND sy-subrc NE 0
AND /pws/zycbe031-frgzu IS INITIAL.
* << Fim da inclusão
* >> Início da exclusão: FORM SELECIONAR_CP
( wa_zycbt124-frpagto EQ 'C' AND sy-subrc EQ 0 ).
* << Fim da exclusão
PERFORM verifica_estrategia_liberacao.
ENDIF.
ENDIF.
ENDFORM.
FORM selecionar_emprest_cfinan.
...