Sintoma

estava salvando o debito em conta sem verificação dos valores na DI

Solução

atualizado o programa para exibir a msg conforme parametrizada na /PWS/ZYGLT217

Informações Complementares

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

Nota Número 02790 Data: 29/12/2006 Hora: 15:00:19

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

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

Nota Número              : 02790

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00146

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

Referência às notas relacionadas:

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

01888  - 00001 - 6.0    - 00024  - DIVERGENCIA NO VALOR DO IPI 435,00 NO DOC CONTABIL ESTA COMO 42,9

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

MSG PARAMETRIZADA PARA DC CONTAB. SEM DI E SEM IMPOSTO

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

Palavras Chave:

DI - DC - IMPOSTO 0 - CONTAB. DC

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

Objetos da nota:

REPS /PWS/MZYCI013F01

REPS /PWS/MZYCI013X01

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

Modificações efetuadas em REPS /PWS/MZYCI013F01

...

  SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.

  LOOP AT it_tbcontrol   WHERE ( tpdesp = '001' OR

                                tpdesp = '002' OR

                                tpdesp = '003' OR

                                tpdesp = /pws/zycit000-cod_sisc OR

                                tpdesp = /pws/zycit000-cod_pis  OR

                                tpdesp = /pws/zycit000-cod_cofins ) AND

                                vldp > 0.

  ENDLOOP.

  IF sy-subrc = 0.

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

    IF /pws/zycit000 IS INITIAL.

      SELECT SINGLE *

        FROM /pws/zycit000

        WHERE land1 EQ t001-land1.

    ENDIF.

* << Fim da inclusão

    SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100

      WHERE nrseq = /pws/zycie008-nrseq.

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

    IF sy-subrc NE 0.

      SELECT SINGLE *

        FROM /pws/zyglt217

        WHERE arbgb EQ '/PWS/ZYCIM' AND

              msgnr EQ '1'.

      IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

        MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '133'.

      ENDIF.

    ENDIF.

* << Fim da inclusão

    CLEAR: v_tot_ii, v_tot_ipi, v_tot_icms, v_tot_pis, v_tot_cofins.

    LOOP AT itab_zycit100.

      v_tot_ii     = itab_zycit100-vlii     + v_tot_ii    .

      v_tot_icms   = itab_zycit100-vlicms   + v_tot_icms  .

      IF ( itab_zycit100-codregtriipi  NE '1' AND

           itab_zycit100-codregtriipi NE '5' ) .

        v_tot_ipi    = itab_zycit100-vlipi    + v_tot_ipi   .

      ENDIF.

      IF ( itab_zycit100-codregtripiscofi  NE '3' AND

           itab_zycit100-codregtripiscofi NE '5' ) .

        v_tot_pis    = itab_zycit100-vlpis    + v_tot_pis   .

        v_tot_cofins = itab_zycit100-vlcofins + v_tot_cofins.

      ENDIF.

    ENDLOOP.

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

    IF sy-subrc EQ 0.

      CLEAR /pws/zyglt217.

      SELECT SINGLE *

        FROM /pws/zyglt217

        WHERE arbgb EQ '/PWS/ZYCIM' AND

              msgnr EQ '134'.

      IF /pws/zyglt217-msgtp EQ 'E'.

        CLEAR ok_code.

      ENDIF.

      READ TABLE it_tbcontrol WITH KEY tpdesp = '003'

                                       mark = 'X'.

      IF v_tot_ii IS INITIAL AND sy-subrc EQ 0.

        IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '134'

              WITH it_tbcontrol-descr.

        ENDIF.

      ENDIF .

      READ TABLE it_tbcontrol WITH KEY tpdesp =  '001'

                                       mark = 'X'.

      IF v_tot_ipi IS INITIAL AND sy-subrc EQ 0.

        IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '134'

              WITH it_tbcontrol-descr.

        ENDIF.

      ENDIF .

      READ TABLE it_tbcontrol WITH KEY tpdesp = /pws/zycit000-cod_sisc

                                      mark = 'X'.

      IF v_tot_icms IS INITIAL AND sy-subrc EQ 0.

        IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '134'

              WITH it_tbcontrol-descr.

        ENDIF.

      ENDIF .

      READ TABLE it_tbcontrol WITH KEY tpdesp = /pws/zycit000-cod_pis

                                      mark = 'X'.

      IF v_tot_pis IS INITIAL AND sy-subrc EQ 0.

        IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '134'

              WITH it_tbcontrol-descr.

        ENDIF.

      ENDIF .

     READ TABLE it_tbcontrol WITH KEY tpdesp = /pws/zycit000-cod_cofins

                                       mark = 'X'.

      IF v_tot_cofins IS INITIAL AND sy-subrc EQ 0.

        SELECT SINGLE *

          FROM /pws/zyglt217

          WHERE arbgb EQ '/PWS/ZYCIM' AND

                msgnr EQ '134'.

        IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

          MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '134'

              WITH it_tbcontrol-descr.

        ENDIF.

      ENDIF .

    ENDIF.

* << Fim da inclusão

    IF NOT itab_zycit100[] IS INITIAL.

      SELECT * FROM /pws/zycit116 INTO TABLE itab_zycit116

          FOR ALL ENTRIES IN itab_zycit100

          WHERE nrseqdi = itab_zycit100-nrseqdi.

    ENDIF.

    IF NOT /pws/zycit000-flag_txsisc IS INITIAL AND

       NOT itab_zycit116[] IS INITIAL.

      LOOP AT itab_zycit116.

        LOOP AT itab_zycit100 WHERE adicao = itab_zycit116-adicao.

          itab_zycit116-nr_itens = itab_zycit116-nr_itens + 1.

...

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

Modificações efetuadas em REPS /PWS/MZYCI013X01

...

* >> Início da inclusão:

TABLES /pws/zyglt217.

* << Fim da inclusão

DATA: BEGIN OF COMMON PART a.

DATA:   it_zycbe033 LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,

       it_zycbt034 LIKE /pws/zycbt034 OCCURS 0 WITH HEADER LINE,

       it_zycbt032 LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF it_zycbe035 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbe035.

DATA: END OF it_zycbe035.

DATA: BEGIN OF it_zycit003 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit003.

DATA: matuse LIKE ekpo-j_1bmatuse.

...

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

Modificações efetuadas em Classe de mensagens /pws/zycim

Criar mensagem 133

ARBGB      /PWS/ZYCIM

MSGNR      133

TEXT       DI inexistente, possivel erro no custo.

MSGTP      W

MSGTYWS