CE PLUS - Nota 013735

Módulo: CÂMBIO FINANCEIRO

Funcionalidade: SISCOSERV

Data/Hora da Publicação: 03/06/2014 10:27:16

Data/Hora Última Alteração: 03/06/2014 10:27:16

Descrição da Nota: SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM

Sintoma

Automatizar a associação das RAS/RVS criadas com origem como a conciliação do fluxo de caixa

(Criar um relatório, com as RAS/RVS que foram criadas com origem. No rel, irá avaliar se estas

origens já estão pagas(tratamento disso já existe). Se sim, trazer no rel, com a coluna da

RAS e RVS já criada para ela e Associar automático).

 

 

Solução

Desenvolvimento Concluído.

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

SISCOSERV

ASSOCIAÇÃO SISCOSERV

SISCOSERV - ASSOCIAÇÃO - AUTOMATIZAR PAGAMENTO DO PEDIDO DE COMPRA

SISCOSERV, DESP.IMPORTAÇÃO, ORDEM DE VENDA, PEDIDO DE COMPRA, NIF

SISCOSERV - ASSOCIAÇÃO RAS BUSCAR PAGAMENTO DAS FATURAS PELO INCOTERM

SISCOSERV, NOVO TRATAMENTO PARA CRIAÇÃO DE RAS / RVS, VÁRIOS EMBARQUES

ASSOCIAÇÃO SISCOSERV, ASSOCIAR FATURAS COM VALORES PARCIAIS

Informações Complementares

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

Nota Número 13735 Data: 20/02/2014 Hora: 14:14:48

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

 

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

Nota Número              : 13735

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

 

12604  - 00001 - 9.0    - 00002  - SISCOSERV

12671  - 00002 - 9.0    - 00002  - ASSOCIAÇÃO SISCOSERV

13310  - 00003 - 9.0    - 00006  - SISCOSERV - ASSOCIAÇÃO - AUTOMATIZAR PAGAMENTO DO PEDIDO DE COMPR

13314  - 00004 - 9.0    - 00006  - SISCOSERV - ASSOCIAÇÃO RAS BUSCAR PAGAMENTO DAS FATURAS PELO INCO

13366  - 00005 - 9.0    - 00006  - SISCOSERV, NOVO TRATAMENTO PARA CRIAÇÃO DE RAS / RVS, VÁRIOS EMBA

13408  - 00006 - 9.0    - 00006  - ASSOCIAÇÃO SISCOSERV, ASSOCIAR FATURAS COM VALORES PARCIAIS

13659  - 00007 - 9.0    - 00007  - SISCOSERV, DESP.IMPORTAÇÃO, ORDEM DE VENDA, PEDIDO DE COMPRA, NIF

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

SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM

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

Palavras Chave:

SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM

 

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

Objetos da nota:

DOMA /PWS/ZYCAD032

DTEL /PWS/ZYCAL067

CUAD /PWS/SAPMZYCA012

DYNP /PWS/SAPMZYCA012                        0003

DYNP /PWS/SAPMZYCA012                        0200

DYNP /PWS/SAPMZYCA012                        0004

REPS /PWS/MZYCA012F01

REPS /PWS/MZYCA012I01

REPS /PWS/MZYCA012O01

REPS /PWS/MZYCA012TOP

REPT /PWS/SAPMZYCA012

TRAN /PWS/ZYCA012

RELE F6DK988561 20140220 140333 PWSCB

 

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

*** Modificações efetuadas em DOMA /PWS/ZYCAD032

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

Domínio incluído: /PWS/ZYCAD032

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

"Siscoserv - Listbox Tipo de Associação"

Classe de desenvolvimento: /PWS/ZYCA

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 1

Comprimento de saída: 1

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "A"

Texto incluído, idioma: PT (18 caracteres):

"Associação RAS/RVS"

Incluído valor fixo "B"

Texto incluído, idioma: PT (40 caracteres):

"Associação RAS/RVS com origem - em Massa"

Incluída tabela de valores:

 

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

*** Modificações efetuadas em DTEL /PWS/ZYCAL067

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

Elemento de dados incluído: /PWS/ZYCAL067

Classe de desenvolvimento: /PWS/ZYCA

Idioma original: PT

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

"Siscoserv - Tipo de Associação"

Categoria de dados: Domínio

Domínio: /PWS/ZYCAD032

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 (10 caracteres), idioma: PT

"Tipo de As"

Comprimento máximo do denominador médio: 18

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

"Tipo de Associação"

Comprimento máximo do denominador longo: 30

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

"Siscoserv - Tipo de Associação"

Comprimento máximo do título: 30

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

"Siscoserv - Tipo de Associação"

 

 

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

Modificações efetuadas em CUAD /PWS/SAPMZYCA012

 

*** Criação de Tits.GUI

*** 0003

Programa    - /PWS/SAPMZYCA012

Code título - 0003

Título      - Criar Associação RAS/RVS - Pagamento/Recebimento

 

*** 0004

Programa    - /PWS/SAPMZYCA012

Code título - 0004

Título      - RAS/RVS Pendentes de Associação Siscoserv

 

*** 0200

Programa    - /PWS/SAPMZYCA012

Code título - 0200

Título      - RAS/RVS Pendentes de Associação Siscoserv

 

 

*** Criação de Tits.GUI

 

*** CRIAÇÃO NO STATUS GUI - 0003 - Criar Associação RAS/RVS - Pgto / Recbto

 

*** Barra de menu    (não houve alteracao)

*** Barra de botões  (não houve alteracao)

*** Teclas de função

   -- Código de função     ENTE  ( BOTÃO DE OK )

      Categoria de função  Função de aplicação

      Texto de função      Confirmação

      Tecla de Função      F8

 

   -- Código de função     EXIT  ( BOTÃO DE VOLTAR VERDE )

      Categoria de função  E  Comando exit

      Texto de função      Voltar

 

   -- Código de função     EXIT  ( BOTÃO DE VOLTAR AMARELO )

      Categoria de função  E  Comando exit

      Texto de função      Encerrar

 

   -- Código de função     EXIT  ( BOTÃO DE X VERMELHO )

      Categoria de função  E  Comando exit

      Texto de função      Cancelar

      Nome do Icone        ICON_CANCEL

 

 

 

*** CRIAÇÃO NO STATUS GUI - 0004 - RAS/RVS Pendentes de Associação Siscoserv

 

*** Barra de menu    (não houve alteracao)

*** Barra de botões

   -- Código de função     EXEC

      Categoria de função  Função de aplicação

      Texto de função      Executar

      Nome do Icone        ICON_EXECUTE_OBJECT

      Tecla de Função      F8

 

*** Teclas de função

   -- Código de função     ENTE  ( BOTÃO DE OK )

      Categoria de função  Função de aplicação

      Texto de função      Confirmação

 

   -- Código de função     EXIT  ( BOTÃO DE VOLTAR VERDE )

      Categoria de função  E  Comando exit

      Texto de função      Voltar

 

   -- Código de função     EXIT  ( BOTÃO DE VOLTAR AMARELO )

      Categoria de função  E  Comando exit

      Texto de função      Encerrar

 

   -- Código de função     EXIT  ( BOTÃO DE X VERMELHO )

      Categoria de função  E  Comando exit

      Texto de função      Cancelar

      Nome do Icone        ICON_CANCEL

 

 

 

*** CRIAÇÃO NO STATUS GUI - 0200 - RAS/RVS Pendentes de Associação Siscoserv

 

*** Barra de menu    (não houve alteracao)

*** Barra de botões

   -- Código de função     EXEC

      Categoria de função  Função de aplicação

      Texto de função      Executar

      Nome do Icone        ICON_EXECUTE_OBJECT

      Tecla de Função      F8

 

*** Teclas de função

   -- Código de função     ENTE  ( BOTÃO DE OK )

      Categoria de função  Função de aplicação

      Texto de função      Confirmação

 

   -- Código de função     EXIT  ( BOTÃO DE VOLTAR VERDE )

      Categoria de função  E  Comando exit

      Texto de função      Voltar

 

   -- Código de função     EXIT  ( BOTÃO DE VOLTAR AMARELO )

      Categoria de função  E  Comando exit

      Texto de função      Encerrar

 

   -- Código de função     EXIT  ( BOTÃO DE X VERMELHO )

      Categoria de função  E  Comando exit

      Texto de função      Cancelar

      Nome do Icone        ICON_CANCEL

 

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

 

*** SOLICITAR OS 3 ARQUIVOS DE NOTAS AO PRODUTO PW.CE - CAMBIO

 

*** 13735_SAPMZYCA012_TELA_0003.txt

*** 13735_SAPMZYCA012_TELA_0004.txt

*** 13735_SAPMZYCA012_TELA_0200.txt

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA012                        0003

 

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0003

* >> Início da inclusão:

process before output.

  module status_0003.

process after input.

  module exit_command at exit-command.

  module user_command.

* << Fim da inclusão

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA012                        0200

 

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0200

* >> Início da inclusão:

process before output.

  module status_0200.

  module ajusta_tc.

  loop at itab_zycat031_ass cursor tc_associacao-current_line.

    module atualiza_tela_associacao.

  endloop.

process after input.

  loop at itab_zycat031_ass.

    module atualiza_itab_associacao.

  endloop.

  module exit_command at exit-command.

  module user_command.

* << Fim da inclusão

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCA012                        0004

 

* >> Início da inclusão:

  module exit_command at exit-command.

  call subscreen ss_criterio.

  module user_command.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

 

...

        wa_zycat039r-valor       =  /pws/zycat031-valor.

        perform atualiza_itab tables  itab_zycat039_r

                              using   wa_zycat039r

                                      tc_remessa.

      endif.

    endif.

    perform calcula_saldo.

  endif.

  if /pws/zycat030-tp_origem = 'OV' and

     v_exibe is initial.

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

    perform busca_ordem_venda using /pws/zycat031-nrseq_origem.

* << Fim da exclusão

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

    perform busca_ordem_venda using /pws/zycat031-nrseq_origem

                           changing v_ravs_pago.

* << Fim da inclusão

    perform calcula_saldo.

  endif.

  if /pws/zycat030-tp_origem = 'PC'.

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

    perform busca_doc_pedido using /pws/zycat030-origem

                                   /pws/zycat031-ebelp.

* << Fim da exclusão

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

    perform busca_doc_pedido using wa_zycat030-origem

                                   /pws/zycat031-ebelp

                          changing v_ravs_pago.

* << Fim da inclusão

    perform calcula_saldo.

  endif.

  if not itab_zycat039_r[] is initial or

     ( itab_zycat039_r[] is initial and

       itab_zycat039_c[] is initial and

       itab_zycat039_f[] is initial and

       itab_zycat039_fe[] is initial and

       itab_zycat039_o[] is initial ).

    v_dynnr = '0101'.

    ts_assoc-activetab = 'TB_REM'.

...

 

...

    when 'TB_FEXP'.

      v_dynnr = '0107'.

      ts_assoc-activetab = v_okcode.

      clear v_okcode.

    when 'SAVE'.

      perform salva_associacao.

    when 'MODIF'.

      clear v_exibe.

      perform verifica_bloqueio.

      if v_exibe is initial and /pws/zycat030-tp_origem eq 'OV'.

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

        perform busca_ordem_venda using /pws/zycat031-nrseq_origem.

* << Fim da exclusão

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

        perform busca_ordem_venda using /pws/zycat031-nrseq_origem

                               changing v_ravs_pago.

* << Fim da inclusão

        perform calcula_saldo.

        clear v_okcode.

      endif.

    when 'FILE_LOC'.

      clear v_path.

      call screen 0104 starting at 25 10.

    when 'LOG'.

      perform executa_log.

    when 'LOG_TRILHA'.

      perform log_trilha using sy-repid

...

 

...

         p_wa_zycat039-dt_pg_rec is initial.

    perform valida_exportacao changing p_wa_zycat039

                                       p_pago

                                       v_bukext

                                       v_bukrs.

  endif.

  if ( not v_bukrs is initial and

     v_bukrs ne /pws/zycat030-bukrs ) or

     ( not p_wa_zycat039-moeda is initial and

     p_wa_zycat039-moeda ne /pws/zycat030-waers ).

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-i10 text-i11.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

  if ( not v_bukext is initial and

     v_bukext ne /pws/zycat030-bukrs_ext ).

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-i21 text-i22.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

endform.

form user_command_0102.

  case v_okcode.

...

 

...

  select single nrseqce

    from /pws/zycit094

    into v_nrseqce

    where nrseq = p_wa_zycat039-fat_imp.

  if sy-subrc eq 0.

    perform valida_tipo_fatura

      using p_wa_zycat039-fat_imp

            v_nrseqce

      changing v_tpfatura p_bukext v_nrseqpgfat p_pago.

  else.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-i14.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

  select single bukrs waers vlme nrfat dtpagto

    from /pws/zycbt119

    into (p_bukrs, p_wa_zycat039-moeda, p_wa_zycat039-valor,

          p_wa_zycat039-num_nf, p_wa_zycat039-dt_pg_rec)

    where nrseq = v_nrseqpgfat.

  if sy-subrc ne 0 or p_wa_zycat039-dt_pg_rec is initial.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i061 with text-i13 p_wa_zycat039-fat_imp text-i09.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

  p_wa_zycat039-valor = /pws/zycat031-saldo.

  clear: v_nrboleto,

         wa_zycbt031_aux,

...

 

...

   where nrseq     = wa_zycbt031_aux-nrseq

     and mdcorresp = wa_zycbt031_aux-mdcorresp

     and nrcorresp = wa_zycbt031_aux-nrcorresp.

  select single *

    from /pws/zycbt134

    into wa_zycbt134_aux

   where mdcorresp = 'IP'

     and nrseq     = wa_zycbt031_aux-nrseq.

  v_bcoccme = wa_zycbt134_aux-bco_ccme.

  if sy-subrc ne 0.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i061 with text-i13 v_nrseqpgfat text-i09.

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

    endif.

* << Fim da inclusão

    clear p_pago.

  else.

    p_wa_zycat039-vme = p_wa_zycat039-valor.

    perform busca_parametros_campos using 'FI'

                                 changing p_wa_zycat039-dt_pg_rec.

  endif.

...

 

...

        wa_zycbt006   type ty_zycbt006,

        v_vlavinc     type /pws/zycbt017-vlavinc,

        v_vlpago      type /pws/zycbt006-vlme.

  check /pws/zycat030-tp_origem ne 'PT'.

  select nrinvoic nrparcf gsberf bukrs

      kunag waers vlavinc vlcomis parvw

    from /pws/zycbt017

    into table itab_zycbt017

    where nrinvoic  =  p_wa_zycat039-fat_exp.

  if sy-subrc ne 0.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-i13 text-i09.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

  select nrinvoic nrparcf gsberf dtpagext vlme

    dtpagto

    from /pws/zycbt006

...

 

...

      v_vlavinc = v_vlavinc - wa_zycbt017-vlcomis.

    endif.

  endloop.

  move: wa_zycbt017-bukrs to p_bukrs,

        wa_zycbt017-waers to p_wa_zycat039-moeda,

        wa_zycbt017-kunag to p_bukext.

  loop at itab_zycbt006 into wa_zycbt006.

    v_vlpago = v_vlpago + wa_zycbt006-vlme.

  endloop.

  if v_vlpago < v_vlavinc.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-i13 text-i09.

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

    endif.

* << Fim da inclusão

    clear: p_pago, /pws/zycat030-origem.

    exit.

  endif.

  if wa_zycat030-origem is initial.

    p_wa_zycat039-valor = v_vlpago.

  endif.

...

 

...

        read table itab_zycbt006 into wa_zycbt006 index 1.

        p_wa_zycat039-dt_pg_rec =  wa_zycbt006-dtpagext.

      elseif wa_zycat048-valor = 'DTPAGTO'.

        sort itab_zycbt006 by dtpagto descending.

        read table itab_zycbt006 into wa_zycbt006 index 1.

        p_wa_zycat039-dt_pg_rec =  wa_zycbt006-dtpagto.

      endif.

    endif.

  endif.

  if p_wa_zycat039-dt_pg_rec is initial.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i061 with text-i13 p_wa_zycat039-fat_exp text-i09.

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

    endif.

* << Fim da inclusão

    clear p_pago.

  endif.

endform.

form user_command_0107.

  case v_okcode.

    when 'MALL'.

...

 

...

          message i061 with text-i06 itab_zycat039_f-fat_comis

                            text-i07.

        else.

          delete itab_zycat039_fe.

        endif.

      endloop.

      clear v_okcode.

  endcase.

endform.

form busca_doc_pedido using p_ebeln

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

                            p_ebelp.

* << Fim da exclusão

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

                            p_ebelp

                   changing p_pago.

* << Fim da inclusão

  data: itab_ekbe  type table of ty_ekbe,

        wa_ekbe    type ty_ekbe,

        itab_awkey type table of ty_awkey,

        wa_awkey   type bkpf-awkey,

        itab_bkpf  type table of ty_bkpf,

        itab_bsak  type table of ty_bsak,

        itab_total type table of ty_total,

        wa_bsak    type ty_bsak,

        wa_total   type ty_total,

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

        v_valor    type /pws/zycat039-valor.

* << Fim da exclusão

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

        v_valor    type /pws/zycat039-valor,

        v_val_aux  type /pws/zycat039-valor.

  clear: p_pago,

         v_val_aux.

* << Fim da inclusão

  select ebeln gjahr belnr bewtp shkzg

    from ekbe

    into table itab_ekbe

    where ebeln = p_ebeln

      and ebelp = p_ebelp.

  delete itab_ekbe where bewtp ne 'Q'.

  delete itab_ekbe where shkzg ne 'S'.

  if not itab_ekbe[] is initial.

    loop at itab_ekbe into wa_ekbe.

      concatenate wa_ekbe-belnr wa_ekbe-gjahr

...

 

...

        endloop.

        loop at itab_total into wa_total.

          select sum( valor )

            from /pws/zycat039

            into v_valor

            where ( nrseq    ne /pws/zycat031-nrseq

               or operacao ne /pws/zycat031-operacao )

              and fatura = wa_total-augbl.

          wa_total-wrbtr = wa_total-wrbtr - v_valor.

          check wa_total-wrbtr > 0.

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

          move: wa_total-augbl to wa_zycat039o-fatura,

                wa_total-augdt to wa_zycat039o-dt_pg_rec,

                wa_total-waers to wa_zycat039o-moeda,

                wa_total-wrbtr to wa_zycat039o-valor.

* << Fim da exclusão

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

          move: /pws/zycat031-nrseq     to wa_zycat039o-nrseq,

                /pws/zycat031-operacao  to wa_zycat039o-operacao,

                wa_total-augbl          to wa_zycat039o-fatura,

                wa_total-augdt          to wa_zycat039o-dt_pg_rec,

                wa_total-waers          to wa_zycat039o-moeda,

                wa_total-wrbtr          to wa_zycat039o-valor.

          if v_dom_tporigem eq 'B'.

            if wa_total-waers eq itab_zycat031_ass-waers.

               v_val_aux = v_val_aux + wa_total-wrbtr.

               if v_val_aux  le  itab_zycat031_ass-valor.

                 append wa_zycat039o to itab_zycat039_ass.

                 p_pago = 'X'.

               endif.

            endif.

          else.

* << Fim da inclusão

          append wa_zycat039o to itab_zycat039_o.

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

          endif.

* << Fim da inclusão

          clear wa_zycat039o.

        endloop.

      endif.

    endif.

  endif.

endform.

...

 

...

    where inco1 = v_inco1

      and land1 = 'BR'.

  if /pws/zycat030-tp_origem = 'EI'.

    select single tpfatura lifnr nrseq_pgfat

      from /pws/zycit006

      into (p_tpfatura, p_bukext, p_nrseqpgfat)

      where nrseqce   = p_nrseqce

        and tpfatura  = '01'

        and eliminado = ' '.

    if sy-subrc ne 0.

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

      if v_dom_tporigem ne 'B'.

* << Fim da inclusão

      message i015 with text-i14.

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

      endif.

* << Fim da inclusão

      clear p_pago.

      exit.

    endif.

  elseif /pws/zycat030-tp_origem = 'FI'.

    if v_inco1_ci = 'FOB' or

       v_inco1_ci = 'C+I'.

      select single tpfatura lifnr nrseq_pgfat

        from /pws/zycit006

        into (p_tpfatura, p_bukext, p_nrseqpgfat)

        where nrseqce   = p_nrseqce

          and tpfatura  = '02'

          and eliminado = ' '.

      if sy-subrc ne 0.

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

        if v_dom_tporigem ne 'B'.

* << Fim da inclusão

        message i015 with text-i14.

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

        endif.

* << Fim da inclusão

        clear p_pago.

        exit.

      endif.

    else.

      select single tpfatura lifnr nrseq_pgfat

        from /pws/zycit006

...

 

...

          and tpfatura  = '02'

          and eliminado = ' '.

      if sy-subrc ne 0.

        select single tpfatura lifnr nrseq_pgfat

          from /pws/zycit006

          into (p_tpfatura, p_bukext, p_nrseqpgfat)

          where nrseqce   = p_nrseqce

            and tpfatura  = '01'

            and eliminado = ' '.

        if sy-subrc ne 0.

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

          if v_dom_tporigem ne 'B'.

* << Fim da inclusão

          message i015 with text-i14.

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

          endif.

* << Fim da inclusão

          clear p_pago.

          exit.

        endif.

      endif.

    endif.

  elseif /pws/zycat030-tp_origem = 'SI'.

    if v_inco1_ci = 'FOB' or

       v_inco1_ci = 'C&F'.

      select single tpfatura lifnr nrseq_pgfat

        from /pws/zycit006

        into (p_tpfatura, p_bukext, p_nrseqpgfat)

        where nrseqce   = p_nrseqce

          and tpfatura  = '03'

          and eliminado = ' '.

      if sy-subrc ne 0.

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

        if v_dom_tporigem ne 'B'.

* << Fim da inclusão

        message i015 with text-i14.

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

        endif.

* << Fim da inclusão

        clear p_pago.

        exit.

      endif.

    else.

      select single tpfatura lifnr nrseq_pgfat

        from /pws/zycit006

...

 

...

          and tpfatura  = '03'

          and eliminado = ' '.

      if sy-subrc ne 0.

        select single tpfatura lifnr nrseq_pgfat

          from /pws/zycit006

          into (p_tpfatura, p_bukext, p_nrseqpgfat)

          where nrseqce   = p_nrseqce

            and tpfatura  = '01'

            and eliminado = ' '.

        if sy-subrc ne 0.

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

          if v_dom_tporigem ne 'B'.

* << Fim da inclusão

          message i015 with text-i14.

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

          endif.

* << Fim da inclusão

          clear p_pago.

          exit.

        endif.

      endif.

    endif.

  elseif /pws/zycat030-tp_origem = 'DI'.

    select single tpfatura lifnr nrseq_pgfat

      from /pws/zycit006

      into (p_tpfatura, p_bukext, p_nrseqpgfat)

      where nrseq     = /pws/zycat031-despach

        and nrseqce   = p_nrseqce

        and tpfatura  = '04'

        and eliminado = ' '.

    if sy-subrc ne 0.

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

      if v_dom_tporigem ne 'B'.

* << Fim da inclusão

      message i015 with text-i14.

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

      endif.

* << Fim da inclusão

      clear p_pago.

      exit.

    endif.

  endif.

endform.

form busca_saldo_bseg.

...

 

...

     where nrseq     = wa_zycbt031_aux-nrseq

       and mdcorresp = wa_zycbt031_aux-mdcorresp

       and nrcorresp = wa_zycbt031_aux-nrcorresp.

    select single *

      from /pws/zycbt134

      into wa_zycbt134_aux

     where mdcorresp = 'EP'

       and nrseq     = v_nrboleto.

    if sy-subrc ne 0.

      clear: p_tipo_pt.

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

      if v_dom_tporigem ne 'B'.

* << Fim da inclusão

      message i061 with text-i12 text-i11.

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

      endif.

* << Fim da inclusão

      exit.

    endif.

    perform busca_parametros_campos using 'PT'

                                 changing p_dtcredpr.

    select single *

      from /pws/zycat039

...

 

...

      into wa_zycat039

      where nrseq    ne  /pws/zycat039-nrseq

        and remessa   =  p_nrseqrem

        and nrpres    =  wa_zycat031-nrseq_origem

        and despach   =  wa_zycat031-despach

        and tpdesp    =  wa_zycat031-tpdesp

        and moeda     =  wa_zycat031-waers.

  endif.

  if sy-subrc eq 0.

    clear: p_tipo_pt.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-e24 text-i11.

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

    endif.

* << Fim da inclusão

    exit.

  endif.

endform.

form valida_comissao_2 changing p_wa_zycat039 structure /pws/zycat039

                                p_pago

                                p_bukext

...

 

...

  data: v_nrseq   type /pws/zycbt031-nrseq,

        v_bcoccme type /pws/zycbt134-bco_ccme.

  data: wa_zycbt031 type /pws/zycbt031.

  select single * from /pws/zycat039

    into wa_zycat039

    where nrseq     ne /pws/zycat039-nrseq

      and fat_comis  = p_wa_zycat039-fat_comis

      and lifnr      = p_wa_zycat039-lifnr

      and dtvencto   = p_wa_zycat039-dtvencto.          "#EC CI_NOFIRST

  if sy-subrc eq 0.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-e09 text-i11.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

  select single bukrs nfnum waers

    from /pws/zycet002

    into (p_bukrs,

...

 

...

   where nrseq     = wa_zycbt031_aux-nrseq

     and mdcorresp = wa_zycbt031_aux-mdcorresp

     and nrcorresp = wa_zycbt031_aux-nrcorresp.

  select single *

    from /pws/zycbt134

    into wa_zycbt134_aux

   where mdcorresp = 'EL'

     and nrseq     = v_nrboleto.

  v_bcoccme = wa_zycbt134_aux-bco_ccme.

  if sy-subrc ne 0.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i061 with text-i13 p_wa_zycat039-fat_comis

                      text-i09.

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

    endif.

* << Fim da inclusão

    clear p_pago.

  else.

    p_bukext                = wa_zycbt031-lifnr.

    if sy-subrc eq 0.

      p_wa_zycat039-vme = p_wa_zycat039-valor.

...

 

...

        v_bcoccme  type /pws/zycbt134-bco_ccme,

        v_tpoper   type /pws/zycbt124-tpoper.

  select single * from /pws/zycat039

    into wa_zycat039

    where nrseq   ne /pws/zycat039-nrseq

      and remessa = p_wa_zycat039-remessa               "#EC CI_NOFIRST

      and despach = p_wa_zycat039-despach

      and tpdesp  = p_wa_zycat039-tpdesp

      and nrpres  = p_wa_zycat039-nrpres.

  if sy-subrc eq 0.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i015 with text-e07 text-i11.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

  select single bukrs recrem nrfat tpoper

    from /pws/zycbt124

    into (p_bukrs, p_bukext, p_wa_zycat039-num_nf, v_tpoper)

   where nrseq = p_wa_zycat039-remessa.

  if sy-subrc ne 0.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i061 with text-i08 p_wa_zycat039-remessa

      text-i09.

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

    endif.

* << Fim da inclusão

    clear p_pago.

    exit.

  endif.

  clear: v_nrboleto,

         wa_zycbt031_aux,

...

 

...

      p_wa_zycat039-vme = p_wa_zycat039-valor.

    endif.

    if v_tpoper = 'P'.

      perform busca_parametros_campos using 'RP'

                                   changing p_wa_zycat039-dt_pg_rec.

    elseif v_tpoper = 'R'.

      perform busca_parametros_campos using 'RR'

                                   changing p_wa_zycat039-dt_pg_rec.

    endif.

  else.

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

    if v_dom_tporigem ne 'B'.

* << Fim da inclusão

    message i061 with text-i12 text-i11.

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

    endif.

* << Fim da inclusão

    clear p_pago.

  endif.

endform.

form busca_parametros_campos

             using p_process               type /pws/zycat048-processo

          changing p_wa_zycat039-dt_pg_rec type /pws/zycat039-dt_pg_rec.

...

 

...

          endcase.

        elseif p_process = 'OV'.

          case wa_zycat048-valor.

            when 'AUGDT'.

              p_wa_zycat039-dt_pg_rec = wa_bsad-augdt.

          endcase.

        endif.

    endcase.

  endloop.

endform.

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

form  busca_ordem_venda using p_fatura.

* << Fim da exclusão

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

form  busca_ordem_venda using p_fatura

                     changing p_pago.

* << Fim da inclusão

  data: v_vbeln   type  vbrp-vbeln,

        v_augdt   type  bsad-augdt,

        itab_bsad type  table of ty_bsad.

  select single vbeln

    from vbrp

    into v_vbeln

   where aubel = p_fatura.

   if sy-subrc eq 0.

     select vbeln augdt augbl waers gjahr sum( wrbtr )

       from bsad

       into table itab_bsad

      where vbeln = v_vbeln

     group by vbeln augdt augbl waers gjahr.

   endif.

   clear: wa_zycat039o.

   if itab_bsad[] is initial.

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

     if v_dom_tporigem ne 'B'.

* << Fim da inclusão

     message i061 with text-i13 text-i09.

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

     endif.

     clear p_pago.

* << Fim da inclusão

     exit.

   endif.

   loop at itab_bsad into wa_bsad.

     read table itab_zycat039_o

              into wa_zycat039o with key fatura = wa_bsad-augbl

                                         gjahr  = wa_bsad-gjahr.

     if sy-subrc ne 0.

       clear wa_zycat039o.

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

       move: wa_bsad-augbl to wa_zycat039o-fatura,

             wa_bsad-augdt to wa_zycat039o-dt_pg_rec,

             wa_bsad-waers to wa_zycat039o-moeda,

             wa_bsad-wrbtr to wa_zycat039o-valor.

* << Fim da exclusão

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

       move: /pws/zycat031-nrseq     to  wa_zycat039o-nrseq,

             /pws/zycat031-operacao  to  wa_zycat039o-operacao,

             wa_bsad-augbl           to  wa_zycat039o-fatura,

             wa_bsad-augdt           to  wa_zycat039o-dt_pg_rec,

             wa_bsad-waers           to  wa_zycat039o-moeda,

             wa_bsad-wrbtr           to  wa_zycat039o-valor,

             wa_bsad-gjahr           to  wa_zycat039o-gjahr.

* << Fim da inclusão

       perform busca_parametros_campos using 'OV'

                                    changing wa_zycat039o-dt_pg_rec.

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

       if v_dom_tporigem eq 'B'.

         append wa_zycat039o to itab_zycat039_ass.

       else.

* << Fim da inclusão

       append wa_zycat039o to itab_zycat039_o.

     endif.

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

     endif.

* << Fim da inclusão

   endloop.

endform.

* >> Início da inclusão:

form user_command_0003.

  case v_okcode.

    when 'ENTE'.

      clear v_okcode.

      if v_dom_tporigem = 'A'.

        call screen '0001'.

      elseif v_dom_tporigem = 'B'.

        call screen '0004'.

      endif.

  endcase.

endform.

form user_command_0004.

  case v_okcode.

    when 'EXEC'.

      perform busca_ras_rvs_associacao.

  endcase.

endform.

form user_command_0200.

  case v_okcode.

    when 'MALL'.

      loop at itab_zycat031_ass.

        itab_zycat031_ass-mark = 'X'.

        modify itab_zycat031_ass.

      endloop.

      clear v_okcode.

    when 'DMALL'.

      loop at itab_zycat031_ass.

        clear itab_zycat031_ass-mark.

        modify itab_zycat031_ass.

      endloop.

      clear v_okcode.

    when 'ELIM'.

      loop at itab_zycat031_ass where mark = 'X'.

        delete itab_zycat031_ass.

      endloop.

      clear v_okcode.

    when 'EXEC'.

      perform processar_associacao_massa.

  endcase.

endform.

form busca_ras_rvs_associacao.

  data: v_tabix_ass     type sy-tabix,

        wa_zycat039aux  type /pws/zycat039,

        v_tipo_pt(3) type c,

        v_dtcredpr   type /pws/zycbt031-dtcredpr,

        v_nrseqrem   type /pws/zycet033-nrseqrem,

        v_embarque   type /pws/zycet033-nrseq.

  data: begin of itab_zycat039_aux occurs 0,

        nrseq    like  /pws/zycat039-nrseq,

        operacao like  /pws/zycat039-operacao,

  end of itab_zycat039_aux.

  if so_empr[]  is initial and

     so_nrseq[] is initial and

     so_oper[]  is initial and

     so_dtini[] is initial and

     so_dtfim[] is initial and

     so_modo[]  is initial.

    message i015 with text-e25.

    exit.

  endif.

  if p_ras is initial and

     p_rvs is initial.

    message i015 with text-e26.

    exit.

  endif.

  if p_ravspg is initial and

     p_ravsnp is initial.

    message i015 with text-e27.

    exit.

  endif.

  clear: itab_zycat030_ass,

         itab_zycat031_ass,

         itab_zycat039_ass.

  refresh: itab_zycat030_ass,

           itab_zycat031_ass,

           itab_zycat039_ass.

  select *

    from /pws/zycat031

    into table itab_zycat031_ass

   where nrseq      in so_nrseq

     and operacao   in so_oper

     and data_ini   in so_dtini

     and data_fim   in so_dtfim

     and modo_prest in so_modo

     and status     eq 'PS'

     and saldo      gt  0.

  select nrseq operacao

    from /pws/zycat039

    into table itab_zycat039_aux

     for all entries in itab_zycat031_ass

   where nrseq    = itab_zycat031_ass-nrseq

     and operacao = itab_zycat031_ass-operacao.

  select *

    from /pws/zycat030

    into table itab_zycat030_ass

     for all entries in itab_zycat031_ass

   where nrseq  = itab_zycat031_ass-nrseq

     and bukrs in so_empr.

  loop at itab_zycat031_ass.

    v_tabix_ass = sy-tabix.

    read table itab_zycat039_aux

                        with key nrseq = itab_zycat031_ass-nrseq

                              operacao = itab_zycat031_ass-operacao.

    if sy-subrc eq 0.

      delete itab_zycat031_ass index v_tabix_ass.

    else.

      read table itab_zycat030_ass

                          with key nrseq = itab_zycat031_ass-nrseq.

      if sy-subrc eq 0.

        itab_zycat031_ass-bukrs        =  itab_zycat030_ass-bukrs.

        itab_zycat031_ass-tp_processo  =  itab_zycat030_ass-tp_processo.

        itab_zycat031_ass-bukrs_ext    =  itab_zycat030_ass-bukrs_ext.

        itab_zycat031_ass-tp_origem    =  itab_zycat030_ass-tp_origem.

        if itab_zycat031_ass-nrseq_origem is initial.

           itab_zycat031_ass-nrseq_origem = itab_zycat030_ass-origem.

        endif.

        modify itab_zycat031_ass index v_tabix_ass.

      else.

        delete itab_zycat031_ass index v_tabix_ass.

      endif.

    endif.

  endloop.

  delete itab_zycat031_ass where tp_origem is initial.

  if p_ras is initial.

    delete itab_zycat031_ass where tp_processo eq 'A'.

  endif.

  if p_rvs is initial.

    delete itab_zycat031_ass where tp_processo eq 'V'.

  endif.

  if itab_zycat031_ass[] is initial.

    message i015 with text-e28.

    exit.

  endif.

  select * from /pws/zycat048

    into table itab_zycat048.

  clear itab_zycat039_ass.

  loop at itab_zycat031_ass.

    clear: wa_zycat039aux,

           wa_zycat030,

           /pws/zycat030,

           /pws/zycat031.

    v_ravs_pago = 'X'.

    v_tabix_ass = sy-tabix.

    read table itab_zycat030_ass

          into /pws/zycat030 with key nrseq = itab_zycat031_ass-nrseq.

    move-corresponding itab_zycat031_ass to /pws/zycat031.

    move-corresponding /pws/zycat030 to wa_zycat030.

    if wa_zycat030-origem is initial.

      wa_zycat030-origem = /pws/zycat031-nrseq_origem.

    endif.

    itab_zycat031_ass-pagamento = 'N'.

    wa_zycat039aux-nrseq    = itab_zycat031_ass-nrseq.

    wa_zycat039aux-operacao = itab_zycat031_ass-operacao.

    if itab_zycat031_ass-tp_origem = 'FI' or

       itab_zycat031_ass-tp_origem = 'SI' or

       itab_zycat031_ass-tp_origem = 'EI' or

       itab_zycat031_ass-tp_origem = 'DI'.

      wa_zycat039aux-fat_imp   = itab_zycat031_ass-nrseq_origem.

    elseif itab_zycat031_ass-tp_origem = 'FE' or

           itab_zycat031_ass-tp_origem = 'SE' or

           itab_zycat031_ass-tp_origem = 'EE'.

      wa_zycat039aux-fat_exp   = itab_zycat031_ass-nrseq_origem.

      wa_zycat039aux-valor     = itab_zycat031_ass-valor.

    elseif itab_zycat031_ass-tp_origem = 'CA'.

      select single dtvencto

        into wa_zycat039aux-dtvencto

        from /pws/zycet010

       where nrseq = itab_zycat031_ass-origem

         and lifnr = itab_zycat031_ass-bukrs_ext.

      wa_zycat039aux-fat_comis = itab_zycat031_ass-nrseq_origem.

      wa_zycat039aux-lifnr     = itab_zycat031_ass-bukrs_ext.

      wa_zycat039aux-valor     = itab_zycat031_ass-valor.

      wa_zycat039aux-moeda     = itab_zycat031_ass-waers.

    elseif itab_zycat031_ass-tp_origem = 'PT'.

      perform verifica_associacao_pt using itab_zycat031_ass-nrseq

                                           itab_zycat031_ass-operacao

                                  changing v_tipo_pt

                                           v_dtcredpr

                                           v_nrseqrem

                                           v_embarque.

      if v_tipo_pt eq 'EXP'.

        wa_zycat039aux-fat_exp  =  v_embarque.

      elseif v_tipo_pt eq 'REM'.

        wa_zycat039aux-remessa  =  v_nrseqrem.

      endif.

      wa_zycat039aux-nrpres     =  itab_zycat031_ass-nrseq_origem.

      wa_zycat039aux-despach    =  itab_zycat031_ass-despach.

      wa_zycat039aux-tpdesp     =  itab_zycat031_ass-tpdesp.

      wa_zycat039aux-moeda      =  itab_zycat031_ass-waers.

      wa_zycat039aux-valor      =  itab_zycat031_ass-valor.

      wa_zycat039aux-dt_pg_rec  =  v_dtcredpr.

      clear v_ravs_pago.

      if v_tipo_pt eq 'EXP' and not wa_zycat039aux-fat_exp is initial.

        v_ravs_pago = 'X'.

        itab_zycat031_ass-pagamento = 'S'.

      elseif v_tipo_pt eq 'REM'

                            and not wa_zycat039aux-remessa is initial.

        perform verifica_associacao changing wa_zycat039aux

                                           v_ravs_pago.

        if v_ravs_pago = 'X'.

          itab_zycat031_ass-pagamento = 'S'.

        endif.

      endif.

    elseif itab_zycat031_ass-tp_origem = 'OV'.

      wa_zycat039aux-fatura  = itab_zycat031_ass-nrseq_origem.

      perform busca_ordem_venda using wa_zycat039aux-fatura

                             changing v_ravs_pago.

      if v_ravs_pago = 'X'.

        itab_zycat031_ass-pagamento = 'S'.

      endif.

    elseif itab_zycat031_ass-tp_origem = 'PC'.

      perform busca_doc_pedido using itab_zycat031_ass-nrseq_origem

                                     itab_zycat031_ass-ebelp

                            changing v_ravs_pago.

      if v_ravs_pago = 'X'.

        itab_zycat031_ass-pagamento = 'S'.

      endif.

    endif.

    if itab_zycat031_ass-tp_origem ne 'PT' and

       itab_zycat031_ass-tp_origem ne 'OV' and

       itab_zycat031_ass-tp_origem ne 'PC'.

      perform verifica_associacao changing wa_zycat039aux

                                           v_ravs_pago.

      if v_ravs_pago = 'X'.

        itab_zycat031_ass-pagamento = 'S'.

      endif.

    endif.

    modify itab_zycat031_ass index v_tabix_ass transporting pagamento.

    if v_ravs_pago = 'X'                   and

       itab_zycat031_ass-tp_origem ne 'OV' and

       itab_zycat031_ass-tp_origem ne 'PC'.

      append wa_zycat039aux to itab_zycat039_ass.

    endif.

  endloop.

  if p_ravspg is initial.

    delete itab_zycat031_ass where pagamento eq 'S'.

  endif.

  if p_ravsnp is initial.

    delete itab_zycat031_ass where pagamento eq 'N'.

  endif.

  clear v_okcode.

  call screen '0200'.

endform.

form atualiza_tela_assoc using

                 p_itab_zycat031_ass structure itab_zycat031_ass

                 p_wa_zycat039a      structure itab_zycat031_ass.

  move-corresponding p_itab_zycat031_ass to p_wa_zycat039a.

  move p_wa_zycat039a-mark to v_mark.

endform.

form atualiza_itab_assoc

       tables  p_itab_zycat031_ass structure itab_zycat031_ass

        using  p_wa_zycat031a      structure itab_zycat031_ass

               p_tc                type cx_tableview.

  move-corresponding p_wa_zycat031a to p_itab_zycat031_ass.

  move: v_mark to p_itab_zycat031_ass-mark.

  if not p_tc-current_line is initial.

    modify p_itab_zycat031_ass index p_tc-current_line.

  endif.

endform.

form processar_associacao_massa.

  data:  v_processo   type  /pws/zycat038-processo,

         v_val_total  type  /pws/zycat031-valor,

         v_tabix      type  sy-tabix,

         v_answer.

  clear itab_zycat039.

  read table itab_zycat031_ass with key mark = 'X'.

  if sy-subrc ne 0.

    message i015 with text-e29.

    exit.

  endif.

  read table itab_zycat031_ass with key mark      = 'X'

                                        pagamento = 'N'.

  if sy-subrc eq 0.

    message i015 with text-e30 text-e31.

    exit.

  endif.

  call function 'POPUP_TO_CONFIRM_STEP'

        exporting

             defaultoption = 'N'

             textline1     = text-i23

             titel         = text-i01

        importing

             answer        = v_answer

        exceptions

             others        = 1.

  if sy-subrc eq 0.

    if v_answer eq 'J'.

      loop at itab_zycat031_ass where mark = 'X'.

        v_tabix = sy-tabix.

        clear: v_val_total,

               wa_zycat039.

        loop at itab_zycat039_ass into wa_zycat039

                           where nrseq    = itab_zycat031_ass-nrseq

                             and operacao = itab_zycat031_ass-operacao.

          move: itab_zycat031_ass-re to wa_zycat039-re,

                itab_zycat031_ass-di to wa_zycat039-di.

          v_val_total = v_val_total + wa_zycat039-valor.

          append wa_zycat039 to itab_zycat039.

        endloop.

        itab_zycat031_ass-saldo = itab_zycat031_ass-saldo - v_val_total.

        modify itab_zycat031_ass index v_tabix.

        read table itab_zycat030_ass

                            with key nrseq = itab_zycat031_ass-nrseq.

        if sy-subrc eq 0.

          itab_zycat030_ass-saldo =

          itab_zycat030_ass-saldo - v_val_total.

          modify itab_zycat030_ass index sy-tabix.

        endif.

      endloop.

    endif.

  endif.

  check not itab_zycat039[] is initial.

  loop at itab_zycat039 into wa_zycat039.

    insert /pws/zycat039 from wa_zycat039.

    move /pws/zycat039-nrseq to v_identificador.

    move-corresponding wa_zycat039 to /pws/zycat039.

    perform carrega_log using '/PWS/ZYCAT039'

                              'I'

                              sy-tcode

                              v_funcionalidade

                              v_identificador.

    read table itab_zycat030_ass

          into /pws/zycat030 with key nrseq = wa_zycat039-nrseq.

    if /pws/zycat030-tp_processo = 'V'.

      v_processo = 'IRF'.

    elseif /pws/zycat030-tp_processo = 'A'.

      v_processo = 'IRP'.

    endif.

    call function '/PWS/ZYCA_GERA_XML_SISCOSERV'

         exporting

              i_processo = v_processo

              i_zycat030 = /pws/zycat030

              i_zycat039 = wa_zycat039

              i_path     = v_path

         exceptions

              xml_error  = 1.

  endloop.

  clear   i_result.

  refresh i_result.

  loop at itab_zycat031_ass where mark = 'X'.

    v_tabix = sy-tabix.

    update /pws/zycat031

       set saldo = itab_zycat031_ass-saldo

     where nrseq    = itab_zycat031_ass-nrseq

       and operacao = itab_zycat031_ass-operacao.

    read table itab_zycat030_ass

                          with key nrseq = itab_zycat031_ass-nrseq.

    if sy-subrc eq 0.

      update /pws/zycat030

         set saldo  = itab_zycat030_ass-saldo

       where nrseq  = itab_zycat031_ass-nrseq.

    endif.

    v_funcionalidade = '/PWS/SAPMZYCA012'.

    move itab_zycat031_ass-nrseq to v_identificador.

    perform carrega_log using '/PWS/ZYCAT030'

                              'U'

                              sy-tcode

                              v_funcionalidade

                              v_identificador.

    perform carrega_log using '/PWS/ZYCAT031'

                              'U'

                              sy-tcode

                              v_funcionalidade

                              v_identificador.

    clear i_result.

    i_result-tp_processo   =  itab_zycat031_ass-tp_processo.

    i_result-nrseq_origem  =  itab_zycat031_ass-nrseq_origem.

    i_result-waers         =  itab_zycat031_ass-waers.

    i_result-valor         =  itab_zycat031_ass-valor.

    i_result-saldo         =  itab_zycat031_ass-saldo.

    i_result-nrseq         =  itab_zycat031_ass-nrseq.

    i_result-operacao      =  itab_zycat031_ass-operacao.

    i_result-tp_origem     =  itab_zycat031_ass-tp_origem.

    i_result-re            =  itab_zycat031_ass-re.

    i_result-di            =  itab_zycat031_ass-di.

    i_result-status        =  itab_zycat031_ass-status.

    append i_result.

    delete itab_zycat031_ass index v_tabix.

  endloop.

  commit work.

  clear v_okcode.

  message s015 with text-s02.

  perform e04_comment_build using gt_list_top_of_page[].

  perform f_fieldcat_fill.

  perform monta_rel_alv.

endform.

form e04_comment_build using e04_lt_top_of_page type slis_t_listheader.

  data ls_line type slis_listheader.

  clear   e04_lt_top_of_page.

  refresh e04_lt_top_of_page.

  clear ls_line.

  ls_line-typ  = 'H'.

  ls_line-info = text-005.

  append ls_line to e04_lt_top_of_page.

  clear ls_line.

  ls_line-typ  = 'S'.

  ls_line-info = text-004.

  append ls_line to e04_lt_top_of_page.

endform.

form f_fieldcat_fill.

  data i type i.

  clear   i_fieldcat.

  refresh i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'TP_PROCESSO'.

  afield-ref_fieldname = 'TP_PROCESSO'.

  afield-ref_tabname = '/PWS/ZYCAT030'.

  afield-outputlen = 3.

  afield-reptext_ddic = text-006.

  afield-seltext_s = text-006.

  afield-seltext_m = text-006.

  afield-seltext_l = text-006.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'NRSEQ_ORIGEM'.

  afield-ref_fieldname = 'NRSEQ_ORIGEM'.

  afield-ref_tabname = '/PWS/ZYCAT031'.

  afield-outputlen = 15.

  afield-hotspot   = 'X'.

  afield-reptext_ddic = text-007.

  afield-seltext_s = text-007.

  afield-seltext_m = text-007.

  afield-seltext_l = text-007.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'WAERS'.

  afield-ref_fieldname = 'WAERS'.

  afield-ref_tabname = '/PWS/ZYCAT031'.

  afield-outputlen = 6.

  afield-reptext_ddic = text-008.

  afield-seltext_s = text-008.

  afield-seltext_m = text-008.

  afield-seltext_l = text-008.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'VALOR'.

  afield-ref_fieldname = 'VALOR'.

  afield-ref_tabname = '/PWS/ZYCAT031'.

  afield-outputlen = 17.

  afield-cfieldname = 'WAERS'.

  afield-reptext_ddic = text-009.

  afield-seltext_s = text-009.

  afield-seltext_m = text-009.

  afield-seltext_l = text-009.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'SALDO'.

  afield-ref_fieldname = 'SALDO'.

  afield-ref_tabname = '/PWS/ZYCAT031'.

  afield-outputlen = 17.

  afield-cfieldname = 'WAERS'.

  afield-reptext_ddic = text-010.

  afield-seltext_s = text-010.

  afield-seltext_m = text-010.

  afield-seltext_l = text-010.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'NRSEQ'.

  afield-ref_fieldname = 'NRSEQ'.

  afield-ref_tabname = '/PWS/ZYCAT039'.

  afield-outputlen = 15.

  afield-hotspot   = 'X'.

  afield-reptext_ddic = text-011.

  afield-seltext_s = text-011.

  afield-seltext_m = text-011.

  afield-seltext_l = text-011.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'OPERACAO'.

  afield-ref_fieldname = 'OPERACAO'.

  afield-ref_tabname = '/PWS/ZYCAT039'.

  afield-outputlen = 15.

  afield-reptext_ddic = text-012.

  afield-seltext_s = text-012.

  afield-seltext_m = text-012.

  afield-seltext_l = text-012.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'TP_ORIGEM'.

  afield-ref_fieldname = 'TP_ORIGEM'.

  afield-ref_tabname = '/PWS/ZYCAT030'.

  afield-outputlen = 15.

  afield-reptext_ddic = text-013.

  afield-seltext_s = text-013.

  afield-seltext_m = text-013.

  afield-seltext_l = text-013.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'RE'.

  afield-ref_fieldname = 'RE'.

  afield-ref_tabname = '/PWS/ZYCAT039'.

  afield-outputlen = 15.

  afield-reptext_ddic = text-014.

  afield-seltext_s = text-014.

  afield-seltext_m = text-014.

  afield-seltext_l = text-014.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'DI'.

  afield-ref_fieldname = 'DI'.

  afield-ref_tabname = '/PWS/ZYCAT039'.

  afield-outputlen = 15.

  afield-reptext_ddic = text-015.

  afield-seltext_s = text-015.

  afield-seltext_m = text-015.

  afield-seltext_l = text-015.

  append afield to i_fieldcat.

  i = i + 5.

  clear afield.

  afield-col_pos = i.

  afield-fieldname = 'STATUS'.

  afield-ref_fieldname = 'STATUS'.

  afield-ref_tabname = '/PWS/ZYCAT031'.

  afield-outputlen = 15.

  afield-reptext_ddic = text-016.

  afield-seltext_s = text-016.

  afield-seltext_m = text-016.

  afield-seltext_l = text-016.

  append afield to i_fieldcat.

endform.

form top_of_page.

  call function 'REUSE_ALV_COMMENTARY_WRITE'

       exporting

            it_list_commentary = gt_list_top_of_page.

endform.

form monta_rel_alv.

  call function '/PWS/ZYGL_GERA_RELATORIO_ALV'

       exporting

            v_program      = '/PWS/SAPMZYCA012'

            v_pf_status    = ' '

            v_user_command = 'PROCESSA_ALV'

            v_top_of_page  = 'TOP_OF_PAGE'

            v_variant      = g_variant

            v_marc         = 'X'

            v_selinfo      = 'X'

            v_zebra        = 'X'

            v_otimizado    = ' '

       tables

            i_fieldcat     = i_fieldcat

            t_data         = i_result.

endform.

form processa_alv using ucomm like sy-ucomm

                     selfield type slis_selfield.

  case ucomm.

    when 'BEAN'.

      clear i_result.

      read table i_result index selfield-tabindex.

      if sy-subrc = 0.

        replace '1-' with ' ' into selfield-sel_tab_field.

        condense selfield-sel_tab_field no-gaps.

        feld = selfield-sel_tab_field.

        if feld = 'NRSEQ'.

          authority-check object 'S_TCODE' id 'TCD'

                         field  '/PWS/ZYCA011_E'.

          if sy-subrc eq 0.

            set parameter id '/PWS/ZYCAP005' field i_result-nrseq.

            call transaction '/PWS/ZYCA011_E' and skip first screen.

          else.

            message e261(sf) with '/PWS/ZYCA011_E'.

          endif.

          set parameter id '/PWS/ZYCAP005' field ''.

        elseif feld = 'NRSEQ_ORIG'.

          if i_result-tp_origem = 'FI' or

             i_result-tp_origem = 'SI' or

             i_result-tp_origem = 'EI' or

             i_result-tp_origem = 'DI'.

            authority-check object 'S_TCODE' id 'TCD' field

            '/PWS/ZYCI001_E'.

            if sy-subrc eq 0.

              set parameter id '/PWS/ZYCIP001'

                                         field i_result-nrseq_origem.

              call transaction '/PWS/ZYCI001_E' and skip first screen.

            else.

              message e095(/pws/zycim) with '/PWS/ZYCI001_E'.

            endif.

            set parameter id '/PWS/ZYCIP001' field ''.

          elseif i_result-tp_origem = 'FE' or

                 i_result-tp_origem = 'SE' or

                 i_result-tp_origem = 'EE' or

                 i_result-tp_origem = 'CA'.

            authority-check object 'S_TCODE' id 'TCD' field

            '/PWS/ZYCE003_E'.

            if sy-subrc eq 0.

              set parameter id '/PWS/ZYCEP001'

                                         field i_result-nrseq_origem.

              call transaction '/PWS/ZYCE003_E' and skip first screen.

            else.

              message e261(sf) with '/PWS/ZYCE003_E'.

            endif.

            set parameter id '/PWS/ZYCEP001' field ''.

          elseif i_result-tp_origem = 'PT'.

            authority-check object 'S_TCODE' id 'TCD' field

            '/PWS/ZYCE013_E'.

            if sy-subrc eq 0.

              set parameter id '/PWS/ZYGLP163'

                                         field i_result-nrseq_origem.

              call transaction '/PWS/ZYCE013_E'.

            else.

              message e261(sf) with '/PWS/ZYCE013_E'.

            endif.

            set parameter id '/PWS/ZYGLP163' field ''.

          elseif i_result-tp_origem = 'OV'.

            authority-check object 'S_TCODE' id 'TCD' field 'VA03'.

            if sy-subrc eq 0.

              set parameter id 'AUN' field i_result-nrseq_origem.

              call transaction 'VA03' and skip first screen.

            else.

              message e261(sf) with 'ME23N'.

            endif.

            set parameter id 'AUN' field ''.

          elseif i_result-tp_origem = 'PC'.

            authority-check object 'S_TCODE' id 'TCD' field 'ME23N'.

            if sy-subrc eq 0.

              set parameter id 'BES' field i_result-nrseq_origem.

              call transaction 'ME23N' and skip first screen.

            else.

              message e261(sf) with 'ME23N'.

            endif.

            set parameter id 'BES' field ''.

          endif.

        endif.

      endif.

      clear feld.

    when '%EX'.

      leave program.

  endcase.

endform.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCA012I01

 

module exit_command input.

  case sy-dynnr.

    when '0001' or '0002'.

      leave program.

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

    when '0003'.

      leave program.

    when '0004'.

      set screen 0.

      leave screen.

* << Fim da inclusão

    when '0100'.

      set screen v_screen.

      leave screen.

    when '0104'.

      clear v_path.

      set screen 0.

      leave screen.

    when '0106'.

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

      set screen 0.

      leave screen.

    when '0200'.

* << Fim da inclusão

      set screen 0.

      leave screen.

  endcase.

endmodule.

module user_command input.

  case sy-dynnr.

    when '0001'.

      perform user_command_001.

    when '0002'.

      perform user_command_002.

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

    when '0003'.

      perform user_command_0003.

    when '0004'.

      perform user_command_0004.

* << Fim da inclusão

    when '0100'.

      perform user_command_0100.

    when '0101'.

      perform user_command_0101.

    when '0102'.

      perform user_command_0102.

    when '0103'.

      perform user_command_0103.

    when '0104'.

      perform user_command_0104.

    when '0105'.

      perform user_command_0105.

    when '0106'.

      perform user_command_0106.

    when '0107'.

      perform user_command_0107.

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

    when '0200'.

      perform user_command_0200.

* << Fim da inclusão

  endcase.

endmodule.

module atualiza_itab_remessa input.

  perform atualiza_itab tables  itab_zycat039_r

                        using   wa_zycat039r

                                tc_remessa.

endmodule.

module calcula_saldo input.

  perform calcula_saldo.

endmodule.

...

 

...

module atualiza_itab_outros input.

  perform atualiza_itab tables  itab_zycat039_o

                        using   wa_zycat039o

                                tc_outros.

endmodule.

module atualiza_itab_fatexp input.

  perform atualiza_itab tables  itab_zycat039_fe

                        using   wa_zycat039fe

                                tc_fatexp.

endmodule.

* >> Início da inclusão:

module atualiza_itab_associacao input.

  perform atualiza_itab_assoc tables  itab_zycat031_ass

                               using  wa_zycat039a

                                      tc_associacao.

endmodule.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCA012O01

 

...

      describe table itab_zycat039_f lines v_lines.

      tc_fatimp-lines = v_lines + 15.

    when '0105'.

      delete itab_zycat039_o where fatura is initial.

      describe table itab_zycat039_o lines v_lines.

      tc_outros-lines = v_lines + 15.

    when '0107'.

      delete itab_zycat039_fe where fat_exp is initial.

      describe table itab_zycat039_fe lines v_lines.

      tc_fatexp-lines = v_lines + 15.

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

    when '0200'.

      describe table itab_zycat031_ass lines v_lines.

      tc_associacao-lines = v_lines.

* << Fim da inclusão

  endcase.

endmodule.

module atualiza_tela_remessa output.

  perform atualiza_tela using itab_zycat039_r

                               wa_zycat039r.

endmodule.

module status_0102 output.

  if not v_exibe is initial           or

     not itab_zycat039_r[] is initial or

     not itab_zycat039_f[] is initial or

...

 

...

       wa_cols-screen-name = 'WA_ZYCAT039FE-NRPRES'.

      wa_cols-screen-input     = '0'.

      wa_cols-screen-invisible = '1'.

    endif.

  endloop.

endmodule.

module atualiza_tela_fatexp output.

  perform atualiza_tela using itab_zycat039_fe

                               wa_zycat039fe.

endmodule.

* >> Início da inclusão:

module status_0003 output.

  set pf-status '0003'.

  set titlebar  '0003'.

endmodule.

module status_0004 output.

  set pf-status '0004'.

  set titlebar  '0004'.

endmodule.

module status_0200 output.

  set pf-status '0200'.

  set titlebar  '0200'.

endmodule.

module atualiza_tela_associacao output.

  perform atualiza_tela_assoc using itab_zycat031_ass

                                    wa_zycat039a.

endmodule.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCA012TOP

 

...

  waers type bsad-waers,

  gjahr type bsad-gjahr,

  wrbtr type bsad-wrbtr,

end of ty_bsad.

tables: /pws/zycat030,

        /pws/zycat031,

        /pws/zycat037,

        /pws/zycat038,

        /pws/zycat039,

        bkpf.

* >> Início da inclusão:

include /pws/z_rel_alv.

data: begin of rs_result,

    tp_processo   like /pws/zycat030-tp_processo,

    nrseq_origem  like /pws/zycat031-nrseq_origem,

    waers         like /pws/zycat031-waers,

    valor         like /pws/zycat031-valor,

    saldo         like /pws/zycat031-saldo,

    nrseq         like /pws/zycat039-nrseq,

    operacao      like /pws/zycat039-operacao,

    tp_origem     like /pws/zycat030-tp_origem,

    re            like /pws/zycat039-re,

    di            like /pws/zycat039-di,

    status        like /pws/zycat031-status,

    selk,

end of rs_result.

data: i_result like standard table of rs_result

                                   initial size 10 with header line..

* << Fim da inclusão

data: itab_zycat039     type table of /pws/zycat039,

      itab_zycat039_ant type table of /pws/zycat039,

      itab_zycat039_c   type table of ty_zycat039t with header line,

      itab_zycat039_r   type table of ty_zycat039t with header line,

      itab_zycat039_f   type table of ty_zycat039t with header line,

      itab_zycat039_o   type table of ty_zycat039t with header line,

      itab_zycat039_fe  type table of ty_zycat039t with header line,

      itab_tdynpread    type standard table of dynpread,

      itab_result       type standard table of ddshretval,

      itab_fcode        type standard table of ty_fcode,

...

 

...

      wa_fcode         type ty_fcode,

      wa_zycat030      type /pws/zycat030,

      wa_bsad          type ty_bsad,

      wa_zycat048      type /pws/zycat048,

      wa_zycbt031_aux  type /pws/zycbt031,

      wa_zycbt048_aux  type /pws/zycbt048,

      wa_zycbt134_aux  type /pws/zycbt134.

data: begin of itab_zycat048 occurs 0.

  include structure /pws/zycat048.

data: end of itab_zycat048.

* >> Início da inclusão:

data: begin of itab_zycat030_ass occurs 0.

      include structure /pws/zycat030.

data: end of itab_zycat030_ass.

data: begin of itab_zycat039_ass occurs 0.

      include structure /pws/zycat039.

data: end of itab_zycat039_ass.

data: begin of itab_zycat031_ass occurs 0.

      include structure /pws/zycat031.

data: bukrs        like /pws/zycat030-bukrs,

      bukrs_ext    like /pws/zycat030-bukrs_ext,

      tp_processo  like /pws/zycat030-tp_processo,

      tp_origem    like /pws/zycat030-tp_origem,

      re           like /pws/zycat039-re,

      di           like /pws/zycat039-di,

      pagamento    type c,

      mark.

data: end of itab_zycat031_ass.

data: wa_zycat039a like itab_zycat031_ass.

* << Fim da inclusão

data: v_okcode     type sy-ucomm,

      v_exibe      type c,

      v_screen     type sy-dynnr,

      v_dynnr      type sy-dynnr,

      v_nbs        type /pws/zycat041-descricao,

      v_operacao   type /pws/zycat039-operacao,

      v_mark       type c,

      v_lines      type i,

      v_path       type rlgrap-filename,

      v_funcionalidade type /pws/zyglt390-programa

                       value '/PWS/SAPMZYCA012',

      v_identificador  type /pws/zyglt390-identificador,

      v_saldo_assoc  type bseg-wrbtr,

      v_saldo_disp   type bseg-wrbtr,

      v_saldo_aux    type bseg-wrbtr,

      v_wrbtr_fat    type bseg-wrbtr,

* >> Início da exclusão:

      v_nrboleto     type /pws/zycbt064-nrboleto.

controls: ts_assoc   type tabstrip,

          tc_remessa type tableview using screen '0101',

          tc_comag   type tableview using screen '0102',

          tc_fatimp  type tableview using screen '0103',

          tc_outros  type tableview using screen '0105',

          tc_fatexp  type tableview using screen '0107'.

* << Fim da exclusão

* >> Início da inclusão:

      v_nrboleto     type /pws/zycbt064-nrboleto,

      v_dom_tporigem type /pws/zycal067,

      v_titulo(90)   type  c,

      v_ravs_pago    value 'X'.

controls: ts_assoc      type tabstrip,

          tc_remessa    type tableview using screen '0101',

          tc_comag      type tableview using screen '0102',

          tc_fatimp     type tableview using screen '0103',

          tc_outros     type tableview using screen '0105',

          tc_fatexp     type tableview using screen '0107',

          tc_associacao type tableview using screen '0200'.

selection-screen begin of screen 0005 as subscreen.

selection-screen begin of block bl1 with frame title text-001.

selection-screen comment /3(60) text-003.

selection-screen end of block bl1.

selection-screen begin of block bl2 with frame title text-002.

select-options: so_empr   for /pws/zycat030-bukrs,

                so_nrseq  for /pws/zycat039-nrseq,

                so_oper   for /pws/zycat039-operacao,

                so_dtini  for /pws/zycat031-data_ini,

                so_dtfim  for /pws/zycat031-data_fim,

                so_modo   for /pws/zycat031-modo_prest.

selection-screen end of block bl2.

selection-screen begin of block bl3 with frame.

parameters:   p_ras     as checkbox default 'X',

              p_rvs     as checkbox default 'X'.

selection-screen end of block bl3.

selection-screen begin of block bl4 with frame.

parameters:   p_ravspg  as checkbox default 'X',

              p_ravsnp  as checkbox default ' '.

selection-screen end of block bl4.

selection-screen end of screen 0005.

* << Fim da inclusão

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCA012

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 001

 

Texto: (14 caracteres)

"Origin RAS/RVS"

 

Comprimento máximo: 14

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 001

 

Texto: (14 caracteres)

"Origem RAS/RVS"

 

Comprimento máximo: 14

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 001

 

Texto: (14 caracteres)

"RAS/RVS Origen"

 

Comprimento máximo: 14

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 002

 

Texto: (20 caracteres)

"Criterion of Select."

 

Comprimento máximo: 20

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 002

 

Texto: (20 caracteres)

"Critérios de Seleção"

 

Comprimento máximo: 20

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 002

 

Texto: (20 caracteres)

"Criterios de Selecc."

 

Comprimento máximo: 20

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 003

 

Texto: (51 caracteres)

"Type Source - Association RAS / RVS origin together"

 

Comprimento máximo: 52

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 003

 

Texto: (52 caracteres)

"Tipo Origem - Associação RAS/RVS com origem em massa"

 

Comprimento máximo: 52

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 003

 

Texto: (51 caracteres)

"Fuente Tipo - origen Asociación RAS / RVS junto con"

 

Comprimento máximo: 52

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 004

 

Texto: (18 caracteres)

"RAS/RVS Associates"

 

Comprimento máximo: 18

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 004

 

Texto: (18 caracteres)

"RAS/RVS Associadas"

 

Comprimento máximo: 18

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 004

 

Texto: (18 caracteres)

"RAS/RVS Associates"

 

Comprimento máximo: 18

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 005

 

Texto: (34 caracteres)

"Exchange System - Financial Module"

 

Comprimento máximo: 37

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 005

 

Texto: (37 caracteres)

"Sistema de Câmbio - Módulo Financeiro"

 

Comprimento máximo: 37

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 005

 

Texto: (37 caracteres)

"Sistema de Cambio - Módulo Financiero"

 

Comprimento máximo: 37

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 006

 

Texto: (9 caracteres)

"Case Type"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 006

 

Texto: (13 caracteres)

"Tipo Processo"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 006

 

Texto: (12 caracteres)

"Tipo de Caso"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 007

 

Texto: (8 caracteres)

"Proccess"

 

Comprimento máximo: 8

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 007

 

Texto: (8 caracteres)

"Processo"

 

Comprimento máximo: 8

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 007

 

Texto: (7 caracteres)

"Proceso"

 

Comprimento máximo: 8

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 008

 

Texto: (5 caracteres)

"Curr."

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 008

 

Texto: (5 caracteres)

"Moeda"

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 008

 

Texto: (5 caracteres)

"Moned"

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 009

 

Texto: (13 caracteres)

"RAS/RVS Value"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 009

 

Texto: (13 caracteres)

"Valor RAS/RVS"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 009

 

Texto: (13 caracteres)

"Valor RAS/RVS"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 010

 

Texto: (13 caracteres)

"Balance RAS/V"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 010

 

Texto: (13 caracteres)

"Saldo RAS/RVS"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 010

 

Texto: (13 caracteres)

"Saldo RAS/RVS"

 

Comprimento máximo: 13

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 011

 

Texto: (7 caracteres)

"RAS/RVS"

 

Comprimento máximo: 7

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 011

 

Texto: (7 caracteres)

"RAS/RVS"

 

Comprimento máximo: 7

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 011

 

Texto: (7 caracteres)

"RAS/RVS"

 

Comprimento máximo: 7

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 012

 

Texto: (7 caracteres)

"Operat."

 

Comprimento máximo: 8

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 012

 

Texto: (8 caracteres)

"Operação"

 

Comprimento máximo: 8

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 012

 

Texto: (7 caracteres)

"Operac."

 

Comprimento máximo: 8

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 013

 

Texto: (11 caracteres)

"Source Type"

 

Comprimento máximo: 14

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 013

 

Texto: (14 caracteres)

"Tipo de Origem"

 

Comprimento máximo: 14

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 013

 

Texto: (14 caracteres)

"Tipo de Fuente"

 

Comprimento máximo: 14

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 014

 

Texto: (5 caracteres)

"N.RE."

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 014

 

Texto: (5 caracteres)

"N.RE."

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 014

 

Texto: (5 caracteres)

"N.RE."

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 015

 

Texto: (5 caracteres)

"N.DI."

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 015

 

Texto: (5 caracteres)

"N.DI."

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 015

 

Texto: (5 caracteres)

"N.DI."

 

Comprimento máximo: 5

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 016

 

Texto: (6 caracteres)

"Status"

 

Comprimento máximo: 6

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 016

 

Texto: (6 caracteres)

"Status"

 

Comprimento máximo: 6

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: 016

 

Texto: (6 caracteres)

"Estatu"

 

Comprimento máximo: 6

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: E25

 

Texto: (26 caracteres)

"Tell a Selection Criteria."

 

Comprimento máximo: 32

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: E25

 

Texto: (32 caracteres)

"Informar um Critério de Seleção."

 

Comprimento máximo: 32

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: E25

 

Texto: (32 caracteres)

"Recomendar a un criterio de sele"

 

Comprimento máximo: 32

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: E26

 

Texto: (17 caracteres)

"Report RAS / RVS."

 

Comprimento máximo: 19

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: E26

 

Texto: (19 caracteres)

"Informar RAS / RVS."

 

Comprimento máximo: 19

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: E26

 

Texto: (18 caracteres)

"Informe RAS / RVS."

 

Comprimento máximo: 19

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: E27

 

Texto: (37 caracteres)

"Report RAS/RVS Paid / RAS/RVS Unpaid."

 

Comprimento máximo: 43

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: E27

 

Texto: (43 caracteres)

"Informar RAS/RVS Pagas / RAS/RVS Não Pagas."

 

Comprimento máximo: 43

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: E27

 

Texto: (43 caracteres)

"Informe RAS/RVS Pagado / RAS/RVS sin pagar."

 

Comprimento máximo: 43

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: E28

 

Texto: (40 caracteres)

"No RAS/RVS located for these parameters."

 

Comprimento máximo: 49

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: E28

 

Texto: (49 caracteres)

"Nenhuma RAS/RVS localizada para estes parâmetros."

 

Comprimento máximo: 49

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: E28

 

Texto: (46 caracteres)

"No hay RAS/RVS situados para estos parámetros."

 

Comprimento máximo: 49

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: E29

 

Texto: (40 caracteres)

"No RAS/RVS selected for the Association."

 

Comprimento máximo: 44

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: E29

 

Texto: (44 caracteres)

"Nenhuma RAS/RVS selecionada para Associação."

 

Comprimento máximo: 44

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: E29

 

Texto: (44 caracteres)

"No RAS/RVS seleccionados para la Asociación."

 

Comprimento máximo: 44

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: E30

 

Texto: (42 caracteres)

"Not Allowed Select RAS/RVS Without Payment"

 

Comprimento máximo: 43

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: E30

 

Texto: (43 caracteres)

"Não é Permitido Selecionar RAS/RVS Não Paga"

 

Comprimento máximo: 43

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: E30

 

Texto: (39 caracteres)

"No permitido Seleccione RAS/RVS no paga"

 

Comprimento máximo: 43

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: E31

 

Texto: (16 caracteres)

"for Association."

 

Comprimento máximo: 16

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: E31

 

Texto: (16 caracteres)

"Para Associação."

 

Comprimento máximo: 16

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: E31

 

Texto: (16 caracteres)

"Para la Asociaci"

 

Comprimento máximo: 16

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: I23

 

Texto: (33 caracteres)

"Confirms Execution of Association"

 

Comprimento máximo: 33

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: I23

 

Texto: (33 caracteres)

"Confirma a Execução da Associação"

 

Comprimento máximo: 33

 

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

Incluído símbolo de texto:

 

Idioma: ES

 

Símbolo: I23

 

Texto: (32 caracteres)

"Confirma Ejecución de Asociación"

 

Comprimento máximo: 33

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): P_RAS

 

Texto: (11 caracteres)

"RAS"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): P_RAS

 

Texto: (11 caracteres)

"RAS"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): P_RAS

 

Texto: (11 caracteres)

"RAS"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): P_RAVSNP

 

Texto: (22 caracteres)

"RAS/RVS Unpaid"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): P_RAVSNP

 

Texto: (25 caracteres)

"RAS/RVS Não Pagas"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): P_RAVSNP

 

Texto: (25 caracteres)

"RAS/RVS sin pagar"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): P_RAVSPG

 

Texto: (20 caracteres)

"RAS/RVS Paid"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): P_RAVSPG

 

Texto: (21 caracteres)

"RAS/RVS Pagas"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): P_RAVSPG

 

Texto: (23 caracteres)

"RAS/RVS pagados"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): P_RVS

 

Texto: (11 caracteres)

"RVS"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): P_RVS

 

Texto: (11 caracteres)

"RVS"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): P_RVS

 

Texto: (11 caracteres)

"RVS"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): SO_DTFIM

 

Texto: (16 caracteres)

"End Date"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): SO_DTFIM

 

Texto: (16 caracteres)

"Data Fim"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): SO_DTFIM

 

Texto: (29 caracteres)

"Fecha de finalización"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): SO_DTINI

 

Texto: (20 caracteres)

"Initial Date"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): SO_DTINI

 

Texto: (19 caracteres)

"Data Início"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): SO_DTINI

 

Texto: (20 caracteres)

"Fecha Inicio"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): SO_EMPR

 

Texto: (21 caracteres)

"Company Code:"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): SO_EMPR

 

Texto: (15 caracteres)

"Empresa"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): SO_EMPR

 

Texto: (17 caracteres)

"Sociedad:"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): SO_MODO

 

Texto: (26 caracteres)

"Method of Delivery"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): SO_MODO

 

Texto: (25 caracteres)

"Modo de Prestação"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): SO_MODO

 

Texto: (26 caracteres)

"Modo de Prestación"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ

 

Texto: (25 caracteres)

"Sequential Number"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ

 

Texto: (22 caracteres)

"Nr. Sequencial"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ

 

Texto: (22 caracteres)

"Nr. secuencial"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: EN

 

Variável (SELECT-OPTION / PARAMETER): SO_OPER

 

Texto: (15 caracteres)

"Operat."

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: PT

 

Variável (SELECT-OPTION / PARAMETER): SO_OPER

 

Texto: (16 caracteres)

"Operação"

 

Referência ao Dictionary: NÃO

 

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

Incluído texto de seleção:

 

Idioma: ES

 

Variável (SELECT-OPTION / PARAMETER): SO_OPER

 

Texto: (17 caracteres)

"Operación"

 

Referência ao Dictionary: NÃO

 

 

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

Modificações efetuadas em TRAN /PWS/ZYCA012

 

*** ALTERACOES NA TRANSACAO /PWS/ZYCA012

 

Código de transação  -  /PWS/ZYCA012

Cl.desenvolvimento   -  /PWS/ZYCA

 

Texto da transação   -  Associação RAS/RVS - Atualiz

Programa             -  /PWS/SAPMZYCA012

Nº tela              -  0003

 

Classif.de Transação - Transação Professional User

 

Capacidade GUI

(X)SAP GUI para HTML

(X)SAP GUI para Java

(X)SAP GUI para Windows

 

 

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