CE PLUS - Nota 005156
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 07/11/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:32:44
Descrição da Nota: NO BI DA PRESTAÇÃO DE CONTAS NÃO ENVIA BANCO PARCEIRO.
Sintoma
Ao executar a liberação de prestação de contas é informado o banco parceiro (tipo bnc parc.), o
sistema não leva este banco parceiro no campo que tem no batch input.
Solução
Programa ajustado para enviar o banco parceiro quando o mesmo for de preencimento obrigatório ou
facultativo.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05156 Data: 07/11/2007 Hora: 09:44:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05156
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00020
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02943 - 00001 - 6.0 - 00026 - A PRESTAÇÃO DE CONTAS SOMENTE CARREGA VALOR PARA A PARTIDA DE FOR
----------------------------------------------------------------------------------------------------
NO BI DA PRESTAÇÃO DE CONTAS NÃO ENVIA BANCO PARCEIRO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PRESTAÇÃO DE CONTAS - BATCH INPUT - BANCO PARCEIRO
PREENCHIMENTO OBRIGATÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_F_43B
REPS /PWS/LZYCIGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_43B
...
SELECT SINGLE *
FROM skb1
WHERE bukrs EQ t_dados-bukrs
AND saknr EQ v_conta.
SELECT SINGLE *
FROM t004f
WHERE fstag EQ skb1-fstag and
bukrs EQ v_fstva.
IF t004f-faus1+27(01) EQ '.' OR
t004f-faus1+28(01) EQ '.'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
PERFORM bdc_field USING 'BDC_OKCODE' 'QS'.
PERFORM bdc_field USING 'BDC_OKCODE' 'ENTE'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
PERFORM bdc_field USING 'BDC_OKCODE' 'ZK'.
* << Fim da inclusão
PERFORM bdc_screen USING 'SAPLFWTD' '0100'.
SELECT witht wt_subjct wt_withcd FROM lfbw
INTO TABLE t_lfbw
WHERE
lifnr = t_dados-c_newko
AND bukrs = t_dados-bukrs
AND wt_subjct EQ 'X'.
SELECT * FROM /pws/zycit353 INTO TABLE t_zycit353
FOR ALL ENTRIES IN t_imposto
WHERE witht EQ t_imposto-cod_impo
...
...
ENDIF.
ENDIF.
ENDLOOP.
.
.
.
.
.
PERFORM bdc_field USING:
'BDC_OKCODE' '=GO'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
PERFORM bdc_screen USING 'SAPMF05A' '0332'.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BVTYP' chave = 'C'.
IF sy-subrc <> 0.
IF NOT t_dados-bvtyp IS INITIAL.
PERFORM bdc_field USING:
'BSEG-BVTYP' t_dados-bvtyp.
ENDIF.
ENDIF.
IF NOT t_dados-ebene IS INITIAL.
PERFORM bdc_field USING:
'BSEG-FDLEV' t_dados-ebene.
ENDIF.
PERFORM bdc_field USING:
'BDC_OKCODE' '/00'.
* << Fim da inclusão
ELSE.
PERFORM bdc_field USING 'BDC_OKCODE' 'ZK'.
SELECT witht wt_subjct wt_withcd FROM lfbw
INTO TABLE t_lfbw
WHERE lifnr = t_dados-c_newko
AND bukrs = t_dados-bukrs
AND wt_subjct EQ 'X'.
IF t004f-faus1+27(01) EQ '.' OR
t004f-faus1+28(01) EQ '.'.
IF sy-subrc = 0.
...
...
v_ind_cs = sy-tabix.
CONCATENATE 'WITH_ITEM-WT_WITHCD(' v_ind_cs ')'
INTO v_campo.
PERFORM bdc_field USING v_campo ' '.
ENDLOOP.
PERFORM bdc_field USING 'BDC_OKCODE' '=GO'.
ENDIF.
ENDIF.
PERFORM bdc_screen USING 'SAPMF05A' '0332'.
IF NOT t_dados-bvtyp IS INITIAL.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BVTYP' chave = 'C'.
IF sy-subrc <> 0.
* << Fim da inclusão
PERFORM bdc_field USING:
'BSEG-BVTYP' t_dados-bvtyp.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT t_dados-ebene IS INITIAL.
PERFORM bdc_field USING:
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
'BSEG-FDLEV' t_dados-ebene,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
'BSEG-FDLEV' t_dados-ebene.
ENDIF.
PERFORM bdc_field USING:
* << Fim da inclusão
'BDC_OKCODE' '/00'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
ENDIF.
* << Fim da exclusão
ENDIF.
ELSEIF v_land1 EQ 'AR' OR v_land1 EQ 'CL'.
IF v_irrf EQ 'S'.
PERFORM bdc_field USING 'BDC_OKCODE' 'QS'.
PERFORM bdc_screen USING 'SAPLFWTD' '0100'.
SORT t_irrf BY witht.
...
...
PERFORM bdc_field USING v_campo t_irrf-wt_withcd.
ENDIF.
ENDLOOP.
ELSE.
PERFORM bdc_field USING:
'BDC_OKCODE' '/00'.
IF v_lifnr IS INITIAL.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING:
'BDC_OKCODE' '/00'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
ENDIF.
ENDIF.
ELSE.
PERFORM bdc_field USING 'BDC_OKCODE' 'ZK'.
PERFORM bdc_screen USING 'SAPMF05A' '0332'.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BVTYP' chave = 'C'.
IF sy-subrc <> 0.
IF NOT t_dados-bvtyp IS INITIAL.
PERFORM bdc_field USING:
'BSEG-BVTYP' t_dados-bvtyp.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
ENDIF.
IF NOT t_dados-ebene IS INITIAL.
PERFORM bdc_field USING:
'BSEG-FDLEV' t_dados-ebene.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
PERFORM bdc_field USING:
'BDC_OKCODE' '/00'.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
WRITE: t_debito-wrbtr TO v_wrbtr1 CURRENCY t_dados-waers,
t_debito-c_valut TO v_data_conver_char.
PERFORM bdc_screen USING 'SAPMF05A' '0300'.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr1,
'BSEG-ZUONR' t_debito-c_zuonr,
'BSEG-SGTXT' t_debito-c_sgtxt.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2F01
...
DELETE p_t_campo INDEX sy-tabix.
CLEAR p_t_campo.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+18(1) = '-'.
p_itab_oculto-campo = 'COBL-NPLNR'.
p_itab_oculto-chave = 'C'.
APPEND p_itab_oculto.
ENDIF.
* >> Início da inclusão: FORM TRATA_STRING_CREDITO
IF v_string+37(1) = '+'.
IF p_t_dados-c_valut = space.
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'BSEG-BVTYP'.
IF sy-subrc <> 0.
p_t_campo-mandt = p_t_dados-mandt.
p_t_campo-campo = 'BSEG-BVTYP'.
p_t_campo-descricao = text-019.
APPEND p_t_campo.
RAISE campo_em_branco.
ELSE.
IF ( p_t_campo-conteudo = space ).
RAISE campo_em_branco.
ELSE.
MOVE p_t_campo-conteudo TO p_t_dados-c_valut.
MODIFY p_t_dados TRANSPORTING c_valut.
DELETE p_t_campo INDEX sy-tabix.
CLEAR p_t_campo.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+37(1) = '-'.
p_itab_oculto-campo = 'BSEG-BVTYP'.
p_itab_oculto-chave = 'C'.
APPEND p_itab_oculto.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM trata_string_debito TABLES p_t_dados STRUCTURE /pws/zycbe033
p_t_campo STRUCTURE /pws/zycbt034
p_itab_oculto LIKE itab_oculto[]
USING value(p_string).
DATA:
v_string(50) TYPE c.
MOVE p_string TO v_string.
IF v_string+5(1) = '+'.
IF p_t_dados-d_valut = space.
...