Sintoma

O RECEBIMENTO FÍSICO NÃO ESTA GERANDO O DOCUMENTO CONTABIL.

Solução

VERIFICAR SE A F-51 FOI REALIZADA COM SUCESSO PARA REALIZAR A F-02

Informações Complementares

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

Nota Número 06852 Data: 26/06/2008 Hora: 10:01:20

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

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

Nota Número              : 06852

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

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

03343  - 00001 - 7.0    - 00001  - VERIFICA TIPO DE TIPO DE DECLARAÇÃO NO RECEBIMENTO.

04271  - 00002 - 7.0    - 00002  - NÃO GRAVA CONGELAMOV DA /PWS/ZYCIT036 EM CASO DE ERRO NA CONTABIL

06217  - 00003 - 7.0    - 00005  - MSG DUPLICIDADE NO NUMERO DA NOTA FISCAL NO RECEBIMENTO

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

O RECEBIMENTO FÍSICO NÃO ESTA GERANDO O DOCUMENTO CONTABIL NO SATI

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

Palavras Chave:

DOCUMENTO - CONTABIL - GERANDO - REGISTRANDO - SATI

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

Objetos da nota:

REPS /PWS/MZYCI017F01

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

           wa_nf-belnrf02seg IS INITIAL.

      CLEAR itab_itemdata.

      REFRESH itab_itemdata.

      SELECT SINGLE * FROM t001 WHERE bukrs = wa_nf-bukrs.

      PERFORM get_parameters_mrm1_receb.

      CLEAR v_f_51_ok.

      PERFORM fill_date_f_51.

      IF v_f_51_ok EQ 'S'.

        PERFORM congelamov_saldo_ato.

      ENDIF.

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

      IF wa_nf-belnr_f_02 IS INITIAL.

* << Fim da exclusão

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

      IF wa_nf-belnr_f_02 IS INITIAL and v_f_51_ok EQ 'S'.

* << Fim da inclusão

        IF t001-land1 = 'AR' OR t001-land1 = 'CL'.

          PERFORM fill_date_f_02_ana.

        ELSE.

          IF /pws/zycie001-modalidade NE '99' AND

             ( /pws/zycie001-regime NE '04' OR

               /pws/zycie001-tpdecl EQ 'DSI' ).

            PERFORM fill_date_f_02.

          ENDIF.

        ENDIF.

      ENDIF.

...

...

            (itab_zyglt100-programa) IF FOUND.

    ENDIF.

  ENDIF.

ENDFORM.

FORM executa_recebimento.

  DATA: v_lfsnr_old  LIKE wa_nf-lfsnr,

        v_lfsnr      LIKE wa_nf-lfsnr,

        v_indice_2(02) TYPE n,

        v_indice_3(03) TYPE n,

        v_erro.

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

   CLEAR: v_mr1m_ok, v_mb01_ok, v_f_51_ok.

* << Fim da inclusão

  CLEAR v_lfsnr.

  IF v_existe_nfr NE 'S'.

    SELECT MAX( lfsnr ) INTO (v_lfsnr) FROM /pws/zycit041

      WHERE nrseq EQ   wa_nf-nrseq.

  ELSEIF v_existe_nfr EQ 'S'.

    SELECT MAX( lfsnr ) INTO (v_lfsnr) FROM /pws/zycit043

      WHERE nrseq EQ   wa_nf-nrseq.

  ENDIF.

  IF v_lfsnr IS INITIAL.

    CONCATENATE wa_nf-nrseq  '/' '01' INTO wa_nf-lfsnr.

...