CE PLUS - Nota 007892
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 12/01/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:58:28
Descrição da Nota: DESENVOLVIMENTO ADICIONAL - FLEXIBILIZAR CONTA BANCO NA DEVOLUÇÃO.
Sintoma
Desenvolvimento Adicional - FLEXIBILIZAR CONTA BANCO NA DEVOLUÇÃO.
Solução
Desenvolvimento Adicional - FLEXIBILIZAR CONTA BANCO NA DEVOLUÇÃO.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07892 Data: 12/01/2009 Hora: 10:19:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07892
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00081
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02216 - 00006 - 6.0 - 00025 - NA VINCULAÇÃO NÃO RESPEITA O FLAG E A INFORMAÇÃO DO TEXTO INFORMA
03752 - 00005 - 7.0 - 00001 - VINCULAÇÃO - ESTORNO AUTOMATICO POR ERRO NA CONTABILIZAÇÃO
06100 - 00004 - 7.0 - 00004 - CB - 444521 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
06359 - 00003 - 7.0 - 00005 - VINCULAÇÃO - SALDO DA PARCELA E FECHAMENTO DO CAMPO DESVINCULAÇÃO
07291 - 00002 - 7.0 - 00006 - VINCULAÇÃO - DESVINCULAÇÃO - ATUALIZAÇÃO DE SALDO INCORRETO
07760 - 00001 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO
----------------------------------------------------------------------------------------------------
DESENVOLVIMENTO ADICIONAL - FLEXIBILIZAR CONTA BANCO NA DEVOLUÇÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESENVOLVIMENTO ADICIONAL - FLEXIBILIZAR CONTA BANCO NA DEVOLUÇÃO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB009 0401
DYNP /PWS/SAPMZYCB009 0402
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009I01
REPS /PWS/MZYCB009O01
REPS /PWS/MZYCB009TOP
REPS /PWS/MZYCB009X01
REPT /PWS/SAPMZYCB009
TABD /PWS/ZYCBE050
TABD /PWS/ZYCBE051
TABD /PWS/ZYCBT050
TABD /PWS/ZYCBT051
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB009 0401
----------------------------------------------------
FAVOR PEDIR O ARQUIVO DA TELA 0401 PARA UPLOAD NO PROGRAMA
----------------------------------------------------
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB009 0402
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0402
...
with control tc_devol
cursor tc_devol-current_line.
module: carrega_zycbe051,
set_screen_tc.
endloop.
process after input.
loop at itab_zycbt051.
module altera_itab_zycbt051.
endloop.
module: user_command_0402.
* >> Início da inclusão:
PROCESS ON VALUE-REQUEST.
FIELD: /PWS/ZYCBE051-BANCO MODULE ajuda_pesquisa.
* << Fim da inclusão
----------------------------------------------------
FAVOR PEDIR O ARQUIVO DA TELA 0402 PARA UPLOAD NO PROGRAMA
----------------------------------------------------
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
v_codeven = '014D'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = 'E'.
SELECT SINGLE codpadr kurst
INTO (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
FROM /pws/zycbt009
WHERE codpadr = wa_zycbt011-ctmoed.
* >> Início da inclusão: FORM GET_PARAMETERS_ESTDEV
if /pws/zycbe050-conta_contab is initial.
v_conta_contab = /pws/zycbe050-conta_contab.
itab_zycbe033-d_newko = v_conta_contab .
else.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = /pws/zycbe050-banco
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konth.
ELSE.
MESSAGE i016 WITH text-011.
EXIT.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-037.
* >> Início da inclusão: FORM GET_PARAMETERS_ESTDEV
endif.
* << Fim da inclusão
ENDFORM.
FORM clearing_estorno.
DATA: belnr1 LIKE /pws/zycbt001-belnr,
belnr2 LIKE /pws/zycbt001-belnr,
conta_ace LIKE /pws/zycbt012-saknr1,
v_sy_subrc LIKE sy-subrc,
v_dtbelnr2 LIKE sy-datum.
belnr1 = /pws/zycbe050-belnr_dev.
belnr2 = itab_zycbt032-belnr.
v_dtbelnr2 = itab_zycbe033-budat.
...
...
itab_zycbe033-c_newko = itab_zyglt316-konts.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'SAKNR'
text-014.
ENDIF.
itab_zycbe033-d_kostl = /pws/zycbe050-kostl.
itab_zycbe033-d_prctr = /pws/zycbe050-prctr.
itab_zycbe033-d_fipos = /pws/zycbe050-fipos.
itab_zycbe033-d_fictr = /pws/zycbe050-fictr.
CLEAR itab_zycbt012.
* >> Início da inclusão: FORM GET_PARAMETERS_CANC
if /pws/zycbe001-conta_contab is initial.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = /pws/zycbe001-bcocred
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
itab_zycbe033-c_newko = itab_zyglt316-konth.
PERFORM verify_null_field USING itab_zycbe033-c_newko
'SAKNR'
text-014.
ELSE.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-037.
* >> Início da inclusão: FORM GET_PARAMETERS_CANC
ENDIF.
else.
IF v_vldev_brl LT v_vlcan_brl.
itab_zycbe033-c_newko = /pws/zycbe001-conta_contab.
else.
itab_zycbe033-d_newko = /pws/zycbe001-conta_contab.
endif.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM estorna_cancelamento.
DATA: v_cpochv LIKE /pws/zycbe033-cpochv,
v_belnr_tmp(10) TYPE c VALUE space .
CLEAR: itab_zycbe033a, itab_zycbt032a, itab_zycbt034.
REFRESH: itab_zycbe033a, itab_zycbt032a, itab_zycbt034.
itab_zycbe033a-tcode = 'FB08'.
itab_zycbe033a-tabela = '/PWS/ZYCBT050'.
CONCATENATE itab_zycbt050-nrseqc itab_zycbt050-tpdesp
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
ENDIF.
IF itab_zycbt005-slpagar NE 0.
IF /pws/zycbe050-nrseqc IS INITIAL.
IF NOT itab_zycbt005-belnr IS INITIAL.
MOVE-CORRESPONDING itab_zycbt005 TO /pws/zycbe050.
/pws/zycbe050-waers = itab_zycbt005-waers_c.
/pws/zycbe050-waers_fat = itab_zycbt005-waers.
/pws/zycbe050-parid = itab_zycbt005-parid.
/pws/zycbe050-txcamb = /pws/zycbe001-txcneg.
/pws/zycbe050-sldevol = /pws/zycbe050-slpagar.
* >> Início da exclusão: FORM CRIA_DEVOLUCAO
. /pws/zycbe050-banco = itab_zycbt005-bcofinan.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_DEVOLUCAO
/pws/zycbe050-banco = itab_zycbt005-bcofinan.
/pws/zycbe050-conta_contab = /pws/zycbe001-conta_contab.
* << Fim da inclusão
/pws/zycbe050-status_dev = 'I'.
CLEAR: /pws/zycbe050-vldev,
/pws/zycbe050-vldev_fat,
/pws/zycbe050-vljur,
/pws/zycbe050-tptxjur,
/pws/zycbe050-txjdev.
ELSE.
v_vinc_err = 'X'.
ENDIF.
ELSE.
...
...
/pws/zycbe050-tpdesp TO itab_zycbt051-tpdesp,
/pws/zycbe050-nrparc TO itab_zycbt051-nrparc,
/pws/zycbe050-dtincl TO itab_zycbt051-dtincl,
/pws/zycbe050-nrinvoic TO itab_zycbt051-nrinvoic,
/pws/zycbe050-nrparcf TO itab_zycbt051-nrparcf,
/pws/zycbe050-gsberf TO itab_zycbt051-gsberf,
/pws/zycbe050-dtvincul TO itab_zycbt051-dtvincul,
/pws/zycbe050-dtvencto TO itab_zycbt051-dtvencto,
/pws/zycbe050-txcamb TO itab_zycbt051-txcamb,
/pws/zycbe050-parid TO itab_zycbt051-parid,
* >> Início da exclusão: FORM ALTERA_DEVOLUCAO
itab_zycbt005-bcofinan TO itab_zycbt051-banco,
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_DEVOLUCAO
itab_zycbt005-bcofinan TO itab_zycbt051-banco,
* << Fim da inclusão
/pws/zycbe050-waers TO itab_zycbt051-waers,
/pws/zycbe050-waers_fat TO itab_zycbt051-waers_fat,
* >> Início da inclusão: FORM ALTERA_DEVOLUCAO
/pws/zycbe050-conta_contab TO itab_zycbt051-conta_contab,
* << Fim da inclusão
'I' TO itab_zycbt051-status_rd,
'I' TO itab_zycbt051-status_rp,
'I' TO itab_zycbt051-status_pdd,
'I' TO itab_zycbt051-status_apr.
APPEND itab_zycbt051.
...
...
itab_zycbt051-pspnr_or = /pws/zycbe051-pspnr_or.
itab_zycbt051-rkaufnr_or = /pws/zycbe051-rkaufnr_or.
itab_zycbt051-spart_or = /pws/zycbe051-spart_or.
itab_zycbt051-versi_or = /pws/zycbe051-versi_or.
itab_zycbt051-vkorg_or = /pws/zycbe051-vkorg_or.
itab_zycbt051-vrgar_or = /pws/zycbe051-vrgar_or.
itab_zycbt051-werks_or = /pws/zycbe051-werks_or.
itab_zycbt051-vtweg_or = /pws/zycbe051-vtweg_or.
itab_zycbt051-dtbx_cl = /pws/zycbe051-dtbx_cl.
itab_zycbt051-motivo_pdd = /pws/zycbe051-motivo_pdd.
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCBT051
if ok_code = 'ENTE'.
PERFORM altera_conta_contabil.
endif.
itab_zycbt051-conta_contab = /pws/zycbe051-conta_contab.
if /pws/zycbe051-banco is initial.
clear : /pws/zycbe051-conta_contab.
endif.
* << Fim da inclusão
MODIFY itab_zycbt051_aux INDEX v_index TRANSPORTING
dtreceb dtfech nrcontr dtpdd banco
dtapr motivo_apr.
ENDFORM.
FORM anula_cancel.
READ TABLE itab_zycbt051 WITH KEY
nrseqc = /pws/zycbe050-nrseqc
tpdesp = /pws/zycbe050-tpdesp
nrparc = /pws/zycbe050-nrparc
dtincl = /pws/zycbe050-dtincl
...
...
CONCATENATE /pws/zycbe050-nrseqc /pws/zycbe050-tpdesp
/pws/zycbe050-nrparc /pws/zycbe050-dtincl
/pws/zycbe050-nrinvoic /pws/zycbe050-gsberf
/pws/zycbe050-nrparcf
/pws/zycbe050-dtvincul /pws/zycbe050-dtvencto
INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
itab_zycbe033-awtyp = '4'.
itab_zycbe033-agkon = v_contad.
itab_zycbe033-agkoa = 'S'.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
if not /pws/zycbe050-conta_contab is initial.
v_conta_contab = /pws/zycbe050-conta_contab.
itab_zycbe033-d_newko = v_conta_contab.
else.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = /pws/zycbe050-banco
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
...
...
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konth.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
endif.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbe033-d_newko
'KONTO'
text-014.
itab_zycbe033-newbs = '50'.
itab_zycbe033-zterm = space.
itab_zycbe033-budat = v_zycbe050_budat.
READ TABLE itab_zycbt005 WITH KEY nrinvoic = /pws/zycbe050-nrinvoic
nrparcf = /pws/zycbe050-nrparcf
gsberf = /pws/zycbe050-gsberf.
IF wa_zycbt007-fdtdoc = 'D'.
...
...
v_data LIKE sy-datum.
DATA: v_sai,
v_contad LIKE /pws/zycbt012-saknr1,
v_dev.
DATA: BEGIN OF itab_doctos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt036.
DATA: END OF itab_doctos.
DATA: v_gjahr TYPE gjahr.
PERFORM clear_date_batch.
CLEAR: v_data.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_2
if itab_zycbt050-banco ne itab_zycbt051-banco or
itab_zycbt050-conta_contab ne itab_zycbt051-conta_contab .
message i061 with text-499 text-500 .
v_er = 'X'.
Exit.
endif.
* << Fim da inclusão
v_codeven_dev = '014RP'.
PERFORM get_parameters USING v_codeven_dev.
IF v_existe EQ 'X'.
MESSAGE i015 WITH text-170.
EXIT.
ENDIF.
IF /pws/zycbe050-belnr_dev = space.
MESSAGE i061 WITH text-100 text-101 text-102.
EXIT.
ENDIF.
...
...
EXPORT itab_erro1 TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro1.
ENDIF.
ENDFORM.
FORM receb_pagto_dev_3.
CLEAR v_subrc.
PERFORM limpa_itabs_contabil.
v_codeven_dev = '014RP'.
PERFORM get_parameters USING v_codeven_dev.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
IF NOT itab_zycbt051-conta_contab IS INITIAL.
itab_zycbe033-d_newko = itab_zycbt051-conta_contab .
ELSE.
* << Fim da inclusão
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-011.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
ENDIF.
* << Fim da inclusão
itab_zycbe033-agkon = itab_zycbt017-kunag.
PERFORM verify_null_field USING itab_zycbt017-kunag
...
...
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro.
v_status_s = '0'.
ENDIF.
ENDFORM.
FORM recup_divisas_3.
CLEAR v_subrc.
PERFORM limpa_itabs_contabil.
v_codeven_dev = '014RD'.
PERFORM get_parameters USING v_codeven_dev.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
if not itab_zycbt051-conta_contab is initial.
MOVE itab_zycbt051-conta_contab TO itab_zycbe033-d_newko.
else.
* << Fim da inclusão
READ TABLE itab_zyglt316 INDEX 1.
MOVE itab_zyglt316-konts TO itab_zycbe033-d_newko.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-011.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
endif.
* << Fim da inclusão
itab_zycbe033-d_zuonr = itab_zycbt012-zuonr.
itab_zycbe033-agkon = itab_zycbt017-kunag.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
LOOP AT itab_zycbt032.
itab_erro-msg = itab_zycbt032-msg.
APPEND itab_erro.
ENDLOOP.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
ENDIF.
IMPORT itab_contabil FROM MEMORY ID '040'.
ENDFORM.
* >> Início da inclusão:
form altera_conta_contabil.
data:v_banco like /pws/zycbe043-bcooper .
CHECK NOT /PWS/ZYCBE051-BANCO IS INITIAL.
SHIFT /PWS/ZYCBE051-BANCO LEFT DELETING LEADING '0'.
v_banco = itab_zycbt050-banco.
SHIFT v_banco LEFT DELETING LEADING '0'.
CHECK /PWS/ZYCBE051-CONTA_CONTAB IS INITIAL OR
( NOT /PWS/ZYCBE051-CONTA_CONTAB IS INITIAL AND
/PWS/ZYCBE051-BANCO NE v_banco and
/PWS/ZYCBE051-BANCO NE v_bco_cab ).
v_codaux1 = /PWS/ZYCBE051-BANCO.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
IF /pws/zycbt007-cont_disp EQ 'X'.
PERFORM busca_conta_contabil
USING 'C'
itab_zycbt005-bukrs
'FBK'
v_codaux1
v_codaux2
v_codaux3
CHANGING
/PWS/ZYCBE051-CONTA_CONTAB.
ELSE.
PERFORM busca_conta_contabil
USING 'C'
itab_zycbt005-bukrs
'FBK'
v_codaux1
v_codaux2
space
CHANGING
/PWS/ZYCBE051-CONTA_CONTAB.
ENDIF.
v_bco_cab = /PWS/ZYCBE051-BANCO.
endform.
FORM busca_conta_contabil USING p_tipo TYPE char1
p_bukrs TYPE /pws/zyglt316-bukrs
p_chave TYPE /pws/zyglt316-ktosl
p_codaux1 TYPE /pws/zygle316-codaux1
p_codaux2 TYPE /pws/zygle316-codaux2
p_codaux3 TYPE /pws/zygle316-codaux3
CHANGING p_conta.
DATA: itab_zyglt316 TYPE STANDARD TABLE OF /pws/zyglt316,
wa_zyglt316 LIKE LINE OF itab_zyglt316.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = p_bukrs
ktosl = p_chave
codaux1 = p_codaux1
codaux2 = p_codaux2
codaux3 = p_codaux3
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
READ TABLE itab_zyglt316 INDEX 1 INTO wa_zyglt316.
IF sy-subrc = 0.
MOVE wa_zyglt316-konth TO p_conta.
ELSE.
CLEAR p_conta.
MESSAGE i015 WITH text-498.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009I01
...
IF it_mensagem[] IS INITIAL.
SET SCREEN 0.
LEAVE SCREEN.
ENDIF.
WHEN 'MARC'.
PERFORM marca_desmarca_tc USING 'X'.
WHEN 'DESM'.
PERFORM marca_desmarca_tc USING ''.
ENDCASE.
endmodule.
* >> Início da inclusão:
module ajuda_pesquisa input.
CLEAR: tdynpread, record_tab,v_line.
REFRESH: tdynpread, record_tab.
EXPORT record_tab TO MEMORY ID 'contrazao'.
CALL FUNCTION 'DYNP_GET_STEPL'
IMPORTING
povstepl = v_line.
SET PARAMETER ID 'BUK' FIELD /pws/zycbe005-bukrs.
v_searchhelp = '/PWS/ZYCBA287'.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = '/PWS/ZYCBV223'
fieldname = 'CODAUX1'
searchhelp = v_searchhelp
shlpparam = 'CODAUX1'
display = l_display
TABLES
return_tab = itab_result
EXCEPTIONS
OTHERS = 5.
CHECK sy-subrc EQ 0 .
IMPORT record_tab FROM MEMORY ID 'contrazao'.
CALL FUNCTION 'DYNP_GET_STEPL'
IMPORTING
povstepl = v_line.
CLEAR tdynpread.
REFRESH tdynpread.
READ TABLE record_tab INDEX 1.
CHECK sy-subrc EQ 0 .
IF record_tab(3) = sy-mandt.
/PWS/ZYCBE051-BANCO = record_tab+3(10).
/PWS/ZYCBE051-conta_contab = record_tab+58(10).
ELSE.
/PWS/ZYCBE051-BANCO = record_tab+0(10).
/PWS/ZYCBE051-conta_contab = record_tab+55(10).
ENDIF.
v_bco_cab = /PWS/ZYCBE051-BANCO.
PERFORM adiciona_linha_tc:
USING
'/PWS/ZYCBE051-BANCO' /PWS/ZYCBE051-BANCO v_line
CHANGING
tdynpread[],
USING
'/PWS/ZYCBE051-CONTA_CONTAB' /PWS/ZYCBE051-conta_contab v_line
CHANGING
tdynpread[].
IF /PWS/ZYCBE051-BANCO EQ '00'.
/PWS/ZYCBE051-BANCO = ' ' .
ENDIF.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0301'
TABLES
dynpfields = tdynpread
EXCEPTIONS
OTHERS = 8.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009O01
...
ENDIF.
SET PF-STATUS '0400' EXCLUDING itab_pf_status.
CLEAR itab_pf_status.
REFRESH itab_pf_status.
SET TITLEBAR '0400'.
ENDMODULE.
MODULE carrega_zycbe051 OUTPUT.
/pws/zycbe051 = itab_zycbt051.
/pws/zycbe051-dtbx_cl = itab_zycbt051-dtbx_cl.
/pws/zycbe051-motivo_pdd = itab_zycbt051-motivo_pdd.
* >> Início da inclusão: MODULE CARREGA_ZYCBE051
if v_er = 'X'.
/pws/zycbe051-banco = itab_zycbt050-banco.
/pws/zycbe051-conta_contab = itab_zycbt050-conta_contab.
clear v_er.
endif.
* << Fim da inclusão
ENDMODULE.
MODULE set_screen_0400 OUTPUT.
IF v_status1_s = '0'.
LOOP AT SCREEN.
IF screen-group1 NE 'TAB'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
...
...
PERFORM calcula_vlbrl.
CLEAR /pws/zycbt088.
CLEAR v_descr_mot.
SELECT SINGLE descr
FROM /pws/zycbt088
INTO v_descr_mot
WHERE motivo EQ /pws/zycbe050-mot_canc.
ENDMODULE.
MODULE set_screen_tc OUTPUT.
LOOP AT SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN_TC
IF SCREEN-NAME EQ '/PWS/ZYCBE051-BANCO'.
if not /PWS/ZYCBE051-DTRECEB is initial.
screen-input = '0'.
else.
screen-input = '1'.
endif.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycbe051-belnr_rd IS INITIAL OR
NOT /pws/zycbe051-belnr_rp IS INITIAL OR
NOT /pws/zycbe051-belnr_pdd1 IS INITIAL OR
NOT /pws/zycbe051-belnr_apr IS INITIAL.
screen-input = '0'.
ENDIF.
IF screen-name EQ '/PWS/ZYCBE051-MARK'
OR ( screen-name EQ '/PWS/ZYCBE051-NRCONTR' AND
itab_zycbt051-tpdev EQ 'RD' ).
screen-input = '1'.
...
...
ENDLOOP.
ELSE.
LOOP AT tc_devol-cols INTO wa_cols.
IF wa_cols-screen-name = '/PWS/ZYCBE051-WAERS' OR
wa_cols-screen-name = '/PWS/ZYCBE051-TPDEV' OR
wa_cols-screen-name = '/PWS/ZYCBE051-WAERS_FAT' OR
wa_cols-screen-name = '/PWS/ZYCBE051-BELNR_RP' OR
wa_cols-screen-name = '/PWS/ZYCBE051-BELNR_RD' OR
wa_cols-screen-name = '/PWS/ZYCBE051-BELNR_PDD1' OR
wa_cols-screen-name = '/PWS/ZYCBE051-BELNR_PDD2' OR
* >> Início da exclusão: MODULE SET_SCREEN_0402
wa_cols-screen-name = '/PWS/ZYCBE051-BELNR_APR'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_0402
wa_cols-screen-name = '/PWS/ZYCBE051-BELNR_APR' OR
wa_cols-screen-name = '/PWS/ZYCBE051-CONTA_CONTAB'.
* << Fim da inclusão
wa_cols-screen-input = '0'.
ELSE.
wa_cols-screen-input = '1'.
ENDIF.
MODIFY tc_devol-cols FROM wa_cols.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE set_screen_vinc OUTPUT.
IF v_tstwaers IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009TOP
...
v_exit321 LIKE /pws/zyglt100-zexit VALUE 'VIN001'.
DATA: v_dtpagext TYPE c,
v_dtpagtoc TYPE c.
DATA: v_vinculacao(1) TYPE c,
v_vl_estornado TYPE /pws/zycbt001-slpagar.
DATA: v_belnr6 LIKE /pws/zycbt030-belnr,
v_kursf6 LIKE bkpf-kursf,
v_erro_estorno TYPE c,
v_cp_ok TYPE c.
DATA: wa_cols TYPE cxtab_column.
* >> Início da inclusão:
data: v_bco_cab type /pws/zycbe134-bcocred,
v_codaux2 LIKE /pws/zyglt316-codaux1,
v_codaux3 LIKE /pws/zyglt316-codaux1,
v_conta_contab(10) type n,
v_er type c.
* << Fim da inclusão
DATA:
wa_zycbe050 LIKE /pws/zycbe050,
wa_zycbe050_classifcont LIKE /pws/zycbe050,
wa_zycbe050_objres LIKE /pws/zycbe050,
wa_zycbt051_sbu LIKE /pws/zycbt051,
wa_zycbe051_aux LIKE /pws/zycbe051,
wa_zycbe005_aux LIKE /pws/zycbe005,
wa_log TYPE char4000,
wa_zycbt005_log LIKE /pws/zycbt005,
wa_zycbt006_log LIKE /pws/zycbt006,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009X01
* >> Início da inclusão:
TABLES:
/pws/zycbt001,
/pws/zycbe001,
/pws/zycbe005,
/pws/zycbt005,
/pws/zycbt006,
/pws/zycbe006,
/pws/zycbe017,
/pws/zycbe017a,
/pws/zycbe050,
/pws/zycbt050,
/pws/zycbt051,
/pws/zycbe051,
/pws/zycet001,
/pws/zycbt009,
/pws/zycbt069.
DATA: BEGIN OF COMMON PART c.
DATA:
v_erro_estorno2 TYPE c.
DATA: BEGIN OF itab_zycbt001 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt001.
DATA: END OF itab_zycbt001.
DATA: BEGIN OF itab_zycbt005 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
mark(1),
v_fsaldo TYPE c,
calcpar LIKE /pws/zycbt005-vlvinc,
text1 LIKE t052u-text1,
belnr_d LIKE /pws/zycbt005-belnr,
belnr_f28 LIKE /pws/zycbt005-belnr,
erro(1) type c,
baixa_cli(1) type c,
alterado type c,
END OF itab_zycbt005.
DATA: BEGIN OF itab_zycbt006 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006.
DATA: BEGIN OF itab_zycbt017 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt017.
DATA: END OF itab_zycbt017.
DATA: BEGIN OF itab_zycbt050 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt050.
DATA: mark(1),
END OF itab_zycbt050.
DATA: BEGIN OF itab_zycbt050_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt050.
DATA: END OF itab_zycbt050_aux.
DATA: BEGIN OF itab_zycbt051 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt051.
DATA: mark(1),
END OF itab_zycbt051.
DATA: BEGIN OF itab_zycbt005_parid OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: END OF itab_zycbt005_parid.
DATA: BEGIN OF itab_zycbt005_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
mark(1),
v_fsaldo TYPE c,
calcpar LIKE /pws/zycbt005-vlvinc,
text1 LIKE t052u-text1,
belnr_d LIKE /pws/zycbt005-belnr,
belnr_f28 LIKE /pws/zycbt005-belnr,
erro(1) type c,
baixa_cli(1) type c,
alterado type c,
END OF itab_zycbt005_ant.
DATA: BEGIN OF itab_zycbt005_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
mark(1),
v_fsaldo TYPE c,
calcpar LIKE /pws/zycbt005-vlvinc,
text1 LIKE t052u-text1,
belnr_d LIKE /pws/zycbt005-belnr,
belnr_f28 LIKE /pws/zycbt005-belnr,
erro(1) TYPE c,
baixa_cli(1) TYPE c,
alterado type c,
END OF itab_zycbt005_aux.
DATA: BEGIN OF itab_zycbt005_aux2 OCCURS 0,
dtvincul LIKE /pws/zycbt005-dtvincul,
END OF itab_zycbt005_aux2.
DATA: itab_zycbt005_aux3 LIKE /pws/zycbt005 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt005_aux4 OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
dtvincul LIKE /pws/zycbt005-dtvincul,
END OF itab_zycbt005_aux4.
DATA: BEGIN OF itab_zycbt006_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_aux.
DATA: BEGIN OF itab_zycbt005_excluidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
END OF itab_zycbt005_excluidas.
DATA: BEGIN OF itab_contabil OCCURS 0,
nrinvoic LIKE /pws/zycbt030-nrinvoic,
nrparcf LIKE /pws/zycbt030-nrparcf,
vbeln LIKE /pws/zycbt030-vbeln,
gsberf LIKE /pws/zycbt030-gsberf,
docto LIKE /pws/zycbt030-belnr,
msg LIKE /pws/zycbt032-msg,
dtdocto LIKE /pws/zycbt030-budat,
bukrs LIKE /pws/zycbe033-bukrs,
END OF itab_contabil.
DATA: BEGIN OF itab_zycbt077 OCCURS 1.
INCLUDE STRUCTURE /pws/zycbt077.
DATA: END OF itab_zycbt077.
DATA: BEGIN OF itab_zycbt006_soma OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_soma.
DATA: BEGIN OF itab_zycbt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: belnr_d LIKE /pws/zycbt209-belnr2,
budat_d LIKE sy-datum,
vlbaixa LIKE /pws/zycbt209-vlme,
baixa TYPE c.
DATA: END OF itab_zycbt209.
DATA: itab_zycbt069 LIKE /pws/zycbt069 OCCURS 10 WITH HEADER LINE.
DATA: wa_zycbt051 LIKE /pws/zycbt051,
wa_zycbt005 LIKE itab_zycbt005.
DATA: v_retorno TYPE sy-subrc,
v_modo_bi(1) TYPE c,
v_dtdocto LIKE /pws/zycbt005-dtvincul,
v_belnr_001 LIKE /pws/zycbt001-belnr,
v_vnc014(1) type c,
v_vinc_tot TYPE c.
DATA: v_belnr002 TYPE /pws/zycbt002-belnr2,
v_vinc002 TYPE /pws/zycbt002-dtvincul,
v_saldo002 TYPE /pws/zycbt002-slvinc,
v_slvinc TYPE /pws/zycbt002-slvinc.
DATA: wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011,
wa_zycbt089 LIKE /pws/zycbt089.
DATA: itab_zycbt032_aux LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE,
itab_zycbt032b LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt032a OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt032.
DATA budat LIKE /pws/zycbe033-budat.
DATA: END OF itab_zycbt032a.
DATA: itab_zycbe033_aux LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
itab_zycbe033a LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
itab_zycbe033b LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycbt034_aux LIKE /pws/zycbt034 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycbt036_dp LIKE /pws/zycbt036 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycbt002p LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE,
itab_zycbt002e LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE,
itab_zycbt002saldo LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt069_aux LIKE /pws/zycbt069 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt030 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt030.
DATA: zterm LIKE /pws/zycbt017-zterm,
v_belnr LIKE /pws/zycbt030-belnr,
s_kwert LIKE /pws/zycbt030-kwert,
v_kwert LIKE /pws/zycbt030-kwert,
belnr7 LIKE /pws/zycbt030-belnr,
flag(1) TYPE c,
belnr_d LIKE /pws/zycbt030-belnr,
status_d LIKE /pws/zycbt005-status,
vlsltrans_d LIKE /pws/zycbt030-vlsltrans,
vlslliq_d LIKE /pws/zycbt030-vlslliq,
v_duplica(1) TYPE c,
END OF itab_zycbt030.
DATA: BEGIN OF itab_zycbt030_aux OCCURS 10.
INCLUDE STRUCTURE itab_zycbt030.
DATA: END OF itab_zycbt030_aux.
DATA: BEGIN OF itab_zycbt219 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt219.
DATA: belnr_d LIKE /pws/zycbt209-belnr2,
budat_d LIKE sy-datum,
vlbaixa LIKE /pws/zycbt209-vlme,
baixa TYPE c.
DATA: END OF itab_zycbt219.
DATA: BEGIN OF itab_zyglt316 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt316.
DATA: END OF itab_zyglt316.
data: v_codeven LIKE /pws/zycbt011-codeven,
v_excep TYPE c,
v_total(1) TYPE c.
DATA BEGIN OF itab_zycbe033 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbe033.
DATA: chave TYPE /pws/zycbe033-cpochv,
END OF itab_zycbe033.
DATA: itab_zycbt032
TYPE STANDARD TABLE OF /pws/zycbt032 WITH HEADER LINE,
itab_zycbt034
TYPE STANDARD TABLE OF /pws/zycbt034 WITH HEADER LINE,
itab_zycbt036
TYPE STANDARD TABLE OF /pws/zycbt036 WITH HEADER LINE.
DATA BEGIN OF itab_partidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe033.
DATA END OF itab_partidas.
DATA: ok_code LIKE sy-ucomm.
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA: BEGIN OF itab_doctos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt036.
DATA: END OF itab_doctos.
DATA: END OF COMMON PART.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
Incluído símbolo de texto:
Idioma: PT
Símbolo: 499
Texto: (41 caracteres)
"No recebimento de Pgto não pode trocar de"
Comprimento máximo: 132
--------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 500
Texto: (24 caracteres)
"Banco e Conta Contábil ."
Comprimento máximo: 24
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE050
MODIFICAR ESTRUTURA: /PWS/ZYCBE050
DESCRIÇÃO BREVE:CB - Devoluções
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
CONTA_CONTAB SAKNR CHAR 10 0 Nº conta do Razão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE051
MODIFICAR ESTRUTURA: /PWS/ZYCBE051
DESCRIÇÃO BREVE:CB - PDD / Receb. Pagto / Recup. Divisas
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
CONTA_CONTAB SAKNR CHAR 10 0 Nº conta do Razão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT050
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT050
DESCRIÇÃO BREVE: CB - Devoluções
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
CONTA_CONTAB SAKNR CHAR 10 0 Nº conta do Razão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT051
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT051
DESCRIÇÃO BREVE: CB - PDD / Receb. Pagto / Recup. Divisas
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
CONTA_CONTAB SAKNR CHAR 10 0 Nº conta do Razão