CE PLUS - Nota 001205
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 13/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:59:22
Descrição da Nota: PROCESSAR BOLETO (AGRUPAR) DESPESAS EXPORTAÇÃO
Sintoma
Ao criar uma despesa de exportação, esta permitindo preencher qualquer valor no Número de Invoice,
gerando erro no complemento do boleto que não salva as informações de documento contábil, status e
data de pagamento na tabela /PWS/ZYCBT004.
Solução
Consistir na despesa de exportação o campo número da invoice, onde só permite se o mesmo existir na
/pws/zycbt017. Passar o campo selreg-nrinvoic para o mesmo da /pws/zycbt031 e /pws/zycbt064, no
processar boleto. Consistir os dados da despesa no complemento do boleto, para que armazene as
informações corretamente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01205 Data: 13/04/2006 Hora: 17:05:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01205
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO (AGRUPAR) DESPESAS EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO (AGRUPAR) DESPESAS EXPORTAÇÃO
COMPLEMENTO DO BOLETO CAMPOS CHAVE /PWS/ZYCBT048 /PWS/ZYCBT064
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
REPS /PWS/ZYCBN102
REPS /PWS/ZYCBR102
TABD /PWS/ZYCBE048
TABD /PWS/ZYCBE064
TABD /PWS/ZYCBT048
TABD /PWS/ZYCBT064
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
READ TABLE itab_zycbt004_aux WITH KEY
nrseqc = itab_zycbt064_aux-nrchave(8)
nrparc = itab_zycbt064_aux-nrparc
dtliquid = itab_zycbt064_aux-dtliquid
dtincl = itab_zycbt064_aux-dtincl
* >> Início da exclusão: FORM ESTORNA_COMPENS
tpjuros = itab_zycbt064_aux-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
tpjuros = itab_zycbt064_aux-tpjuros
tpdesp = itab_zycbt064_aux-tpdesp.
* << Fim da inclusão
ENDIF.
UPDATE /pws/zycbt004 SET:
status = wa_despesa-status
belnr = wa_despesa-belnr
dtpagto = wa_despesa-dtpagto
...
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
* >> Início da exclusão: FORM EXECUTA_F51_CE
AND nrparc = itab_zycbt031_tc-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CE
AND nrparc = itab_zycbt031_tc-nrparc
AND DTLIQUID = itab_zycbt031_tc-DTLIQUID
AND DTVENCTO = itab_zycbt031_tc-DTVENCTO
AND LIFNR = itab_zycbt031_tc-LIFNR
AND TPJUROS = itab_zycbt031_tc-TPJUROS
AND TPDESP = itab_zycbt031_tc-TPDESP.
* << Fim da inclusão
ENDLOOP.
PERFORM clear_date_batch.
ENDFORM.
FORM executa_f02_trava_ce.
DATA: v_wrbtr LIKE /pws/zycbt154-vlme,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
READ TABLE itab_zycbt004_aux WITH KEY
nrseqc = itab_zycbt064_aux-nrchave(8)
nrparc = itab_zycbt064_aux-nrparc
dtliquid = itab_zycbt064_aux-dtliquid
dtincl = itab_zycbt064_aux-dtincl
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBV0_ED
tpjuros = itab_zycbt064_aux-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_ED
tpjuros = itab_zycbt064_aux-tpjuros
tpdesp = itab_zycbt064_aux-tpdesp.
* << Fim da inclusão
UPDATE /pws/zycbt004 SET status = wa_despesa-statusp
belnr = wa_despesa-belnr
dtpagto = wa_despesa-dtpagto
WHERE nrseqc = itab_zycbt004_aux-nrseqc
AND tpdesp = itab_zycbt004_aux-tpdesp
...
...
nrseqc = itab_zycbt064_aux-nrchave(8)
nrcontr = itab_zycbt064_aux-nrinvoic(15)
nrparc = itab_zycbt064_aux-nrparc
dtincl = itab_zycbt064_aux-dtincl
dtliquid = itab_zycbt064_aux-dtliquid
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBV0_ED
tpjuros = itab_zycbt064_aux-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_ED
tpjuros = itab_zycbt064_aux-tpjuros
tpdesp = itab_zycbt064_aux-tpdesp.
* << Fim da inclusão
UPDATE /pws/zycbt004 SET status = wa_despesa-statusp
WHERE nrseqc = itab_zycbt004_aux-nrseqc
AND tpdesp = itab_zycbt004_aux-tpdesp
AND nrparc = itab_zycbt004_aux-nrparc
AND dtincl = itab_zycbt004_aux-dtincl
...
...
ENDIF.
LOOP AT itab_zycbt064.
READ TABLE itab_zycbt004_aux WITH KEY
nrseqc = itab_zycbt064-nrchave(8)
nrinvoic = itab_zycbt064-nrinvoic
* >> Início da exclusão: FORM CONTAB_IR_ED
nrparc = itab_zycbt064-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTAB_IR_ED
nrparc = itab_zycbt064-nrparc
tpdesp = itab_zycbt064-tpdesp.
* << Fim da inclusão
UPDATE /pws/zycbt004 SET status = wa_despesa-statusp
belnr = itab_zycbt032-belnr
dtpagto = /pws/zycbe031-dtcredir
WHERE nrseqc = itab_zycbt004_aux-nrseqc
AND nrinvoic = itab_zycbt064-nrinvoic
* >> Início da exclusão: FORM CONTAB_IR_ED
AND nrparc = itab_zycbt004_aux-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTAB_IR_ED
AND nrparc = itab_zycbt004_aux-nrparc
and tpdesp = itab_zycbt004_aux-tpdesp.
* << Fim da inclusão
ENDLOOP.
/pws/zycbe031-belnr_pi = itab_zycbt032-belnr.
MESSAGE i057 WITH itab_zycbt032-belnr text-020.
IF itab_zycbt133-vaprov = 'X'.
sy-index = 2.
...
...
LOOP AT itab_zycbt064_aux.
READ TABLE itab_zycbt004_aux WITH KEY
nrseqc = itab_zycbt064_aux-nrchave(8)
nrparc = itab_zycbt064_aux-nrparc
dtliquid = itab_zycbt064_aux-dtliquid
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBV0_IR
tpjuros = itab_zycbt064_aux-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_IR
tpjuros = itab_zycbt064_aux-tpjuros
tpdesp = itab_zycbt064_aux-tpdesp.
* << Fim da inclusão
UPDATE /pws/zycbt004 SET status = wa_despesa-statusp
belnr = wa_despesa-belnr
dtpagto = wa_despesa-dtpagto
WHERE nrseqc = itab_zycbt004_aux-nrseqc
AND tpdesp = itab_zycbt004_aux-tpdesp
...
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
* >> Início da exclusão: FORM EXECUTA_F51_ED
AND nrparc = itab_zycbt031_tc-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_ED
AND nrparc = itab_zycbt031_tc-nrparc
AND dtliquid = itab_zycbt031_tc-dtliquid
AND dtvencto = itab_zycbt031_tc-dtvencto
AND lifnr = itab_zycbt031_tc-lifnr
AND tpjuros = itab_zycbt031_tc-tpjuros
AND tpdesp = itab_zycbt031_tc-tpdesp.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM get_parameters_tr_el.
IF sy-index = 2.
itab_zycbe033-agkon = /pws/zycbe031-bcoopir.
...
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
* >> Início da exclusão: FORM EXECUTA_F51_EL
AND nrparc = itab_zycbt031_tc-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_EL
AND nrparc = itab_zycbt031_tc-nrparc
AND dtliquid = itab_zycbt031_tc-dtliquid
AND dtvencto = itab_zycbt031_tc-dtvencto
AND lifnr = itab_zycbt031_tc-lifnr
AND tpjuros = itab_zycbt031_tc-tpjuros
AND tpdesp = itab_zycbt031_tc-tpdesp.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM documentos_el.
IF sy-index = 2.
v_codparc = 'IL'.
...
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
* >> Início da exclusão: FORM EXECUTA_F51_EL_IR
AND nrparc = itab_zycbt031_tc-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_EL_IR
AND nrparc = itab_zycbt031_tc-nrparc
AND DTLIQUID = itab_zycbt031_tc-DTLIQUID
AND DTVENCTO = itab_zycbt031_tc-DTVENCTO
AND LIFNR = itab_zycbt031_tc-LIFNR
AND TPJUROS = itab_zycbt031_tc-TPJUROS
AND TPDESP = itab_zycbt031_tc-TPDESP.
* << Fim da inclusão
ENDLOOP.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
* >> Início da exclusão: FORM EXECUTA_F51_IP
AND nrparc = itab_zycbt031_tc-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_IP
AND nrparc = itab_zycbt031_tc-nrparc
AND DTLIQUID = itab_zycbt031_tc-DTLIQUID
AND DTVENCTO = itab_zycbt031_tc-DTVENCTO
AND LIFNR = itab_zycbt031_tc-LIFNR
AND TPJUROS = itab_zycbt031_tc-TPJUROS
AND TPDESP = itab_zycbt031_tc-TPDESP.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM carrega_cp.
DATA: v_codeven LIKE /pws/zycbt011-codeven VALUE '007F'.
LOOP AT itab_zycbt031_tc.
...
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
* >> Início da exclusão: FORM EXECUTA_F51_IF
AND nrparc = itab_zycbt031_tc-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_IF
AND nrparc = itab_zycbt031_tc-nrparc
AND DTLIQUID = itab_zycbt031_tc-DTLIQUID
AND DTVENCTO = itab_zycbt031_tc-DTVENCTO
AND LIFNR = itab_zycbt031_tc-LIFNR
AND TPJUROS = itab_zycbt031_tc-TPJUROS
AND TPDESP = itab_zycbt031_tc-TPDESP.
* << Fim da inclusão
ENDLOOP.
PERFORM clear_date_batch.
ENDFORM.
FORM executa_f02_trava.
DATA: v_wrbtr LIKE /pws/zycbt154-vlme,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
READ TABLE itab_zycbt004_aux WITH KEY
nrseqc = itab_zycbt064_aux-nrchave(8)
nrparc = itab_zycbt064_aux-nrparc
dtincl = itab_zycbt064_aux-dtincl
dtliquid = itab_zycbt064_aux-dtliquid
* >> Início da exclusão: FORM ESTORNA_APROV
tpjuros = itab_zycbt064_aux-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
tpjuros = itab_zycbt064_aux-tpjuros
tpdesp = itab_zycbt064_aux-tpdesp.
* << Fim da inclusão
ENDIF.
UPDATE /pws/zycbt004 SET:
status = wa_despesa-status
belnr = wa_despesa-belnr
dtpagto = wa_despesa-dtpagto
...
...
/pws/zycbt048-codmodtransa = itab_zycbt031_tc-codmodtransa.
/pws/zycbt048-codnorma = itab_zycbt031_tc-codnorma.
/pws/zycbt048-modalidade = itab_zycbt031_tc-modalidade.
/pws/zycbt048-tpparc = itab_zycbt031_tc-tpparc.
/pws/zycbt048-nrparc = itab_zycbt031_tc-nrparc.
* >> Início da exclusão: FORM SALVAR_DADOS
/pws/zycbt048-dtliquida = itab_zycbt031_tc-dtliquida.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
/pws/zycbt048-dtliquida = itab_zycbt031_tc-dtliquida.
/pws/zycbt048-DTLIQUID = itab_zycbt031_tc-DTLIQUID.
/pws/zycbt048-DTVENCTO = itab_zycbt031_tc-DTVENCTO.
/pws/zycbt048-LIFNR = itab_zycbt031_tc-LIFNR.
/pws/zycbt048-TPJUROS = itab_zycbt031_tc-TPJUROS.
/pws/zycbt048-TPDESP = itab_zycbt031_tc-TPDESP.
* << Fim da inclusão
MODIFY /pws/zycbt048 FROM /pws/zycbt048.
UPDATE /pws/zycbt064 SET vlmi = itab_zycbt031_tc-v_vlmi
vlmiir = itab_zycbt031_tc-v_vlmiir
vlmicide = itab_zycbt031_tc-v_vlmicide
WHERE nrboleto = itab_zycbt031_tc-nrseq
...
...
ENDIF.
READ TABLE itab_zycbt048 WITH KEY nrseq = itab_zycbt064-nrboleto
mdcorresp = itab_zycbt064-mdcorresp
nrcorresp = itab_zycbt064-nrchave
tpparc = itab_zycbt064-tpparc
* >> Início da exclusão: FORM CARREGA_DADOS_GLOBAIS
nrparc = itab_zycbt064-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_GLOBAIS
nrparc = itab_zycbt064-nrparc
NRINVOIC = itab_zycbt064-NRINVOIC
NRPARCF = itab_zycbt064-NRPARCF
DTLIQUID = itab_zycbt064-DTLIQUID
DTVENCTO = itab_zycbt064-DTVENCTO
LIFNR = itab_zycbt064-LIFNR
GSBERF = itab_zycbt064-GSBERF
PRCTR = itab_zycbt064-PRCTR
TPJUROS = itab_zycbt064-TPJUROS
TPDESP = itab_zycbt064-TPDESP.
* << Fim da inclusão
IF sy-subrc = 0.
itab_zycbt031_tc-nrcontr = itab_zycbt048-nrcontr.
itab_zycbt031_tc-dtcontr = itab_zycbt048-dtcontr.
itab_zycbt031_tc-dtdebito = itab_zycbt048-dtdebito.
itab_zycbt031_tc-dtliquida = itab_zycbt048-dtliquida.
...
...
ELSE.
READ TABLE itab_zycbt004_aux WITH KEY
nrseqc = itab_zycbt064_aux-nrchave(8)
nrparc = itab_zycbt064_aux-nrparc
dtliquid = itab_zycbt064_aux-dtliquid
* >> Início da exclusão: FORM EXCLUI_BOLETO
tpjuros = itab_zycbt064_aux-tpjuros.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_BOLETO
tpjuros = itab_zycbt064_aux-tpjuros
tpdesp = itab_zycbt064_aux-tpdesp.
* << Fim da inclusão
ENDIF.
UPDATE /pws/zycbt004 SET:
status = wa_despesa-status
belnr = wa_despesa-belnr
dtpagto = wa_despesa-dtpagto
...
...
modalidade = itab_zycbt031_tc-modalidade
WHERE nrseq = itab_zycbt031_tc-nrseq
AND mdcorresp = itab_zycbt031_tc-mdcorresp
AND nrcorresp = itab_zycbt031_tc-nrcorresp
AND tpparc = itab_zycbt031_tc-tpparc
* >> Início da exclusão: FORM GRAVAR_DADOS_CONTRATO
AND nrparc = itab_zycbt031_tc-nrparc.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_DADOS_CONTRATO
AND nrparc = itab_zycbt031_tc-nrparc
and DTLIQUID = itab_zycbt031_tc-DTLIQUID
and DTVENCTO = itab_zycbt031_tc-DTVENCTO
and LIFNR = itab_zycbt031_tc-LIFNR
and TPJUROS = itab_zycbt031_tc-TPJUROS
and TPDESP = itab_zycbt031_tc-TPDESP.
* << Fim da inclusão
ENDLOOP.
v_altera_dtliquid = ''.
itab_zycbt031_tc1[] = itab_zycbt031_tc[].
MESSAGE s205.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBN102
...
/pws/zycbt048-nrcorresp = itab_selreg_aux-nrchave.
/pws/zycbt048-tpparc = itab_selreg_aux-tpparc.
/pws/zycbt048-nrparc = itab_selreg_aux-nrparc.
/pws/zycbt048-modalidade = itab_selreg_aux-mdcambio.
/pws/zycbt048-corret = itab_selreg_aux-corretora.
* >> Início da inclusão: FORM GERA_BOLETO_IU
/pws/zycbt048-NRINVOIC = itab_selreg_aux-NRINVOIC.
/pws/zycbt048-NRPARCF = itab_selreg_aux-NRPARCF.
/pws/zycbt048-DTLIQUID = itab_selreg_aux-DTLIQUID.
/pws/zycbt048-DTVENCTO = itab_selreg_aux-DTVENCTO.
/pws/zycbt048-LIFNR = itab_selreg_aux-LIFNR.
/pws/zycbt048-GSBERF = itab_selreg_aux-GSBERF.
/pws/zycbt048-PRCTR = itab_selreg_aux-PRCTR.
/pws/zycbt048-TPJUROS = itab_selreg_aux-TPJUROS.
/pws/zycbt048-TPDESP = itab_selreg_aux-TPDESP.
* << Fim da inclusão
INSERT INTO /pws/zycbt048 VALUES /pws/zycbt048.
ENDLOOP.
ENDIF.
MOVE /pws/zycbt031 TO itab_boleto.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
itab_selreg_aux-codp EQ 'D'.
MOVE v_belnrp TO /pws/zycbt031-belnr_p.
ENDIF.
INSERT INTO /pws/zycbt031 VALUES /pws/zycbt031.
IF itab_selreg_aux-fmd = 'CE' OR itab_selreg_aux-fmd = 'IF' OR
* >> Início da exclusão: FORM IMPRIME_BOLETO
itab_selreg_aux-fmd = 'CP' OR itab_selreg_aux-fmd = 'IP'.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_BOLETO
itab_selreg_aux-fmd = 'CP' OR itab_selreg_aux-fmd = 'IP'
OR itab_selreg_aux-fmd = 'ED'.
* << Fim da inclusão
IF sy-ucomm EQ 'PROC'.
/pws/zycbt048-nrseq = /pws/zycbt031-nrseq.
/pws/zycbt048-dtboleto = /pws/zycbt031-dtboleto.
/pws/zycbt048-bukrs = /pws/zycbt031-bukrs.
/pws/zycbt048-mdcorresp = /pws/zycbt031-mdcorresp.
/pws/zycbt048-nrcorresp = /pws/zycbt031-nrcorresp.
/pws/zycbt048-tpparc = /pws/zycbt031-tpparc.
/pws/zycbt048-nrparc = /pws/zycbt031-nrparc.
/pws/zycbt048-modalidade = itab_selreg_aux-mdcambio.
/pws/zycbt048-corret = itab_selreg_aux-corretora.
* >> Início da inclusão: FORM IMPRIME_BOLETO
/pws/zycbt048-nrinvoic = itab_selreg_aux-nrinvoic.
/pws/zycbt048-nrparcf = itab_selreg_aux-nrparcf.
/pws/zycbt048-dtliquid = itab_selreg_aux-dtliquid.
/pws/zycbt048-dtvencto = itab_selreg_aux-dtvencto.
IF NOT itab_selreg_aux-lifnr IS INITIAL.
/pws/zycbt048-lifnr = itab_selreg_aux-lifnr.
ELSE.
/pws/zycbt048-lifnr = itab_selreg_aux-benefic.
ENDIF.
/pws/zycbt048-gsberf = itab_selreg_aux-gsberf.
/pws/zycbt048-prctr = itab_selreg_aux-prctr.
/pws/zycbt048-tpjuros = itab_selreg_aux-tpjuros.
/pws/zycbt048-tpdesp = itab_selreg_aux-tpdesp.
* << Fim da inclusão
INSERT INTO /pws/zycbt048 VALUES /pws/zycbt048.
ELSEIF sy-ucomm EQ 'AGRUPAR'.
LOOP AT itab_selreg_aux.
CLEAR /pws/zycbt048.
/pws/zycbt048-nrseq = /pws/zycbt031-nrseq.
...
...
/pws/zycbt048-nrcorresp = itab_selreg_aux-nrchave.
/pws/zycbt048-tpparc = itab_selreg_aux-tpparc.
/pws/zycbt048-nrparc = itab_selreg_aux-nrparc.
/pws/zycbt048-modalidade = itab_selreg_aux-mdcambio.
/pws/zycbt048-corret = itab_selreg_aux-corretora.
* >> Início da inclusão: FORM IMPRIME_BOLETO
/pws/zycbt048-nrinvoic = itab_selreg_aux-nrinvoic.
/pws/zycbt048-nrparcf = itab_selreg_aux-nrparcf.
/pws/zycbt048-dtliquid = itab_selreg_aux-dtliquid.
/pws/zycbt048-dtvencto = itab_selreg_aux-dtvencto.
IF NOT itab_selreg_aux-lifnr IS INITIAL.
/pws/zycbt048-lifnr = itab_selreg_aux-lifnr.
ELSE.
/pws/zycbt048-lifnr = itab_selreg_aux-benefic.
ENDIF.
/pws/zycbt048-gsberf = itab_selreg_aux-gsberf.
/pws/zycbt048-prctr = itab_selreg_aux-prctr.
/pws/zycbt048-tpjuros = itab_selreg_aux-tpjuros.
/pws/zycbt048-tpdesp = itab_selreg_aux-tpdesp.
* << Fim da inclusão
INSERT INTO /pws/zycbt048 VALUES /pws/zycbt048.
ENDLOOP.
ENDIF.
ENDIF.
CLEAR: itab_boleto,itab_nrpgfat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE048
MODIFICAR ESTRUTURA: /PWS/ZYCBE048
DESCRIÇÃO BREVE: GL - Dados Adicionais - Boleto
COMPONENTES NOVOS
* Incluir campos abaixo após o campo NRPARC
COMPONENTE: NRINVOIC
TP. COMP:/PWS/ZYCBL084
CT.DT.:CHAR
COMPR.: 20
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTE: NRPARCF
TP. COMP: RATNR
CT.DT.: NUMC
COMPR.: 2
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTE: DTLIQUID
TP. COMP: /PWS/ZYCBL036
CT.DT.: DATS
COMPR.: 8
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTE: DTVENCTO
TP. COMP: /PWS/ZYCBL034
CT.DT.: DATS
COMPR.: 8
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTE:LIFNR
TP. COMP: LIFNR
CT.DT.: CHAR
COMPR.: 10
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.: KRED
COMPONENTE: GSBERF
TP. COMP: GSBER
CT.DT.: CHAR
COMPR.: 4
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTE: PRCTR
TP. COMP: PRCTR
CT.DT.: CHAR
COMPR.: 10
CASA:
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTE: TPJUROS
TP. COMP: /PWS/ZYCBL451
CT.DT.: CHAR
COMPR.: 1
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTE: TPDESP
TP. COMP: /PWS/ZYCBL014
CT.DT.: CHAR
COMPR.: 3
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE064
MODIFICAR ESTRUTURA: /PWS/ZYCBE064
DESCRIÇÃO BREVE: Agrupamento de Boleto
COMPONENTES NOVOS
* Incluir esse campo após o campo TPJUROS
COMPONENTE: TPDESP
TP. COMP: /PWS/ZYCBL014
CT.DT.: CHAR
COMPR.: 3
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
COMPONENTES EXCLUÍDOS
COMPONENTE: TPDESP
TP. COMP: /PWS/ZYCBL014
CT.DT.: CHAR
COMPR.: 3
CASA: 0
TAB.REF.:
CPO.REF.:
AJUD. PESQU.:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT048
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT048
DESCRIÇÃO BREVE: Dados Adicionais - Boleto
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: A - Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
CAMPOS: NRINVOIC
TP. CAMPO: /PWS/ZYCBL084
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 20
CASAS: 0
CAMPOS: NRPARCF
TP. CAMPO: RATNR
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA:NUMC
CMPR.: 2
CASAS: 0
CAMPOS: DTLIQUID
TP. CAMPO: /PWS/ZYCBL036
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: DATS
CMPR.: 8
CASAS: 0
CAMPOS: DTVENCTO
TP. CAMPO: /PWS/ZYCBL034
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: DATS
CMPR.: 8
CASAS: 0
CAMPOS: LIFNR
TP. CAMPO: LIFNR
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 10
CASAS: 0
CAMPOS: GSBERF
TP. CAMPO: GSBER
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 4
CASAS: 0
CAMPOS: PRCTR
TP. CAMPO: PRCTR
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 10
CASAS: 0
CAMPOS: TPJUROS
TP. CAMPO: /PWS/ZYCBL451
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 1
CASAS: 0
CAMPOS: TPDESP
TP. CAMPO: /PWS/ZYCBL014
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 3
CASAS: 0
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT064
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT064
DESCRIÇÃO BREVE: Agrupamento de Boleto
CARACTERÍSTICAS
CATEGORIA DA TABELA: Tabela transparente
CLASSE DE ENTREGA: A - Tabela de aplicação (dados mestre e de movimento)
(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA
CAMPOS NOVOS
* Inserir esse campo após o campo TPJUROS
CAMPOS: TPDESP
TP. CAMPO: /PWS/ZYCBL014
CH: X
INI: X
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 3
CASAS: 0
CAMPOS EXCLUÍDOS
CAMPOS: TPDESP
TP. CAMPO: /PWS/ZYCBL014
CH:
INI:
TAB.VERIF.:
TAB.REF.:
CPO.RE:
CATEGORIA DE DA: CHAR
CMPR.: 3
CASAS: 0