Visualização da Nota 2741

CE PLUS - Nota 002741

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Prestação de Contas

Data/Hora da Publicação: 21/12/2006 00:00:00

Data/Hora Última Alteração: 23/02/2011 09:31:05

Descrição da Nota: PRESTAÇÃO ESTA RETENDO IMPOSTO INCORRETAMENTE

Sintoma

Verificado que o fornecedor está efetuando a retenção dos impostos referentes a qualquer

despesa, não está respeitando os parametros de retenção de impostos de acordo com as despesas,

tabela ZYGLT378.

Solução

Atualizado a função para ver a tabela GLT378 e a LFBW que é a tabela do fornecedor

Versões Tratadas

6.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 662

AJUSTE REFERENTE A VERIFICAÇÃO DO PERÍODO CONTÁBIL.

Nota 2655

ERRO NA APROVAÇÃO DA PRESTAÇÃO DE CONTAS

Nota 2041

ANO FISCAL NÃO PERMITIDO

Nota 2569

NA PRESTAÇÃO NÃO RETER ICMS ST QUANDO ESTIVER NO CADASTRO DO FORNECEDOR

Nota 520

ERRO NA PRESTAÇÃO DE CONTAS, CAMPO BSEG-GSBER NÃO EXISTE NA TELA.

Nota 628

FUNÇÃO F-43 E F-51, CAMPO GSBER PASSADO INCORRETAMENTE

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 02741 Data: 21/12/2006 Hora: 11:57:24

----------------------------------------------------------------------------------------------------

Nota Número : 02741

Categoria : Erro de Programa

Prioridade : Média

Versão PW.CE : 6.0

Pacote : 00026

Agrupamento : 00145

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

00520 - 00001 - 6.0 - 00022 - ERRO NA PRESTAÇÃO DE CONTAS, CAMPO BSEG-GSBER NÃO EXISTE NA TELA.

00628 - 00002 - 6.0 - 00022 - FUNÇÃO F-43 E F-51, CAMPO GSBER PASSADO INCORRETAMENTE

00662 - 00003 - 6.0 - 00022 - AJUSTE REFERENTE A VERIFICAÇÃO DO PERÍODO CONTÁBIL.

02041 - 00004 - 6.0 - 00024 - ANO FISCAL NÃO PERMITIDO

02569 - 00005 - 6.0 - 00025 - NA PRESTAÇÃO NÃO RETER ICMS ST QUANDO ESTIVER NO CADASTRO DO FORN

02655 - 00006 - 6.0 - 00025 - ERRO NA APROVAÇÃO DA PRESTAÇÃO DE CONTAS

----------------------------------------------------------------------------------------------------

PRESTAÇÃO ESTA RETENDO IMPOSTO INCORRETAMENTE

----------------------------------------------------------------------------------------------------

Palavras Chave:

PC - IMPOSTO - GLT378 - XK03 - DIVERGENTES

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_F_43B

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_43B

...

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'.

PERFORM bdc_field USING 'BDC_OKCODE' 'QS'.

PERFORM bdc_field USING 'BDC_OKCODE' 'ENTE'.

PERFORM bdc_screen USING 'SAPLFWTD' '0100'.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B

IF sy-subrc = 0.

* << Fim da exclusão

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

AND werks EQ t_dados-werks.

LOOP AT t_zycit353.

READ TABLE t_lfbw WITH KEY witht = t_zycit353-witht

wt_subjct = 'X'.

IF sy-subrc NE 0.

DELETE t_zycit353.

ENDIF.

ENDLOOP.

SORT t_zycit353 BY witht.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B

ENDIF.

* << Fim da exclusão

SORT t_lfbw BY witht.

SORT t_imposto BY cod_impo.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B

READ TABLE t_lfbw INDEX 1.

SELECT SINGLE * FROM /pws/zyglt378

WHERE bukrs EQ t_dados-bukrs

AND codmod EQ 'D'

AND witht EQ t_lfbw-wt_withcd.

IF sy-subrc = 0.

* << Fim da exclusão

LOOP AT t_imposto.

v_ind_in = sy-tabix.

READ TABLE t_lfbw WITH KEY witht = t_imposto-cod_impo.

IF sy-subrc = 0 AND NOT t_lfbw-wt_withcd IS INITIAL.

v_ind_ir = sy-tabix.

v_flag_ir = 'X'.

WRITE: t_imposto-vl_base TO v_wrbtr_irrf

CURRENCY t_dados-waers.

CONCATENATE 'WITH_DIALG-WT_BASE(' v_ind_ir ')'

INTO v_campo.

...

PERFORM bdc_field

USING v_campo t_zycit353-wt_withcd.

ENDIF.

ELSE.

CONCATENATE 'WITH_ITEM-WT_WITHCD(' v_ind_in ')'

INTO v_campo.

PERFORM bdc_field USING v_campo ' '.

ENDIF.

ENDLOOP.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B

ENDIF.

* << Fim da exclusão

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 exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B

READ TABLE t_lfbw INDEX 1.

SELECT SINGLE * FROM /pws/zyglt378

WHERE bukrs EQ t_dados-bukrs

AND codmod EQ 'D'

AND witht EQ t_lfbw-wt_withcd.

* << Fim da exclusão

IF sy-subrc = 0.

PERFORM bdc_screen USING 'SAPLFWTD' '0100'.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B

PERFORM bdc_field USING 'WITH_ITEM-WT_WITHCD(01)'

/pws/zyglt378-witht.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B

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.

* << Fim da inclusão

PERFORM bdc_field USING 'BDC_OKCODE' '=GO'.

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,

...