CE PLUS - Nota 007318
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 16/09/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:47:47
Descrição da Nota: AJUSTE SELEÇÃO DE CONTAS PARA BANCO FORNECEDOR
Sintoma
Ajustada seleção de contas do Banco Fornecedor para passar D como critério de seleção para o campo
CADA da para a função /E nos programas de importação que realizam a seleção de conta para o Banco
Fornecedor.
Solução
Atualização do programa de prestação de contas para que o sistema leia a regra do módulo de
importação para buscar a conta a ser lançada a devolução ao despachante na tabela de contas
contábeis (ZYGLT012).
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07318 Data: 16/09/2008 Hora: 10:04:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07318
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE SELEÇÃO DE CONTAS PARA BANCO FORNECEDOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARAMETRO - CONTAS - BANCO - FORNECEDOR - ADIANTAMENTO - PRESTAÇÃO -
FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI006F01
REPS /PWS/MZYCI007F01
REPS /PWS/MZYCI007F02
REPS /PWS/MZYCI013F01
REPS /PWS/MZYCI072F01
REPS /PWS/MZYCI075F01
REPS /PWS/MZYCI075F02
REPS /PWS/MZYCI075I01
REPS /PWS/MZYCI076F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
output = v_forn.
ENDIF.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie006-bukrs
itab_zycbt035-ktosl
space
space
v_forn
* >> Início da exclusão: FORM GET_PARAMETERS_F-43_F-02
space
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
ELSE.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie006-bukrs
itab_zycbt035-ktosl
itab_zycbt035-werks
itab_zycbt035-bklas
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI006F01
...
* >> Início da exclusão: FORM DELETA_ITEM
FORM deleta_item. "#EC CALLED
* << Fim da exclusão
* >> Início da inclusão: FORM DELETA_ITEM
FORM deleta_item. "#EC CALLED
* << Fim da inclusão
...
...
IF NOT /pws/zycie008a-nrseq IS INITIAL.
SELECT * FROM /pws/zycit125 INTO TABLE itab_zycit125
* >> Início da exclusão: FORM SELECT_OPTION
WHERE lifnr EQ /pws/zycie001-despach "#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_OPTION
WHERE lifnr EQ /pws/zycie001-despach "#EC PORTABLE
* << Fim da inclusão
AND nrseq BETWEEN /pws/zycie008-nrseq and /pws/zycie008a-nrseq.
ELSE.
IF NOT /pws/zycie001-despach IS INITIAL.
SELECT * FROM /pws/zycit125 "#EC CI_NOFIRST
INTO TABLE itab_zycit125
WHERE lifnr = /pws/zycie001-despach.
ELSE.
SELECT * FROM /pws/zycit125 INTO TABLE itab_zycit125
WHERE nrseq = /pws/zycie008-nrseq.
ENDIF.
...
...
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO
FORM preenche_conta_credito. "#EC CALLED
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO
FORM preenche_conta_credito. "#EC CALLED
* << Fim da inclusão
LOOP AT it_zycit016_aux .
IF NOT it_zycit016_aux-vldp IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = it_zycit016_aux-banco
IMPORTING
output = v_banco.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie008-bukrs
'FBK'
space
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
it_conta_aux-credito = itab_cta-konth.
it_conta_aux-banco = it_zycit016_aux-banco.
COLLECT it_conta_aux.
ENDIF.
ENDLOOP.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F01
...
output = v_forn.
IF ( /pws/zycit125-tipo EQ 'ADU' )
AND /pws/zycie026-vlmi EQ 0.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
space
space
v_forn
* >> Início da exclusão: FORM TRANSACAO_F43
space
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSACAO_F43
'D'
* << Fim da inclusão
space.
ELSEIF t001-land1 NE 'AR' AND t001-land1 NE 'CL'.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
'FCR'
/pws/zycie026-werks
space
v_forn
space
...
...
IF /pws/zycit125-tipo NE 'ADU'
AND /pws/zycie026-vlmi EQ 0 AND
( t001-land1 EQ 'AR' ).
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
space
space
v_forn
* >> Início da exclusão: FORM TRANSACAO_F43
space
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSACAO_F43
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
v_irar = 'X'.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F02
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
space
space
v_banco
* >> Início da exclusão: FORM TRANSACAO_F51DES
space
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSACAO_F51DES
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '50'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
ENDIF.
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
/pws/zycie026-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_NAO_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_NAO_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
/pws/zycie026-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_NAO_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_NAO_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
ELSE.
MESSAGE i039 WITH text-099.
ENDIF.
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
/pws/zycie026-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
...
...
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
/pws/zycie026-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '50'.
ELSE.
MESSAGE i039 WITH text-099.
ENDIF.
ENDIF.
...
...
TABLES itab_cta
USING /pws/zycie026-bukrs
'FBK'
/pws/zycie026-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_BR
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_BR
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
ELSE.
MESSAGE i039 WITH text-099.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013F01
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie008-bukrs
'FBK'
/pws/zycie008-werks
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
it_conta_aux-credito = itab_cta-konth.
it_conta_aux-banco = it_zycit016_aux-banco.
v_atrib = it_zycbt012-zuonr.
COLLECT it_conta_aux.
ENDLOOP.
...
...
IMPORTING
output = v_banco.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie008-bukrs
'FBK'
/pws/zycie008-werks
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO_IMP
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO_IMP
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF NOT itab_cta-konth IS INITIAL.
it_conta_imp-credito = itab_cta-konth.
it_conta_imp-tpdesp = it_contabil-tpdesp.
it_conta_imp-matuse = it_contabil-matuse.
it_conta_imp-bklas = it_contabil-bklas .
APPEND it_conta_imp.
ENDIF.
...
...
ENDIF.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie008-bukrs
'FBK'
/pws/zycie008-werks
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO_IMP
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO_IMP
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF NOT itab_cta-konth IS INITIAL.
it_conta_imp-credito = itab_cta-konth.
it_conta_imp-tpdesp = it_contabil-tpdesp.
it_conta_imp-matuse = it_contabil-matuse.
it_conta_imp-bklas = it_contabil-bklas .
APPEND it_conta_imp.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI072F01
...
IMPORTING
output = v_banco.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie465-bukrs
'FBK'
space
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
it_conta_aux-credito = itab_cta-konth.
it_conta_aux-banco = it_zycit466_aux-banco.
COLLECT it_conta_aux.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075F01
...
output = v_forn.
IF ( /pws/zycit460-tipo EQ 'ADU' )
AND /pws/zycie459-vlmi EQ 0.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
space
space
v_forn
* >> Início da exclusão: FORM TRANSACAO_F43
space
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSACAO_F43
'D'
* << Fim da inclusão
space.
ELSEIF t001-land1 NE 'AR' AND t001-land1 NE 'CL'.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FCR'
/pws/zycie459-werks
space
v_forn
space
...
...
IF /pws/zycit460-tipo NE 'ADU'
AND /pws/zycie459-vlmi EQ 0 AND
( t001-land1 EQ 'AR' ).
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
space
space
v_forn
* >> Início da exclusão: FORM TRANSACAO_F43
space
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSACAO_F43
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
v_irar = 'X'.
ENDIF.
ENDIF.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
v_ctarazao = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075F02
...
input = /pws/zycie459-despach
IMPORTING
output = v_banco.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
space
space
v_banco
* >> Início da exclusão: FORM TRANSACAO_F51DES
space
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSACAO_F51DES
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '50'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
ENDIF.
it_zycbe033-wrbtr = abs( /pws/zycie459-totdep ).
PERFORM verify_null_field USING it_zycbe033-d_newko 'D_NEWKO'
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
/pws/zycie459-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_NAO_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_NAO_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
ELSE.
it_zycbe033-d_newko = /pws/zycie459-despach.
it_zycbe033-newbs = '34'.
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
/pws/zycie459-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_NAO_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_NAO_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
ELSE.
MESSAGE i039 WITH text-099.
ENDIF.
...
...
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
/pws/zycie459-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
ELSE.
MESSAGE i039 WITH text-001.
ENDIF.
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
/pws/zycie459-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_ADU
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_ADU
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '50'.
ELSE.
MESSAGE i039 WITH text-099.
ENDIF.
ENDIF.
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
/pws/zycie459-werks
space
v_banco
* >> Início da exclusão: FORM CONTA_BR
space
* << Fim da exclusão
* >> Início da inclusão: FORM CONTA_BR
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc = '0' AND NOT itab_cta-konts IS INITIAL.
it_zycbe033-d_newko = itab_cta-konts.
it_zycbe033-newbs = '40'.
v_atrib = it_zycbt012-zuonr.
v_ctarazao = 'X'.
ELSE.
MESSAGE i039 WITH text-099.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075I01
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie459-bukrs
'FBK'
space
space
v_forn
* >> Início da exclusão: MODULE CONSISTE_REFERENCIA
space
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_REFERENCIA
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-069.
v_refer = 'X'.
ENDIF.
ENDIF.
ELSE.
MESSAGE e015 WITH text-070.
v_refer = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI076F01
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie465-bukrs
'FBK'
/pws/zycie465-werks
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
it_conta_aux-credito = itab_cta-konth.
it_conta_aux-banco = it_zycit466_aux-banco.
v_atrib = it_zycbt012-zuonr.
COLLECT it_conta_aux.
ENDLOOP.
ENDFORM.
...
...
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie465-bukrs
'FBK'
/pws/zycie465-werks
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO_IMP
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO_IMP
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF NOT itab_cta-konth IS INITIAL.
it_conta_imp-credito = itab_cta-konth.
it_conta_imp-tpdesp = it_contabil-tpdesp.
it_conta_imp-matuse = it_contabil-matuse.
it_conta_imp-bklas = it_contabil-bklas .
APPEND it_conta_imp.
ENDIF.
...
...
ENDIF.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie465-bukrs
'FBK'
/pws/zycie465-werks
space
v_banco
* >> Início da exclusão: FORM PREENCHE_CONTA_CREDITO_IMP
space
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTA_CREDITO_IMP
'D'
* << Fim da inclusão
space.
READ TABLE itab_cta INDEX 1.
IF NOT itab_cta-konth IS INITIAL.
it_conta_imp-credito = itab_cta-konth.
it_conta_imp-tpdesp = it_contabil-tpdesp.
it_conta_imp-matuse = it_contabil-matuse.
it_conta_imp-bklas = it_contabil-bklas .
APPEND it_conta_imp.
ENDIF.
ENDIF.
...