CE PLUS - Nota 002943
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 23/01/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:32:03
Descrição da Nota: A PRESTAÇÃO DE CONTAS SOMENTE CARREGA VALOR PARA A PARTIDA DE FORNECEDOR
Sintoma
Prestação de contas - O batch input não está carregando o valor da prestação para a partida de IA,
somente carrega para a partida do fornecedor.
Erro acontece porque no CE está parametrizado para reter imposto e no SAP está parametrizado para
não reter imposto.
Solução
quando no SAP não estiver flegado para reter imposto e no CE estiver para reter,
vai fazer a prestação normalmente porém a contabilização vai ficar sem a retenção.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02943 Data: 23/01/2007 Hora: 10:19:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02943
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00149
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02741 - 00001 - 6.0 - 00026 - PRESTAÇÃO ESTA RETENDO IMPOSTO INCORRETAMENTE
----------------------------------------------------------------------------------------------------
A PRESTAÇÃO DE CONTAS SOMENTE CARREGA VALOR PARA A PARTIDA DE FORNECEDOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
PRESTAÇÃO DE CONTAS - PARTIDA DE IA - PARTIDA DE FORNECEDOR
RETENÇÃO DE IMPOSTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_F_43B
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_43B
...
t_campo-descricao = text-020.
APPEND t_campo.
RAISE campo_em_branco.
ENDIF.
IF v_wrbtr1 IS INITIAL.
PERFORM bdc_field USING:
'RF05A-NEWBS' t_debito-chave,
'RF05A-NEWKO' t_debito-d_newko.
IF v_land1 EQ 'BR'.
IF v_irrf EQ 'S'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
TABLES t004f.
SELECT SINGLE *
FROM skb1
WHERE bukrs EQ t_dados-bukrs
AND saknr EQ v_conta.
SELECT SINGLE *
FROM t004f
WHERE fstag EQ skb1-fstag.
IF t004f-faus1+27(01) EQ '.' OR
t004f-faus1+28(01) EQ '.'.
* << Fim da inclusão
PERFORM bdc_field USING 'BDC_OKCODE' 'QS'.
PERFORM bdc_field USING 'BDC_OKCODE' 'ENTE'.
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
...
...
.
PERFORM bdc_field USING:
'BDC_OKCODE' '=GO'.
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'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
IF t004f-faus1+27(01) EQ '.' OR
t004f-faus1+28(01) EQ '.'.
* << Fim da inclusão
IF sy-subrc = 0.
PERFORM bdc_screen USING 'SAPLFWTD' '0100'.
SORT t_lfbw BY witht.
LOOP AT t_lfbw.
CLEAR v_campo.
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'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM bdc_screen USING 'SAPMF05A' '0332'.
IF NOT t_dados-bvtyp IS INITIAL.
PERFORM bdc_field USING:
'BSEG-BVTYP' t_dados-bvtyp.
ENDIF.
IF NOT t_dados-ebene IS INITIAL.
PERFORM bdc_field USING:
'BSEG-FDLEV' t_dados-ebene,
'BDC_OKCODE' '/00'.
...
...
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.
* << Fim da inclusão
ENDIF.
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,
...