Sintoma

Não esta contabilizando o Frete Nacional por causa da composição do Número da Nota Fiscal

Solução

Atualização do programa de frete nacional para que no momento da contabilização o sistema verifique

se é nota fiscal eletronica para trabalhar o numero da nota com 6 ou 9 caracteres.

Informações Complementares

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

Nota Número 07405 Data: 06/10/2008 Hora: 13:53:16

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

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

Nota Número              : 07405

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00068

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FRETE NACIONAL FALHA NA COMPOSIÇÃO DO NUMERO DA NOTA FISCAL ELETRONICA

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

Palavras Chave:

FRETE - NACIONAL - NOTA - FISCAL - ELETRONICA - NUMERO

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

Objetos da nota:

REPS /PWS/MZYCI061F01

REPS /PWS/MZYCI061TOP

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

Modificações efetuadas em REPS /PWS/MZYCI061F01

...

FORM ajusta_miro.

  DATA: v_msg(100) TYPE c.

  DATA: v_nfserie(20) TYPE c.

  DATA: v_nitem(2)  TYPE n,

        v_prox TYPE c.

  REFRESH: it_bdc, it_msg.

  CLEAR  : it_bdc, it_msg.

  CLEAR v_bukrs.

  GET PARAMETER ID 'BUK' FIELD v_bukrs.

  READ TABLE itab_zycit415 INDEX 1.

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

  CLEAR v_nfe.

  SELECT SINGLE * FROM dd03l

    WHERE tabname = 'J_1BAA' AND

          fieldname = 'NFE'.

  IF sy-subrc = 0.

    CLEAR t_where.

    REFRESH t_where.

    t_where = 'nftype = /pws/zycit048-tiponf and nfe = C_X.'.   "#EC NOTEXT

    APPEND t_where.

    SELECT SINGLE * FROM j_1baa

    WHERE (t_where).

    IF sy-subrc = 0.

      v_nfe = 'X'.

    ENDIF.

  ENDIF.

  IF v_nfe = 'X'.

* << Fim da inclusão

  CONCATENATE itab_zycit415-nfnum '-' itab_zycit415-series

                                            INTO v_nfserie.

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

  ELSE.

    MOVE itab_zycit415-nfnum TO v_nfnum.

    CONCATENATE v_nfnum '-' itab_zycit415-series

                                            INTO v_nfserie.

  ENDIF.

* << Fim da inclusão

  IF v_bukrs IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI061TOP

...

        /pws/zycit000,

        /pws/zycbt007,

        /pws/zycit033.

TABLES:  /pws/zycit021,

         /pws/zycit042,

         /pws/zycit415,

         /pws/zycit100,

         /pws/zycbt011,

         /pws/zycit001,

         t001w.

* >> Início da inclusão:

TABLES:  dd03l.

TABLES:  j_1baa.

* << Fim da inclusão

DATA: wa_zycit048   LIKE /pws/zycit048,

      rbkpv         LIKE rbkp_v,

      wa_zycit021   LIKE /pws/zycit021.

DATA: itab_zycit031   LIKE /pws/zycie031 OCCURS 10 WITH HEADER LINE.

DATA:   v_aliq     TYPE j_1btxic1-rate,

        v_buk      TYPE t001-bukrs                                 ,

        v_prov     TYPE /pws/zycie023-provi,

        v_mont(16) TYPE c,

        v_count    TYPE i VALUE '0',

        erro_bi,

...

...

      v_cont           TYPE  i                                   ,

      v_name1          LIKE  lfa1-name1                          ,

      v_header_txt     LIKE  bapi_incinv_create_header-header_txt,

      v_consiste(01)   TYPE  c                                   ,

      v_transportation LIKE  /pws/zycit000-flag_transp           ,

      v_vl_frete       LIKE /pws/zycie415-netpr                  ,

      v_vl_frete_un    LIKE /pws/zycie415-netpr                  ,

      v_lifex          LIKE likp-lifex                           ,

      v_export(3)      TYPE c                                    ,

      v_cfop(7)        TYPE c                                    .

* >> Início da inclusão:

DATA: v_nfe.

DATA: t_where(50)        OCCURS 0 WITH HEADER LINE.

DATA: v_nfnum LIKE j_1bdydoc-nfnum.

CONSTANTS c_x VALUE 'X'.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF SCREEN 0002 AS WINDOW TITLE text-032.

SELECTION-SCREEN BEGIN OF BLOCK 0002.

SELECT-OPTIONS: so_nrseq FOR /pws/zycie001-nrseq.

SELECTION-SCREEN END OF BLOCK  0002.

SELECTION-SCREEN END OF SCREEN 0002.

SELECTION-SCREEN BEGIN OF SCREEN 0003 AS WINDOW TITLE text-032.

SELECTION-SCREEN BEGIN OF BLOCK 0003.

PARAMETER: p_seq LIKE /pws/zycie023-seq.

SELECTION-SCREEN END OF BLOCK  0003.

SELECTION-SCREEN END OF SCREEN 0003.

...