Sintoma

Na tela onde aparecem as despesas criadas depois do recebimento, não está levando o valor do seguro.

Foi estornada a fatura de seguro, geraram uma nova fatura, mas não aparece no clearing.

Solução

Ajuste no clearing.

Informações Complementares

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

Nota Número 00932 Data: 22/02/2006 Hora: 10:28:34

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

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

Nota Número              : 00932

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00101

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

Referência às notas relacionadas:

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

00892  - 00002 - 6.0    - 00022  - DOCUMENTOS DUPLICADOS NO CLEARING

00917  - 00001 - 6.0    - 00022  - TELA DE LIBERACAO DE DEBITO EM CONTA.

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

ONDE APARECEM AS DESP. CRIADAS APÓS O RECEB., NÃO ESTÁ LEVA O VAL. SEG.

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

Palavras Chave:

ENCERRAMENTO, DESPESAS, RECEBIMENTO, SEGURO

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

Objetos da nota:

FUNC /PWS/ZYCI_RATEIO_CUSTO

MERG 21.02.2006 15:13:52  PWSCI              2 Ordens

MERG F6DK929947           PWSCI        DI - 289918 - Simone - Custo

MERG F6DK930576           PWSCI        DI - 289918 - Thyago - /PWS/ZYCIR038

RELE F6DK930661 20060221 151627 PWSCI

REPS /PWS/ZYCIR006

REPS /PWS/ZYCIR038

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

Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO

...

           MOVE: 'SEGURO'             TO itab_zycit036-codigo.

           IF /pws/zycit031-inco1_ci = 'FOB'.

             itab_zycit036-vlreal = v_total * ( v_vlfrete + (

             itab_zycit003-qtd_iten * itab_zycit003-vlreal ) ) /

             ( v_tfrete + v_seg ).

           ELSEIF /pws/zycit031-inco1_ci = 'CIF' OR

* << Início inclusão >>

*                            /pws/zycit031-inco1 = 'CFR'.

                           /pws/zycit031-inco1_CI = 'C&F'.

* << Fim    inclusão >>

 *chamado 220764 inicio

 *        itab_zycit036-vlreal = v_total * itab_zycit003-vlreal / v_seg.

             itab_zycit036-vlreal = v_total *

                     ( itab_zycit003-vlreal * itab_zycit003-qtd_iten )

                     / v_seg   .

 *chamado 220764 fim

           ENDIF.

           IF v_waers IS INITIAL.

             itab_zycit036-waers_real = /pws/zycbt007-waersb.

           ELSE.

             itab_zycit036-waers_real = v_waers.

           ENDIF.

         ENDIF.

       ENDIF.

       APPEND itab_zycit036.

       v_tot_desp = v_tot_desp + itab_zycit036-vlreal.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR038

... << FORM MONTA_ITAB_IMPREL >>

          itab_bsis-shkzg  TO itab_imprel-shkzg ,

          itab_bsis-dmbtr  TO itab_imprel-dmbtr ,

          itab_bsis-gjahr  TO itab_imprel-gjahr .

    APPEND itab_imprel.

  ENDLOOP.

* << Início inclusão >>

  LOOP AT itab_bsis.

    READ TABLE itab_zycit061

                WITH KEY evento = itab_bsis-evento

                          belnr = itab_bsis-belnr

                          hkont = itab_bsis-hkont

                          shkzg = itab_bsis-shkzg

                          dmbtr = itab_bsis-dmbtr

                          gjahr = itab_bsis-gjahr .

    IF sy-subrc EQ 0.

      DELETE itab_zycit061 INDEX sy-tabix.

      SUBTRACT 1 FROM sy-tabix.

    ENDIF.

  ENDLOOP.

* << Fim    inclusão >>

  LOOP AT itab_zycit061.

    IF itab_zycit061-evento EQ text-015.

      MOVE: '1' TO itab_imprel-ordem.

    ELSEIF itab_zycit061-evento EQ text-018.

      MOVE: '2' TO itab_imprel-ordem.

...

... << FORM MONTA_ITAB_IMPREL >>

          itab_zycit061-shkzg  TO itab_imprel-shkzg ,

          itab_zycit061-dmbtr  TO itab_imprel-dmbtr ,

          itab_zycit061-gjahr  TO itab_imprel-gjahr     .

    APPEND itab_imprel.

  ENDLOOP.

* << Exclusão inclusão >>

*  SORT itab_imprel BY belnr ordem ASCENDING.

*  DELETE ADJACENT DUPLICATES FROM itab_imprel COMPARING belnr ordem.

* << Exclusão inclusão >>

  SORT itab_imprel BY hkont ordem ASCENDING.

ENDFORM.

FORM imprime_cabecalho.

  MOVE sy-linsz TO v_tam.

  ULINE AT /1(v_tam).

...