Sintoma

Liquidação - ponto de exit LIQ032 para chamar outro programa

Solução

Liquidação - ponto de exit LIQ032 para chamar outro programa

Informações Complementares

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

Nota Número 09036 Data: 18/09/2009 Hora: 09:28:44

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

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

Nota Número              : 09036

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00114

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - PONTO DE EXIT LIQ032 PARA CHAMAR OUTRO PROGRAMA

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

Palavras Chave:

LIQUIDAÇÃO - PONTO DE EXIT LIQ032 PARA CHAMAR OUTRO PROGRAMA

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

Objetos da nota:

REPS /PWS/MZYCB004I01

REPS /PWS/MZYCB004O01

REPS /PWS/MZYCB004TOP

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

Modificações efetuadas em REPS /PWS/MZYCB004O01

...

  if not v_fat_sbu is initial.

    itab_pf_status-fcode = 'SAVE'.

    append itab_pf_status.

  endif.

  set pf-status '0100' excluding itab_pf_status.

  clear   itab_pf_status.

  refresh itab_pf_status.

  set titlebar '100'.

endmodule.

module status_0001 output.

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

  clear itab_zyglt100.

  if itab_zyglt100[] is initial.

    v_syrepid = sy-repid.

    call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         exporting

              i_codmod                = 'E'

              i_func                  = v_syrepid

         tables

              itab_zyglt100           = itab_zyglt100

         exceptions

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              others                  = 4.

  endif.

  read table itab_zyglt100 with key zexit = 'LIQ032' binary search.

  if sy-subrc eq 0 and not itab_zyglt100-zexit_ativa is initial.

    perform (itab_zyglt100-formulario)

      in program (itab_zyglt100-programa).

  endif.

* << Fim da inclusão

  set pf-status '0001'.

  set titlebar '100'.

  data: v_flag(1).

  import: v_modo_bi          from memory id 'V_MODO_BI',

          itab_recurso_aux[] from memory id 'RECURSO',

          v_vinculacao       from memory id 'VINCULACAO',

          v_nrinvoic         from memory id 'NRINVOIC',

          v_nrparcf          from memory id 'NRPARCF',

          v_gsberf           from memory id 'GSBERF'.

  import v_nrseqc from memory id '001'.

...

...

  /pws/zycbe005-nrparcf  = itab_zycbt005_aux2-nrparcf.

  /pws/zycbe005-gsberf   = itab_zycbt005_aux2-gsberf.

  /pws/zycbe005-dtvencto = itab_zycbt005_aux2-dtvencto.

endmodule.

module status_0010 output.

  set pf-status '0010'.

  set titlebar '10'.

  set screen '0010'.

endmodule.

module status_0002 output.

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

  clear itab_zyglt100.

  if itab_zyglt100[] is initial.

    v_syrepid = sy-repid.

    call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         exporting

              i_codmod                = 'E'

              i_func                  = v_syrepid

         tables

              itab_zyglt100           = itab_zyglt100

         exceptions

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              others                  = 4.

  endif.

  read table itab_zyglt100 with key zexit = 'LIQ032' binary search.

  if sy-subrc eq 0 and not itab_zyglt100-zexit_ativa is initial.

    perform (itab_zyglt100-formulario)

      in program (itab_zyglt100-programa).

  endif.

* << Fim da inclusão

  set pf-status '0002'.

  set titlebar '100'.

  import: v_modo_bi          from memory id 'V_MODO_BI',

          itab_recurso_aux[] from memory id 'RECURSO',

          v_vinculacao       from memory id 'VINCULACAO',

          v_nrinvoic         from memory id 'NRINVOIC',

          v_nrparcf          from memory id 'NRPARCF',

          v_gsberf           from memory id 'GSBERF'.

  v_trans = '2'.

  v_status_s = '1'.

...

...

...

...

...