Sintoma

Necessário ajustar sequencial transmitido ao Suframa

Solução

Atualizado programa para criar e controlar um sequencial para transmissão de PLI por local de

negócio.

Informações Complementares

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

Nota Número 12245 Data: 25/05/2012 Hora: 16:19:56

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

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

Nota Número              : 12245

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00011

Agrupamento              : 00115

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

Referência às notas relacionadas:

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

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

NECESSÁRIO AJUSTAR SEQUENCIAL TRANSMITIDO AO SUFRAMA

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

Palavras Chave:

SEQUENCIAL - TRANSMISSÃO - SUFRAMA - MDB

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

Objetos da nota:

DTEL /PWS/ZYCIL688

DYNP /PWS/SAPMZYCI020                        0501

FUNC /PWS/ZYCI_TRANSFER_PLI

REPS /PWS/MZYCI020X01

REPS /PWS/SAPLZYCIGF5

TABD /PWS/ZYCIE078

TABD /PWS/ZYCIE078C

TABD /PWS/ZYCIE109

TABD /PWS/ZYCIT078

TABD /PWS/ZYCIT109

TABD /PWS/ZYCIT242

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

Modificações efetuadas em DTEL /PWS/ZYCIL688

*Criar elemento de dados

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

Elemento de dados incluído: /PWS/ZYCIL688

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (23 caracteres), idioma: PT

"CI - Sequencial inicial"

Categoria de dados: Domínio

Domínio: NUMC5

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (9 caracteres), idioma: PT

"Seq.Inic."

Comprimento máximo do denominador médio: 15

Denominador médio incluído (11 caracteres), idioma: PT

"Seq.Inicial"

Comprimento máximo do denominador longo: 20

Denominador longo incluído (18 caracteres), idioma: PT

"Sequencial Inicial"

Comprimento máximo do título: 18

Título incluído (18 caracteres), idioma: PT

"Sequencial Inicial"

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

Modificações efetuadas em TABD /PWS/ZYCIT078

Ao final da tabela, acrescentar o campo SEQ_SUFRA com elemento de dados  /PWS/ZYCIL688

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

Modificações efetuadas em TABD /PWS/ZYCIE078

Ao final da tabela, acrescentar o campo SEQ_SUFRA com elemento de dados  /PWS/ZYCIL688

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

Modificações efetuadas em TABD /PWS/ZYCIE078C

Apagar todos os campos e incluir no campo .INCLUDE e no tipo Componente /PWS/ZYCIT078

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

Modificações efetuadas em TABD /PWS/ZYCIE109

Ao final da tabela, acrescentar os campos

Campo         Elemento de dados

CODSUFRA /PWS/ZYCIL392

NCM        STEUC

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

Modificações efetuadas em TABD /PWS/ZYCIT109

Ao final da tabela, acrescentar os campos

Campo         Elemento de dados

CODSUFRA /PWS/ZYCIL392

NCM        STEUC

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

Modificações efetuadas em TABD /PWS/ZYCIT242

Acrescentar o campo

...

Campo         Elemento de Dados

PLANT       /PWS/ZYCIL891

PATHSUFRA /PWS/ZYCIL422

*<<Inicio Inclusao

SEQ_SUFRA /PWS/ZYCIL688

*<<Fim Inclusao

USERNAMEC SYUNAME

DTUSERC SYDATUM

Gerar a visão de atualização da tabela novamente

...

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

...

* >> Início da inclusão:

DATA: v_seq_sufra type /PWS/ZYCIE078-NRSEQLI.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

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

*Editar a tela, aumentar a altura e baixar a moldura para caber um campo

MODIFICAR CARACTERÍSTICAS DA SUB-TELA 0501

Altura atual (linhas)    26

MODIFICAR FRAME ""

Altura                   7

Linha                    16

Coluna                   5

*Abaixo do campo /PWS/ZYCIE078-VALDAY  acrescentar o campo /PWS/ZYCIE078-SEQ_SUFRA

*Alterar descrição do Texto para Sequencial_Suframa

*Configurar campo /PWS/ZYCIE078-SEQ_SUFRA somente como campo de saída.

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_PLI

FUNCTION /pws/zyci_transfer_pli.

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

  DATA: v_seq   TYPE /pws/zycit078-seq_sufra,

        v_nrseq TYPE /pws/zycit078-nrseqli.

* << Fim da inclusão

...

...

  IF sy-subrc EQ 0.

    READ TABLE li_cabec INDEX 1.

    MOVE: li_cabec TO wa_078.

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

    IF li_cabec-naladi IS INITIAL.

      li_cabec-naladi = '1'.

    ENDIF.

* << Fim da exclusão

    PERFORM load_pais(/pws/sapmzyci023):

            USING    wa_078-land1

            CHANGING li_cabec-land1 v_txtpais,

            USING    wa_078-lando

            CHANGING li_cabec-lando v_txtpais.

    PERFORM load_waers(/pws/sapmzyci023):

            USING    wa_078-waers

            CHANGING li_cabec-waers v_txtw.

    MODIFY li_cabec INDEX 1.

    CLEAR itab_tline.

...

...

      SELECT SINGLE * FROM /pws/zycit219

          INTO wa_219

          WHERE codigo   EQ li_itens-codsufra AND

                ncm      EQ li_itens-ncm

            AND destaque EQ li_itens-destaque.

      IF sy-subrc EQ 0 AND wa_219-flagdest EQ 'X'.

        MOVE: '999'         TO li_destncm-codncm,

        wa_078-nrseqli      TO li_destncm-nrseqli,

        li_itens-tpli       TO li_destncm-tpli,

        li_itens-ebeln      TO li_destncm-ebeln,

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

        li_itens-ebelp      TO li_destncm-ebelp.

* << Fim da exclusão

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

        li_itens-ebelp      TO li_destncm-ebelp,

        li_itens-ncm        TO li_destncm-ncm.

* << Fim da inclusão

        APPEND li_destncm.

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

      ENDIF.

    ENDLOOP.

    LOOP AT li_destncm.

      READ TABLE li_itens WITH KEY ebeln = li_destncm-ebeln

                                   ebelp = li_destncm-ebelp.

      IF sy-subrc EQ 0.

        MOVE : li_itens-ncm  TO li_destncm-ncm,

        li_itens-codsufra   TO li_destncm-codsufra.

        MODIFY li_destncm.

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    SORT li_destncm BY nrseqli tpli codncm ebeln ebelp.

    DELETE ADJACENT DUPLICATES FROM li_destncm

          COMPARING nrseqli tpli codncm ebeln ebelp.

                   .

...

...

  LOOP AT li_mercad.

    v_tabix = sy-tabix.

    READ TABLE li_txt INDEX 1.

    IF sy-subrc EQ 0.

      li_mercad-txt_curto = li_txt-txt_curto.

    ENDIF.

    READ TABLE li_itens WITH KEY nrseqli = li_mercad-nrseqli

                                 steuc1  = li_mercad-steuc1.

    IF sy-subrc EQ 0.

      li_mercad-fabric = li_itens-fabric.

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

      li_mercad-codsufra = li_itens-codsufra.

* << Fim da inclusão

      IF li_mercad-fabric EQ '1'.

...

...

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

  IF li_cabec-seq_sufra IS INITIAL.

    SELECT MAX( seq_sufra ) INTO (v_seq) FROM /pws/zycit078

       WHERE j_1bbranch EQ li_cabec-j_1bbranch.

    IF v_seq ne 0 .

      v_seq = v_seq + 1 .

    ELSE.

      SELECT SINGLE seq_sufra INTO v_seq

       FROM /pws/zycit242

       WHERE plant EQ li_cabec-j_1bbranch.

    ENDIF.

    li_cabec-seq_sufra = v_seq.

    MODIFY li_cabec INDEX 1.

    UPDATE /pws/zycit078 SET seq_sufra = v_seq

               WHERE nrseqli = i_nrseqli.

    MOVE-CORRESPONDING li_cabec TO /pws/zycit078 .

    PERFORM carrega_log

        USING

          '/PWS/ZYCIT078'

          'U'

          '/PWS/ZYCI033_E'

          '/PWS/SAPMZYCI020'

          i_nrseqli.

  ENDIF.

* << Fim da inclusão

ENDFUNCTION.