Sintoma

Ao selecionar os dados de relatório pelo critério de importador, o mesmo estava demorando para

selecioná-los e acabava gerando TIME-OUT. Além disso, a consistência de Red Flags para alguns campos

do relatório estava errada.

Solução

Ajustar as seleções de dados e colocar "tempos" para que o programa demonstre a evolução de seleção

dos dados e ajustar as consistências de Red-Flag.

Informações Complementares

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

Nota Número 01609 Data: 20/06/2006 Hora: 09:28:00

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

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

Nota Número              : 01609

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00118

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

Referência às notas relacionadas:

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

00344  - 00001 - 6.0    - 00021  - AJUSTES COM RELAÇÃO A CONSISTÊNCIAS DE RED FLAG E CAMPOS ERRADOS

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

AJUSTE EM PERFORMANCE E RED FLAGS EM RELATÓRIO DE CONTROLE DE EXCEÇÕES

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

Palavras Chave:

PERFORMANCE; RED FLAGS; RELATÓRIO; CONTROLE; EXCEÇÕES

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

Objetos da nota:

REPS /PWS/ZYCER214

REPT /PWS/ZYCER214

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

Modificações efetuadas em REPS /PWS/ZYCER214

...

       LINE-SIZE 214

       LINE-COUNT 65

       MESSAGE-ID /pws/zycem

       NO STANDARD PAGE HEADING.

INCLUDE /pws/z_rel_alv.

* >> Início da inclusão: REPORT /PWS/ZYCER214

TYPES: BEGIN OF ty_cab_ordem,

        vbeln    TYPE vbak-vbeln,

        erdat    TYPE vbak-erdat,

        vkgrp    TYPE vbak-vkgrp,

        auart    TYPE vbak-auart,

        bukrs_vf TYPE vbak-bukrs_vf,

       END OF ty_cab_ordem,

       BEGIN OF ty_cab_notas,

        docnum TYPE j_1bnfdoc-docnum,

        nfnum  TYPE j_1bnfdoc-nfnum,

        docdat TYPE j_1bnfdoc-docdat,

       END OF ty_cab_notas,

       BEGIN OF ty_cab_faturam,

        vbeln TYPE vbrk-vbeln,

        fkart TYPE vbrk-fkart,

        inco1 TYPE vbrk-inco1,

        bukrs TYPE vbrk-bukrs,

       END OF ty_cab_faturam,

       BEGIN OF ty_cab_embarque,

        nrseq     TYPE /pws/zycee001-nrseq,

        bukrs     TYPE /pws/zycee001-bukrs,

        dtaverb   TYPE /pws/zycee001-dtaverb,

        dtdoc     TYPE /pws/zycee001-dtdoc,

        dtemb     TYPE /pws/zycee001-dtemb,

        dtprev    TYPE /pws/zycee001-dtprev,

        nremb     TYPE /pws/zycee001-nremb,

        nrsd      TYPE /pws/zycee001-nrsd,

        viatrans  TYPE /pws/zycee001-viatrans,

        dtenvcamb TYPE /pws/zycee001-dtenvcamb,

       END OF ty_cab_embarque.

* << Fim da inclusão

TABLES: /pws/zycet001,

        /pws/zycet003,

        /pws/zycet100,

        adrc,

        j_1bnfdoc,

...

        docnum       LIKE j_1bnflin-docnum,

        itmnum       LIKE j_1bnflin-itmnum,

        reftyp       LIKE j_1bnflin-reftyp,

        refkey       LIKE j_1bnflin-refkey,

        refitm       LIKE j_1bnflin-refitm,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        nfnum        LIKE j_1bnfdoc-nfnum,

        docdat       LIKE j_1bnfdoc-docdat,

* << Fim da exclusão

        vbeln_vf     LIKE /pws/zycet002-vbeln_vf,

        vbeln_va     LIKE /pws/zycet002-vbeln_va,

        vbeln_vl     LIKE /pws/zycet002-vbeln_vl,

        aupos        LIKE /pws/zycet002-aupos,

        posnl        LIKE /pws/zycet002-posnl,

* >> Início da exclusão: REPORT /PWS/ZYCER214

      END OF itab_notas.

* << Fim da exclusão

* >> Início da inclusão: REPORT /PWS/ZYCER214

      END OF itab_notas,

     itab_cab_notas TYPE TABLE OF ty_cab_notas,

     wa_cab_notas   TYPE ty_cab_notas.

* << Fim da inclusão

DATA: BEGIN OF itab_fatura OCCURS 0,

        vbeln        LIKE vbrp-vbeln,

        posnr        LIKE vbrp-posnr,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        fkart        LIKE vbrk-fkart,

        inco1        LIKE vbrk-inco1,

        bukrs        LIKE vbrk-bukrs,

      END OF itab_fatura.

* << Fim da exclusão

* >> Início da inclusão: REPORT /PWS/ZYCER214

      END OF itab_fatura,

      itab_cab_fatura TYPE TABLE OF ty_cab_faturam.

* << Fim da inclusão

DATA: BEGIN OF itab_ordem OCCURS 0,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        mandt        LIKE vbap-mandt,

* << Fim da exclusão

        vbeln        LIKE vbap-vbeln,

        posnr        LIKE vbap-posnr,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        vkgrp        LIKE vbak-vkgrp,

        erdat        LIKE vbak-erdat,

        auart        LIKE vbak-auart,

* << Fim da exclusão

        werks        LIKE vbap-werks,

        ntgew        LIKE vbap-ntgew,

        brgew        LIKE vbap-brgew,

        shkzg        LIKE vbap-shkzg,

        gewei        LIKE vbap-gewei,

...

        vbeln_vl     LIKE /pws/zycet002-vbeln_vl,

        vbeln_vf     LIKE /pws/zycet002-vbeln_vf,

        posnl        LIKE /pws/zycet002-posnl,

        posnf        LIKE /pws/zycet002-posnr,

        refkey       LIKE j_1bnflin-refkey,

* >> Início da exclusão: REPORT /PWS/ZYCER214

      END OF itab_ordem.

* << Fim da exclusão

* >> Início da inclusão: REPORT /PWS/ZYCER214

      END OF itab_ordem,

      itab_cab_ordem TYPE TABLE OF ty_cab_ordem,

      wa_cab_ordem   TYPE ty_cab_ordem.      .

* << Fim da inclusão

DATA: BEGIN OF itab_vbkd OCCURS 0,

        vbeln        LIKE vbkd-vbeln,

        bstkd        LIKE vbkd-bstkd,

      END OF itab_vbkd.

DATA: BEGIN OF itab_import OCCURS 0,

        vbeln        LIKE vbpa-vbeln,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        kunnr        LIKE vbpa-kunnr,

        parvw        LIKE vbpa-parvw,

* << Fim da exclusão

        adrnr        LIKE vbpa-adrnr,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        country      LIKE adrc-country,

        name1        LIKE kna1-name1,

* << Fim da exclusão

      END OF itab_import.

DATA: BEGIN OF itab_likp OCCURS 0,

        vbeln        LIKE likp-vbeln,

        bldat        LIKE likp-bldat,

      END OF itab_likp.

DATA: BEGIN OF itab_embarque OCCURS 0,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        mandt        LIKE /pws/zycet002-mandt,

* << Fim da exclusão

        nrseq        LIKE /pws/zycet001-nrseq,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        nremb        LIKE /pws/zycet001-nremb,

        nrsd         LIKE /pws/zycet001-nrsd,

        canal        LIKE /pws/zycet001-canal,

        navio        LIKE /pws/zycet001-navio,

        dtprev       LIKE /pws/zycet001-dtprev,

        dtaverb      LIKE /pws/zycet001-dtaverb,

        dtenvcamb    LIKE /pws/zycet001-dtenvcamb,

        dtdoc        LIKE /pws/zycet001-dtdoc,

        dtcruze      LIKE /pws/zycet001-dtcruze,

        dtemb        LIKE /pws/zycet001-dtemb,

        viatrans     LIKE /pws/zycet001-viatrans,

        portdest     LIKE /pws/zycet001-portdest,

        despach      LIKE /pws/zycet001-despach,

* << Fim da exclusão

        vbeln_va     LIKE /pws/zycet002-vbeln_va,

        vbeln_vl     LIKE /pws/zycet002-vbeln_vl,

        vbeln_vf     LIKE /pws/zycet002-vbeln_vf,

        aupos        LIKE /pws/zycet002-aupos,

        posnl        LIKE /pws/zycet002-posnl,

        posnr        LIKE /pws/zycet002-posnr,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        waers        LIKE /pws/zycet002-waers,

        inco1        LIKE /pws/zycet002-inco1,

* << Fim da exclusão

        docnum       LIKE /pws/zycet002-docnum,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        nfnum        LIKE /pws/zycet002-nfnum,

        werks        LIKE /pws/zycet002-werks,

        vkgrp        LIKE /pws/zycet002-vkgrp,

        matnr        LIKE /pws/zycet002-matnr,

        ntgew        LIKE /pws/zycet002-ntgew,

        brgew        LIKE /pws/zycet002-brgew,

        shkzg        LIKE /pws/zycet002-shkzg,

* << Fim da exclusão

        auart        LIKE /pws/zycet002-auart,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        gewei        LIKE /pws/zycet002-gewei,

        fkimg        LIKE /pws/zycet002-fkimg,

        vrkme        LIKE /pws/zycet002-vrkme,

        fkart        LIKE /pws/zycet002-fkart,

* << Fim da exclusão

        bukrs        LIKE /pws/zycet002-bukrs,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        vlme         LIKE /pws/zycet002-vlme,

* << Fim da exclusão

        steuc        LIKE /pws/zycet002-steuc,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        land1        LIKE /pws/zycet002-land1,

      END OF itab_embarque.

* << Fim da exclusão

* >> Início da inclusão: REPORT /PWS/ZYCER214

      END OF itab_embarque,

      itab_cab_embarque TYPE TABLE OF ty_cab_embarque,

      wa_cab_embarque   TYPE ty_cab_embarque.

* << Fim da inclusão

DATA: BEGIN OF itab_t604f OCCURS 0,

        land1         LIKE t604f-land1,

        steuc         LIKE t604f-steuc,

        /pws/anuencia LIKE t604f-/pws/anuencia,

      END OF itab_t604f.

...

        dtrec        LIKE /pws/zycet046-dtrec,

        dpch         LIKE /pws/zycet046-dpch,

        nrseqtr      LIKE /pws/zycet046-nrseqtr,

        nrrota_tr    LIKE /pws/zycet046-nrrota_tr,

      END OF itab_zycet046.

* >> Início da exclusão: REPORT /PWS/ZYCER214

DATA: BEGIN OF itab_zycet101 OCCURS 0,

        nrseqtr      LIKE /pws/zycet101-nrseqtr,

        nome_tr      LIKE /pws/zycet101-nome_tr,

        dataentr     LIKE /pws/zycet101-dataentr,

      END OF itab_zycet101.

* << Fim da exclusão

DATA: BEGIN OF itab_carga   OCCURS 0,

        nrseqcg      LIKE /pws/zycet054-nrseqcg,

        nrseq        LIKE /pws/zycet054-nrseq,

        dt_dead_line LIKE /pws/zycet053-dt_dead_line,

      END   OF itab_carga.

DATA: BEGIN OF itab_zycet102 OCCURS 0,

        nrseqtr       LIKE /pws/zycet102-nrseqtr,

        nrrota_tr     LIKE /pws/zycet102-nrrota_tr,

        dtdesembaraco LIKE /pws/zycet102-dtdesembaraco,

      END OF itab_zycet102.

* >> Início da exclusão: REPORT /PWS/ZYCER214

DATA: BEGIN OF itab_zycet107 OCCURS 0,

        nrseqno      LIKE /pws/zycet107-nrseqno,

        nrseqtr      LIKE /pws/zycet107-nrseqtr,

        tpcont       LIKE /pws/zycet107-tpcont,

      END OF itab_zycet107.

* << Fim da exclusão

DATA: BEGIN OF itab_zycet100 OCCURS 0,

        nrseq        LIKE /pws/zycet100-nrseq,

        dtleg        LIKE /pws/zycet100-dtleg,

        analista     LIKE /pws/zycet100-analista,

        nrinsp       LIKE /pws/zycet100-nrinsp,

...

      END OF itab_zycet100.

DATA: BEGIN OF itab_zycet265 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycet265.

DATA: END OF itab_zycet265.

DATA: BEGIN OF itab_zycet183 OCCURS 0,

* >> Início da exclusão: REPORT /PWS/ZYCER214

        nrseq        LIKE /pws/zycet183-nrseq,

* << Fim da exclusão

* >> Início da inclusão: REPORT /PWS/ZYCER214

        nremb        LIKE /pws/zycet183-nremb,

* << Fim da inclusão

        tp_doc       LIKE /pws/zycet183-tp_doc,

        dtlog        LIKE /pws/zycet183-dtlog,

      END OF itab_zycet183.

DATA : BEGIN OF itab_zycet031 OCCURS 10.

        INCLUDE STRUCTURE /pws/zycet031.

...

        dtenvcamb     LIKE /pws/zycet001-dtenvcamb,

        analista      LIKE /pws/zycet100-analista,

        selk.

DATA:   colinfo       TYPE kkblo_t_specialcol,

      END OF itab_relat.

* >> Início da exclusão: REPORT /PWS/ZYCER214

DATA : BEGIN OF itab_zycee085 OCCURS 10.

        INCLUDE STRUCTURE /pws/zycee085.

DATA : END   OF itab_zycee085.

DATA : BEGIN OF itab_saida OCCURS 10.

        INCLUDE STRUCTURE /pws/zycee085.

DATA : END OF itab_saida.

DATA : wa_vbco6 LIKE vbco6 OCCURS 1 WITH HEADER LINE.

DATA : BEGIN OF itab_vbfa_aux OCCURS 20.

        INCLUDE STRUCTURE vbfa.

DATA : END OF itab_vbfa_aux.

* << Fim da exclusão

DATA: v_index        LIKE sy-tabix,

* >> Início da exclusão: REPORT /PWS/ZYCER214

      nrseq          LIKE /pws/zycee085-nrseq.

* << Fim da exclusão

* >> Início da inclusão: REPORT /PWS/ZYCER214

      v_icon(4)      TYPE c VALUE '@5C@'.

* << Fim da inclusão

* >> Início da exclusão: REPORT /PWS/ZYCER214

DATA: v_icon(4)      TYPE c VALUE '@5C@'.

* << Fim da exclusão

CONSTANTS:

  c_ma LIKE /pws/zycet001-viatrans VALUE 'MA',

  c_rd LIKE /pws/zycet001-viatrans VALUE 'RD',

  c_ta LIKE /pws/zycet001-viatrans VALUE 'TA'.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

...

    MESSAGE i016 WITH text-003.

    STOP.

  ENDIF.

ENDFORM.

FORM seleciona_embarque.

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

  FIELD-SYMBOLS <ordem> LIKE itab_ordem.

* << Fim da inclusão

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 10

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

            text       = 'Selecionando Dados'.

* << Fim da exclusão

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

            text       = text-004.

  SELECT nrseq

         bukrs

         dtaverb

         dtdoc

         dtemb

         dtprev

         nremb

         nrsd

         viatrans

         dtenvcamb

    FROM /pws/zycet001

    INTO TABLE itab_cab_embarque

    WHERE nrseq    IN s_nrseq

      AND nremb    IN s_nremb

      AND nrsd     IN s_dtdde

      AND dtprev   IN s_dtprev

      AND dtemb    IN s_dtemb

      AND viatrans IN s_viatr.

* << Fim da inclusão

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

  SELECT a~mandt    a~nrseq    a~nremb     a~nrsd  a~canal   a~navio

         a~dtprev   a~dtaverb  a~dtenvcamb a~dtdoc a~dtcruze a~dtemb

         a~viatrans a~portdest a~despach

         b~vbeln_va b~vbeln_vl b~vbeln_vf b~aupos b~posnl b~posnr

         b~waers    b~inco1    b~docnum   b~nfnum b~werks b~vkgrp

         b~matnr    b~ntgew    b~brgew    b~shkzg b~auart b~gewei

         b~fkimg    b~vrkme    b~fkart    b~bukrs b~vlme b~steuc

         b~land1

         FROM /pws/zycet001 AS a INNER JOIN /pws/zycet002 AS b

                                 ON a~nrseq = b~nrseq

* << Fim da exclusão

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

  IF sy-subrc IS INITIAL.

    SELECT nrseq

           vbeln_va

           vbeln_vl

           vbeln_vf

           aupos

           posnl

           posnr

           docnum

           auart

           bukrs

           steuc

      FROM /pws/zycet002

* << Fim da inclusão

         INTO TABLE itab_embarque

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

         WHERE a~nrseq    IN s_nrseq

           AND a~nremb    IN s_nremb

           AND a~nrsd     IN s_dtdde

           AND a~dtprev   IN s_dtprev

           AND a~dtemb    IN s_dtemb

           AND a~viatrans IN s_viatr

           AND b~vbeln_va IN s_vbeln

           AND b~nfnum    IN s_nfnum

           AND b~werks    IN s_werks

           AND b~vkgrp    IN s_vkgrp.

* << Fim da exclusão

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

      FOR ALL ENTRIES IN itab_cab_embarque

      WHERE nrseq EQ itab_cab_embarque-nrseq

        AND vbeln_va IN s_vbeln

        AND nfnum IN s_nfnum

        AND werks IN s_werks

        AND vkgrp IN s_vkgrp.

  ENDIF.

  CHECK NOT itab_embarque[] IS INITIAL.

* << Fim da inclusão

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

  IF NOT itab_embarque[] IS INITIAL.

    SELECT nrseq dtleg analista nrinsp empinsp dtconemb data_insp

* << Fim da exclusão

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

  SORT itab_embarque BY vbeln_va

                        aupos.

  SELECT nrseq

         dtleg

         analista

         nrinsp

         empinsp

         dtconemb

         data_insp

* << Fim da inclusão

           FROM /pws/zycet100

           INTO TABLE itab_zycet100

           FOR ALL ENTRIES IN itab_embarque

           WHERE nrseq    EQ itab_embarque-nrseq

             AND analista IN s_analis.

...

            DELETE itab_embarque INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_embarque.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

  ENDIF.

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

  IF NOT itab_embarque[] IS INITIAL.

    SELECT nrseq nrre dtlibanu

* << Fim da exclusão

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

  SELECT nrseq

         nrre

         dtlibanu

* << Fim da inclusão

           FROM /pws/zycet003

           INTO TABLE itab_zycet003

           FOR ALL ENTRIES IN itab_embarque

            WHERE nrseq EQ itab_embarque-nrseq

             AND nrre  IN s_nrre.

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

  SORT itab_zycet003 BY nrseq.

* << Fim da inclusão

    IF NOT s_nrre IS INITIAL.

      IF NOT itab_zycet003[] IS INITIAL.

        LOOP AT itab_embarque.

          v_index = sy-tabix.

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

          READ TABLE itab_zycet003 WITH KEY nrseq = itab_embarque-nrseq.

* << Fim da exclusão

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

        READ TABLE itab_zycet003 WITH KEY nrseq = itab_embarque-nrseq

                                                  BINARY SEARCH.

* << Fim da inclusão

          IF sy-subrc NE 0.

            DELETE itab_embarque INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_embarque.

      ENDIF.

    ENDIF.

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

  ENDIF.

* << Fim da exclusão

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 30

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

            text       = 'Selecionando Dados'.

* << Fim da exclusão

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

            text       = text-004.

* << Fim da inclusão

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

  IF NOT itab_embarque[] IS INITIAL.

* << Fim da exclusão

    SELECT vbeln bstkd

           FROM vbkd

           INTO TABLE itab_vbkd

           FOR ALL ENTRIES IN itab_embarque

           WHERE vbeln EQ itab_embarque-vbeln_va

             AND bstkd IN s_bstkd.

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

  SORT itab_vbkd BY vbeln.

* << Fim da inclusão

    IF NOT s_bstkd IS INITIAL.

      IF NOT itab_vbkd[] IS INITIAL.

        LOOP AT itab_embarque.

          v_index = sy-tabix.

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

          READ TABLE itab_vbkd WITH KEY vbeln = itab_embarque-vbeln_va.

* << Fim da exclusão

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

        READ TABLE itab_vbkd WITH KEY vbeln = itab_embarque-vbeln_va

                                              BINARY SEARCH.

* << Fim da inclusão

          IF sy-subrc NE 0.

            DELETE itab_embarque INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_embarque.

      ENDIF.

    ENDIF.

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

  ENDIF.

* << Fim da exclusão

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

  SELECT docnum

       nfnum

       docdat

  FROM j_1bnfdoc

  INTO TABLE itab_cab_notas

  WHERE docdat IN s_docdat

   AND nfnum  IN s_nfnum.

* << Fim da inclusão

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

  IF NOT itab_embarque[] IS INITIAL.

   SELECT b~docnum b~itmnum b~reftyp b~refkey b~refitm a~nfnum a~docdat

                          FROM j_1bnfdoc AS a INNER JOIN j_1bnflin AS b

                                                 ON a~docnum = b~docnum

* << Fim da exclusão

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

  IF sy-subrc IS INITIAL.

    SELECT docnum

           itmnum

           reftyp

           refkey

           refitm

     FROM j_1bnflin

* << Fim da inclusão

     INTO TABLE itab_notas

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

                                       FOR ALL ENTRIES IN itab_embarque

                                 WHERE b~docnum EQ itab_embarque-docnum

                                               AND a~docdat IN s_docdat.

* << Fim da exclusão

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

     FOR ALL ENTRIES IN itab_cab_notas

     WHERE docnum EQ itab_cab_notas-docnum.

  ENDIF.

* << Fim da inclusão

    IF NOT s_docdat IS INITIAL.

      IF NOT itab_notas[] IS INITIAL.

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

      SORT itab_notas BY docnum.

* << Fim da inclusão

        LOOP AT itab_embarque.

          v_index = sy-tabix.

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

          READ TABLE itab_notas WITH KEY docnum = itab_embarque-docnum.

* << Fim da exclusão

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

        READ TABLE itab_notas WITH KEY docnum = itab_embarque-docnum

                                                BINARY SEARCH.

* << Fim da inclusão

          IF sy-subrc NE 0.

            DELETE itab_embarque INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_embarque.

      ENDIF.

    ENDIF.

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

  ENDIF.

  IF NOT itab_embarque[] IS INITIAL.

    SELECT vbpa~vbeln vbpa~kunnr vbpa~parvw vbpa~adrnr

           adrc~country

           kna1~name1

           FROM vbpa INNER JOIN adrc

                     ON vbpa~adrnr = adrc~addrnumber

                     INNER JOIN kna1

                     ON vbpa~kunnr = kna1~kunnr

* << Fim da exclusão

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

  SELECT vbeln

         adrnr

   FROM vbpa

* << Fim da inclusão

   INTO TABLE itab_import

   FOR ALL ENTRIES IN itab_embarque

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

           WHERE vbpa~vbeln   EQ itab_embarque-vbeln_va

             AND vbpa~kunnr   IN s_import

             AND vbpa~parvw   EQ 'AG'

             AND adrc~country IN s_padest.

* << Fim da exclusão

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

  WHERE vbeln EQ itab_embarque-vbeln_va

  AND kunnr IN s_import

  AND parvw EQ 'AG'.

* << Fim da inclusão

    IF NOT s_import IS INITIAL OR

       NOT s_padest IS INITIAL.

      IF NOT itab_import[] IS INITIAL.

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

      SORT itab_import BY vbeln.

* << Fim da inclusão

        LOOP AT itab_embarque.

          v_index = sy-tabix.

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

          READ TABLE itab_import WITH KEY vbeln =

                                                itab_embarque-vbeln_va.

* << Fim da exclusão

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

        READ TABLE itab_import

                   WITH KEY vbeln = itab_embarque-vbeln_va

                                    BINARY SEARCH.

* << Fim da inclusão

          IF sy-subrc NE 0.

            DELETE itab_embarque INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_embarque.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

  ENDIF.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 50

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

            text       = 'Selecionando Dados'.

* << Fim da exclusão

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

            text       = text-004.

* << Fim da inclusão

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

  IF NOT itab_embarque[] IS INITIAL.

    PERFORM trata_ordem_emb.

  ENDIF.

  IF NOT itab_embarque[] IS INITIAL.

    PERFORM seleciona_dados_embarque.

* << Fim da exclusão

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

  PERFORM: trata_ordem_emb,

           seleciona_dados_embarque.

* << Fim da inclusão

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

    SELECT vbap~mandt vbap~vbeln vbap~posnr

           vbak~vkgrp vbak~erdat vbak~auart

           vbap~werks vbap~ntgew vbap~brgew vbap~shkzg vbap~gewei

           vbap~vrkme vbap~netwr vbap~waerk vbap~kwmeng

           FROM vbak INNER JOIN vbap

                     ON vbak~vbeln = vbap~vbeln

* << Fim da exclusão

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

  SELECT vbeln

         posnr

         werks

         ntgew

         brgew

         shkzg

         gewei

         vrkme

         netwr

         waerk

         kwmeng

   FROM vbap

* << Fim da inclusão

   INTO TABLE itab_ordem

   FOR ALL ENTRIES IN itab_embarque

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

           WHERE vbap~vbeln EQ itab_embarque-vbeln_va

             AND vbap~posnr EQ itab_embarque-aupos.

* << Fim da exclusão

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

   WHERE vbeln EQ itab_embarque-vbeln_va

     AND posnr EQ itab_embarque-aupos.

  IF sy-subrc IS INITIAL.

    SELECT vbeln

           erdat

           vkgrp

           auart

           bukrs_vf

     FROM vbak

     INTO TABLE itab_cab_ordem

     FOR ALL ENTRIES IN itab_ordem

     WHERE vbeln EQ itab_ordem-vbeln.

  ENDIF.

* << Fim da inclusão

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

    LOOP AT itab_ordem.

* << Fim da exclusão

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

  LOOP AT itab_ordem ASSIGNING <ordem>.

* << Fim da inclusão

      CLEAR itab_embarque.

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

      v_index = sy-tabix.

      READ TABLE itab_embarque WITH KEY vbeln_va = itab_ordem-vbeln

                                        aupos    = itab_ordem-posnr.

      MOVE: itab_embarque-vbeln_vl TO itab_ordem-vbeln_vl,

            itab_embarque-vbeln_vf TO itab_ordem-vbeln_vf,

            itab_embarque-vbeln_vf TO itab_ordem-refkey,

            itab_embarque-posnl    TO itab_ordem-posnl,

            itab_embarque-posnr    TO itab_ordem-posnf.

      MODIFY itab_ordem INDEX v_index.

* << Fim da exclusão

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

    READ TABLE itab_embarque WITH KEY vbeln_va = <ordem>-vbeln

                                      aupos    = <ordem>-posnr

                                      BINARY SEARCH.

    CHECK sy-subrc IS INITIAL.

    MOVE: itab_embarque-vbeln_vl TO <ordem>-vbeln_vl,

          itab_embarque-vbeln_vf TO <ordem>-vbeln_vf,

          itab_embarque-vbeln_vf TO <ordem>-refkey,

          itab_embarque-posnl    TO <ordem>-posnl,

          itab_embarque-posnr    TO <ordem>-posnf.

* << Fim da inclusão

    ENDLOOP.

    IF NOT itab_ordem[] IS INITIAL.

      PERFORM seleciona_dados_ordem.

    ENDIF.

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

    SELECT vbrp~vbeln vbrp~posnr

           vbrk~fkart vbrk~inco1 vbrk~bukrs

           FROM vbrk INNER JOIN vbrp

                     ON vbrk~vbeln = vbrp~vbeln

           INTO TABLE itab_fatura

* << Fim da exclusão

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

  SELECT vbeln

         fkart

         inco1

         bukrs

   FROM vbrk

   INTO TABLE itab_cab_fatura

* << Fim da inclusão

   FOR ALL ENTRIES IN itab_embarque

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

           WHERE vbrp~vbeln EQ itab_embarque-vbeln_vf

             AND vbrp~posnr EQ itab_embarque-posnr.

* << Fim da exclusão

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

   WHERE vbeln EQ itab_embarque-vbeln_vf.

  IF sy-subrc IS INITIAL.

    SELECT vbeln

           posnr

     FROM vbrp

     INTO TABLE itab_fatura

     FOR ALL ENTRIES IN itab_cab_fatura

     WHERE vbeln EQ itab_cab_fatura-vbeln.

* << Fim da inclusão

  ENDIF.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 100

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

            text       = 'Selecionando Dados'.

* << Fim da exclusão

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

            text       = text-004.

* << Fim da inclusão

ENDFORM.

FORM seleciona_ordem.

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

  FIELD-SYMBOLS <ordem> LIKE itab_ordem.

* << Fim da inclusão

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

  SELECT vbap~mandt vbap~vbeln vbap~posnr

         vbak~vkgrp vbak~erdat vbak~auart

         vbap~werks vbap~ntgew vbap~brgew vbap~shkzg vbap~gewei

         vbap~vrkme vbap~netwr vbap~waerk vbap~kwmeng

         FROM vbak INNER JOIN vbap

                   ON vbak~vbeln = vbap~vbeln

* << Fim da exclusão

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

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 10

            text       = text-004.

  SELECT vbeln

         erdat

         vkgrp

         auart

         bukrs_vf

   FROM vbak

   INTO TABLE itab_cab_ordem

   WHERE vkgrp IN s_vkgrp.

  IF sy-subrc IS INITIAL.

    SELECT vbeln

           posnr

           werks

           ntgew

           brgew

           shkzg

           gewei

           vrkme

           netwr

           waerk

           kwmeng

      FROM vbap

* << Fim da inclusão

      INTO TABLE itab_ordem

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

         WHERE vbap~vbeln IN s_vbeln

           AND vbak~vkgrp IN s_vkgrp

           AND vbap~werks IN s_werks.

* << Fim da exclusão

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

      FOR ALL ENTRIES IN itab_cab_ordem

      WHERE vbeln EQ itab_cab_ordem-vbeln.

  ENDIF.

* << Fim da inclusão

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

  IF NOT itab_ordem[] IS INITIAL.

    SELECT vbeln bstkd

* << Fim da exclusão

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

  CHECK NOT itab_ordem[] IS INITIAL.

  SELECT vbeln

         bstkd

* << Fim da inclusão

           FROM vbkd

           INTO TABLE itab_vbkd

           FOR ALL ENTRIES IN itab_ordem

           WHERE vbeln EQ itab_ordem-vbeln

             AND bstkd IN s_bstkd.

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

  SORT itab_vbkd BY vbeln.

* << Fim da inclusão

    IF NOT s_bstkd IS INITIAL.

      IF NOT itab_vbkd[] IS INITIAL.

        LOOP AT itab_ordem.

          v_index = sy-tabix.

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

          READ TABLE itab_vbkd WITH KEY vbeln = itab_ordem-vbeln.

* << Fim da exclusão

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

        READ TABLE itab_vbkd WITH KEY vbeln = itab_ordem-vbeln

                                              BINARY SEARCH.

* << Fim da inclusão

          IF sy-subrc NE 0.

            DELETE itab_ordem INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_ordem.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

  ENDIF.

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

  IF NOT itab_ordem[] IS INITIAL.

    SELECT vbpa~vbeln vbpa~kunnr vbpa~parvw vbpa~adrnr

           adrc~country

           kna1~name1

           FROM vbpa INNER JOIN adrc

                     ON vbpa~adrnr = adrc~addrnumber

                     INNER JOIN kna1

                     ON vbpa~kunnr = kna1~kunnr

* << Fim da exclusão

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

  SELECT vbeln

         adrnr

   FROM vbpa

* << Fim da inclusão

   INTO TABLE itab_import

   FOR ALL ENTRIES IN itab_ordem

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

           WHERE vbpa~vbeln   EQ itab_ordem-vbeln

             AND vbpa~kunnr   IN s_import

             AND vbpa~parvw   EQ 'AG'

             AND adrc~country IN s_padest.

* << Fim da exclusão

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

   WHERE vbeln EQ itab_ordem-vbeln

     AND kunnr IN s_import

     AND parvw EQ 'AG'.

  SORT itab_import BY vbeln.

* << Fim da inclusão

    IF NOT s_import IS INITIAL OR

       NOT s_padest IS INITIAL.

      IF NOT itab_import[] IS INITIAL.

        LOOP AT itab_ordem.

          v_index = sy-tabix.

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

          READ TABLE itab_import WITH KEY vbeln = itab_ordem-vbeln.

* << Fim da exclusão

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

        READ TABLE itab_import WITH KEY vbeln = itab_ordem-vbeln

                                                BINARY SEARCH.

* << Fim da inclusão

          IF sy-subrc NE 0.

            DELETE itab_ordem INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_ordem.

      ENDIF.

    ENDIF.

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

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 30

            text       = text-004.

  SELECT nrseq

         vbeln_va

         vbeln_vl

         vbeln_vf

         aupos

         posnl

         posnr

         docnum

         auart

         bukrs

         steuc

    FROM /pws/zycet002

    INTO TABLE itab_embarque

    FOR ALL ENTRIES IN itab_ordem

    WHERE vbeln_va EQ itab_ordem-vbeln

      AND aupos    EQ itab_ordem-posnr.

  IF sy-subrc IS INITIAL.

    SELECT nrseq

           bukrs

           dtaverb

           dtdoc

           dtemb

           dtprev

           nremb

           nrsd

           viatrans

           dtenvcamb

      FROM /pws/zycet001

      INTO TABLE itab_cab_embarque

      FOR ALL ENTRIES IN itab_embarque

      WHERE nrseq EQ itab_embarque-nrseq.

* << Fim da inclusão

  ENDIF.

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

  IF NOT itab_ordem[] IS INITIAL.

    LOOP AT itab_ordem.

      v_index = sy-tabix.

      CLEAR wa_vbco6.

      MOVE: itab_ordem-vbeln TO wa_vbco6-vbeln,

            itab_ordem-posnr TO wa_vbco6-posnr.

* << Fim da exclusão

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

  IF NOT itab_embarque[] IS INITIAL.

* << Fim da inclusão

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

      CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'

           EXPORTING

                comwa    = wa_vbco6

           TABLES

                vbfa_tab = itab_vbfa_aux.

* << Fim da exclusão

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

    SORT itab_embarque BY vbeln_va

                          aupos.

* << Fim da inclusão

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

      READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'J'.

      IF itab_ordem-vbeln NE itab_vbfa_aux-vbeln.

        MOVE: itab_vbfa_aux-vbeln TO itab_ordem-vbeln_vl,

              itab_vbfa_aux-posnn TO itab_ordem-posnl.

        CLEAR itab_vbfa_aux.

* << Fim da exclusão

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

    LOOP AT itab_ordem ASSIGNING <ordem>.

      READ TABLE itab_embarque WITH KEY vbeln_va = <ordem>-vbeln

                                        aupos    = <ordem>-posnr

                                        BINARY SEARCH.

      CHECK sy-subrc IS INITIAL.

      IF NOT itab_embarque-vbeln_vl IS INITIAL.

        MOVE: itab_embarque-vbeln_vl TO <ordem>-vbeln_vl,

              itab_embarque-posnl    TO <ordem>-posnl.

* << Fim da inclusão

      ENDIF.

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

      READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'M'.

      IF itab_ordem-vbeln NE itab_vbfa_aux-vbeln.

        MOVE: itab_vbfa_aux-vbeln TO itab_ordem-vbeln_vf,

              itab_vbfa_aux-posnn TO itab_ordem-posnf,

            itab_vbfa_aux-vbeln TO itab_ordem-refkey.

        MODIFY itab_ordem INDEX v_index.

        CLEAR itab_vbfa_aux.

        REFRESH itab_vbfa_aux.

* << Fim da exclusão

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

      IF NOT itab_embarque-vbeln_vf IS INITIAL.

        MOVE: itab_embarque-vbeln_vf TO <ordem>-vbeln_vf,

              itab_embarque-posnr    TO <ordem>-posnf.

* << Fim da inclusão

      ENDIF.

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

    ENDLOOP.

    PERFORM seleciona_dados_ordem.

    SELECT nrseq

           nrre

           dtlibanu

           FROM /pws/zycet003

           INTO TABLE itab_zycet003

           FOR ALL ENTRIES IN itab_embarque

           WHERE nrseq EQ itab_embarque-nrseq.

    SELECT nrseq

           dtleg

           analista

           nrinsp

           empinsp

           dtconemb

           data_insp

           FROM /pws/zycet100

           INTO TABLE itab_zycet100

           FOR ALL ENTRIES IN itab_embarque

           WHERE nrseq EQ itab_embarque-nrseq.

* << Fim da inclusão

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

    ENDLOOP.

* << Fim da exclusão

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

    PERFORM seleciona_dados_embarque.

* << Fim da inclusão

  ENDIF.

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

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 60

            text       = text-004.

  SELECT docnum

       nfnum

       docdat

  FROM j_1bnfdoc

  INTO TABLE itab_cab_notas

  WHERE docdat IN s_docdat

   AND nfnum  IN s_nfnum.

* << Fim da inclusão

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

  IF NOT itab_ordem[] IS INITIAL.

   SELECT b~docnum b~itmnum b~reftyp b~refkey b~refitm a~nfnum a~docdat

                          FROM j_1bnfdoc AS a INNER JOIN j_1bnflin AS b

                                                 ON a~docnum = b~docnum

* << Fim da exclusão

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

  IF sy-subrc IS INITIAL.

    SELECT docnum

           itmnum

           reftyp

           refkey

           refitm

     FROM j_1bnflin

* << Fim da inclusão

     INTO TABLE itab_notas

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

                                          FOR ALL ENTRIES IN itab_ordem

                                    WHERE b~refkey EQ itab_ordem-refkey

                                       AND b~refitm EQ itab_ordem-posnf

                                                   AND b~reftyp EQ 'BI'

                                               AND a~docdat IN s_docdat

                                                AND a~nfnum  IN s_nfnum.

* << Fim da exclusão

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

     FOR ALL ENTRIES IN itab_cab_notas

     WHERE docnum EQ itab_cab_notas-docnum.

  ENDIF.

* << Fim da inclusão

    IF NOT s_docdat IS INITIAL.

      IF NOT itab_notas[] IS INITIAL.

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

      SORT itab_notas BY refkey

                         refitm.

* << Fim da inclusão

        LOOP AT itab_ordem.

          v_index = sy-tabix.

          READ TABLE itab_notas WITH KEY refkey = itab_ordem-refkey

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

                                         refitm = itab_ordem-posnf.

* << Fim da exclusão

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

                                       refitm = itab_ordem-posnf

                                       BINARY SEARCH.

* << Fim da inclusão

          IF sy-subrc NE 0.

            DELETE itab_ordem INDEX v_index.

          ENDIF.

        ENDLOOP.

      ELSE.

        REFRESH itab_ordem.

      ENDIF.

    ENDIF.

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

  ENDIF.

* << Fim da exclusão

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

  SELECT vbeln

         fkart

         inco1

         bukrs

   FROM vbrk

   INTO TABLE itab_cab_fatura

   FOR ALL ENTRIES IN itab_ordem

   WHERE vbeln EQ itab_ordem-vbeln_vf.

* << Fim da inclusão

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

  IF NOT itab_ordem[] IS INITIAL.

    SELECT vbrp~vbeln vbrp~posnr

           vbrk~fkart vbrk~inco1 vbrk~bukrs

           FROM vbrk INNER JOIN vbrp

                     ON vbrk~vbeln = vbrp~vbeln

* << Fim da exclusão

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

  IF sy-subrc IS INITIAL.

    SELECT vbeln

           posnr

     FROM vbrp

* << Fim da inclusão

           INTO TABLE itab_fatura

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

           FOR ALL ENTRIES IN itab_ordem

           WHERE vbrp~vbeln EQ itab_ordem-vbeln_vf

             AND vbrp~posnr EQ itab_ordem-posnf.

* << Fim da exclusão

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

     FOR ALL ENTRIES IN itab_cab_fatura

     WHERE vbeln EQ itab_cab_fatura-vbeln.

* << Fim da inclusão

  ENDIF.

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

  IF NOT itab_ordem[] IS INITIAL.

* << Fim da exclusão

    PERFORM trata_ordem_ord.

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

  ENDIF.

  IF NOT itab_ordem[] IS INITIAL.

* << Fim da exclusão

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

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 100

            text       = text-004.

* << Fim da inclusão

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

    PERFORM seleciona_dados_ordem.

* << Fim da exclusão

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

ENDFORM.

* << Fim da inclusão

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

    SELECT a~mandt    a~nrseq    a~nremb     a~nrsd  a~canal   a~navio

           a~dtprev   a~dtaverb  a~dtenvcamb a~dtdoc a~dtcruze a~dtemb

           a~viatrans a~portdest a~despach

           b~vbeln_va b~vbeln_vl b~vbeln_vf b~aupos b~posnl b~posnr

           b~waers    b~inco1    b~docnum   b~nfnum b~werks b~vkgrp

           b~matnr    b~ntgew    b~brgew    b~shkzg b~auart b~gewei

           b~fkimg    b~vrkme    b~fkart    b~bukrs b~vlme b~steuc

           b~land1

           FROM /pws/zycet001 AS a INNER JOIN /pws/zycet002 AS b

                                   ON a~nrseq = b~nrseq

           INTO TABLE itab_embarque

           FOR ALL ENTRIES IN itab_ordem

           WHERE b~vbeln_va EQ itab_ordem-vbeln

             AND b~vbeln_vl EQ itab_ordem-vbeln_vl

             AND b~vbeln_vf EQ itab_ordem-vbeln_vf

             AND b~aupos    EQ itab_ordem-posnr

             AND b~posnl    EQ itab_ordem-posnl

             AND b~posnr    EQ itab_ordem-posnf.

* << Fim da exclusão

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

FORM seleciona_nota.

* << Fim da inclusão

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

    IF NOT itab_embarque[] IS INITIAL.

* << Fim da exclusão

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

  FIELD-SYMBOLS: <notas> LIKE itab_notas,

                 <ordem> LIKE itab_ordem.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 10

            text       = text-004.

* << Fim da inclusão

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

      SELECT nrseq nrre dtlibanu

             FROM /pws/zycet003

             INTO TABLE itab_zycet003

             FOR ALL ENTRIES IN itab_embarque

             WHERE nrseq EQ itab_embarque-nrseq.

* << Fim da exclusão

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

  SELECT docnum

         nfnum

         docdat

    FROM j_1bnfdoc

    INTO TABLE itab_cab_notas

    WHERE docdat IN s_docdat

      AND nfnum  IN s_nfnum.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 30

            text       = text-004.

* << Fim da inclusão

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

      SELECT nrseq dtleg analista nrinsp empinsp dtconemb data_insp

             FROM /pws/zycet100

             INTO TABLE itab_zycet100

             FOR ALL ENTRIES IN itab_embarque

             WHERE nrseq EQ itab_embarque-nrseq.

* << Fim da exclusão

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

  IF sy-subrc IS INITIAL.

    SELECT docnum

           itmnum

           reftyp

           refkey

           refitm

     FROM j_1bnflin

     INTO TABLE itab_notas

     FOR ALL ENTRIES IN itab_cab_notas

     WHERE docnum EQ itab_cab_notas-docnum.

  ENDIF.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 50

            text       = text-004.

* << Fim da inclusão

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

      PERFORM seleciona_dados_embarque.

* << Fim da exclusão

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

  IF NOT itab_notas[] IS INITIAL.

* << Fim da inclusão

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

    ENDIF.

* << Fim da exclusão

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

    SORT itab_notas BY vbeln_vf

                       refitm.

* << Fim da inclusão

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

  ENDIF.

* << Fim da exclusão

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

    DELETE itab_notas WHERE refkey IS initial.

* << Fim da inclusão

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

ENDFORM.

* << Fim da exclusão

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

    LOOP AT itab_notas ASSIGNING <notas>.

      MOVE <notas>-refkey TO <notas>-vbeln_vf.

    ENDLOOP.

* << Fim da inclusão

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

FORM seleciona_nota.

* << Fim da exclusão

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

    UNASSIGN <notas>.

* << Fim da inclusão

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

  SELECT b~docnum b~itmnum b~reftyp b~refkey b~refitm a~nfnum a~docdat

         FROM j_1bnfdoc AS a INNER JOIN j_1bnflin AS b

                             ON a~docnum = b~docnum

         INTO TABLE itab_notas

         WHERE a~docdat IN s_docdat

           AND a~nfnum  IN s_nfnum.

* << Fim da exclusão

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

    SELECT nrseq

           vbeln_va

           vbeln_vl

           vbeln_vf

           aupos

           posnl

           posnr

           docnum

           auart

           bukrs

           steuc

      FROM /pws/zycet002

      INTO TABLE itab_embarque

      FOR ALL ENTRIES IN itab_notas

      WHERE vbeln_vf EQ itab_notas-vbeln_vf

        AND posnr    EQ itab_notas-refitm.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

         EXPORTING

              percentage = 70

              text       = text-004.

* << Fim da inclusão

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

  IF NOT itab_notas[] IS INITIAL.

* << Fim da exclusão

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

    IF sy-subrc IS INITIAL.

      SELECT nrseq

             bukrs

             dtaverb

             dtdoc

             dtemb

             dtprev

             nremb

             nrsd

             viatrans

             dtenvcamb

        FROM /pws/zycet001

        INTO TABLE itab_cab_embarque

        FOR ALL ENTRIES IN itab_embarque

        WHERE nrseq EQ itab_embarque-nrseq.

* << Fim da inclusão

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

    LOOP AT itab_notas.

      v_index = sy-tabix.

      MOVE itab_notas-refkey TO itab_notas-vbeln_vf.

      MODIFY itab_notas INDEX v_index.

    ENDLOOP.

* << Fim da exclusão

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

    ENDIF.

* << Fim da inclusão

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

    SELECT vbrp~vbeln vbrp~posnr

           vbrk~fkart vbrk~inco1 vbrk~bukrs

           FROM vbrk INNER JOIN vbrp

                     ON vbrk~vbeln = vbrp~vbeln

* << Fim da exclusão

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

    SELECT vbeln

           posnr

     FROM vbrp

* << Fim da inclusão

           INTO TABLE itab_fatura

           FOR ALL ENTRIES IN itab_notas

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

           WHERE vbrp~vbeln EQ itab_notas-vbeln_vf

             AND vbrp~posnr EQ itab_notas-refitm.

* << Fim da exclusão

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

     WHERE vbeln EQ itab_notas-vbeln_vf

       AND posnr EQ itab_notas-refitm.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

         EXPORTING

              percentage = 80

              text       = text-004.

* << Fim da inclusão

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

    LOOP AT itab_notas.

      v_index = sy-tabix.

      CLEAR wa_vbco6.

      MOVE: itab_notas-vbeln_vf TO wa_vbco6-vbeln,

            itab_notas-refitm   TO wa_vbco6-posnr.

* << Fim da exclusão

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

    IF NOT itab_embarque[] IS INITIAL.

      SORT itab_embarque BY vbeln_vf.

      LOOP AT itab_notas ASSIGNING <notas>.

        READ TABLE itab_embarque WITH KEY vbeln_vf = <notas>-vbeln_vf

                                                     BINARY SEARCH.

        CHECK sy-subrc IS INITIAL.

        MOVE: itab_embarque-vbeln_va TO <notas>-vbeln_va,

              itab_embarque-aupos    TO <notas>-aupos,

              itab_embarque-vbeln_vl TO <notas>-vbeln_vl,

              itab_embarque-posnl    TO <notas>-posnl.

      ENDLOOP.

* << Fim da inclusão

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

      CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'

           EXPORTING

                comwa    = wa_vbco6

           TABLES

                vbfa_tab = itab_vbfa_aux.

* << Fim da exclusão

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

      UNASSIGN <notas>.

    ENDIF.

* << Fim da inclusão

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

      READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'J'.

      MOVE: itab_vbfa_aux-vbeln TO itab_notas-vbeln_vl,

            itab_vbfa_aux-posnn TO itab_notas-posnl.

      CLEAR itab_vbfa_aux.

      READ TABLE itab_vbfa_aux WITH KEY vbtyp_n = 'C'.

      MOVE: itab_vbfa_aux-vbeln TO itab_notas-vbeln_va,

            itab_vbfa_aux-posnn TO itab_notas-aupos.

      MODIFY itab_notas INDEX v_index.

      CLEAR itab_vbfa_aux.

      REFRESH itab_vbfa_aux.

    ENDLOOP.

    SELECT vbap~mandt vbap~vbeln vbap~posnr

           vbak~vkgrp vbak~erdat vbak~auart

           vbap~werks vbap~ntgew vbap~brgew vbap~shkzg vbap~gewei

           vbap~vrkme vbap~netwr vbap~waerk vbap~kwmeng

           FROM vbak INNER JOIN vbap

                     ON vbak~vbeln = vbap~vbeln

* << Fim da exclusão

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

    SELECT vbeln

           posnr

           werks

           ntgew

           brgew

           shkzg

           gewei

           vrkme

           netwr

           waerk

           kwmeng

      FROM vbap

* << Fim da inclusão

           INTO TABLE itab_ordem

           FOR ALL ENTRIES IN itab_notas

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

           WHERE vbap~vbeln EQ itab_notas-vbeln_va

             AND vbap~posnr EQ itab_notas-aupos.

* << Fim da exclusão

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

      WHERE vbeln EQ itab_notas-vbeln_va

        AND posnr EQ itab_notas-aupos.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

         EXPORTING

              percentage = 85

              text       = text-004.

    IF sy-subrc IS INITIAL.

      SELECT vbeln

             erdat

             vkgrp

             auart

             bukrs_vf

       FROM vbak

       INTO TABLE itab_cab_ordem

       FOR ALL ENTRIES IN itab_ordem

       WHERE vbeln EQ itab_ordem-vbeln.

    ENDIF.

* << Fim da inclusão

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

    LOOP AT itab_ordem.

* << Fim da exclusão

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

    LOOP AT itab_ordem ASSIGNING <ordem>.

* << Fim da inclusão

      CLEAR itab_notas.

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

      v_index = sy-tabix.

      READ TABLE itab_notas WITH KEY vbeln_va = itab_ordem-vbeln

                                     aupos    = itab_ordem-posnr.

      MOVE: itab_notas-vbeln_vl TO itab_ordem-vbeln_vl,

            itab_notas-vbeln_vf TO itab_ordem-vbeln_vf,

            itab_notas-posnl    TO itab_ordem-posnl,

            itab_notas-refitm   TO itab_ordem-posnf.

      MODIFY itab_ordem INDEX v_index.

* << Fim da exclusão

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

      READ TABLE itab_notas WITH KEY vbeln_va = <ordem>-vbeln

                                     aupos    = <ordem>-posnr

                                     BINARY SEARCH.

      CHECK sy-subrc IS INITIAL.

      MOVE: itab_notas-vbeln_vl TO <ordem>-vbeln_vl,

            itab_notas-vbeln_vf TO <ordem>-vbeln_vf,

            itab_notas-posnl    TO <ordem>-posnl,

            itab_notas-refitm   TO <ordem>-posnf.

* << Fim da inclusão

    ENDLOOP.

    IF NOT itab_ordem[] IS INITIAL.

      PERFORM trata_ordem_ord.

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

    ENDIF.

    IF NOT itab_ordem[] IS INITIAL.

      SELECT vbeln bstkd

* << Fim da exclusão

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

      SELECT vbeln

             bstkd

* << Fim da inclusão

             FROM vbkd

             INTO TABLE itab_vbkd

             FOR ALL ENTRIES IN itab_ordem

             WHERE vbeln EQ itab_ordem-vbeln.

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

      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

           EXPORTING

                percentage = 90

                text       = text-004.

* << Fim da inclusão

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

      SELECT vbpa~vbeln vbpa~kunnr vbpa~parvw vbpa~adrnr

             adrc~country

             kna1~name1

             FROM vbpa INNER JOIN adrc

                       ON vbpa~adrnr = adrc~addrnumber

                       INNER JOIN kna1

                       ON vbpa~kunnr = kna1~kunnr

* << Fim da exclusão

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

      SELECT vbeln

             adrnr

       FROM vbpa

* << Fim da inclusão

             INTO TABLE itab_import

             FOR ALL ENTRIES IN itab_ordem

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

             WHERE vbpa~vbeln   EQ itab_ordem-vbeln

               AND vbpa~parvw   EQ 'AG'.

* << Fim da exclusão

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

       WHERE vbeln EQ itab_ordem-vbeln

         AND kunnr IN s_import

         AND parvw EQ 'AG'.

* << Fim da inclusão

      PERFORM seleciona_dados_ordem.

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

     SELECT a~mandt    a~nrseq    a~nremb     a~nrsd  a~canal   a~navio

            a~dtprev   a~dtaverb  a~dtenvcamb a~dtdoc a~dtcruze a~dtemb

                                        a~viatrans a~portdest a~despach

               b~vbeln_va b~vbeln_vl b~vbeln_vf b~aupos b~posnl b~posnr

               b~waers    b~inco1    b~docnum   b~nfnum b~werks b~vkgrp

               b~matnr    b~ntgew    b~brgew    b~shkzg b~auart b~gewei

                b~fkimg    b~vrkme    b~fkart    b~bukrs b~vlme b~steuc

                                                                b~land1

                  FROM /pws/zycet001 AS a INNER JOIN /pws/zycet002 AS b

                                                   ON a~nrseq = b~nrseq

                                               INTO TABLE itab_embarque

                                          FOR ALL ENTRIES IN itab_notas

                                WHERE b~vbeln_va EQ itab_notas-vbeln_va

                                  AND b~vbeln_vl EQ itab_notas-vbeln_vl

                                  AND b~vbeln_vf EQ itab_notas-vbeln_vf

                                     AND b~aupos    EQ itab_notas-aupos

                                     AND b~posnl    EQ itab_notas-posnl

                                    AND b~posnr    EQ itab_notas-refitm.

* << Fim da exclusão

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

    ENDIF.

* << Fim da inclusão

      IF NOT itab_embarque[] IS INITIAL.

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

        SELECT nrseq nrre dtlibanu

* << Fim da exclusão

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

      SELECT nrseq

             nrre

             dtlibanu

* << Fim da inclusão

               FROM /pws/zycet003

               INTO TABLE itab_zycet003

               FOR ALL ENTRIES IN itab_embarque

               WHERE nrseq EQ itab_embarque-nrseq.

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

        SELECT nrseq dtleg analista nrinsp empinsp dtconemb data_insp

* << Fim da exclusão

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

      SELECT nrseq

             dtleg

             analista

             nrinsp

             empinsp

             dtconemb

             data_insp

* << Fim da inclusão

               FROM /pws/zycet100

               INTO TABLE itab_zycet100

               FOR ALL ENTRIES IN itab_embarque

               WHERE nrseq EQ itab_embarque-nrseq.

        PERFORM seleciona_dados_embarque.

      ENDIF.

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

    ENDIF.

* << Fim da exclusão

  ENDIF.

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

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = 100

            text       = text-004.

* << Fim da inclusão

ENDFORM.

...

             FROM /pws/zycet102

             INTO TABLE itab_zycet102

             FOR ALL ENTRIES IN itab_zycet046

             WHERE nrrota_tr EQ itab_zycet046-nrrota_tr.

    ENDIF.

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

    SELECT nrseqno nrseqtr tpcont

           FROM /pws/zycet107

           INTO TABLE itab_zycet107

           FOR ALL ENTRIES IN itab_zycet046

           WHERE nrseqno EQ itab_zycet046-nrseqno

             AND nrseqtr EQ itab_zycet046-nrseqtr.

* << Fim da exclusão

  ENDIF.

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

  SELECT nrseq tp_doc dtlog

* << Fim da exclusão

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

  SELECT nremb

         tp_doc

         dtlog

* << Fim da inclusão

         FROM /pws/zycet183

         INTO TABLE itab_zycet183

         FOR ALL ENTRIES IN itab_embarque

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

         WHERE nrseq  EQ itab_embarque-nrseq

* << Fim da exclusão

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

         WHERE nremb  EQ itab_embarque-nrseq

* << Fim da inclusão

           AND tp_doc EQ text-011.

  SELECT land1 steuc /pws/anuencia

         FROM t604f

         INTO TABLE itab_t604f

         FOR ALL ENTRIES IN itab_embarque

         WHERE steuc EQ itab_embarque-steuc.

ENDFORM.

FORM trata_ordem_emb.

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

  REFRESH itab_zycee085.

  CLEAR itab_zycee085.

  LOOP AT itab_embarque.

    nrseq = nrseq + 1.

    itab_zycee085-nrseq = nrseq.

    SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.

    UNPACK  itab_zycee085-nrseq   TO itab_zycee085-nrseq.

    MOVE : itab_embarque-mandt    TO itab_zycee085-mandt,

           itab_embarque-vbeln_va TO itab_zycee085-vbeln_va,

           itab_embarque-vbeln_vf TO itab_zycee085-vbeln_vf,

           itab_embarque-vbeln_vl TO itab_zycee085-vbeln_vl,

           itab_embarque-posnl    TO itab_zycee085-posnl,

           itab_embarque-posnr    TO itab_zycee085-posnr,

           itab_embarque-aupos    TO itab_zycee085-aupos,

           itab_embarque-ntgew    TO itab_zycee085-ntgew,

           itab_embarque-brgew    TO itab_zycee085-brgew,

           itab_embarque-shkzg    TO itab_zycee085-shkzg,

           itab_embarque-nfnum    TO itab_zycee085-nfnum,

           itab_embarque-auart    TO itab_zycee085-auart,

           itab_embarque-waers    TO itab_zycee085-waers,

           itab_embarque-gewei    TO itab_zycee085-gewei,

           itab_embarque-fkimg    TO itab_zycee085-fkimg,

           itab_embarque-vrkme    TO itab_zycee085-vrkme,

           itab_embarque-vlme     TO itab_zycee085-vlme,

           itab_embarque-fkart    TO itab_zycee085-fkart,

           itab_embarque-inco1    TO itab_zycee085-inco1,

           itab_embarque-bukrs    TO itab_zycee085-bukrs.

    APPEND itab_zycee085.

    CLEAR itab_zycee085.

  ENDLOOP.

  EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.

  CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'

       TABLES

            t_saida = itab_saida.

  FREE MEMORY ID 'ODOC'.

  DELETE itab_saida WHERE ( vlme = space AND vfob = space ) OR

                          (  ntgew = space AND brgew = space ).

  IF NOT itab_saida[] IS INITIAL.

* << Fim da exclusão

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

  TYPES: BEGIN OF ty_zycet020,

          auart   TYPE /pws/zycet020-auart,

          tipodoc TYPE /pws/zycet020-tipodoc,

         END OF ty_zycet020.

  DATA: itab_zycet020 TYPE STANDARD TABLE OF ty_zycet020,

        wa_zycet020   TYPE ty_zycet020.

  SELECT auart

         tipodoc

   FROM /pws/zycet020

   INTO TABLE itab_zycet020

   FOR ALL ENTRIES IN itab_cab_embarque

   WHERE bukrs EQ itab_cab_embarque-bukrs.

  CHECK NOT itab_zycet020[] IS INITIAL.

* << Fim da inclusão

    LOOP AT itab_embarque.

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

      v_index = sy-tabix.

      READ TABLE itab_saida WITH KEY vbeln_va = itab_embarque-vbeln_va

                                     vbeln_vf = itab_embarque-vbeln_vf

                                     vbeln_vl = itab_embarque-vbeln_vl

                                     posnl    = itab_embarque-posnl

                                     posnr    = itab_embarque-posnr

                                     aupos    = itab_embarque-aupos.

      IF sy-subrc NE 0.

        DELETE itab_embarque INDEX v_index.

      ENDIF.

* << Fim da exclusão

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

    READ TABLE itab_zycet020 INTO wa_zycet020

                             WITH KEY auart = itab_embarque-auart

                             TRANSPORTING tipodoc.

    CHECK sy-subrc IS INITIAL

      AND wa_zycet020-tipodoc NE 'OV'.

    DELETE itab_embarque.

    DELETE itab_cab_embarque WHERE nrseq EQ itab_embarque-nrseq.

* << Fim da inclusão

    ENDLOOP.

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

  ENDIF.

* << Fim da exclusão

ENDFORM.

FORM trata_ordem_ord.

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

  REFRESH itab_zycee085.

  CLEAR itab_zycee085.

  LOOP AT itab_ordem.

    CLEAR: itab_fatura,

           itab_notas.

    nrseq = nrseq + 1.

    itab_zycee085-nrseq = nrseq.

    SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.

    UNPACK  itab_zycee085-nrseq   TO itab_zycee085-nrseq.

    READ TABLE itab_fatura WITH KEY vbeln = itab_ordem-vbeln_vf

                                    posnr = itab_ordem-posnf.

    READ TABLE itab_notas WITH KEY refkey = itab_ordem-refkey

                                   refitm = itab_ordem-posnf.

    MOVE : itab_ordem-mandt    TO itab_zycee085-mandt,

           itab_ordem-vbeln    TO itab_zycee085-vbeln_va,

           itab_ordem-vbeln_vf TO itab_zycee085-vbeln_vf,

           itab_ordem-vbeln_vl TO itab_zycee085-vbeln_vl,

           itab_ordem-posnl    TO itab_zycee085-posnl,

           itab_ordem-posnf    TO itab_zycee085-posnr,

           itab_ordem-posnr    TO itab_zycee085-aupos,

           itab_ordem-ntgew    TO itab_zycee085-ntgew,

           itab_ordem-brgew    TO itab_zycee085-brgew,

           itab_ordem-shkzg    TO itab_zycee085-shkzg,

           itab_notas-nfnum    TO itab_zycee085-nfnum,

           itab_ordem-auart    TO itab_zycee085-auart,

           itab_ordem-waerk    TO itab_zycee085-waers,

           itab_ordem-gewei    TO itab_zycee085-gewei,

           itab_ordem-kwmeng   TO itab_zycee085-fkimg,

           itab_ordem-vrkme    TO itab_zycee085-vrkme,

           itab_ordem-netwr    TO itab_zycee085-vlme,

           itab_fatura-fkart   TO itab_zycee085-fkart,

           itab_fatura-inco1   TO itab_zycee085-inco1,

           itab_fatura-bukrs   TO itab_zycee085-bukrs.

    APPEND itab_zycee085.

    CLEAR itab_zycee085.

* << Fim da exclusão

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

  TYPES: BEGIN OF ty_zycet020,

          auart   TYPE /pws/zycet020-auart,

          tipodoc TYPE /pws/zycet020-tipodoc,

         END OF ty_zycet020.

  DATA: itab_zycet020 TYPE STANDARD TABLE OF ty_zycet020,

        wa_zycet020   TYPE ty_zycet020.

  SELECT auart

         tipodoc

   FROM /pws/zycet020

   INTO TABLE itab_zycet020

   FOR ALL ENTRIES IN itab_cab_ordem

   WHERE bukrs EQ itab_cab_ordem-bukrs_vf.

  CHECK NOT itab_zycet020[] IS INITIAL.

  LOOP AT itab_cab_ordem INTO wa_cab_ordem.

    READ TABLE itab_zycet020 INTO wa_zycet020

                             WITH KEY auart = wa_cab_ordem-auart

                             TRANSPORTING tipodoc.

    CHECK sy-subrc IS INITIAL

      AND wa_zycet020-tipodoc NE 'OV'.

    DELETE itab_cab_ordem.

    DELETE itab_ordem WHERE vbeln EQ wa_cab_ordem-vbeln.

* << Fim da inclusão

  ENDLOOP.

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

  EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.

  CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'

       TABLES

            t_saida = itab_saida.

  FREE MEMORY ID 'ODOC'.

  DELETE itab_saida WHERE ( vlme = space AND vfob = space ) OR

                          (  ntgew = space AND brgew = space ).

  IF NOT itab_saida[] IS INITIAL.

      v_index = sy-tabix.

      READ TABLE itab_saida WITH KEY vbeln_va = itab_ordem-vbeln

                                     vbeln_vf = itab_ordem-vbeln_vf

                                     vbeln_vl = itab_ordem-vbeln_vl

                                     posnl    = itab_ordem-posnl

                                     posnr    = itab_ordem-posnf

                                     aupos    = itab_ordem-posnr.

      IF sy-subrc NE 0.

        DELETE itab_ordem INDEX v_index.

      ENDIF.

    ENDLOOP.

  ENDIF.

* << Fim da exclusão

ENDFORM.

FORM processa_dados.

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

  SORT itab_ordem BY vbeln_vl

                     vbeln

                     posnl  .

* << Fim da exclusão

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

  DATA vbadr TYPE vbadr.

  SORT: itab_cab_ordem    BY vbeln,

        itab_cab_notas    BY docnum,

        itab_notas        BY refkey

                             refitm,

        itab_vbkd         BY vbeln,

        itab_import       BY vbeln,

        itab_likp         BY vbeln,

        itab_zycet265     BY vbeln_va

                             vbeln_vl

                             bstkd,

        itab_cab_embarque BY nrseq,

        itab_embarque     BY vbeln_va

                             vbeln_vl

                             vbeln_vf

                             aupos

                             posnl

                             posnr,

        itab_zycet100     BY nrseq,

        itab_carga        BY nrseq,

        itab_zycet046     BY nrseq,

        itab_zycet102     BY nrseqtr

                             nrrota_tr,

        itab_zycet183     BY nremb

                             tp_doc,

        itab_zycet003     BY nrseq.

* << Fim da inclusão

    LOOP AT itab_ordem.

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

    READ TABLE itab_cab_ordem INTO wa_cab_ordem

                              WITH KEY vbeln = itab_ordem-vbeln

                                               BINARY SEARCH.

* << Fim da inclusão

    CLEAR: itab_relat.

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

    MOVE: itab_ordem-vbeln    TO itab_relat-vbeln_va,

          itab_ordem-vbeln_vl TO itab_relat-vbeln_vl,

          wa_cab_ordem-vkgrp  TO itab_relat-vkgrp,

          wa_cab_ordem-erdat  TO itab_relat-erdat,

          itab_ordem-werks    TO itab_relat-werks.

    READ TABLE itab_notas WITH KEY refkey = itab_ordem-vbeln_vf

                                   refitm = itab_ordem-posnf

                                            BINARY SEARCH.

* << Fim da inclusão

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

    MOVE: itab_ordem-vbeln      TO itab_relat-vbeln_va,

          itab_ordem-vbeln_vl   TO itab_relat-vbeln_vl,

          itab_ordem-vkgrp      TO itab_relat-vkgrp,

          itab_ordem-erdat      TO itab_relat-erdat,

          itab_ordem-werks      TO itab_relat-werks.

* << Fim da exclusão

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

    IF sy-subrc IS INITIAL.

      READ TABLE itab_cab_notas INTO wa_cab_notas

                                WITH KEY docnum = itab_notas-docnum

                                                  BINARY SEARCH.

* << Fim da inclusão

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

    READ TABLE itab_notas WITH KEY refkey = itab_ordem-refkey

                                   refitm = itab_ordem-posnf.

* << Fim da exclusão

    IF sy-subrc EQ 0.

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

      MOVE: itab_notas-nfnum    TO itab_relat-nfnum,

            itab_notas-docdat   TO itab_relat-docdat.

* << Fim da exclusão

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

        MOVE: wa_cab_notas-nfnum    TO itab_relat-nfnum,

              wa_cab_notas-docdat   TO itab_relat-docdat.

* << Fim da inclusão

    ENDIF.

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

    ENDIF.

* << Fim da inclusão

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

    READ TABLE itab_vbkd WITH KEY vbeln = itab_ordem-vbeln.

* << Fim da exclusão

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

    READ TABLE itab_vbkd WITH KEY vbeln = itab_ordem-vbeln

                                          BINARY SEARCH.

* << Fim da inclusão

    IF sy-subrc EQ 0.

      MOVE: itab_vbkd-bstkd    TO itab_relat-bstkd.

    ENDIF.

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

    READ TABLE itab_import WITH KEY vbeln = itab_ordem-vbeln.

* << Fim da exclusão

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

    READ TABLE itab_import WITH KEY vbeln = itab_ordem-vbeln

                                            BINARY SEARCH.

* << Fim da inclusão

    IF sy-subrc EQ 0.

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

      MOVE: itab_import-name1    TO itab_relat-importador,

            itab_import-country  TO itab_relat-country.

* << Fim da exclusão

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

      CALL FUNCTION 'SD_ADDRESS_GET'

           EXPORTING

                fif_address_number      = itab_import-adrnr

                fif_langu               = sy-langu

           IMPORTING

                fes_address             = vbadr

           EXCEPTIONS

                address_not_found       = 1

                address_type_not_exists = 2

                no_person_number        = 3

                error_message           = 4

                OTHERS                  = 5.

      MOVE: vbadr-name1 TO itab_relat-importador,

            vbadr-land1 TO itab_relat-country.

* << Fim da inclusão

    ENDIF.

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

    READ TABLE itab_likp WITH KEY vbeln = itab_ordem-vbeln_vl.

* << Fim da exclusão

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

    READ TABLE itab_likp WITH KEY vbeln = itab_ordem-vbeln_vl

                                          BINARY SEARCH.

* << Fim da inclusão

    IF sy-subrc EQ 0.

      MOVE: itab_likp-bldat   TO itab_relat-bldat.

    ENDIF.

    READ TABLE itab_zycet265 WITH KEY vbeln_va = itab_ordem-vbeln

                                      vbeln_vl = itab_ordem-vbeln_vl

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

                                      bstkd    = itab_vbkd-bstkd.

* << Fim da exclusão

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

                                      bstkd    = itab_vbkd-bstkd

                                      BINARY SEARCH.

* << Fim da inclusão

    IF sy-subrc EQ 0.

      MOVE: itab_zycet265-dtlibven   TO itab_relat-dtlibven,

            itab_zycet265-dtsolfat   TO itab_relat-dtsolfat,

            itab_zycet265-dtlibemb   TO itab_relat-dtlibemb.

    ENDIF.

    READ TABLE itab_embarque WITH KEY vbeln_va = itab_ordem-vbeln

                                      vbeln_vl = itab_ordem-vbeln_vl

                                      vbeln_vf = itab_ordem-vbeln_vf

                                      aupos    = itab_ordem-posnr

                                      posnl    = itab_ordem-posnl

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

                                      posnr    = itab_ordem-posnf.

* << Fim da exclusão

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

                                      posnr    = itab_ordem-posnf

                                      BINARY SEARCH.

    IF sy-subrc IS INITIAL.

      READ TABLE itab_cab_embarque INTO wa_cab_embarque

                                   WITH KEY nrseq = itab_embarque-nrseq

                                                    BINARY SEARCH.

* << Fim da inclusão

    IF sy-subrc EQ 0.

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

      MOVE: itab_embarque-nrseq      TO itab_relat-nrseq,

            itab_embarque-nremb      TO itab_relat-nremb,

            itab_embarque-viatrans   TO itab_relat-viatrans,

            itab_embarque-nrsd       TO itab_relat-nrsd,

            itab_embarque-dtprev     TO itab_relat-dtprev,

            itab_embarque-dtemb      TO itab_relat-dtemb,

            itab_embarque-dtaverb    TO itab_relat-dtaverb,

            itab_embarque-dtenvcamb  TO itab_relat-dtenvcamb.

* << Fim da exclusão

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

        MOVE: wa_cab_embarque-nrseq      TO itab_relat-nrseq,

              wa_cab_embarque-nremb      TO itab_relat-nremb,

              wa_cab_embarque-viatrans   TO itab_relat-viatrans,

              wa_cab_embarque-nrsd       TO itab_relat-nrsd,

              wa_cab_embarque-dtprev     TO itab_relat-dtprev,

              wa_cab_embarque-dtemb      TO itab_relat-dtemb,

              wa_cab_embarque-dtaverb    TO itab_relat-dtaverb,

              wa_cab_embarque-dtenvcamb  TO itab_relat-dtenvcamb.

* << Fim da inclusão

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

      IF NOT itab_embarque-dtdoc IS INITIAL.

        MOVE: itab_embarque-dtdoc      TO itab_relat-dtdoc.

* << Fim da exclusão

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

        IF NOT wa_cab_embarque-dtdoc IS INITIAL.

          MOVE: wa_cab_embarque-dtdoc      TO itab_relat-dtdoc.

        ENDIF.

* << Fim da inclusão

      ENDIF.

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

      READ TABLE itab_zycet100 WITH KEY nrseq = itab_embarque-nrseq

* << Fim da inclusão

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

      READ TABLE itab_zycet100 WITH KEY nrseq = itab_embarque-nrseq.

* << Fim da exclusão

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

                                                BINARY SEARCH.

* << Fim da inclusão

      IF sy-subrc EQ 0.

        MOVE: itab_zycet100-analista   TO itab_relat-analista.

      ENDIF.

      CLEAR itab_carga.

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

      READ TABLE itab_carga WITH KEY nrseq = itab_embarque-nrseq.

* << Fim da exclusão

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

      READ TABLE itab_carga WITH KEY nrseq = itab_embarque-nrseq

                                             BINARY SEARCH.

* << Fim da inclusão

      IF sy-subrc IS INITIAL.

        MOVE: itab_carga-dt_dead_line TO itab_relat-dataentr.

      ENDIF.

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

      READ TABLE itab_zycet046 WITH KEY nrseq = itab_embarque-nrseq.

* << Fim da exclusão

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

      READ TABLE itab_zycet046 WITH KEY nrseq = itab_embarque-nrseq

                                                BINARY SEARCH.

* << Fim da inclusão

      IF sy-subrc EQ 0.

        CLEAR itab_zycet102.

        READ TABLE itab_zycet102 WITH KEY

                                 nrseqtr   = itab_zycet046-nrseqtr

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

                                 nrrota_tr = itab_zycet046-nrrota_tr.

* << Fim da exclusão

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

                                 nrrota_tr = itab_zycet046-nrrota_tr

                                             BINARY SEARCH.

* << Fim da inclusão

        IF NOT sy-subrc IS INITIAL.

          READ TABLE itab_zycet102 WITH KEY

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

                                    nrrota_tr = itab_zycet046-nrrota_tr.

* << Fim da exclusão

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

                                    nrrota_tr = itab_zycet046-nrrota_tr

                                                BINARY SEARCH.

* << Fim da inclusão

        ENDIF.

        IF sy-subrc EQ 0.

          MOVE: itab_zycet102-dtdesembaraco TO itab_relat-dtdesembaraco.

        ENDIF.

      ENDIF.

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

      READ TABLE itab_zycet183 WITH KEY nrseq  = itab_embarque-nrseq

                                        tp_doc = text-011.

* << Fim da exclusão

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

      READ TABLE itab_zycet183 WITH KEY nremb  = itab_embarque-nrseq

                                        tp_doc = text-011

                                                 BINARY SEARCH.

* << Fim da inclusão

      IF sy-subrc EQ 0.

        MOVE: itab_zycet183-dtlog   TO itab_relat-dt_re.

      ENDIF.

      CLEAR colinfo.

      colinfo-color-col = 2.

      colinfo-fieldname = 'BSTKD'.

      APPEND colinfo TO itab_relat-colinfo.

...

  SORT itab_relat BY nrseq

                     vbeln_vl

                     werks.

  DELETE ADJACENT DUPLICATES FROM itab_relat.

  LOOP AT itab_relat.

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

    READ TABLE itab_zycet003 WITH KEY nrseq = itab_relat-nrseq.

* << Fim da exclusão

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

    READ TABLE itab_zycet003 WITH KEY nrseq = itab_relat-nrseq

                                              BINARY SEARCH.

* << Fim da inclusão

    IF sy-subrc EQ 0 AND itab_relat-icon_4 IS INITIAL.

      MOVE: itab_zycet003-nrre       TO itab_relat-nrre.

      WRITE itab_zycet003-dtlibanu   TO itab_relat-icon_4.

      MODIFY itab_relat.

    ENDIF.

...

  CLEAR ls_line.

  ls_line-typ  = 'H'.

  ls_line-info = text-010.

  APPEND ls_line TO p_gt_list_top_of_page.

  CLEAR ls_line.

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

  CONCATENATE sy-datlo+6(02)

* << Fim da exclusão

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

  CONCATENATE: sy-datlo+6(02)

* << Fim da inclusão

              sy-datlo+4(02)

              sy-datlo(04)

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

               INTO v_key

               SEPARATED BY '/',

* << Fim da inclusão

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

              INTO v_key

              SEPARATED BY '/'.

  CONCATENATE text-014

* << Fim da exclusão

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

               text-014

* << Fim da inclusão

              v_key

              INTO v_key

              SEPARATED BY space.

  ls_line-typ  = 'S'.

  ls_line-info  = v_key.

...

  DATA: v_data   LIKE sy-datum.

  CASE itab_relat-viatrans.

    WHEN c_ma OR c_rd OR c_ta.

      CLEAR v_data.

      IF NOT itab_relat-bldat IS INITIAL.

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

        WRITE: itab_relat-bldat TO itab_relat-icon_1.

      ELSE.

* << Fim da exclusão

        v_data = itab_relat-dtlibven + 1.

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

        IF sy-datlo GT v_data.

* << Fim da exclusão

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

        IF itab_relat-bldat LT v_data.

* << Fim da inclusão

          MOVE: v_icon  TO itab_relat-icon_1.

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

        ELSE.

          WRITE: itab_relat-bldat TO itab_relat-icon_1.

* << Fim da inclusão

        ENDIF.

      ENDIF.

      CLEAR v_data.

      IF itab_relat-dtsolfat IS INITIAL.

        v_data = itab_relat-bldat + 1.

...

        WRITE: itab_relat-docdat TO itab_relat-icon_3.

      ENDIF.

      CLEAR itab_t604f.

      READ TABLE itab_t604f WITH KEY steuc = itab_embarque-steuc.

      IF sy-subrc EQ 0.

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

        IF NOT itab_t604f-/pws/anuencia IS INITIAL.

* << Fim da exclusão

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

        IF NOT itab_t604f-/pws/anuencia IS INITIAL

        OR NOT itab_relat-dt_re IS INITIAL.

* << Fim da inclusão

          CLEAR v_data.

          v_data = itab_relat-dt_re + 3.

          IF sy-datlo GT v_data.

            MOVE: v_icon  TO itab_relat-icon_4.

          ELSE.

...

          ENDIF.

        ENDIF.

      ELSE.

        WRITE: itab_relat-dtlibanu TO itab_relat-icon_4.

      ENDIF.

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

      IF itab_relat-dataentr IS INITIAL.

        IF itab_relat-dtdesembaraco IS INITIAL AND

           itab_relat-viatrans      EQ c_ma.

* << Fim da exclusão

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

      CLEAR v_data.

      IF NOT itab_relat-dataentr IS INITIAL.

        v_data = itab_relat-dataentr - 2.

        IF ( itab_relat-dtdesembaraco IS INITIAL OR

             itab_relat-dtdesembaraco LT v_data )

         AND itab_relat-viatrans EQ c_ma.

* << Fim da inclusão

          MOVE: v_icon  TO itab_relat-icon_5.

        ELSE.

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

          IF NOT itab_relat-dataentr IS INITIAL.

* << Fim da exclusão

            WRITE: itab_relat-dataentr TO itab_relat-icon_5.

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

          ENDIF.

* << Fim da exclusão

        ENDIF.

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

      ELSE.

        WRITE: itab_relat-dataentr TO itab_relat-icon_5.

* << Fim da exclusão

      ENDIF.

      CLEAR v_data.

      IF itab_relat-dtdesembaraco IS INITIAL.

        IF itab_relat-viatrans EQ c_ma.

          IF NOT itab_relat-dtlibemb IS INITIAL.

...

           itab_zycet265,

           itab_embarque,

           itab_zycet003,

           itab_zycet100,

           itab_zycet046,

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

           itab_zycet101,

* << Fim da exclusão

           itab_zycet102,

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

           itab_zycet107,

* << Fim da exclusão

           itab_zycet183.

...

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

Modificações efetuadas em REPT /PWS/ZYCER214

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 004

Texto: (21 caracteres)

"Selecionando Dados..."

Comprimento máximo: 21

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 015

Texto: (4 caracteres)

"Hour"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 015

Texto: (5 caracteres)

"Hora:"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 015

Texto: (5 caracteres)

"Hora:"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 017

Texto: (10 caracteres)

"Nº of Page"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 017

Texto: (10 caracteres)

"Nº da Pág."

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 017

Texto: (10 caracteres)

"Nº de Pág."

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 018

Texto: (14 caracteres)

"Purchase Order"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 018

Texto: (16 caracteres)

"Pedido de Compra"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 018

Texto: (16 caracteres)

"Pedido de Compra"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 019

Texto: (19 caracteres)

"Purchase Order Date"

Comprimento máximo: 21

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 019

Texto: (21 caracteres)

"Data Pedido de Compra"

Comprimento máximo: 21

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 019

Texto: (21 caracteres)

"Fcha.Pedido de Compra"

Comprimento máximo: 21

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 020

Texto: (8 caracteres)

"Importer"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 020

Texto: (10 caracteres)

"Importador"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 020

Texto: (10 caracteres)

"Importador"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 021

Texto: (8 caracteres)

"Receiver"

Comprimento máximo: 9

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 021

Texto: (9 caracteres)

"Recebedor"

Comprimento máximo: 9

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 021

Texto: (9 caracteres)

"Recibidor"

Comprimento máximo: 9

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 022

Texto: (11 caracteres)

"F.Forwarder"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 022

Texto: (11 caracteres)

"Despachante"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 022

Texto: (11 caracteres)

"Despachante"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 023

Texto: (10 caracteres)

"Sale Order"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 023

Texto: (14 caracteres)

"Ordem de Venda"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 023

Texto: (14 caracteres)

"Orden de Venta"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 024

Texto: (15 caracteres)

"Sale Order Date"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 024

Texto: (19 caracteres)

"Data Ordem de Venda"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 024

Texto: (17 caracteres)

"Fecha Orden Venta"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 025

Texto: (7 caracteres)

"Remitt."

Comprimento máximo: 7

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 025

Texto: (7 caracteres)

"Remessa"

Comprimento máximo: 7

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 025

Texto: (6 caracteres)

"Remesa"

Comprimento máximo: 7

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 026

Texto: (15 caracteres)

"Consignment Dt."

Comprimento máximo: 15

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 026

Texto: (15 caracteres)

"Data da Remessa"

Comprimento máximo: 15

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 026

Texto: (15 caracteres)

"Fecha de Remesa"

Comprimento máximo: 15

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 027

Texto: (16 caracteres)

"Gross Weight Tot"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 027

Texto: (16 caracteres)

"Peso Bruto Total"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 027

Texto: (16 caracteres)

"Peso Bruto Total"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 028

Texto: (8 caracteres)

"NF Value"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 028

Texto: (11 caracteres)

"Valor da NF"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 028

Texto: (11 caracteres)

"Valor de FF"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 029

Texto: (20 caracteres)

"Date of the Emission"

Comprimento máximo: 21

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 029

Texto: (21 caracteres)

"Data da Emissão da NF"

Comprimento máximo: 21

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 029

Texto: (19 caracteres)

"Fecha Emisión de FF"

Comprimento máximo: 21

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 030

Texto: (8 caracteres)

"Shipment"

Comprimento máximo: 8

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 030

Texto: (8 caracteres)

"Embarque"

Comprimento máximo: 8

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 030

Texto: (8 caracteres)

"Embarque"

Comprimento máximo: 8

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 031

Texto: (19 caracteres)

"Com. Invoice Number"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 031

Texto: (19 caracteres)

"N. Fatura Comercial"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 031

Texto: (19 caracteres)

"NºFactura Comercial"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 032

Texto: (5 caracteres)

"Modal"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 032

Texto: (5 caracteres)

"Modal"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 032

Texto: (5 caracteres)

"Modal"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 033

Texto: (16 caracteres)

"Destination Loca"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 033

Texto: (16 caracteres)

"Local de Destino"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 033

Texto: (16 caracteres)

"Local de Destino"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 034

Texto: (25 caracteres)

"Shipment Instruction Date"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 034

Texto: (26 caracteres)

"Data Instrução de Embarque"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 034

Texto: (26 caracteres)

"Fecha Instrucción Embarque"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 035

Texto: (23 caracteres)

"Origin Certificate Date"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 035

Texto: (26 caracteres)

"Data Certificado de Origem"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 035

Texto: (24 caracteres)

"Fecha Certificado Origen"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 036

Texto: (11 caracteres)

"Form A Date"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 036

Texto: (11 caracteres)

"Data Form A"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 036

Texto: (11 caracteres)

"Fcha.Form A"

Comprimento máximo: 11

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 037

Texto: (17 caracteres)

"Packing List Date"

Comprimento máximo: 17

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 037

Texto: (17 caracteres)

"Data Packing List"

Comprimento máximo: 17

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 037

Texto: (17 caracteres)

"Fcha.Packing List"

Comprimento máximo: 17

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 038

Texto: (26 caracteres)

"Insurance Certificate Date"

Comprimento máximo: 29

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 038

Texto: (29 caracteres)

"Data do Certificado de Seguro"

Comprimento máximo: 29

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 038

Texto: (27 caracteres)

"Fecha Certificado de Seguro"

Comprimento máximo: 29

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 039

Texto: (7 caracteres)

"RE Date"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 039

Texto: (10 caracteres)

"Data de RE"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 039

Texto: (8 caracteres)

"Fecha RE"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 040

Texto: (26 caracteres)

"Authorization Liberate Dt."

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 040

Texto: (26 caracteres)

"Data Liberação de Anuência"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 040

Texto: (25 caracteres)

"Fecha Liberación Anuencia"

Comprimento máximo: 26

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 041

Texto: (7 caracteres)

"SD Date"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 041

Texto: (10 caracteres)

"Data de SD"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 041

Texto: (8 caracteres)

"Fecha SD"

Comprimento máximo: 10

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 042

Texto: (5 caracteres)

"Chan."

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 042

Texto: (5 caracteres)

"Canal"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 042

Texto: (5 caracteres)

"Canal"

Comprimento máximo: 5

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 043

Texto: (13 caracteres)

"Inspection Nº"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 043

Texto: (14 caracteres)

"Nº da Inspeção"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 043

Texto: (13 caracteres)

"Nº Inspección"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 044

Texto: (15 caracteres)

"Inspection Date"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 044

Texto: (16 caracteres)

"Data de Inspeção"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 044

Texto: (16 caracteres)

"Fecha Inspección"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 045

Texto: (12 caracteres)

"Author. Date"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 045

Texto: (16 caracteres)

"Data Legalização"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 045

Texto: (16 caracteres)

"Fch.Legalización"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 046

Texto: (14 caracteres)

"Fumigation Dat"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 046

Texto: (14 caracteres)

"Data Fumigação"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 046

Texto: (14 caracteres)

"Fch.Fumigación"

Comprimento máximo: 14

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 047

Texto: (11 caracteres)

"Transporter"

Comprimento máximo: 13

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 047

Texto: (13 caracteres)

"Transportador"

Comprimento máximo: 13

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 047

Texto: (13 caracteres)

"Transportador"

Comprimento máximo: 13

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 048

Texto: (18 caracteres)

"Consolidation Date"

Comprimento máximo: 20

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 048

Texto: (20 caracteres)

"Data de Consolidação"

Comprimento máximo: 20

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 048

Texto: (19 caracteres)

"Fecha Consolidación"

Comprimento máximo: 20

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 049

Texto: (10 caracteres)

"Truck Type"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 049

Texto: (16 caracteres)

"Tipo de Caminhão"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 049

Texto: (14 caracteres)

"Tipo de Camión"

Comprimento máximo: 16

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 050

Texto: (15 caracteres)

"Vessel Dead Lin"

Comprimento máximo: 15

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 050

Texto: (15 caracteres)

"Dead Line Navio"

Comprimento máximo: 15

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 050

Texto: (15 caracteres)

"Dead Line Buque"

Comprimento máximo: 15

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 051

Texto: (19 caracteres)

"disembarrassment dt"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 051

Texto: (19 caracteres)

"Data de Desembaraço"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 051

Texto: (17 caracteres)

"Fecha Desembarazo"

Comprimento máximo: 19

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

Excluído símbolo de texto:

Idioma: EN

Símbolo: 052

Texto: (27 caracteres)

"Shipement Confirmation Date"

Comprimento máximo: 31

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

Excluído símbolo de texto:

Idioma: PT

Símbolo: 052

Texto: (31 caracteres)

"Data de Confirmação de Embarque"

Comprimento máximo: 31

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

Excluído símbolo de texto:

Idioma: ES

Símbolo: 052

Texto: (30 caracteres)

"Fecha Confirmación de Embarque"

Comprimento máximo: 31

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

Excluído símbolo de texto:

Idioma: EN