Sintoma

Ajuda de pesquisa, associação carta de credito importação - code inspect

Solução

Ajuda de pesquisa, associação carta de credito importação - code inspect

Informações Complementares

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

Nota Número 06023 Data: 25/02/2008 Hora: 17:46:57

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

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

Nota Número              : 06023

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00035

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUDA DE PESQUISA, ASSOCIAÇÃO CARTA DE CREDITO IMPORTAÇÃO - CODE INSPECT

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

Palavras Chave:

AJUDA DE PESQUISA, ASSOCIAÇÃO CARTA DE CREDITO IMPORTAÇÃO - CODE INSPECT

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

Objetos da nota:

FUNC /PWS/ZYCBA118

REPS /PWS/LZYCMGF4UXX

REPS /PWS/ZZYCMGF4U17

SHLD /PWS/ZYCBA118

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

Modificações efetuadas em FUNC /PWS/ZYCBA118

CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCBA118

CARACTERÍSTICAS

CLASSIFICAÇÃO:

GRUPO DE FUNÇÕES: /PWS/ZYCMGF4

TEXTO BREVE: CM - Assoc. Faturas de Importação - C. Crédito

TIPO DE EXECUÇÃO:

(X) - MÓDULO DE FUNÇÃO NORMAL

(_) - MÓDULO DE ACESSO REMOTO

(_) - MÓDULO DE ATUALIZAÇÃO

     (X) - INÍCIO IMEDIATO

     (_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.

     (_) - INÍC. RETARDADO

     (_) - PROCES. CLOETIVO

Classe Desenvolvimento: /PWS/ZYCM

MODIFIC.:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  VL. PROPOSTO OPCIONAL TRANSF. TEXT

SHLP          TYPE   SHLP_DESCR_T                            'X'

CALLCONTROL   LIKE   DDSHF4CTRL                              'X'

TABELAS:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA  OPCIONAL TEXTO BREVE

SHLP_TAB      TYPE   SHLP_DESCR_TAB_T

RECORD_TAB    LIKE   SEAHLPRES

Texto Fonte

FUNCTION /pws/zycba118.

*"----------------------------------------------------------------------

*"*"Interface local:

*"  TABLES

*"      SHLP_TAB TYPE  SHLP_DESCR_TAB_T

*"      RECORD_TAB STRUCTURE  SEAHLPRES

*"  CHANGING

*"     VALUE(SHLP) TYPE  SHLP_DESCR_T

*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL

*"----------------------------------------------------------------------

  TYPE-POOLS:

    shlp.

  TYPES:

    BEGIN OF t_s_dados,

      belnr       TYPE /pws/zycbt108-belnr,

      nrseq_pgfat TYPE /pws/zycbt108-nrseq_pgfat,

      bukrs       TYPE /pws/zycbt108-bukrs,

      gjahr       TYPE /pws/zycbt108-gjahr,

      dtincl      TYPE /pws/zycbt108-dtincl,

      lifnr       TYPE /pws/zycbt108-lifnr,

      waers       TYPE /pws/zycbt108-waers,

      slfatcc     TYPE /pws/zycbt108-slfatcc,

    END OF t_s_dados,

    t_t_dados TYPE STANDARD TABLE OF t_s_dados.

  DATA:

    itab_dados   TYPE t_t_dados,

    wa_dados      LIKE LINE OF itab_dados,

    v_fieldname  TYPE dfies-lfieldname,

    v_tabix      TYPE sy-tabix.

  FIELD-SYMBOLS:

    <fs_shlp>       LIKE LINE OF shlp_tab,

    <fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,

    <fs_dados>      LIKE LINE OF itab_dados.

  CHECK callcontrol-step EQ 'DISP'.

*   Busca na tabela shlp_tab os dados relativos aos campos.

  READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.

  CHECK <fs_shlp> IS ASSIGNED.

*   Transfere os dados da record_tab para os respectivos campos da

*   tabela interna.

  LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.

    CHECK <fs_fielddescr>-fieldname = 'BELNR'       OR

          <fs_fielddescr>-fieldname = 'NRSEQ_PGFAT' OR

          <fs_fielddescr>-fieldname = 'BUKRS'       OR

          <fs_fielddescr>-fieldname = 'GJAHR'       OR

          <fs_fielddescr>-fieldname = 'DTINCL'      OR

          <fs_fielddescr>-fieldname = 'LIFNR'       OR

          <fs_fielddescr>-fieldname = 'WAERS'       OR

          <fs_fielddescr>-fieldname = 'SLFATCC'.

    v_fieldname = <fs_fielddescr>-fieldname.

    CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'

      EXPORTING

        parameter         = <fs_fielddescr>-fieldname

        fieldname         = v_fieldname

      TABLES

        shlp_tab          = shlp_tab

        record_tab        = record_tab

        results_tab       = itab_dados

      CHANGING

        shlp              = shlp

        callcontrol       = callcontrol

      EXCEPTIONS

        parameter_unknown = 1

        OTHERS            = 2.

    IF sy-subrc <> 0.

      EXIT.

    ENDIF.

  ENDLOOP.

  UNASSIGN: <fs_shlp>, <fs_fielddescr>.

*   Elimina da record_tab entradas sem saldo

  LOOP AT itab_dados ASSIGNING <fs_dados> WHERE slfatcc LE 0.

    v_tabix = sy-tabix.

    DELETE record_tab INDEX v_tabix.

    DELETE itab_dados INDEX v_tabix.

  ENDLOOP.

ENDFUNCTION.

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

Modificações efetuadas em REPS /PWS/LZYCMGF4UXX

...

INCLUDE /PWS/LZYCMGF4U08.

INCLUDE /PWS/LZYCMGF4U09.

INCLUDE /PWS/LZYCMGF4U10.

INCLUDE /PWS/LZYCMGF4U11.

INCLUDE /PWS/LZYCMGF4U12.

INCLUDE /PWS/LZYCMGF4U13.

INCLUDE /PWS/LZYCMGF4U15.

INCLUDE /PWS/LZYCMGF4U14.

INCLUDE /PWS/LZYCMGF4U16.

INCLUDE /PWS/LZYCMGF4U17.

* >> Início da inclusão:

INCLUDE /PWS/LZYCMGF4U18.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/ZZYCMGF4U17

* >> Início da exclusão:

DATA:

  v_nrseq_pgfat TYPE /pws/zycbt108-nrseq_pgfat,"#EC NEEDED

  v_slfatcc     TYPE /pws/zycbt108-slfatcc,

  v_waers       TYPE /pws/zycbt108-waers,

  v_pos_waers   TYPE i,

  v_pos_slfatcc TYPE i.

CHECK callcontrol-step EQ 'DISP'.

SELECT SINGLE nrseq_pgfat

  FROM /pws/zycbt108

  INTO v_nrseq_pgfat

  WHERE

    bukrs       EQ record_tab+23(04)  AND

    belnr       EQ record_tab+03(10)  AND

    nrseq_pgfat EQ record_tab+13(10) AND

    gjahr       EQ record_tab+27(04).

IF sy-subrc EQ 0.

  v_pos_waers = 49.

  v_pos_slfatcc = 54.

ELSE.

  v_pos_waers = 46.

  v_pos_slfatcc = 51.

ENDIF.

LOOP AT record_tab.

  v_waers = record_tab+v_pos_waers(5).

  WRITE record_tab+v_pos_slfatcc(13) TO v_slfatcc CURRENCY v_waers.

  IF v_slfatcc LE 0.

    DELETE record_tab.

  ENDIF.

ENDLOOP.

* << Fim da exclusão

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

Modificações efetuadas em SHLD /PWS/ZYCBA118

Alterar Ajuda de Pesquisa: de: EXIT_/PWS/ZYCBA118 para: /PWS/ZYCBA118