Sintoma

Ajuste para confirmar se os novos campos da nota fiscal tratados pela nota de correção 13866 existem

no ambiente, para não ocorrer erro no batch input.

Solução

Ajuste para confirmar se os novos campos da nota fiscal tratados pela nota de correção 13866 existem

no ambiente, para não ocorrer erro no batch input.

Informações Complementares

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

Nota Número 14027 Data: 11/06/2014 Hora: 09:33:35

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

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

Nota Número              : 14027

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00171

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

Referência às notas relacionadas:

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

12691  - 00001 - 9.0    - 00002  - NOTA FISCAL: ICMS ST

13866  - 00002 - 9.0    - 00007  - DESENVOLVIMENTO PARA O LAYOUT DA NF-ELETRÔNICA, PASTA IMPORTAÇÃO

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

VERIFICAÇÃO PARA LANÇAMENTO DE NOVOS CAMPOS NA NOTA FISCAL

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

Palavras Chave:

BATCH - INPUT - VERIFICAÇÃO - CAMPOS - NOVOS NOTA - FISCAL

/PWS/ZYCI_TRANSACAO_J1B1N - FUNÇÃO

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

...

  DATA:  v_campo_taxtyp(60),

         v_campo_base(60),

         v_campo_rate(60),

         v_campo_taxval(60),

         v_campo_excbas(60),

         v_campo_othbas(60).

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

  DATA: v_fdrawback(1) TYPE c.

  SELECT SINGLE * FROM dd03l

    WHERE tabname = 'J_1BDYIMPORT_ADI' AND

          fieldname = 'DRAW_BACK'.

  IF sy-subrc = 0.

    v_fdrawback = 'X'.

  ENDIF.

* << Fim da inclusão

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'J1B1N'.

    CLEAR v_cont.

    IF ( t_dados-docdat = space ).

      t_campos-mandt = t_dados-mandt.

      t_campos-campo = 'J_1BDYDOC-DOCDAT'.

      t_campos-descricao = text-001.

      APPEND t_campos.

      RAISE campo_em_branco.

    ENDIF.

...

...

      CLEAR t_dados-nrdi.

      t_dados-nrdi = v_nrdi+2.

      WRITE  t_dados-maritime_freight TO v_mar_freight

      CURRENCY t_dados-waers.

      PERFORM bdc_campo  USING:

        'J_1BDYIMPORT_DI-NDI(01)' t_dados-nrdi,

        'J_1BDYIMPORT_DI-DDI(01)' v_data,

        'J_1BDYIMPORT_DI-XLOCDESEMB(01)'  t_dados-locdesemb,

        'J_1BDYIMPORT_DI-UFDESEMB(01)'    t_dados-uf_desemb,

        'J_1BDYIMPORT_DI-DDESEMB(01)'     v_ddesemb,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

        'J_1BDYIMPORT_DI-CEXPORTADOR(01)' t_dados-exportador,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

        'J_1BDYIMPORT_DI-CEXPORTADOR(01)' t_dados-exportador.

      IF v_fdrawback = 'X'.

        PERFORM bdc_campo  USING:

* << Fim da inclusão

        'J_1BDYIMPORT_DI-COD_DOC_IMP(01)' t_dados-cod_doc_imp,

        'J_1BDYIMPORT_DI-NUM_ACDRAW(01)' t_dados-num_acdraw,

        'J_1BDYIMPORT_DI-TRANSPORT_MODE(01)' t_dados-transport_mode,

        'J_1BDYIMPORT_DI-MARITIME_FREIGHT(01)' v_mar_freight,

        'J_1BDYIMPORT_DI-INTERMEDIATE_MODE(01)'

             t_dados-intermediate_mode,

        'J_1BDYIMPORT_DI-CNPJ(01)' t_dados-cnpj ,

        'J_1BDYIMPORT_DI-REGIO(01)' t_dados-regio.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

      ENDIF.

* << Fim da inclusão

      PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

      PERFORM bdc_campo USING :

      'BDC_SUBSCR'

      'SAPLJ1BB2                               2902IMPORT_SUBADI'.

      CLEAR v_cont.

      LOOP AT t_itens.

        IF v_cont = 17 .

          PERFORM bdc_campo  USING:

               'BDC_OKCODE'              '=ADIP+'.

          PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

...

...

        CLEAR v_campo.

       CONCATENATE 'J_1BDYIMPORT_ADI-NSEQADIC(' v_cont ')' INTO v_campo

                            .

        PERFORM bdc_campo USING:

             v_campo          t_itens-nseqadic.

        CLEAR v_campo.

        CONCATENATE 'J_1BDYIMPORT_ADI-CFABRICANTE(' v_cont ')'

        INTO v_campo.

        PERFORM bdc_campo USING:

             v_campo          t_itens-fabricante.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

        IF v_fdrawback = 'X'.

* << Fim da inclusão

        WRITE  t_itens-vdescdi TO v_vdescdi CURRENCY  t_itens-waers.

        CONCATENATE 'J_1BDYIMPORT_ADI-VDESCDI(' v_cont ')'

        INTO v_campo.

        PERFORM bdc_campo USING:

             v_campo         v_vdescdi   .

        CONCATENATE 'J_1BDYIMPORT_ADI-DRAW_BACK(' v_cont ')'

        INTO v_campo.

        PERFORM bdc_campo USING:

             v_campo          t_itens-draw_back .

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

        ENDIF.

* << Fim da inclusão

      ENDLOOP.

      PERFORM bdc_campo USING :

                   'BDC_OKCODE'              '=ENTE'.

      PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

      PERFORM bdc_campo USING :

      'BDC_SUBSCR'

      'SAPLJ1BB2                               5350J_1BPARAREA',

      'BDC_SUBSCR'

      'SAPLJ1BB2                               2900SUB1',

      'BDC_SUBSCR'

...