CE PLUS - Nota 007834
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 23/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:07:59
Descrição da Nota: FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE CAPTAÇÃO
Sintoma
desenvolvimento adicional
Solução
desenvolvimento adicional
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07834 Data: 23/12/2008 Hora: 17:55:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07834
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00078
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03000 - 00006 - 6.0 - 00026 - CAPTAÇÃO - TEXTO INFORMATIVO TEXTO PARA LANÇAMENTO - CONTABILIZAÇ
04628 - 00005 - 7.0 - 00002 - CAPTAÇÃO - ATUALIZAÇÃO SLVINC
06355 - 00004 - 7.0 - 00005 - CAPTAÇÕES DE CONTRATOS DE EXPORTAÇÃO
06652 - 00003 - 7.0 - 00005 - CAPTAÇÃO - RECONTABILIZAÇÃO DA CAPTAÇÃO COM BANCO DIFERENTE
07116 - 00002 - 7.0 - 00006 - EXPORTAÇÃO CAPTAÇÃO
07549 - 00001 - 7.0 - 00007 - PROBLEMA NO PROGRAMA DE CAPTAÇÃO ( /PWS/ZYCB001 )
----------------------------------------------------------------------------------------------------
FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB001 0101
FUNC /PWS/ZYCBA287
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001O01
REPS /PWS/MZYCB001TOP
TABD /PWS/ZYCBE001
TABD /PWS/ZYCBT001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB001 0101
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0101
...
FIELD /pws/zycbe001-fdtlanc MODULE fdtlanc_consistency.
CHAIN.
FIELD: /pws/zycbe001-ftxt,
/pws/zycbe001-txtinf.
MODULE ftxt_consistency.
ENDCHAIN.
FIELD /pws/zycbe001-ffrcalc MODULE juros_dp.
CHAIN.
FIELD: /pws/zycbe001-dtentr, /pws/zycbe001-dtliquid.
ENDCHAIN.
* >> Início da inclusão:
PROCESS ON VALUE-REQUEST.
FIELD: /PWS/ZYCBE001-BCOCRED MODULE ajuda_pesquisa.
* << Fim da inclusão
**********************************************************
PEDIR O ARQUIVO DA TELA 0101 PARA UPLOAD NO PROGRAMA
**********************************************************
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA287
...
v_nrseqc2 TYPE /pws/zycbt134-nrseq,
v_bukrs type /pws/zycbt134-bukrs,
v_fieldname TYPE dfies-lfieldname.
DATA: BEGIN OF itab_bukrs OCCURS 0,
bukrs LIKE /pws/zycbt001-bukrs,
END OF itab_bukrs.
DATA: BEGIN OF itab_dados_aux OCCURS 0,
lifnr TYPE lfa1-lifnr,
konth TYPE /pws/zyglt316-konth,
codaux1 TYPE /pws/zyglt316-codaux1,
* >> Início da inclusão: FUNCTION /PWS/ZYCBA287
codaux2 TYPE /pws/zyglt316-codaux1,
codaux3 TYPE /pws/zyglt316-codaux1,
* << Fim da inclusão
END OF itab_dados_aux.
DATA: BEGIN OF t_konth OCCURS 0,
lifnr TYPE lfa1-lifnr,
sortl TYPE lfa1-sortl,
name1 TYPE lfa1-name1,
konth TYPE /pws/zyglt316-konth,
bukrs TYPE lfb1-bukrs,
ktosl TYPE /pws/zyglt316-ktosl,
codaux1 TYPE /pws/zyglt316-codaux1,
codaux2 TYPE /pws/zyglt316-codaux2,
...
...
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ENDIF.
ENDLOOP.
CLEAR itab_dados_aux.
LOOP AT itab_dados ASSIGNING <fs_dados>.
SHIFT <fs_dados>-lifnr LEFT DELETING LEADING '0'.
SHIFT <fs_dados>-codaux1 LEFT DELETING LEADING '0'.
READ TABLE itab_dados_aux WITH KEY lifnr = <fs_dados>-lifnr
konth = <fs_dados>-konth
* >> Início da exclusão: FUNCTION /PWS/ZYCBA287
codaux1 = <fs_dados>-codaux1.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA287
codaux1 = <fs_dados>-codaux1
codaux2 = <fs_dados>-codaux2
codaux3 = <fs_dados>-codaux3.
* << Fim da inclusão
IF sy-subrc = 0.
DELETE itab_dados INDEX sy-tabix.
DELETE record_tab INDEX sy-tabix.
ELSE.
itab_dados_aux-lifnr = <fs_dados>-lifnr.
itab_dados_aux-konth = <fs_dados>-konth.
itab_dados_aux-codaux1 = <fs_dados>-codaux1.
* >> Início da inclusão: FUNCTION /PWS/ZYCBA287
itab_dados_aux-codaux2 = <fs_dados>-codaux2.
itab_dados_aux-codaux3 = <fs_dados>-codaux3.
* << Fim da inclusão
APPEND itab_dados_aux.
ENDIF.
ENDLOOP.
ENDIF.
IF callcontrol-step EQ 'RETURN'.
EXPORT record_tab[] TO MEMORY ID 'contrazao'.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
ELSEIF /pws/zycbe001-fdtlanc = 'C'.
MOVE /pws/zycbe001-dtcred TO v_data2.
MOVE wa_zycbt001-dtcred TO v_data3.
ENDIF.
IF /pws/zycbe001-tpcontr EQ wa_zycbt001-tpcontr AND
/pws/zycbe001-bukrs EQ wa_zycbt001-bukrs AND
/pws/zycbe001-werks EQ wa_zycbt001-werks AND
/pws/zycbe001-j_1bbranch EQ wa_zycbt001-j_1bbranch AND
/pws/zycbe001-gsber EQ wa_zycbt001-gsber AND
/pws/zycbe001-bcocred EQ wa_zycbt001-bcocred AND
* >> Início da inclusão: FORM SAVE_ZYCBT001
/pws/zycbe001-CONTA_CONTAB EQ wa_zycbt001-CONTA_CONTAB AND
* << Fim da inclusão
( /pws/zycbe001-ftxt IS INITIAL OR
NOT /pws/zycbe001-ftxt IS INITIAL AND
/pws/zycbe001-txtinf = wa_zycbt001-txtinf ) AND
v_data2 EQ v_data3 AND
/pws/zycbe001-waers EQ wa_zycbt001-waers AND
/pws/zycbe001-vlme EQ wa_zycbt001-vlme AND
/pws/zycbe001-vlmi EQ wa_zycbt001-vlmi AND
/pws/zycbe001-txcneg EQ wa_zycbt001-txcneg AND
/pws/zycbe001-fdtlanc EQ wa_zycbt001-fdtlanc AND
/pws/zycbe001-fdtjuros EQ wa_zycbt001-fdtjuros AND
...
...
IF sy-subrc EQ 0 .
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycbe001-tpcontr(01) NE 'T'.
IF /pws/zycbe001-bcocred NE wa_zycbt001-bcocred
AND wa_zycbt001-bcocred IS INITIAL
AND NOT /pws/zycbe001-bcocred IS INITIAL.
* >> Início da inclusão: FORM GET_PARAMETERS_001
IF NOT v_volta_part_conta IS INITIAL.
v_conta = wa_zycbt001-conta_contab.
ELSE.
v_conta = /pws/zycbe001-conta_contab.
ENDIF.
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
OTHERS = 3.
* >> Início da inclusão: FORM GET_PARAMETERS_001
ENDIF.
* << Fim da inclusão
ELSE.
IF sy-tcode NE '/PWS/ZYCB001_C'
OR NOT wa_zycbt001-bcocred IS INITIAL.
IF NOT v_volta_part_banco IS INITIAL.
v_bcocred = wa_zycbt001-bcocred.
ELSE.
v_bcocred = /pws/zycbe001-bcocred.
* >> Início da inclusão: FORM GET_PARAMETERS_001
ENDIF.
IF NOT v_volta_part_conta IS INITIAL.
v_conta = wa_zycbt001-conta_contab.
ELSE.
v_conta = /pws/zycbe001-conta_contab.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM GET_PARAMETERS_001
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 = v_bcocred
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM GET_PARAMETERS_001
ENDIF.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM GET_PARAMETERS_001
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
OTHERS = 3.
* >> Início da inclusão: FORM GET_PARAMETERS_001
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF sy-subrc NE 0.
IF NOT v_volta_part_banco IS INITIAL.
v_bcocred = wa_zycbt001-bcocred.
ELSE.
v_bcocred = /pws/zycbe001-bcocred.
ENDIF.
SHIFT v_bcocred LEFT DELETING LEADING '0'.
* >> Início da inclusão: FORM GET_PARAMETERS_001
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 = v_bcocred
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0 .
* >> Início da inclusão: FORM GET_PARAMETERS_001
IF /pws/zycbe001-conta_contab IS INITIAL.
* << Fim da inclusão
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
* >> Início da inclusão: FORM GET_PARAMETERS_001
else.
itab_zycbe033-d_newko = v_conta.
endif.
* << Fim da inclusão
ELSEIF sy-subrc EQ 1.
CLEAR itab_zyglt316_msg.
itab_zyglt316_msg-bukrs = /pws/zycbe001-bukrs.
itab_zyglt316_msg-ktosl = 'FBK'.
itab_zyglt316_msg-codaux1 = v_bcocred.
APPEND itab_zyglt316_msg.
ELSEIF sy-subrc EQ 2.
CLEAR itab_zyglt315_msg.
itab_zyglt315_msg-bukrs = /pws/zycbe001-bukrs.
itab_zyglt315_msg-ktosl = 'FBK'.
APPEND itab_zyglt315_msg.
ENDIF.
* >> Início da inclusão: FORM GET_PARAMETERS_001
ENDIF.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM GET_PARAMETERS_001
IF /pws/zycbe001-conta_contab IS INITIAL.
* << Fim da inclusão
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
* >> Início da inclusão: FORM GET_PARAMETERS_001
else.
itab_zycbe033-d_newko = v_conta.
endif.
* << Fim da inclusão
ENDIF.
ELSE.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'TRE'
codaux1 = 'TRAVA EXPORT'
TABLES
account = itab_zyglt316
EXCEPTIONS
...
...
ELSEIF /pws/zycbe001-fdtlanc = 'C'.
MOVE /pws/zycbe001-dtcred TO v_data2.
MOVE wa_zycbt001-dtcred TO v_data3.
ENDIF.
IF /pws/zycbe001-tpcontr EQ wa_zycbt001-tpcontr AND
/pws/zycbe001-bukrs EQ wa_zycbt001-bukrs AND
/pws/zycbe001-werks EQ wa_zycbt001-werks AND
/pws/zycbe001-j_1bbranch EQ wa_zycbt001-j_1bbranch AND
/pws/zycbe001-gsber EQ wa_zycbt001-gsber AND
/pws/zycbe001-bcocred EQ wa_zycbt001-bcocred AND
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
/pws/zycbe001-CONTA_CONTAB EQ wa_zycbt001-CONTA_CONTAB AND
* << Fim da inclusão
v_data2 EQ v_data3 AND
/pws/zycbe001-dtcontr EQ wa_zycbt001-dtcontr AND
/pws/zycbe001-dtdesem EQ wa_zycbt001-dtdesem AND
/pws/zycbe001-dtcred EQ wa_zycbt001-dtcred AND
/pws/zycbe001-waers EQ wa_zycbt001-waers AND
/pws/zycbe001-vlme EQ wa_zycbt001-vlme AND
/pws/zycbe001-vlmi EQ wa_zycbt001-vlmi AND
/pws/zycbe001-txcneg EQ wa_zycbt001-txcneg AND
/pws/zycbe001-fdtlanc EQ wa_zycbt001-fdtlanc AND
/pws/zycbe001-fdtjuros EQ wa_zycbt001-fdtjuros AND
...
...
PERFORM save_zycbt003.
PERFORM save_zycbt005.
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
ELSEIF ( /pws/zycbe001-tpcontr NE wa_zycbt001-tpcontr OR
/pws/zycbe001-bukrs NE wa_zycbt001-bukrs OR
/pws/zycbe001-werks NE wa_zycbt001-werks OR
/pws/zycbe001-j_1bbranch NE wa_zycbt001-j_1bbranch OR
/pws/zycbe001-gsber NE wa_zycbt001-gsber OR
/pws/zycbe001-bcocred NE wa_zycbt001-bcocred OR
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
/pws/zycbe001-CONTA_CONTAB NE wa_zycbt001-CONTA_CONTAB OR
* << Fim da inclusão
/pws/zycbe001-dtcontr NE wa_zycbt001-dtcontr OR
/pws/zycbe001-dtdesem NE wa_zycbt001-dtdesem OR
/pws/zycbe001-dtcred NE wa_zycbt001-dtcred OR
/pws/zycbe001-waers NE wa_zycbt001-waers OR
/pws/zycbe001-txcneg NE wa_zycbt001-txcneg OR
/pws/zycbe001-fdtlanc NE wa_zycbt001-fdtlanc OR
/pws/zycbe001-vlme NE wa_zycbt001-vlme OR
/pws/zycbe001-txcneg NE wa_zycbt001-txcneg OR
/pws/zycbe001-fdtjuros NE wa_zycbt001-fdtjuros ) AND
/pws/zycbe001-status EQ 'C'.
...
...
ENDIF.
ENDIF.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = tabela.
itab_zycbe033-cpochv = wa_zycbt001-nrseqc.
IF /pws/zycbe001-bcocred NE wa_zycbt001-bcocred.
v_volta_part_banco = 'X'.
ENDIF.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT_ALT
IF /pws/zycbe001-conta_contab NE wa_zycbt001-conta_contab.
v_volta_part_conta = 'X'.
ENDIF.
* << Fim da inclusão
PERFORM get_parameters_001.
CLEAR v_volta_part_banco.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT_ALT
CLEAR v_volta_part_conta.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM verify_null_field USING wa_zycbt001-bukrs
'BUKRS'
text-018.
itab_zycbe033-bukrs = wa_zycbt001-bukrs.
...
...
IF sy-subrc NE 0.
/pws/zycbe001-vltotjur = /pws/zycbe001-vltotjur +
itab_zycbt002-vlme.
ENDIF.
ENDFORM.
FORM account_number_desc_receb.
IF NOT v_volta_part_banco IS INITIAL.
v_bcocred = wa_zycbt001-bcocred.
ELSE.
v_bcocred = /pws/zycbe001-bcocred.
* >> Início da inclusão: FORM ACCOUNT_NUMBER_DESC_RECEB
ENDIF.
IF NOT v_volta_part_banco IS INITIAL.
/pws/zycbe001-conta_contab = wa_zycbt001-conta_contab.
ELSE.
/pws/zycbe001-conta_contab = /pws/zycbe001-conta_contab.
* << Fim da inclusão
ENDIF.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = v_bco_cred
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
...
...
MODIFY /pws/zycbt241.
ENDLOOP.
UPDATE /pws/zycbt001
SET slvinc = slvinc - /pws/zycbe001-vlme
slpagar = slpagar - /pws/zycbe001-vlme
WHERE nrseqc = /pws/zycbe001-nrseqc.
ENDFORM.
FORM contab_dp_me.
v_bcocred = /pws/zycbe001-bcocred.
SHIFT v_bcocred LEFT DELETING LEADING '0'.
* >> Início da inclusão: FORM CONTAB_DP_ME
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 = v_bcocred
TABLES
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-konts.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'NEWKO'
text-015.
* >> Início da inclusão: FORM CONTAB_DP_ME
else.
itab_zycbe033-d_newko = /pws/zycbe001-conta_contab.
endif.
* << Fim da inclusão
v_bcocred = itab_zycbt226-bco_me.
SHIFT v_bcocred LEFT DELETING LEADING '0'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = v_bcocred
codaux2 = /pws/zycbe001-waers
TABLES
account = itab_zyglt316
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
IF v_lanc NE 'S'.
MOVE wa_zycbt001 TO /pws/zycbe001.
EXIT.
ENDIF.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT002'.
itab_zycbe033-cpochv = wa_zycbt001-nrseqc.
v_volta_part_banco = 'X'.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
v_volta_part_conta = 'X'.
* << Fim da inclusão
PERFORM get_parameters_001.
CLEAR v_volta_part_banco.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
clear v_volta_part_conta.
* << Fim da inclusão
PERFORM verify_null_field USING wa_zycbt001-bukrs
'BUKRS'
text-018.
itab_zycbe033-bukrs = wa_zycbt001-bukrs.
CASE wa_zycbt001-fdtlanc.
...
...
cpochv = /pws/zycbe001-nrseqc
tpmsg = 'S'.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-352.
ENDIF.
ELSE.
MESSAGE i015 WITH text-352.
ENDIF.
ENDIF.
endform.
* >> Início da inclusão:
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.
IF sy-subrc = 0.
ELSE.
ENDIF.
READ TABLE itab_zyglt316 INDEX 1 INTO wa_zyglt316.
IF sy-subrc = 0.
CASE p_tipo.
WHEN c_debito.
MOVE wa_zyglt316-konts TO p_conta.
WHEN c_credito.
MOVE wa_zyglt316-konth TO p_conta.
ENDCASE.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
IF sy-subrc NE 0.
MESSAGE w061 WITH text-014 text-224 text-225.
CLEAR /pws/zycbe001-bconegoc.
EXIT.
ENDIF.
ENDMODULE.
MODULE empresa_banco_cred INPUT.
IF ( /pws/zycbe001-tpcontr(1) NE 'T' ) OR
( /pws/zycbe001-tpcontr(1) EQ 'T' AND NOT /pws/zycbe001-bcocred IS
INITIAL ).
* >> Início da inclusão: MODULE EMPRESA_BANCO_CRED
v_banco = /pws/zycbe001-bcocred.
* << Fim da inclusão
SELECT SINGLE *
FROM lfb1
* >> Início da exclusão: MODULE EMPRESA_BANCO_CRED
WHERE lifnr EQ /pws/zycbe001-bcocred
* << Fim da exclusão
* >> Início da inclusão: MODULE EMPRESA_BANCO_CRED
WHERE lifnr EQ v_banco
* << Fim da inclusão
AND bukrs EQ /pws/zycbe001-bukrs.
IF sy-subrc NE 0.
MESSAGE w061 WITH text-016 text-224 text-225.
CLEAR /pws/zycbe001-bcocred.
* >> Início da inclusão: MODULE EMPRESA_BANCO_CRED
clear /pws/zycbe001-conta_contab.
* << Fim da inclusão
EXIT.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE EMPRESA_BANCO_CRED
if /pws/zycbe001-bcocred IS INITIAL .
clear : /pws/zycbe001-conta_contab.
else.
SHIFT /pws/zycbe001-bcocred LEFT DELETING LEADING '0'.
check /pws/zycbe001-conta_contab IS INITIAL OR
( NOT /pws/zycbe001-conta_contab IS INITIAL AND
/pws/zycbe001-bcocred NE v_bco_cab ).
check sy-tcode = c_transacao_c and
/PWS/ZYCBE001-BELNR is initial.
v_codaux1 = /pws/zycbe001-bcocred.
SHIFT v_codaux1 LEFT DELETING LEADING '0'.
PERFORM busca_conta_contabil
USING 'C'
/pws/zycbe001-bukrs
'FBK'
v_codaux1
v_codaux2
v_codaux3
CHANGING
/pws/zycbe001-conta_contab.
v_bco_cab = /pws/zycbe001-bcocred .
SELECT SINGLE lifnr name1
INTO (lfa1-lifnr, lfa1-name1)
FROM lfa1
WHERE lifnr EQ v_banco.
bcodescr = lfa1-name1.
endif.
* << Fim da inclusão
ENDMODULE.
MODULE empresa_banco_finan INPUT.
SELECT SINGLE *
FROM lfb1
WHERE lifnr EQ /pws/zycbe001-bcofinan
AND bukrs EQ /pws/zycbe001-bukrs.
IF sy-subrc NE 0.
MESSAGE w061 WITH text-013 text-224 text-225.
CLEAR /pws/zycbe001-bcofinan.
EXIT.
...
...
ENDCASE.
PERFORM exporta_banco_cliente.
ENDMODULE.
module consiste_tipodespesa input.
CHECK not /pws/zycbe004-tpdesp is initial.
IF /pws/zycbe004-tpdesp = 'J'.
MESSAGE e061 WITH text-067.
leave to screen 0.
ENDIF.
endmodule.
* >> Início da inclusão:
module ajuda_pesquisa input.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF record_tab OCCURS 0.
INCLUDE STRUCTURE seahlpres.
DATA: END OF record_tab.
DATA: l_display(1) TYPE c,
v_searchhelp TYPE shlpname,
tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
CLEAR: tdynpread, record_tab.
REFRESH: tdynpread, record_tab.
EXPORT record_tab TO MEMORY ID 'contrazao'.
SET PARAMETER ID 'BUK' FIELD /PWS/ZYCBE001-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'.
READ TABLE record_tab INDEX 1.
CHECK sy-subrc EQ 0 .
CLEAR v_bukrs.
IF record_tab(3) = sy-mandt.
v_bukrs = record_tab+68(4).
/PWS/ZYCBE001-BCOCRED = record_tab+3(10).
/PWS/ZYCBE001-CONTA_CONTAB = record_tab+58(10).
ELSE.
v_bukrs = record_tab+65(4).
/PWS/ZYCBE001-BCOCRED = record_tab+0(10).
/PWS/ZYCBE001-CONTA_CONTAB = record_tab+55(10).
ENDIF.
v_bco_cab = /PWS/ZYCBE001-BCOCRED.
tdynpread-fieldname = '/PWS/ZYCBE001-BCOCRED' .
IF /PWS/ZYCBE001-BCOCRED NE '00'.
tdynpread-fieldvalue = /PWS/ZYCBE001-BCOCRED .
APPEND tdynpread .
ENDIF.
tdynpread-fieldname = '/PWS/ZYCBE001-CONTA_CONTAB' .
IF /PWS/ZYCBE001-BCOCRED NE '00'.
tdynpread-fieldvalue = /PWS/ZYCBE001-CONTA_CONTAB .
APPEND tdynpread .
ENDIF.
IF /PWS/ZYCBE001-BCOCRED EQ '00'.
/PWS/ZYCBE001-BCOCRED = ' '.
ENDIF.
SELECT SINGLE lifnr name1
INTO (lfa1-lifnr, lfa1-name1)
FROM lfa1
WHERE lifnr EQ v_banco.
bcodescr = lfa1-name1.
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/MZYCB001O01
...
DATA: v_fvinc,
v_prazo TYPE c.
CLEAR: cont,
v_nrdiascontr.
IF sy-tcode EQ c_transacao_c.
PERFORM modifica_tela.
ENDIF.
CASE sy-dynnr.
WHEN '0101'.
IF NOT /pws/zycbe001-bcocred IS INITIAL.
* >> Início da inclusão: MODULE SET_SCREEN
IF /pws/zycbe001-TPCONTR NE 'TR'.
CLEAR: v_banco.
v_banco = /pws/zycbe001-bcocred.
* << Fim da inclusão
SELECT SINGLE lifnr name1
INTO (lfa1-lifnr, lfa1-name1)
FROM lfa1
* >> Início da exclusão: MODULE SET_SCREEN
WHERE lifnr EQ /pws/zycbe001-bcocred.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
WHERE lifnr EQ v_banco.
* << Fim da inclusão
bcodescr = lfa1-name1.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycbe001-bconegoc IS INITIAL.
SELECT SINGLE lifnr name1
INTO (lfa1-lifnr, lfa1-name1)
FROM lfa1
WHERE lifnr EQ /pws/zycbe001-bconegoc.
bconeg = lfa1-name1.
ENDIF.
IF NOT /pws/zycbe001-bcofinan IS INITIAL.
SELECT SINGLE lifnr name1
INTO (lfa1-lifnr, lfa1-name1)
...
...
v_descprzcontr = text-492.
ELSEIF /pws/zycbe001-przcontr = 'S'.
v_descprzcontr = text-493.
ELSEIF /pws/zycbe001-przcontr = 'L'.
v_descprzcontr = text-491.
ENDIF.
ENDIF.
ENDIF.
ELSE.
CLEAR:/pws/zycbe001-przcontr, v_descprzcontr.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
loop at screen.
IF /PWS/ZYCBE001-TPCONTR = 'TR'.
IF screen-name EQ '/PWS/ZYCBE001-CONTA_CONTAB'.
SCREEN-INVISIBLE = '1'.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
endloop.
* << Fim da inclusão
WHEN '0102'.
tc_perj-lines = tc_perj-top_line + 15.
IF v_status_s = '0'.
LOOP AT tc_perj-cols INTO wa_cols.
wa_cols-screen-input = '0'.
IF wa_cols-screen-name EQ '/PWS/ZYCBE002-BELNR'.
...
...
/pws/zycbe001-tpcontr(1) NE 'A'.
CLEAR /pws/zycbe001-dtinijur.
screen-input = '0'.
ENDIF.
WHEN '/PWS/ZYCBE001-TPCONTR'.
screen-input = '0'.
WHEN OTHERS.
IF screen-name NE '/PWS/ZYCBE001-F_ENCERRADO' AND
screen-name NE '/PWS/ZYCBE001-GSBER'
AND sy-dynnr NE '0116'.
* >> Início da inclusão: MODULE SET_SCREEN
IF /pws/zycbe001-tpcontr NE 'TR'.
IF screen-name EQ '/PWS/ZYCBE001-CONTA_CONTAB'.
screen-input = '0'.
ELSE.
* << Fim da inclusão
screen-input = '1'.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
ELSE.
IF screen-name EQ '/PWS/ZYCBE001-CONTA_CONTAB'.
SCREEN-INVISIBLE = '1'.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
v_bco_aux TYPE /pws/zycbe226-bco_me,
v_ver_227 TYPE i,
v_div TYPE c,
v_vinc(1) TYPE c,
v_volta_part_banco(1) TYPE c,
v_dtpagto TYPE d,
v_nome_func TYPE tfdir-funcname VALUE 'FI_PERIOD_REFRESH',
v_descprzcontr(21) TYPE c,
v_cpocb(30) TYPE c,
v_nrdiasatual TYPE i.
* >> Início da inclusão:
DATA: v_bukrs LIKE /pws/zycbt001-bukrs,
v_bco_cab type /pws/zycbe134-bcocred,
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2,
v_banco(10) type n,
v_conta(10) type c,
v_volta_part_conta(1) TYPE c,
v_codaux3 TYPE /pws/zygle316-codaux3.
constants: c_debito TYPE c VALUE 'D',
c_credito TYPE c VALUE 'C'.
* << Fim da inclusão
DATA: v_year LIKE bkpf-gjahr,
v_repid LIKE sy-repid,
v_codmod TYPE c VALUE 'E',
v_exit LIKE /pws/zyglt100-zexit VALUE 'CPT002'.
DATA: v_capital,
v_primeiro,
v_bco_cred TYPE /pws/zycbe001-bcocred,
v_bconegoc TYPE /pws/zycbe001-bconegoc,
v_bcofinan TYPE /pws/zycbe001-bcofinan.
DATA: v_vinculacao(21) TYPE c.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE001
MODIFICAR ESTRUTURA: /PWS/ZYCBE001
DESCRIÇÃO BREVE: CB - Captação de Contrato
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/ZYCBT001
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT001
DESCRIÇÃO BREVE: CB - Captação de Contrato
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
CONTA_CONTAB SAKNR CHAR 10 0 Nº conta do Razão