CE PLUS - Nota 001814
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 25/07/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:58:53
Descrição da Nota: RETIRAR O TRATAMENTO DO CAMPO SBU (TABELA /PWS/ZYCBT124)
Sintoma
Retirar o tratamento realizado para o campo SBU (tabela /PWS/ZYCBT124) do programa do Complemento do
Boleto.
Solução
Retirada do tratamento do campo SBU (tabela /PWS/ZYCBT124) do programa do Complemento do Boleto.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01814 Data: 25/07/2006 Hora: 14:11:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01814
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00124
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
RETIRAR O TRATAMENTO DO CAMPO SBU (TABELA /PWS/ZYCBT124)
----------------------------------------------------------------------------------------------------
Palavras Chave:
RETIRAR O TRATAMENTO REALIZADO PARA O CAMPO SBU (TABELA /PWS/ZYCBT124)
COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
itab_zycbe035-c_sgtxt = wa_zycbt124-txtinf.
itab_zycbe035-d_sgtxt = wa_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe035-c_sgtxt = wa_zycbt124-codpagto.
itab_zycbe035-d_sgtxt = wa_zycbt124-codpagto.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe035-c_sgtxt = wa_zycbt124-sbu.
itab_zycbe035-d_sgtxt = wa_zycbt124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe035-c_sgtxt = p_tpimp.
itab_zycbe035-d_sgtxt = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe035-d_xblnr = wa_zycbt124-txtinf.
itab_zycbe035-c_xblnr = wa_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe035-d_xblnr = wa_zycbt124-codpagto.
itab_zycbe035-c_xblnr = wa_zycbt124-codpagto.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe035-d_xblnr = wa_zycbt124-sbu.
itab_zycbe035-c_xblnr = wa_zycbt124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe035-d_xblnr = p_tpimp.
itab_zycbe035-c_xblnr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe035-c_zuonr = wa_zycbt124-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe035-c_zuonr = wa_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe035-c_zuonr = wa_zycbt124-codpagto.
* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe035-c_zuonr = wa_zycbt124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe035-c_zuonr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe035-c_zuonr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt124-txtinf.
itab_zycbe033-d_sgtxt = wa_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = wa_zycbt124-codpagto.
itab_zycbe033-d_sgtxt = wa_zycbt124-codpagto.
* >> Início da exclusão: FORM FILL_DATE_F-30_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_sgtxt = wa_zycbt124-sbu.
itab_zycbe033-d_sgtxt = wa_zycbt124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_sgtxt = p_tpimp.
itab_zycbe033-d_sgtxt = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe033-xblnr = wa_zycbt124-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-xblnr = wa_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = wa_zycbt124-codpagto.
* >> Início da exclusão: FORM FILL_DATE_F-30_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-xblnr = wa_zycbt124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-xblnr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_zuonr = wa_zycbt124-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-c_zuonr = wa_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = wa_zycbt124-codpagto.
* >> Início da exclusão: FORM FILL_DATE_F-30_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_zuonr = wa_zycbt124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-sbu.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_sgtxt = p_tpimp.
itab_zycbe033-d_sgtxt = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe033-xblnr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-xblnr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-xblnr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-xblnr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_zuonr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-sbu.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_sgtxt = p_tpimp.
itab_zycbe033-d_sgtxt = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe033-xblnr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-xblnr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-xblnr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-xblnr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_zuonr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-sbu.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_sgtxt = p_tpimp.
itab_zycbe033-d_sgtxt = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe033-xblnr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-xblnr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-xblnr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-xblnr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_zuonr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrseq.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-codpagto.
* >> Início da exclusão: FORM ATUALIZA_DTVENCTO_FB02_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_sgtxt = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
...
...
itab_zycbe033-c_zuonr = /pws/zycbe124-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-c_zuonr = /pws/zycbe124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = /pws/zycbe124-codpagto.
* >> Início da exclusão: FORM ATUALIZA_DTVENCTO_FB02_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_zuonr = /pws/zycbe124-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_sgtxt = itab_zycbt124_aux-sbu.
itab_zycbe033-d_sgtxt = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_sgtxt = itab_zycat025-tpimp.
itab_zycbe033-d_sgtxt = itab_zycat025-tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
...
...
itab_zycbe033-xblnr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-xblnr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-xblnr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-xblnr = itab_zycat025-tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
...
...
itab_zycbe033-c_zuonr = itab_zycbt124_aux-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXINF'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP (OBS. >>> SOMENTE COMENTAR CÓDIGO)
ELSEIF itab_zyglt321-cpocb = 'SBU'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-sbu.
* << Fim da exclusão
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-c_zuonr = itab_zycat025-tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
...