Sintoma

Ajustes no recebimento para o preenchimento dos campos cob_camb e werks na tabela /pws/zycit279.

Solução

Ajustes no recebimento para o preenchimento dos campos cob_camb e werks na tabela /pws/zycit279.

Informações Complementares

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

Nota Número 01795 Data: 21/07/2006 Hora: 16:04:14

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

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

Nota Número              : 01795

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00123

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

Referência às notas relacionadas:

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

01758  - 00001 - 6.0    - 00024  - AJUSTE PARA TRATAMENTO DO CENTRO EXPORTADOR/IMPORTADOR NA COMPOSI

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

AJUSTE PARA PREENCHER OS CAMPOS COB_CAMB E WERKS NA TABELA /PWS/ZYCIT279

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

Palavras Chave:

COBERTURA - CAMBIAL - CENTRO - IMPORTADOR - RECEBIMENTO

/PWS/SAPMZYCI017

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

Objetos da nota:

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

ENDFORM.

FORM adiciona_saldo_ato.

  DATA: v_qtdpropor LIKE /pws/zycit245-qtd_iten,

        v_qtd_nftp    TYPE /pws/zycit044-qtd_item,

        v_variacfob   TYPE /pws/zycit376-vlfob,

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

        wa_zycit279 TYPE /pws/zycit279.

* << Fim da exclusão

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

        wa_zycit279 TYPE /pws/zycit279,

        v_cob_camb  type c.

* << Fim da inclusão

  DATA: itab_zycit078 LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE.

  DATA: itab_zycit376 LIKE /pws/zycit376 OCCURS 0 WITH HEADER LINE.

  DATA: itab_zycit245 LIKE /pws/zycit245 OCCURS 0 WITH HEADER LINE.

  DATA: BEGIN OF itab_matuse1 OCCURS 0.

          INCLUDE STRUCTURE itab_matuse.

  DATA: ntgew LIKE ekpo-ntgew,

        gewei LIKE ekpo-gewei.

  DATA: END OF itab_matuse1.

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

  data: itab_matuse2 like itab_matuse1 occurs 0 with header line.

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycit321.

  IF itab_zycit003[] IS INITIAL AND NOT itab_itens_nf[] IS INITIAL.

    SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

           FOR ALL ENTRIES IN itab_itens_nf

           WHERE nrseq = itab_itens_nf-nrseq

...

...

      IF itab_zycit279-slqtde > 0.

        itab_zycit279-esgotado = space.

      ENDIF.

      MODIFY itab_zycit279 INDEX sy-tabix.

    ELSE.

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

      clear: v_cob_camb, itab_zycit279-cob_camb.

      select single a~frpagto

        from ( /pws/zycit006 as a inner join /pws/zycit263 as b

          on a~nrseq_pgfat eq b~nrseq_pgfat )

          into v_cob_camb

        where b~nrseq    = itab_zycit003-nrseq

          and b~ebeln    = itab_zycit003-ebeln

          and b~ebelp    = itab_zycit003-ebelp.

      if v_cob_camb ne 'A'.

        itab_zycit279-cob_camb = 'X'.

      endif.

* << Fim da inclusão

      itab_zycit279-nrseq    = itab_zycit003-nrseq.

      itab_zycit279-ebeln    = itab_zycit003-ebeln.

      itab_zycit279-ebelp    = itab_zycit003-ebelp.

      itab_zycit279-nrseqd   = itab_zycit003-nrseqd.

      itab_zycit279-j_1bnbm  = itab_zycit003-j_1bnbm.

      itab_zycit279-matnr    = itab_matuse1-matnr.

      itab_zycit279-esgotado = space.

      itab_zycit279-menge  = itab_zycit003-qtd_iten.

      itab_zycit279-meins  = itab_zycit003-meins.

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

      itab_zycit279-werks  = itab_zycit003-werks.

* << Fim da inclusão

      itab_zycit279-slqtde = itab_itens_nf-qtd_item.

      itab_zycit279-docnum = itab_itens_nf-docnum.

      itab_zycit279-nfnum  = itab_itens_nf-nfnum.

      itab_zycit279-serie  = itab_itens_nf-series.

      itab_zycit279-dtnf   = /pws/zycie041-dtincl.

...