Sintoma

campo bem fabricado sob encomenda e material usado do detalhe do item da PLI. Grava na zycit078 que

não é por item, então quando eu preencho em um item, automaticamente preenche os outros itens da PLI

Solução

Gravar na Tabela dos Itens da PLI

Informações Complementares

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

Nota Número 10376 Data: 07/07/2010 Hora: 16:43:00

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

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

Nota Número              : 10376

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00029

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

PLI OS CAMPOS FAB. SOB ENCOMENDA E MAT. USADO GRAVAVAM NA TABELA DA CAPA

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

Palavras Chave:

DESEMBARAÇO - PLI - CAMPOS - FAB. - SOB - ENCOMENDA - MAT. - USADO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI020                        0506

REPS /PWS/MZYCI020F01

REPS /PWS/ZYCIR041

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0506

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE078-BEMENCOMENDA"

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE078-MATUSADO"

INCLUIR CAMPO TEXTO "/PWS/ZYCIE079A-BEMENCOMENDA"

Comprimento Visível      1

Linha                    6

Coluna                   80

Formato                  CHAR

Grupo 1                  OC1

Linhas mínimas           1

Texto                    _

Código função

INCLUIR CAMPO TEXTO "/PWS/ZYCIE079A-MATUSADO"

Comprimento Visível      1

Linha                    7

Coluna                   80

Formato                  CHAR

Grupo 1                  OC1

Linhas mínimas           1

Texto                    _

Código função

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

                       fabric

                       lifnr

                       descfab

                       paisfab

                       codsufra

                       codtarif

                       naladi

                       aladi

                      vlmerc

                      aliqii

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

                      bemencomenda

                      matusado

* << Fim da inclusão

                      WHERE ebeln EQ /pws/zycie079a-ebeln

                        AND ebelp EQ /pws/zycie079a-ebelp.

  ENDIF.

ENDFORM.

FORM desvin_li.

  CHECK NOT /pws/zycie078-nrseq IS INITIAL.

  IF NOT /pws/zycie078-nrli IS INITIAL.

    IF /pws/zycie078-tpli EQ 'N'.

      MESSAGE i015 WITH text-159 text-160.

    ELSEIF /pws/zycie078-tpli EQ 'S'.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR041

...

      CLEAR: ww_aliqii.

      CLEAR: w_li_refer.

      CLEAR: w_ac_aladi.

      CLEAR: w_naladi.

      CLEAR: w_mat_usado.

      CLEAR: w_cond_merc.

      CLEAR: w_tipo_ac_tar.

      SELECT SINGLE *

      FROM /pws/zycit078

      WHERE nrseqli EQ it_reg03-nrseqli.

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

      w_mat_usado = 'N'.

      w_cond_merc = 'N'.

      IF NOT /pws/zycit078-matusado IS INITIAL.

        w_mat_usado = /pws/zycit078-matusado.

      ENDIF.

      IF NOT /pws/zycit078-bemencomenda IS INITIAL.

        w_cond_merc = /pws/zycit078-bemencomenda.

      ENDIF.

* << Fim da exclusão

      w_ind_exig     = 'N'.

      SELECT SINGLE *

      FROM /pws/zycit079

      WHERE nrseqli EQ it_reg03-nrseqli

        AND numli   EQ it_reg03-numli.

      IF NOT /pws/zycit079-subs_exigencia IS INITIAL.

        w_ind_exig   = 'S'.

      ENDIF.

      w_vl_merc_iten = /pws/zycit079-vlmerc.

      ww_aliqii = /pws/zycit079-aliqii.

      w_li_refer = /pws/zycit079-nrli.

      w_ac_aladi = /pws/zycit079-aladi.

      w_naladi = /pws/zycit079-naladi.

      w_tipo_ac_tar = /pws/zycit079-codtarif.

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

      w_mat_usado = 'N'.

      w_cond_merc = 'N'.

      IF NOT /pws/zycit079-matusado IS INITIAL.

        w_mat_usado = /pws/zycit079-matusado.

      ENDIF.

      IF NOT /pws/zycit079-bemencomenda IS INITIAL.

        w_cond_merc = /pws/zycit079-bemencomenda.

      ENDIF.

* << Fim da inclusão

      PERFORM monta_01.

      PERFORM monta_09.

      PERFORM monta_08.

      PERFORM monta_10.

      PERFORM monta_03.

      PERFORM monta_04.

      PERFORM monta_05.

      PERFORM monta_07.

    ENDON.

  ENDLOOP.

...