Sintoma

Configurar as tabelas de despesa do módulo de importação para não retenção do ICMS ST, quando esta

estiver ativada no cadastro do fornecedor". Prestação de Contas não aparecia após solicitação.

Solução

Ajustar verificação de parâmetros de impostos.

Informações Complementares

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

Nota Número 02569 Data: 01/12/2006 Hora: 15:08:49

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

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

Nota Número              : 02569

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00142

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

Referência às notas relacionadas:

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

02502  - 00001 - 6.0    - 00025  - AO CRIAR 2 ADIANTAMENTOS PARA UMA PRESTAÇÃO, É CRIADA PRESTAÇÃO A

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

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

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

Palavras Chave:

PRESTAÇÃO DE CONTAS - ICMS ST - CADASTRO DE FORNECEDOR

RETENÇÃO E IMPOSTOS

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_F_43B

REPS /PWS/LZYCIGF2TOP

REPS /PWS/MZYCI007F01

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_43B

...

                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.

            ENDIF.

            SORT t_lfbw BY witht.

            SORT t_imposto BY cod_impo.

* >> Início da inclusã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 inclusã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.

              ENDIF.

            ENDLOOP.

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

            ENDIF.

* << Fim da inclusão

            .

            .

            .

            .

            .

            PERFORM bdc_field  USING:

           'BDC_OKCODE'              '=GO'.

          ELSE.

            PERFORM bdc_field  USING 'BDC_OKCODE'   'ZK'.

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

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

            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.

              PERFORM bdc_screen USING 'SAPLFWTD' '0100'.

              PERFORM bdc_field  USING 'WITH_ITEM-WT_WITHCD(01)'

                                       /pws/zyglt378-witht.

              PERFORM bdc_field  USING 'BDC_OKCODE'   '=GO'.

            ELSE.

              PERFORM bdc_screen USING 'SAPLFWTD' '0100'.

              PERFORM bdc_field  USING 'WITH_ITEM-WT_WITHCD(01)'   ' '.

              PERFORM bdc_field  USING 'BDC_OKCODE'   '=GO'.

            ENDIF.

* << Fim da inclusão

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

            ENDIF.

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF2TOP

...

        /pws/zycit019,

        /pws/zycit031,

        /pws/zycit085,

        /pws/zycie085,

        /pws/zycit093,

        /pws/zycit100,

        tcurx        ,

        /pws/zycit000,

        j_1bal       ,

        t001,

* >> Início da inclusão:

        /pws/zyglt378,

* << Fim da inclusão

        usr01.

DATA: v_peri_cont(10)  TYPE c.

TYPES: BEGIN OF msg_struc,

        tcode LIKE bdcmsgcoll-tcode,

        dyname LIKE bdcmsgcoll-dyname,

        dynumb LIKE bdcmsgcoll-dynumb,

        msgtyp LIKE bdcmsgcoll-msgtyp,

        msgspra LIKE bdcmsgcoll-msgspra,

        msgid LIKE bdcmsgcoll-msgid,

        msgnr LIKE bdcmsgcoll-msgnr,

...

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

Modificações efetuadas em REPS /PWS/MZYCI007F01

...

                        frgsx3   =  /pws/zycie026-frgsx3

                        frgsx4   =  /pws/zycie026-frgsx4

                        frgsx5   =  /pws/zycie026-frgsx5

                        waersmu  =  /pws/zycie026-waersmu

                        taxamu   =  /pws/zycie026-taxamu

                        totdepme =  /pws/zycie026-totdepme

                        vldfme   =  /pws/zycie026-vldfme

                        vlmime   =  /pws/zycie026-vlmime

                        reterir  =  /pws/zycie026-reterir

                        forndes  =  /pws/zycie026-forndes

* >> Início da exclusão: FORM SALVA_DADOS

                        nrpres   =  v_value

* << Fim da exclusão

         WHERE nrseq = itab_zycit026-nrseq

* >> Início da exclusão: FORM SALVA_DADOS

          AND nradto = itab_zycit026-nradto.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_DADOS

          AND nradto = itab_zycit026-nradto

          AND nrpres = v_value.

* << Fim da inclusão

   IF sy-tcode <> '/PWS/ZYCI007_A' OR ( /pws/zycie026-docomp IS INITIAL

                                                                    AND

                                      /pws/zycie026-docfat IS INITIAL ).

      UPDATE /pws/zycit026 SET status   = 'I'

             WHERE nrseq = itab_zycit026-nrseq

* >> Início da exclusão: FORM SALVA_DADOS

             AND nradto = itab_zycit026-nradto.

* << Fim da exclusão

* >> Início da inclusão: FORM SALVA_DADOS

             AND nradto = itab_zycit026-nradto

             AND nrpres = v_value.

* << Fim da inclusão

      IF sy-subrc = 0.

        v_save = 'X'.

      ENDIF.

    ENDIF.

    IF sy-subrc NE 0.

      MOVE: itab_zycit026-nradto TO /pws/zycie026-nradto.

      MODIFY /pws/zycit026 FROM /pws/zycie026.

      COMMIT WORK.

      IF sy-subrc = 0.

        v_save = 'X'.

...