Sintoma

O programa não está contabilizando os impostos em moedas que não possuem casas decimais.

Solução

Adicionada tratativa para casas decimais na tela dos impostos.

Informações Complementares

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

Nota Número 05137 Data: 05/11/2007 Hora: 09:05:04

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

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

Nota Número              : 05137

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00019

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

Referência às notas relacionadas:

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

05035  - 00001 - 7.0    - 00003  - DUMP AO CRIAR FATURA DE DESPESAS COM CONTABILIZAÇÃO DE IMPOSTOS

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

ERRO NA CONTABILIZAÇÃO DOS IMPOSTOS NA MIRO

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

Palavras Chave:

MIRO FATURA IMPOSTOS  CASAS DECIMAIS

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

Objetos da nota:

DYNP /PWS/SAPMZYCI003                        0113

RELE F6DK954132 20071105 074440 PWSCI

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003I01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI003                        0113

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

          INCLUDE STRUCTURE komk.

  DATA: ebeln LIKE ekko-ebeln.

  DATA: END OF itab_komk_aux.

  DATA: BEGIN OF itab_fat OCCURS 0.

  DATA: nrseq TYPE /pws/zycie006-nrseq.

  DATA: END OF itab_fat.

  DATA: itab_zycit047a TYPE /pws/zycit047 OCCURS 0 WITH HEADER LINE.

  DATA: BEGIN OF itab_ivaped OCCURS 0.

  DATA:  ebeln TYPE ekpo-ebeln,

         ebelp TYPE ekpo-ebelp,

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

         knttp type ekpo-knttp,

* << Fim da inclusão

         mwskz TYPE ekpo-mwskz,

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

         matnr type ekpo-matnr,

         werks type ekpo-werks,

* << Fim da inclusão

         txjcd TYPE ekpo-txjcd.

  DATA: END OF itab_ivaped.

  DATA: itab_itens_iva TYPE mmcr_drseg OCCURS 0 WITH HEADER LINE,

        itab_retorno TYPE bset OCCURS 0 WITH HEADER LINE.

  DATA: itab_zycit399 TYPE /pws/zycit399 OCCURS 0 WITH HEADER LINE,

...

...

    ENDIF.

    SELECT * FROM /pws/zycit399 INTO TABLE itab_zycit399

        WHERE pais EQ t001-land1.

    READ TABLE itab_zycit003 INDEX 1.

    SELECT SINGLE nrseqdi FROM /pws/zycit100 INTO /pws/zycit085-nrseqdi

    WHERE nrseq EQ itab_zycit003-nrseq.

    SELECT * FROM /pws/zycit403 INTO TABLE itab_zycit403

        WHERE nrseqdi EQ /pws/zycit085-nrseqdi.

  ENDIF.

  REFRESH itab_ivaped.

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

  SELECT ebeln ebelp mwskz txjcd FROM ekpo

* << Fim da exclusão

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

  SELECT ebeln ebelp KNTTP mwskz matnr werks txjcd FROM ekpo

* << Fim da inclusão

      INTO TABLE itab_ivaped

      FOR ALL ENTRIES IN itab_zycit003

      WHERE ebeln EQ itab_zycit003-ebeln

        AND ebelp EQ itab_zycit003-ebelp.

  READ TABLE itab_zycit003 INDEX 1.

  READ TABLE itab_zycbe033_aux INDEX 1.

  IF /pws/zycie006-tpfatura EQ '02' AND

     /pws/zycie006-tpfatura EQ '03'.

    REFRESH itab_zycit263.

    SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263

...

...

      SELECT * FROM /pws/zyglt316 INTO TABLE itab_zyglt316

          FOR ALL ENTRIES IN itab_483_contas

          WHERE codaux1 EQ itab_483_contas-codaux1

            AND ktosl EQ 'TRI'

            AND bukrs EQ /pws/zycie006-bukrs.

    ENDIF.

    LOOP AT itab_zycit483.

      CLEAR: itab_account, itab_zyglt316.

      READ TABLE itab_zyglt316

                WITH KEY codaux1 = itab_zycit483-tpdesp.

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

      read table itab_ivaped index 1.

* << Fim da inclusão

      itab_glaccount-item_amount = itab_zycit483-vldp.

      itab_glaccount-db_cr_ind = 'S'.

      itab_glaccount-comp_code        = /pws/zycie006-bukrs .

      itab_glaccount-tax_code         = itab_zycit483-iva .

      itab_glaccount-gl_account       = itab_zyglt316-konts.

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

  IF itab_ivaped-knttp IS INITIAL.

    CLEAR itab_marc.   REFRESH itab_marc.

    SELECT SINGLE matnr prctr FROM marc INTO itab_marc

      WHERE matnr EQ itab_ivaped-matnr AND

            werks EQ itab_ivaped-werks.

    IF sy-subrc NE 0.

      SELECT SINGLE matnr prctr FROM marc INTO itab_marc

        WHERE matnr EQ itab_ivaped-matnr.

    ENDIF.

    itab_glaccount-PROFIT_CTR = itab_marc-prctr.

  ELSEIF itab_ivaped-knttp = 'K'.

    read table itab_ekkn with key ebeln = itab_ivaped-ebeln

                             ebelp = itab_ivaped-ebelp.

    CLEAR itab_csks.   REFRESH itab_csks.

    SELECT SINGLE kostl kokrs prctr FROM csks INTO itab_csks

      WHERE kostl EQ itab_ekkn-kostl

        AND kokrs EQ itab_ekkn-kokrs.

    itab_glaccount-PROFIT_CTR = itab_csks-prctr.

  ELSEIF itab_ivaped-knttp = 'F' .

    read table itab_ekkn with key ebeln = itab_ivaped-ebeln

                             ebelp = itab_ivaped-ebelp.

    CLEAR itab_aufk.   REFRESH itab_aufk.

    SELECT SINGLE aufnr prctr FROM aufk INTO itab_aufk

      WHERE aufnr EQ itab_ekkn-aufnr.

    itab_glaccount-PROFIT_CTR = itab_aufk-prctr.

  ENDIF.

* << Fim da inclusão

      COLLECT itab_glaccount.

      itab_iva-mwskz = itab_glaccount-tax_code.

      COLLECT itab_iva.

      itab_glaccount-tax_code         = /pws/zycie006-iva .

      itab_glaccount-db_cr_ind = 'H'.

      COLLECT itab_glaccount.

      itab_iva-mwskz = itab_glaccount-tax_code.

      COLLECT itab_iva.

    ENDLOOP.

    CLEAR: itab_account.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

      WHERE lifnr = /pws/zycie006-lifnr.

  LOOP AT itab_zycit003.

    MOVE lfa1-land1 TO itab_zycit003-porigem.

    SELECT SINGLE land1

        FROM lfa1 INTO itab_zycit003-paquis

        WHERE lifnr = itab_zycit003-lifnrfabr.

    MODIFY itab_zycit003.

  ENDLOOP.

ENDMODULE.

MODULE modifica_imp INPUT.

* >> Início da inclusão: MODULE MODIFICA_IMP

  IF NOT /pws/zycie483-waers IS INITIAL.

    PERFORM trata_decimais USING /pws/zycie483-waers

                             CHANGING /pws/zycie483-vldp.

  ENDIF.

* << Fim da inclusão

  READ TABLE itab_zycit483 INDEX tc_imp-current_line.

  IF sy-subrc EQ 0.

    IF itab_zycit483-tpdesp NE /pws/zycie483-tpdesp.

      READ TABLE itab_zycit483

              WITH KEY tpdesp = /pws/zycie483-tpdesp.

      IF sy-subrc EQ 0.

        MESSAGE i015 WITH text-182.

        EXIT.

      ENDIF.

      READ TABLE itab_zycit403 WITH KEY codigo = /pws/zycie483-tpdesp.

...