CE PLUS - Nota 002153

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DA

Data/Hora da Publicação: 27/09/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 12:53:35

Descrição da Nota: A PASTA DE LOTE DO FORNECEDOR TEM PEDIDO/ITEM NA DA QUANDO FOR REGIME 02

Sintoma

Favor fazer consistência do lote do fornecedor com o pedido/item na Declaração de Admissão, quando o

regime for Admissão em Entreposto Aduaneiro (regime 02).

 

 

 

Solução

Desenvolver a pasta de lote do fornecedor com pedido/item na DA quando for regime 02.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

AJUSTES CONSISTÊNCIAS ITENS NA DA, FECHAMENTO DE PASTAS

Informações Complementares

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

Nota Número 02153 Data: 27/09/2006 Hora: 09:34:28

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

 

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

Nota Número              : 02153

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00132

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

Referência às notas relacionadas:

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

 

01323  - 00001 - 6.0    - 00023  - DECLARAÇÃO DE ADMISSÃO PARA ENTREPOSTO ADUANEIRO

02122  - 00002 - 6.0    - 00024  - AJUSTES CONSISTÊNCIAS ITENS NA DA, FECHAMENTO DE PASTAS

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

A PASTA DE LOTE DO FORNECEDOR TEM PEDIDO/ITEM NA DA QUANDO FOR REGIME 02

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

Palavras Chave:

DA  FORNECEDOR - PASTA LOTE - PEDIDO/ITEM - ENTREPOSTO ADUANEIRO

 

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

Objetos da nota:

DYNP /PWS/SAPMZYCI070                        0220

REPS /PWS/MZYCI070F01

REPS /PWS/MZYCI070F03

REPS /PWS/MZYCI070I01

REPS /PWS/MZYCI070TOP

REPT /PWS/SAPMZYCI070

TABD /PWS/ZYCIT463

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI070                        0220

 

* Diferenças na lógica de processamento :

 

    PROCESS BEFORE OUTPUT.

 

      MODULE: set_screen.

 

      MODULE: define_linhas_lote.

 

      LOOP AT itab_lote CURSOR tc_lote-current_line.

 

        MODULE: set_status_lote.

 

        MODULE: carrega_estrutura_lote,

                set_screen_lines.

      ENDLOOP.

 

   PROCESS AFTER INPUT.

      LOOP AT itab_lote.

 

        CHAIN.

          FIELD: /pws/zycie463-ebeln,

                 /pws/zycie463-ebelp

 

*           MODULE valida_pedido. " ON INPUT.

        MODULE valida_pedido ON INPUT.

 

        ENDCHAIN.

 

 

        FIELD /pws/zycie463-numfatura

            MODULE valida_fatura ON INPUT.

 

        CHAIN.

        FIELD /pws/zycie463-matnr

*<<Inicio Exclusão tela 0220

*           MODULE valida_material ON INPUT.

*<<Fim Exclusão

 

*<<Inicio Inclusão tela 0220

           MODULE valida_material.

*<<Fim Inclusão

 

        ENDCHAIN.

 

*<<Inicio Exclusão tela 0220

*       CHAIN.

*         FIELD /pws/zycie463-qtd_lote

*         MODULE valida_quantidade ON INPUT.

*       ENDCHAIN.

*<<Fim Exclusão

 

       FIELD /pws/zycie463-dt_fabricacao

          MODULE valida_data_fabricacao ON INPUT.

 

       FIELD /pws/zycie463-dt_validade

          MODULE valida_data_validade ON INPUT.

 

          MODULE carrega_tabela_lote.

    ENDLOOP.

 

*<<Inicio Inclusão tela 0220

  MODULE valida_quantidade.

*<<Fim Inclusão

 

  MODULE user_command_0220.

 

*<<Inicio Inclusão tela 0220

 

PROCESS ON VALUE-REQUEST.

 

  FIELD /pws/zycie463-ebeln

    MODULE matchcode_pedido.

 

  FIELD /pws/zycie463-ebelp

    MODULE matchcode_item.

*<<Fim Inclusão

 

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

*Os seguintes campos de tela foram modificados:

 

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

 

*DE:

 - /PWS/ZYCIE463-EBELN

      I/O        1        1      10      10       1     CHAR   X               Off

      AC                       BES

      Chave externa, Botão EntrsPoss.stand., Elem.TC

      Saída de conversão=ALPHA

 

*PARA:

 - /PWS/ZYCIE463-EBELN

      I/O        1        1      10      10       1     CHAR   X               Off

      AC                       BES

      Botão EntrsPoss.stand., Elem.TC

      Saída de conversão=ALPHA

 

*DE:

 - /PWS/ZYCIE463-EBELP

      I/O        1        2       5       6       1     NUMC   X               Off

      AC                       BSP

      Chave externa, Botão EntrsPoss.stand., Elem.TC

 

*PARA:

 - /PWS/ZYCIE463-EBELP

      I/O        1        2       5       6       1     NUMC   X               Off

      AC                       BSP

      Botão EntrsPoss.stand., Elem.TC

 

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

Modificações efetuadas em REPS /PWS/MZYCI070F01

 

...

    IF NOT vl_erro IS INITIAL.

      MESSAGE e013 WITH text-455.

    ENDIF.

  ENDIF.

  PERFORM verifica_nrdi.

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

  LOOP AT itab_zycit463.

    CLEAR v_erro_lote.

    CLEAR itab_it.

    READ TABLE itab_it WITH KEY

                       ebeln = itab_zycit463-ebeln

                       ebelp = itab_zycit463-ebelp

                       matnr = itab_zycit463-matnr.

    IF NOT sy-subrc IS INITIAL.

      MESSAGE i015 WITH text-489

                        itab_zycit463-ebeln

                        itab_zycit463-ebelp

                        text-490.

      v_erro_lote = 'S'.

    ENDIF.

  ENDLOOP.

  IF v_erro_lote = 'S'.

    EXIT.

  ENDIF.

  CLEAR: v_qtd_lote.

  LOOP AT itab_it.

    ON CHANGE OF itab_it-ebeln

              OR itab_it-ebelp.

      CLEAR: v_qtd_lote.

    ENDON.

    LOOP AT itab_lote WHERE ebeln EQ itab_it-ebeln

                      AND   ebelp EQ itab_it-ebelp.

      v_qtd_lote = v_qtd_lote + itab_lote-qtd_lote.

    ENDLOOP.

    IF v_qtd_lote GT itab_it-qtd_da.

      MESSAGE s039 WITH text-498.

      v_erro_lote = 'S'.

    ENDIF.

  ENDLOOP.

  IF v_erro_lote = 'S'.

    EXIT.

  ENDIF.

* << Fim da inclusão

  IF v_dit = 'N'.

    IF NOT /pws/zycie442-waersfob IS INITIAL.

      PERFORM: taxa_converte

        USING    /pws/zycie442-waersfob

                 /pws/zycie442-dttax

...

 

...

             INTO   /pws/zycit463-qtd_nac

             FROM   /pws/zycit463

             WHERE  nrseqda   EQ itab_zycit463-nrseqda

             AND    nrseqlote EQ itab_zycit463-nrseqlote.

      MODIFY /pws/zycit463.

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

    ENDLOOP.

    LOOP AT itab_del.

      DELETE FROM /pws/zycit463 WHERE nrseqda EQ itab_del-nrseqda

                                AND   ebeln   EQ itab_del-ebeln

                                AND   ebelp   EQ itab_del-ebelp.

    ENDLOOP.

    LOOP AT itab_lote_del.

      DELETE FROM /pws/zycit463 WHERE nrseqda EQ itab_lote_del-nrseqda

                                AND   ebeln   EQ itab_lote_del-ebeln

                                AND   ebelp   EQ itab_lote_del-ebelp.

* << Fim da inclusão

    ENDLOOP.

    DELETE FROM /pws/zycit464 WHERE nrseqda = /pws/zycie442-nrseqda.

    MODIFY /pws/zycit464 FROM TABLE itab_zycit464.

    REFRESH: itab_zycit049di2, itab_zycit049di.

    LOOP AT itab_zycit049.

...

 

...

           WHERE  nrseqda   EQ itab_lote-nrseqda

           AND    nrseqlote EQ itab_zycit463-nrseqlote.

    itab_lote-qtd_nac = itab_zycit463-qtd_nac.

    MODIFY itab_lote INDEX v_tabix.

    APPEND itab_zycit463.

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

  ENDLOOP.

  LOOP AT itab_zycit463.

    DELETE FROM /pws/zycit463 WHERE nrseqda EQ itab_zycit463-nrseqda

                              AND   ebeln   EQ itab_zycit463-ebeln

                              AND   ebelp   EQ itab_zycit463-ebelp.

* << Fim da inclusão

  ENDLOOP.

  MODIFY /pws/zycit463 FROM TABLE itab_zycit463.

  LOOP AT itab_it.

    MOVE-CORRESPONDING itab_it TO itab_zycit003.

    APPEND itab_zycit003.

...

 

...

  CHECK v_acto EQ 'A'.

  CLEAR:   itab_zycit443, itab_zycit003, itab_zycit049di2.

  REFRESH: itab_zycit443, itab_zycit003, itab_zycit049di2.

  CLEAR:   itab_zycit455, itab_zycit463.

  REFRESH: itab_zycit455, itab_zycit463.

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

  DELETE itab_lote WHERE lote_forn IS initial AND

                         numfatura IS initial AND

                         matnr     IS initial.

* << Fim da inclusão

  LOOP AT itab_lote.

    MOVE-CORRESPONDING itab_lote TO itab_zycit463.

    IF itab_zycit463-nrseqlote IS INITIAL.

      LOOP AT itab_zycit463 INTO itab_zycit463a

        WHERE NOT nrseqlote IS initial.

...

 

...

      APPEND itab_it.

      CLEAR itab_it.

    ENDLOOP.

    MOVE: itab_zycit003[] TO itab_zycit003a[].

    PERFORM: fill_itabit.

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

  ELSE.

    LOOP AT itab_zycit455.

      MOVE-CORRESPONDING itab_zycit455 TO itab_it.

      IF itab_it-mandt IS INITIAL.

        itab_it-mandt = sy-mandt.

      ENDIF.

      APPEND itab_it.

      CLEAR itab_it.

    ENDLOOP.

* << Fim da exclusão

  ENDIF.

  SELECT SINGLE *

    FROM t001

    WHERE bukrs EQ /pws/zycie442-bukrs.

  SELECT SINGLE *

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI070F03

 

...

         AND ebelp EQ itab_zycit443-ebelp.

    DELETE itab_zycit443_saldo WHERE nrseqda EQ /pws/zycie442-nrseqda.

  ENDIF.

ENDFORM.

FORM saldo_online_da.

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

  IF NOT itab_lote[] IS INITIAL.

    LOOP AT itab_lote.

    ENDLOOP.

  ENDIF.

* << Fim da exclusão

  CHECK /pws/zycie442-codreg NE '04'.

  CLEAR v_da_sem_saldo.

  CLEAR v_sd_utilizado.

  LOOP AT itab_zycit443_saldo

    WHERE ebeln = itab_it-ebeln

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI070I01

 

...

                  IF sy-subrc NE 0.

                    CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT013'

                         EXPORTING

                              ebeln = itab_it-ebeln

                              ebelp = itab_it-ebelp.

* >> Início da inclusão: MODULE USER_COMMAND_0050

                    DELETE itab_lote WHERE

                                     nrseqda EQ itab_it-nrseqda AND

                                     ebeln   EQ itab_it-ebeln   AND

                                     ebelp   EQ itab_it-ebelp.

                    DELETE itab_zycit003 WHERE

                                         ebeln   EQ itab_it-ebeln   AND

                                         ebelp   EQ itab_it-ebelp.

* << Fim da inclusão

                    DELETE itab_it INDEX v_tabix.

* >> Início da exclusão: MODULE USER_COMMAND_0050

                    CLEAR itab_it.

* << Fim da exclusão

                  ELSE.

...

 

...

    MESSAGE e039

      WITH 'Fatura não cadastrada na DA'(461).

  ENDIF.

ENDMODULE.

MODULE valida_quantidade  INPUT.

* >> Início da exclusão: MODULE VALIDA_QUANTIDADE

  IF NOT sy-ucomm IS INITIAL AND

         sy-ucomm NE 'SAVE'.

* << Fim da exclusão

* >> Início da inclusão: MODULE VALIDA_QUANTIDADE

  IF NOT okcode IS INITIAL AND

         okcode EQ 'DELP'.

* << Fim da inclusão

    EXIT.

  ENDIF.

* >> Início da exclusão: MODULE VALIDA_QUANTIDADE

  CLEAR wa_it.

  LOOP AT itab_it INTO wa_it

    WHERE ebeln EQ /pws/zycie463-ebeln

    AND   ebelp EQ /pws/zycie463-ebelp

    AND   matnr EQ /pws/zycie463-matnr.

    SUM.

* << Fim da exclusão

* >> Início da inclusão: MODULE VALIDA_QUANTIDADE

  CLEAR: v_qtd_lote.

  LOOP AT itab_it.

    ON CHANGE OF itab_it-ebeln

              OR itab_it-ebelp.

      CLEAR: v_qtd_lote.

    ENDON.

    LOOP AT itab_lote WHERE ebeln EQ itab_it-ebeln

                      AND   ebelp EQ itab_it-ebelp.

      v_qtd_lote = v_qtd_lote + itab_lote-qtd_lote.

* << Fim da inclusão

  ENDLOOP.

* >> Início da exclusão: MODULE VALIDA_QUANTIDADE

  IF NOT sy-subrc IS INITIAL.

    MESSAGE i015 WITH text-489

                      /pws/zycie463-ebeln

                      /pws/zycie463-ebelp

                      text-490.

    EXIT.

* << Fim da exclusão

* >> Início da inclusão: MODULE VALIDA_QUANTIDADE

    IF v_qtd_lote GT itab_it-qtd_da.

      MESSAGE s039 WITH text-498.

      v_erro_lote = 'S'.

* << Fim da inclusão

  ENDIF.

* >> Início da exclusão: MODULE VALIDA_QUANTIDADE

  CLEAR wa_lote.

  LOOP AT itab_lote INTO wa_lote

    WHERE ebeln EQ /pws/zycie463-ebeln

    AND   ebelp EQ /pws/zycie463-ebelp

    AND   matnr EQ /pws/zycie463-matnr.

    SUM.

* << Fim da exclusão

  ENDLOOP.

* >> Início da exclusão: MODULE VALIDA_QUANTIDADE

  READ TABLE itab_lote

    INDEX tc_lote-current_line.

  IF sy-subrc EQ 0.

    SUBTRACT itab_lote-qtd_lote FROM wa_lote-qtd_lote.

* << Fim da exclusão

* >> Início da inclusão: MODULE VALIDA_QUANTIDADE

ENDMODULE.

MODULE valida_material  INPUT.

  DATA: v_peditem(16) TYPE c.

  CHECK NOT /pws/zycie463-ebeln IS INITIAL.

  CHECK NOT /pws/zycie463-ebelp IS INITIAL.

  IF /pws/zycie463-matnr IS INITIAL.

    MESSAGE e015 WITH text-497.

  ENDIF.

  LOOP AT itab_it INTO itab_ita.

    IF /pws/zycie463-ebeln EQ itab_ita-ebeln AND

       /pws/zycie463-ebelp EQ itab_ita-ebelp.

      IF /pws/zycie463-matnr NE itab_ita-matnr.

        CONCATENATE /pws/zycie463-ebeln

                    '/'

                    /pws/zycie463-ebelp

               INTO v_peditem.

        MESSAGE e015 WITH text-495

                          /pws/zycie463-matnr

                          text-496

                          v_peditem.

* << Fim da inclusão

  ENDIF.

* >> Início da exclusão: MODULE VALIDA_QUANTIDADE

  ADD /pws/zycie463-qtd_lote TO wa_lote-qtd_lote.

  IF wa_lote-qtd_lote GT wa_it-qtd_da.

    MESSAGE e039

      WITH 'Quantidade insuficiente na DA'(462).

* << Fim da exclusão

  ENDIF.

* >> Início da exclusão: MODULE VALIDA_QUANTIDADE

ENDMODULE.

MODULE valida_material  INPUT.

  LOOP AT itab_it INTO itab_ita

    WHERE matnr EQ /pws/zycie463-matnr.

* << Fim da exclusão

  ENDLOOP.

* >> Início da exclusão: MODULE VALIDA_MATERIAL

  IF sy-subrc NE 0.

    MESSAGE e039

      WITH 'Material não cadastrado na DA'(460).

  ENDIF.

* << Fim da exclusão

ENDMODULE.

MODULE valida_data_fabricacao INPUT.

  IF /pws/zycie463-dt_fabricacao GT sy-datum.

    MESSAGE e039

      WITH 'Data de fabricação não pode estar no futuro'(458).

...

 

...

  IF sy-subrc NE 0.

    APPEND itab_lote.

  ENDIF.

ENDMODULE.

MODULE user_command_0220 INPUT.

* >> Início da inclusão: MODULE USER_COMMAND_0220

  SORT itab_lote BY ebeln ebelp lote_forn matnr.

* << Fim da inclusão

  CASE okcode.

    WHEN 'DELP'.

* >> Início da exclusão: MODULE USER_COMMAND_0220

      DELETE itab_lote

        WHERE mark = 'X'.

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_0220

      CLEAR   itab_lote_del.

      REFRESH itab_lote_del.

      LOOP AT itab_lote WHERE mark = 'X'.

        v_tabix = sy-tabix.

        itab_lote_del = itab_lote.

        APPEND itab_lote_del.

        CLEAR  itab_lote_del.

        DELETE itab_lote INDEX v_tabix.

      ENDLOOP.

* << Fim da inclusão

    WHEN 'MARC'.

      LOOP AT itab_lote.

        itab_lote-mark = 'X'.

        MODIFY itab_lote.

      ENDLOOP.

...

 

...

ENDMODULE.

MODULE valida_pedido INPUT.

  IF /pws/zycie463-ebeln IS INITIAL OR

     /pws/zycie463-ebelp IS INITIAL.

    MESSAGE e015 WITH text-491.

* >> Início da inclusão: MODULE VALIDA_PEDIDO

  ENDIF.

  SELECT SINGLE ebeln ebelp

         INTO  (ekpo-ebeln, ekpo-ebelp)

         FROM  ekpo

         WHERE ebeln EQ /pws/zycie463-ebeln

         AND   ebelp EQ /pws/zycie463-ebelp.

  IF NOT sy-subrc IS INITIAL.

    MESSAGE e015 WITH text-494.

  ENDIF.

  CLEAR itab_it.

  READ TABLE itab_it WITH KEY

                     ebeln = /pws/zycie463-ebeln

                     ebelp = /pws/zycie463-ebelp.

  IF NOT sy-subrc IS INITIAL.

    MESSAGE e015 WITH text-489

                      /pws/zycie463-ebeln

                      /pws/zycie463-ebelp

                      text-490.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

MODULE matchcode_pedido INPUT.

  CALL FUNCTION 'DYNP_GET_STEPL'

       IMPORTING

            povstepl        = v_stepl

       EXCEPTIONS

            stepl_not_found = 1

            OTHERS          = 2.

  CLEAR   itab_pedidos.

  REFRESH itab_pedidos.

  LOOP AT itab_it.

    itab_pedidos-ebeln = itab_it-ebeln.

    itab_pedidos-ebelp = itab_it-ebelp.

    APPEND itab_pedidos.

  ENDLOOP.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

       EXPORTING

            retfield        = 'EBELN'

            dynpprog        = '/PWS/SAPMZYCI070'

            dynpnr          = '0220'

            dynprofield     = '/PWS/ZYCIE463-EBELN'

            stepl           = v_stepl

            value_org       = 'S'

       TABLES

            value_tab       = itab_pedidos

       EXCEPTIONS

            parameter_error = 1

            no_values_found = 2

            OTHERS          = 3.

  CLEAR itab_pedidos.

  FREE  itab_pedidos.

ENDMODULE.

MODULE matchcode_item INPUT.

  CALL FUNCTION 'DYNP_GET_STEPL'

       IMPORTING

            povstepl        = v_stepl

       EXCEPTIONS

            stepl_not_found = 1

            OTHERS          = 2.

  CLEAR   itab_pedidos.

  REFRESH itab_pedidos.

  LOOP AT itab_it.

    itab_pedidos-ebeln = itab_it-ebeln.

    itab_pedidos-ebelp = itab_it-ebelp.

    APPEND itab_pedidos.

  ENDLOOP.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

       EXPORTING

            retfield        = 'EBELP'

            dynpprog        = '/PWS/SAPMZYCI070'

            dynpnr          = '0220'

            dynprofield     = '/PWS/ZYCIE463-EBELP'

            stepl           = v_stepl

            value_org       = 'S'

       TABLES

            value_tab       = itab_pedidos

       EXCEPTIONS

            parameter_error = 1

            no_values_found = 2

            OTHERS          = 3.

  CLEAR itab_pedidos.

  FREE  itab_pedidos.

ENDMODULE.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCI070TOP

 

...

DATA  BEGIN OF itab_lote OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie463.

DATA:   prazo TYPE numc3,

        mark  TYPE char1.

DATA  END OF itab_lote.

* >> Início da inclusão:

DATA: BEGIN OF itab_lote_del OCCURS 0.

        INCLUDE STRUCTURE itab_lote.

DATA: END   OF itab_lote_del.

DATA: BEGIN OF itab_pedidos OCCURS 0,

        ebeln  LIKE /pws/zycie463-ebeln,

        ebelp  LIKE /pws/zycie463-ebelp,

      END   OF itab_pedidos.

* << Fim da inclusão

DATA: BEGIN OF itab_zycit459 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit459.

DATA: mark.

DATA: END OF itab_zycit459.

DATA: BEGIN OF itab_zycit465 OCCURS 0.

...

 

...

  v_ternacion TYPE /pws/zycie442-ternacion,

  v_descforn  TYPE lfa1-name1,

  v_prazo     TYPE numc4,

  v_mark      TYPE char1,

  d_waersbem      LIKE /pws/zycie443a-dttaxbem.

* >> Início da inclusão:

DATA:

  v_stepl         LIKE sy-stepl,

  v_qtd_lote      LIKE /pws/zycie463-qtd_lote,

  v_erro_lote(1)  TYPE c.

* << Fim da inclusão

DATA:

  v_f51(1)        TYPE c.

DATA:  gv_subscreen_0050   TYPE sy-dynnr VALUE '0051',

       gv_subscreen_0100_1 TYPE sy-dynnr,

       gv_subscreen_0300_2 TYPE sy-dynnr.

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI070

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 494

 

Texto: (51 caracteres)

"Pedido/Item não existente no SAP.Verificar entrada."

 

Comprimento máximo: 51

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 495

 

Texto: (8 caracteres)

"Material"

 

Comprimento máximo: 8

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 496

 

Texto: (30 caracteres)

"não existente para Pedido/Item"

 

Comprimento máximo: 30

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 497

 

Texto: (44 caracteres)

"Material obrigatório para validar quantidade"

 

Comprimento máximo: 44

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 498

 

Texto: (48 caracteres)

"Quantidade Lote maior que quantidade Pedido/Item"

 

Comprimento máximo: 48

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIT463

 

*Os seguintes campos da tabela foram modificados

 Campos

 

      Nome de campo Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

 

      MANDT             MANDT                      CLNT     3

      NRSEQDA           /PWS/ZYCIL831              CHAR    10

      NRSEQLOTE         NUMC3                      NUMC     3

*Inicio Campos Inseridos

      EBELN             EBELN         EKKO         CHAR    10

      EBELP             EBELP         EKPO         NUMC     5

*Fim Campos Inseridos

      LOTE_FORN         LICHN                      CHAR    15

      NUMFATURA         /PWS/ZYCIL023              CHAR    20

      MATNR             MATNR                      CHAR    18

      QTD_LOTE          BMENGEV                    QUAN    13

      DT_VALIDADE       /PWS/ZYCIL094              DATS     8

      DT_FABRICACAO     /PWS/ZYCIL838              DATS     8

      QTD_NAC           BMENGEV                    QUAN    13

 

 

 

*Chave externa

 

Nome de campo      EBELN

Tabela verificação EKKO

Grau dependência

Cardinalidade

Sem verificação

Descrição breve

Área funcional

Mensagem

 

 

Tabela chave externa Cpo.chave externa Tab.verif. Nome de campo

 

/PWS/ZYCIT463        MANDT             EKKO       MANDT

/PWS/ZYCIT463        EBELN             EKKO       EBELN

 

 

Nome de campo      EBELP

Tabela verificação EKPO

Grau dependência

Cardinalidade

Sem verificação

Descrição breve

Área funcional

Mensagem

 

 

Tabela chave externa Cpo.chave externa Tab.verif. Nome de campo

 

/PWS/ZYCIT463        MANDT             EKPO       MANDT

/PWS/ZYCIT463        EBELN             EKPO       EBELN

/PWS/ZYCIT463        EBELP             EKPO       EBELP