Sintoma

Automatizar RAS de Comissão de Agente e Prestação de Contas com origem no

Embarque Exportação. Seria RAS pois seria somente para Comissão de Agente A Remeter.

Solução

Automatizar RAS de Comissão de Agente e Prestação de Contas com origem no

Embarque Exportação. Seria RAS pois seria somente para Comissão de Agente A Remeter.

Informações Complementares

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

Nota Número 13542 Data: 17/12/2013 Hora: 09:49:01

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

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

Nota Número              : 13542

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00006

Agrupamento              : 00166

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

Referência às notas relacionadas:

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

12480  - 00001 - 9.0    - 00001  - SISCOSERV

12697  - 00002 - 9.0    - 00002  - SISCOSERV - AJUDA DE PESQUISA CODIGO ENQUADRAMENTO / BOTÃO ANEXAR

13077  - 00003 - 9.0    - 00005  - SISCOSERV

13109  - 00004 - 9.0    - 00005  - SISCOSERV - NBS

13149  - 00005 - 9.0    - 00005  - SISCOERV - ASSOCIAÇÃO SISCOSERV

13194  - 00006 - 9.0    - 00005  - SISCOSERV - ROBÔ - MELHORIAS PARA TRATAR RE-ENVIO AUTOMÁTICO DO A

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

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

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

13383  - 00011 - 9.0    - 00006  - SISCOSERV, MATCH CODE DE SELEÇÃO DE EMBARQUES DE IMP/EXP

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

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

SISCOSERV, RAS/RVS DE COMISSÃO DE AGENTE E PRESTAÇÃO DE CONTAS

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

Palavras Chave:

SISCOSERV, RAS/RVS DE COMISSÃO DE AGENTE E PRESTAÇÃO DE CONTAS

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

Objetos da nota:

DOMA /PWS/ZYCAD028

DOMD /PWS/ZYCAD027

DTEL /PWS/ZYCAL060

DTEL /PWS/ZYCEL914

TABD /PWS/ZYCET021

TABD /PWS/ZYCAT031

TABD /PWS/ZYCAT039

VIED /PWS/ZYCEV021

VIED /PWS/ZYCAV007

VIED /PWS/ZYCAV006

TOBJ /PWS/ZYCEV021V

SHLD /PWS/ZYCAA170

SHLD /PWS/ZYCAA169

FUGR /PWS/ZYCEGF1

CUAD /PWS/SAPMZYCA011

DYNP /PWS/SAPMZYCA011                        0008

DYNP /PWS/SAPMZYCA011                        0100

DYNP /PWS/SAPMZYCA011                        0101

DYNP /PWS/SAPMZYCA012                        0002

DYNP /PWS/SAPMZYCA012                        0101

DYNP /PWS/SAPMZYCA012                        0107

DYNP /PWS/SAPMZYCA011                        0003

REPS /PWS/MZYCA012O01

REPS /PWS/MZYCA012TOP

REPS /PWS/MZYCA011F01

REPS /PWS/MZYCA011O01

REPS /PWS/MZYCA011TOP

REPS /PWS/MZYCA012F01

REPT /PWS/SAPMZYCA011

REPT /PWS/SAPMZYCA012

TABU TVDIR

TABU TVIMF

TABU TDDAT

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

*** CRIACAO DE NOVO DOMINIO

Modificações efetuadas em DOMA /PWS/ZYCAD028

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

Domínio incluído: /PWS/ZYCAD028

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

"Siscoserv - Listbox Tipo de Origem"

Classe de desenvolvimento: /PWS/ZYCA

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 2

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

"Sem Origem"

Incluído valor fixo "B"

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

"Embarque Importação - Frete"

Incluído valor fixo "C"

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

"Embarque Importação - Seguro"

Incluído valor fixo "D"

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

"Embarque Importação - Serviços"

Incluído valor fixo "E"

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

"Embarque Exportação - Frete"

Incluído valor fixo "F"

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

"Embarque Exportação - Seguro"

Incluído valor fixo "G"

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

"Embarque Exportação - Serviços"

Incluído valor fixo "H"

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

"Embarque Exportação - Comissão de Agente"

Incluído valor fixo "I"

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

"Embarque Exportação - Prestação de Contas"

Incluído valor fixo "J"

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

"Pedido de Compra"

Incluída tabela de valores:

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

*** ALTERACAO DE DOMINIO

Modificações efetuadas em DOMD /PWS/ZYCAD027

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

Domínio modificado: /PWS/ZYCAD027

-Valores individuais

Incluído valor fixo ""

Texto modificado, idioma: PT (10 caracteres):

"Sem Origem"

Excluído valor fixo "FI"

Incluído valor fixo "FI"

Texto modificado, idioma: EN (15 caracteres):

"Shipping Import"

Texto modificado, idioma: PT (27 caracteres):

"Embarque Importação - Frete"

Texto modificado, idioma: ES (17 caracteres):

"Importación envío"

Excluído valor fixo "SI"

Incluído valor fixo "SI"

Texto modificado, idioma: EN (16 caracteres):

"Import insurance"

Texto modificado, idioma: PT (28 caracteres):

"Embarque Importação - Seguro"

Texto modificado, idioma: ES (14 caracteres):

"Seguros Import"

Excluído valor fixo "EI"

Incluído valor fixo "EI"

Texto modificado, idioma: EN (15 caracteres):

"Shipment Import"

Texto modificado, idioma: PT (30 caracteres):

"Embarque Importação - Serviços"

Texto modificado, idioma: ES (12 caracteres):

"Envío Import"

Excluído valor fixo "FE"

Incluído valor fixo "FE"

Texto modificado, idioma: EN (15 caracteres):

"Export.Shipment"

Texto modificado, idioma: PT (27 caracteres):

"Embarque Exportação - Frete"

Texto modificado, idioma: ES (17 caracteres):

"Carga Exportación"

Excluído valor fixo "SE"

Incluído valor fixo "SE"

Texto modificado, idioma: EN (15 caracteres):

"Shipping Export"

Texto modificado, idioma: PT (28 caracteres):

"Embarque Exportação - Seguro"

Texto modificado, idioma: ES (22 caracteres):

"Seguros de Exportación"

Excluído valor fixo "EE"

Incluído valor fixo "EE"

Texto modificado, idioma: EN (15 caracteres):

"Export.Shipment"

Texto modificado, idioma: PT (30 caracteres):

"Embarque Exportação - Serviços"

Texto modificado, idioma: ES (18 caracteres):

"Embarque Exportac."

Excluído valor fixo "PC"

Incluído valor fixo "CA"

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

"Embarque Exportação - Comissão de Agente"

Incluído valor fixo "PT"

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

"Embarque Exportação - Prestação de Contas"

Incluído valor fixo "PC"

Texto incluído, idioma: EN (14 caracteres):

"Purchase Order"

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

"Pedido de Compra"

Texto incluído, idioma: ES (16 caracteres):

"Pedido de Compra"

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

*** CRIACAO DE ELEMENTO DE DADOS

Modificações efetuadas em DTEL /PWS/ZYCAL060

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

Elemento de dados incluído: /PWS/ZYCAL060

Classe de desenvolvimento: /PWS/ZYCA

Idioma original: PT

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

"Siscoserv - Listbox do Tipo Origem"

Categoria de dados: Domínio

Domínio: /PWS/ZYCAD028

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

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

"Tp Origem"

Comprimento máximo do denominador médio: 17

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

"Listbox Tp Origem"

Comprimento máximo do denominador longo: 34

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

"Siscoserv - Listbox do Tipo Origem"

Comprimento máximo do título: 34

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

"Siscoserv - Listbox do Tipo Origem"

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

*** CRIACAO DE ELEMENTO DE DADOS

Modificações efetuadas em DTEL /PWS/ZYCEL914

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

Elemento de dados incluído: /PWS/ZYCEL914

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

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

"GL - SISCOSERV"

Categoria de dados: Domínio

Domínio: XFELD

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

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

"Siscoserv"

Comprimento máximo do denominador médio: 15

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

"Siscoserv"

Comprimento máximo do denominador longo: 20

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

"Siscoserv"

Comprimento máximo do título: 09

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

"Siscoserv"

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

*** tabela /PWS/ZYCET021

Modificações efetuadas em TABD /PWS/ZYCET021

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET021

DESCRIÇÃO BREVE: CE - Param. DE/PARA Despesas.

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela transpare

CLASSE DE ENTREGA:   C - Tab.customizing, atualização só por cliente, s/import.SAP

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

************

CAMPOS:         TP. CAMPO        CH: INI: TAB.VERIF.:    TAB.REF.:     CPO.RE

SISCOSERV       /PWS/ZYCEL914    ''  ''    ''             ''            ''

MODO_PREST      /PWS/ZYCAL030    ''  ''    ''             ''            ''

NBS             /PWS/ZYCAL028    ''  ''    ''             ''            ''

APÓS INCLUSÃO DOS CAMPOS A TABELA FICARÁ COM A SEGUINTE SEQUENCIA/CAMPOS

************************************************************************

MANDT

LAND1

BUKRS

REGIO

WERKS

TIPO

LIFNR

TPDESP

TPREND

RECBENF

KVSL1

DESCR

KSCHL

BASEIRF

PIS

COFINS

CSLL

INSS

IVA

ESTAT

RATEIO

PRESTC

CUSTEF

PGTOCAMB

REMFINANC

ESCLF

***SISCOSERV

***MODO_PREST

***NBS

USERNAMEC

DTUSERC

HRUSERC

OPÇÕES TÉCNICAS

TIPO DE DADOS:    APPL2

CATEGOR. TAMANHO: 0

(X) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

*** Criar Ajuda para Pesquisa para Campo

*** Saltar -> AJuda para Pesquisa -> para Campo

*** Para o Campo /PWS/ZYCET021-NBS

*** Nome Ajuda-> /PWS/ZYCAA175

*** Parametro de Ajuda p/pesquisa    -  Nome da Tabela   - Nome do Campo

*** NBS                                 /PWS/ZYCET021      NBS

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

*** tabela /PWS/ZYCAT031

Modificações efetuadas em TABD /PWS/ZYCAT031

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCAT031

DESCRIÇÃO BREVE: Operações(Aditivos) RAS/RVS - SISCOSERV

CLASSE DESENV.:  /PWS/ZYCA

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela transpare

CLASSE DE ENTREGA:   A - Tabela de aplicação (dados mestre e de movimento)

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

************

CAMPOS:         TP. CAMPO        CH: INI: TAB.VERIF.:  TAB.REF.:  TAB.VALORES.:    CPO.RE

DESPACH         /PWS/ZYCIL005    ''  ''    ''           ''         LFA1             ''

TPDESP          /PWS/ZYCIL036    ''  ''    ''           ''         ''               ''

APÓS INCLUSÃO DOS CAMPOS A TABELA FICARÁ COM A SEGUINTE SEQUENCIA/CAMPOS

************************************************************************

MANDT

NRSEQ

OPERACAO

NBS

COD_PAIS

MODO_PREST

DATA_INI

DATA_FIM

WAERS

VALOR

SALDO

ORIGEM

STATUS

EBELP

NRSEQ_ORIGEM

***DESPACH

***TPDESP

OPÇÕES TÉCNICAS

TIPO DE DADOS:    APPL0

CATEGOR. TAMANHO: 0

(X) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

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

*** tabela /PWS/ZYCAT039

Modificações efetuadas em TABD /PWS/ZYCAT039

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCAT039

DESCRIÇÃO BREVE: Associação de RAS/RVS

CLASSE DESENV.:  /PWS/ZYCA

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela transpare

CLASSE DE ENTREGA:   A - Tabela de aplicação (dados mestre e de movimento)

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

************

CAMPOS:         TP. CAMPO        CH: INI: TAB.VERIF.:  TAB.REF.:  TAB.VALORES.:    CPO.RE

DESPACH         /PWS/ZYCIL005    ''  ''    ''           ''         LFA1             ''

TPDESP          /PWS/ZYCIL036    ''  ''    ''           ''         ''               ''

NRPRES          /PWS/ZYCEL001    ''  ''    ''           ''         ''               ''

APÓS INCLUSÃO DOS CAMPOS A TABELA FICARÁ COM A SEGUINTE SEQUENCIA/CAMPOS

************************************************************************

MANDT

NRSEQ

OPERACAO

REMESSA

FAT_COMIS

LIFNR

DTVENCTO

FAT_IMP

FATURA

FAT_EXP

NUM_NF

DT_PG_REC

MOEDA

VALOR

VME

RE

DI

STATUS

GJAHR

***DESPACH

***TPDESP

***NRPRES

OPÇÕES TÉCNICAS

TIPO DE DADOS:    APPL0

CATEGOR. TAMANHO: 1

(X) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: ______

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

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

*** ALTERACAO DA VISAO /PWS/ZYCEV021

Modificações efetuadas em VIED /PWS/ZYCEV021

MODIFICAR VISAO : /PWS/ZYCEV021

DESCRIÇÃO BREVE: CE - Parâmetros De/Para de Despesas

TABELAS/CONDIÇÕES JOIN

**********************

TABELAS:                            CONDIÇÕES JOIN:

/PWS/ZYCET021   -   TABELA       NOME CPO     = TABELA      NOME CPO

CPOS. VISÃO

***********

CAMPO VISÃO:    NOME TAB:         NOME CAMPO:     MOD:

MANDT           /PWS/ZYCET021

LAND1           /PWS/ZYCET021

BUKRS           /PWS/ZYCET021

REGIO           /PWS/ZYCET021

WERKS           /PWS/ZYCET021

TIPO            /PWS/ZYCET021

LIFNR           /PWS/ZYCET021

TPDESP          /PWS/ZYCET021

TPREND          /PWS/ZYCET021

RECBENF         /PWS/ZYCET021

KVSL1           /PWS/ZYCET021

DESCR           /PWS/ZYCET021

KSCHL           /PWS/ZYCET021

IVA             /PWS/ZYCET021

ESTAT           /PWS/ZYCET021

RATEIO          /PWS/ZYCET021

PRESTC          /PWS/ZYCET021

CUSTEF          /PWS/ZYCET021

PGTOCAMB        /PWS/ZYCET021

REMFINANC       /PWS/ZYCET021

ESCLF           /PWS/ZYCET021

SISCOSERV       /PWS/ZYCET021

MODO_PREST      /PWS/ZYCET021

NBS

CONDIÇÕES DE SELEÇÃO

********************

TABELA:          NOME CPO.:   OPERADOR:       VL COMP:       AND/OR

STATUS AT.

ACESSO:

(_) - SÓ LER

(_) - LER E MODIFICAR

(X) - LER, MODIFICAR, ELIMINAR E INSERIR

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

*** ALTERACAO DA VISAO /PWS/ZYCAV007

Modificações efetuadas em VIED /PWS/ZYCAV007

MODIFICAR VISAO : /PWS/ZYCAV007

DESCRIÇÃO BREVE: Associação de RAS/RVS - Exibir

TABELAS/CONDIÇÕES JOIN

**********************

TABELAS:

********

/PWS/ZYCAT030

/PWS/ZYCAT031

/PWS/ZYCAT039

CONDIÇÕES JOIN:

***************

TABELA         NOME CPO     =    TABELA         NOME CPO

/PWS/ZYCAT030  NRSEQ        =    /PWS/ZYCAT039  NRSEQ

/PWS/ZYCAT031  NRSEQ        =    /PWS/ZYCAT039  NRSEQ

/PWS/ZYCAT031  OPERACAO     =    /PWS/ZYCAT039  OPERACAO

CPOS. VISÃO

***********

CAMPO VISÃO:    NOME TAB:         NOME CAMPO:     MOD:

NRSEQ           /PWS/ZYCAT031     NRSEQ

OPERACAO        /PWS/ZYCAT031     OPERACAO

NBS             /PWS/ZYCAT031     NBS

WAERS           /PWS/ZYCAT031     WAERS

VALOR           /PWS/ZYCAT031     VALOR

SALDO           /PWS/ZYCAT031     SALDO

BUKRS           /PWS/ZYCAT030     BUKRS

REMESSA         /PWS/ZYCAT039     REMESSA

FAT_COMIS       /PWS/ZYCAT039     FAT_COMIS

FAT_IMP         /PWS/ZYCAT039     FAT_IMP

FATURA          /PWS/ZYCAT039     FATURA

NUM_NF          /PWS/ZYCAT039     NUM_NF

DT_PG_REC       /PWS/ZYCAT039     DT_PG_REC

TP_ORIGEM       /PWS/ZYCAT030     TP_ORIGEM

NRSEQ_ORIGEM    /PWS/ZYCAT031     NRSEQ_ORIGEM

TP_PROCESSO     /PWS/ZYCAT030     TP_PROCESSO

CONDIÇÕES DE SELEÇÃO

********************

TABELA:          NOME CPO.:   OPERADOR:       VL COMP:       AND/OR

STATUS AT.

ACESSO:

(X) - SÓ LER

(_) - LER E MODIFICAR

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

*** ALTERACAO DA VISAO /PWS/ZYCAV006

Modificações efetuadas em VIED /PWS/ZYCAV006

MODIFICAR VISAO : /PWS/ZYCAV006

DESCRIÇÃO BREVE: Associação de RAS/RVS - Atualizar

TABELAS/CONDIÇÕES JOIN

**********************

/PWS/ZYCAT030

/PWS/ZYCAT031

CONDIÇÕES JOIN:

***************

TABELA         NOME CPO     =    TABELA         NOME CPO

/PWS/ZYCAT030  NRSEQ        =    /PWS/ZYCAT031  NRSEQ

CPOS. VISÃO

***********

CAMPO VISÃO:    NOME TAB:         NOME CAMPO:     MOD:

NRSEQ           /PWS/ZYCAT031     NRSEQ

OPERACAO        /PWS/ZYCAT031     OPERACAO

NBS             /PWS/ZYCAT031     NBS

WAERS           /PWS/ZYCAT031     WAERS

VALOR           /PWS/ZYCAT031     VALOR

SALDO           /PWS/ZYCAT031     SALDO

BUKRS           /PWS/ZYCAT030     BUKRS

STATUS          /PWS/ZYCAT031     STATUS

TP_ORIGEM       /PWS/ZYCAT030     TP_ORIGEM

NRSEQ_ORIGEM    /PWS/ZYCAT031     NRSEQ_ORIGEM

TP_PROCESSO     /PWS/ZYCAT030     TP_PROCESSO

CONDIÇÕES DE SELEÇÃO

********************

TABELA:          NOME CPO.:   OPERADOR:       VL COMP:       AND/OR

STATUS AT.

ACESSO:

(X) - SÓ LER

(_) - LER E MODIFICAR

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

Modificações efetuadas em TOBJ /PWS/ZYCEV021V

*** APÓS A ATUALIZAÇÃO DA VISÃO /PWS/ZYCEV021

*** REALIZAR A ATUALIZAÇÃO PELO GERADOR DE ATUALIZAÇÃO DE TABELAS

 Tabela/visão - /PWS/ZYCEV021

 Grupo de autorização  -  ZYCE - pw.CE - Grp. Autor.

 Objeto autorização    - S_TABU_DIS

 Grupo de funções      - /PWS/ZYCEGF1 - Txt.grpFunç.

 Cl.desenvolvimento    - /PWS/ZYCE    - pw.CE - Documentação Exporta

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

*** ALTERAÇÃO NA AJUDA DE PESQUISA - /PWS/ZYCAA170

Modificações efetuadas em SHLD /PWS/ZYCAA170

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCAA170

DESCRIÇÃO BREVE: Associação RAS/RVS

DEFINIÇÃO

*********

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCAV007

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: D - Exibição de Valores Imediata

HOT KEY: ____

EXIT AJUD. PESQUISA: /PWS/ZYCAA170

PARÂMETROS:

***********

PARAM.        IMP  EXP POSL ISEL EXAJ ELEM. DADOS      MOD  VALOR PROPOSTO

NRSEQ         'X'  'X'  1     1   ''  /PWS/ZYCAL053 ''   /PWS/ZYCAP005

OPERACAO      ''   'X'  2     2   ''  /PWS/ZYCAL027 ''

REMESSA       ''   ''   3     3   ''  /PWS/ZYCAL050 ''

FAT_COMIS     ''   ''   4     4   ''  /PWS/ZYCAL051 ''

FAT_IMP       ''   ''   5     5   ''  /PWS/ZYCAL052 ''

FATURA        ''   ''   6     6   ''  /PWS/ZYCAL054 'X'

NBS           ''   ''   7     7   ''  /PWS/ZYCAL028 ''

WAERS         ''   ''   8     8   ''  WAERS          ''

VALOR         ''   ''   9     9   ''  /PWS/ZYCAL049 ''

SALDO         ''   ''   10    10  ''  /PWS/ZYCAL038 ''

BUKRS         ''   ''   11    11  ''  BUKRS       ''

NUM_NF        ''   ''   12    12  ''  /PWS/ZYCAL048 ''

TP_ORIGEM     ''   ''   13    13  ''  /PWS/ZYCAL058 'X'

NRSEQ_ORIGEM  ''   ''   14    14  ''  /PWS/ZYCAL057 'X'

TP_PROCESSO   ''   ''   15    15  ''  /PWS/ZYCAL023 ''

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

*** ALTERAÇÃO NA AJUDA DE PESQUISA - /PWS/ZYCAA169

Modificações efetuadas em SHLD /PWS/ZYCAA169

MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCAA169

DESCRIÇÃO BREVE: Associação RAS/RVS

DEFINIÇÃO

*********

OBTENÇÃO DE DADOS

MÉTODO DE SELEÇÃO: /PWS/ZYCAV006

COMPORTAMENTO DE DIÁLOGO:

TIPO DE DIÁLOGO: D - Exibição de Valores Imediata

HOT KEY: ____

EXIT AJUD. PESQUISA:

PARÂMETROS:

***********

PARAM.        IMP  EXP POSL ISEL EXAJ  ELEM. DADOS      MOD  VALOR PROPOSTO

NRSEQ         'X'  'X'  1    1   ''    /PWS/ZYCAL053    ''   /PWS/ZYCAP005

OPERACAO      ''   'X'  2    2   ''    /PWS/ZYCAL027    ''   ''

NBS           ''   ''   3    3   ''    /PWS/ZYCAL028    ''   ''

WAERS         ''   ''   4    4   ''    WAERS            ''   ''

VALOR         ''   ''   5    5   ''    /PWS/ZYCAL049    ''   ''

SALDO         ''   ''   6    6   ''    /PWS/ZYCAL038    ''   ''

BUKRS         ''   ''   7    7   ''    BUKRS            ''   ''

STATUS        ''   ''   0    0   ''    /PWS/ZYCAL039    'X'  'PS'

TP_ORIGEM     ''   ''   8    8   ''    /PWS/ZYCAL058    'X'  ''

NRSEQ_ORIGEM  ''   ''   9    9   ''    /PWS/ZYCAL057    'X'  ''

TP_PROCESSO   ''   ''   10   10  ''    /PWS/ZYCAL023    ''   ''

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

Modificações efetuadas em FUGR /PWS/ZYCEGF1

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

Modificações efetuadas em CUAD /PWS/SAPMZYCA011

*** ALTERAÇÃO NO STATUS GUI - 0100 - Somente na Tecla de Função

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

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

*** Teclas de função

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

    -> Definições recomendadas de teclas função (criar NOVA função - F2 )

       F2 - SELEC - Selecionar

    *** Atributos de função para o F2 - SELEC

    *** Código de função      - SELEC

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

    Textos de função estáticos

    *** Texto de função -  Selecionar

    *** Nome de ícone   -  ICON_SELECT_DETAIL

    *** Seleção direta  -  S

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

**** SOLICITAR OS SEGUINTES ARQUIVOS DAS TELAS PARA UPLOAD

**** PROGRAMA /PWS/SAPMZYCA011

13542_SAPMZYCA011_TELA_0003.txt

13542_SAPMZYCA011_TELA_0008.txt

13542_SAPMZYCA011_TELA_0100.txt

13542_SAPMZYCA011_TELA_0101.txt

**** PROGRAMA /PWS/SAPMZYCA012

13542_SAPMZYCA012_TELA_0002.txt

13542_SAPMZYCA012_TELA_0101.txt

13542_SAPMZYCA012_TELA_0107.txt

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

Modificações efetuadas em REPS /PWS/MZYCA012O01

...

  if v_exibe is initial.

    wa_fcode-ucomm = 'MODIF'.

    append wa_fcode to itab_fcode.

  endif.

  set pf-status '0100' excluding itab_fcode.

  if v_exibe is initial.

    set titlebar '100A'.

  else.

    set titlebar '100E'.

  endif.

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

  IF NOT itab_zycat039_r[]  IS INITIAL OR

     NOT itab_zycat039_c[]  IS INITIAL OR

     NOT itab_zycat039_f[]  IS INITIAL OR

     NOT itab_zycat039_o[]  IS INITIAL OR

     NOT itab_zycat039_fe[] IS INITIAL.

    LOOP AT SCREEN.

      IF screen-name  = 'TB_REM' AND v_dynnr NE '0101'.

        screen-invisible = '1'.

      ELSEIF screen-name  = 'TB_CAG'    AND v_dynnr NE '0102'.

        screen-invisible = '1'.

      ELSEIF screen-name  = 'TB_FIMP'   AND v_dynnr NE '0103'.

        screen-invisible = '1'.

      ELSEIF screen-name  = 'TB_OUTROS' AND v_dynnr NE '0105'.

        screen-invisible = '1'.

      ELSEIF screen-name  = 'TB_FATEXP' AND v_dynnr NE '0107'.

        screen-invisible = '1'.

      ENDIF.

      MODIFY SCREEN.

    ENDLOOP.

  ENDIF.

* << Fim da inclusão

endmodule.

module status_0101 output.

  if not v_exibe is initial           or

     not itab_zycat039_c[] is initial or

     not itab_zycat039_f[] is initial or

     not itab_zycat039_o[] is initial or

     not itab_zycat039_fe[] is initial.

    loop at screen.

      screen-input = 0.

      modify screen.

...

...

      else.

        wa_cols-screen-input = '0'.

      endif.

      if wa_cols-screen-name = 'WA_ZYCAT039R-STATUS' and

        not /pws/zycat030-processamento is initial.

        wa_cols-screen-input = '1'.

      endif.

      modify tc_remessa-cols from wa_cols.

    endloop.

  endif.

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

  LOOP AT tc_remessa-cols INTO wa_cols.

    IF wa_cols-screen-name = 'WA_ZYCAT039R-DESPACH'  OR

       wa_cols-screen-name = 'WA_ZYCAT039R-TPDESP'   OR

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

      wa_cols-screen-input     = '0'.

      wa_cols-screen-invisible = '1'.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

endmodule.

module ajusta_tc output.

  clear v_lines.

  case sy-dynnr.

    when '0101'.

      delete itab_zycat039_r where remessa is initial.

      describe table itab_zycat039_r lines v_lines.

      tc_remessa-lines = v_lines + 15.

    when '0102'.

      delete itab_zycat039_c where fat_comis is initial.

...

...

      else.

        wa_cols-screen-input = '0'.

      endif.

      if wa_cols-screen-name = 'WA_ZYCAT039FE-STATUS' and

        not /pws/zycat030-processamento is initial.

        wa_cols-screen-input = '1'.

      endif.

      modify tc_fatexp-cols from wa_cols.

    endloop.

  endif.

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

  LOOP AT tc_fatexp-cols INTO wa_cols.

    IF wa_cols-screen-name = 'WA_ZYCAT039FE-DESPACH' OR

       wa_cols-screen-name = 'WA_ZYCAT039FE-TPDESP'  OR

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

      wa_cols-screen-input     = '0'.

      wa_cols-screen-invisible = '1'.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

endmodule.

module atualiza_tela_fatexp output.

  perform atualiza_tela using itab_zycat039_fe

                               wa_zycat039fe.

endmodule.

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

Modificações efetuadas em REPS /PWS/MZYCA012TOP

...

      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,

* >> Início da exclusão:

      v_wrbtr_fat    type bseg-wrbtr.

* << Fim da exclusão

* >> Início da inclusão:

      v_wrbtr_fat    type bseg-wrbtr,

      v_nrboleto     type /pws/zycbt064-nrboleto.

* << Fim da inclusão

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'.

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

Modificações efetuadas em REPS /PWS/MZYCA011F01

form user_command_0100.

  case v_okcode.

    when 'BACK'.

      perform verifica_alteracao using 'X'.

    when 'MODIF'.

      clear: v_exibe, v_okcode.

      perform verifica_bloqueio.

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

      if v_exibe is initial.

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

          perform verifica_alteracao_prestacao.

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

          perform verifica_alteracao_comissao.

        endif.

      endif.

* << Fim da inclusão

    when 'TB_OP'.

      v_dynnr = '0101'.

      ts_contrato-activetab = v_okcode.

    when 'TB_RE'.

      v_dynnr = '0103'.

      ts_contrato-activetab = v_okcode.

    when 'TB_INFC'.

      v_dynnr = '0104'.

      ts_contrato-activetab = v_okcode.

    when 'SAVE'.

...

...

    when 'ENQ'.

      perform carrega_enquadramento.

      clear v_okcode.

    when 'INCL'.

      if not v_freteimp is initial or

         not v_segimp   is initial or

         not v_embimp   is initial.

        call screen '0007' starting at 7 13.

      elseif not v_freteexp is initial or

             not v_segexp   is initial or

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

             not v_embexp   is initial.

* << Fim da exclusão

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

             not v_embexp     is initial or

             not v_comagente  is initial or

             not v_prestconta is initial.

* << Fim da inclusão

            call screen '0008' starting at 7 13.

      endif.

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

    when 'SELEC'.

      perform drill_down.

* << Fim da inclusão

  endcase.

endform.

form user_command_0102.

  case v_okcode.

...

...

    itab_zycat032_ant[] = itab_zycat032[].

  endif.

  select * from /pws/zycat033

    into table itab_zycat033_ant

    where nrseq = /pws/zycat030-nrseq.

  if sy-subrc eq 0.

    loop at itab_zycat033_ant into wa_zycat033.

      append wa_zycat033 to itab_zycat033t.

    endloop.

  endif.

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

  if sy-tcode = '/PWS/ZYCA011_A'.

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

      perform verifica_alteracao_prestacao.

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

      perform verifica_alteracao_comissao.

    endif.

  endif.

* << Fim da inclusão

  perform inicializa_texto.

  itab_tline_ant[] = itab_tline[].

  if sy-tcode = '/PWS/ZYCA011_E' or

    ( sy-tcode ne '/PWS/ZYCA011_E' and

      ( /pws/zycat030-status = 'EP' or

        /pws/zycat030-status = 'ES' or

        /pws/zycat030-status = '01' or

        /pws/zycat030-status = '02' or

        /pws/zycat030-status = 'EX' ) and

      /pws/zycat030-processamento is initial ).

...

...

        into (v_name1, v_stras, v_mcod3)

        where kunnr = /pws/zycat030-bukrs_ext.

  endcase.

  clear: v_embexp,

         v_embimp,

         v_freteexp,

         v_freteimp,

         v_segexp,

         v_segimp,

         v_pedcomp,

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

         v_sorigem.

* << Fim da exclusão

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

         v_sorigem,

         v_comagente,

         v_prestconta.

* << Fim da inclusão

  if /pws/zycat030-tp_origem is initial.

    v_sorigem = 'X'.

  else.

    case /pws/zycat030-tp_origem.

      when 'EE'.

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

        v_embexp   = 'X'.

* << Fim da exclusão

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

        v_embexp     = 'X'.

* << Fim da inclusão

      when 'EI'.

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

        v_embimp   = 'X'.

* << Fim da exclusão

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

        v_embimp     = 'X'.

* << Fim da inclusão

      when 'FE'.

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

        v_freteexp = 'X'.

* << Fim da exclusão

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

        v_freteexp   = 'X'.

* << Fim da inclusão

      when 'FI'.

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

        v_freteimp = 'X'.

* << Fim da exclusão

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

        v_freteimp   = 'X'.

* << Fim da inclusão

      when 'SE'.

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

        v_segexp   = 'X'.

* << Fim da exclusão

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

        v_segexp     = 'X'.

* << Fim da inclusão

      when 'SI'.

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

        v_segimp   = 'X'.

* << Fim da exclusão

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

        v_segimp     = 'X'.

* << Fim da inclusão

      when 'PC'.

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

        v_pedcomp  = 'X'.

* << Fim da exclusão

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

        v_pedcomp    = 'X'.

      when 'CA'.

        v_comagente  = 'X'.

      when 'PT'.

        v_prestconta = 'X'.

* << Fim da inclusão

    endcase.

  endif.

  perform verifica_bloqueio.

  clear: v_okcode, v_dynnr.

  ts_contrato-activetab = 'TB_OP'.

  set screen 0100.

  leave screen.

endform.

form inicializa_texto.

  if editor is initial.

...

...

          screen-input  = '1'.

          screen-active = '1'.

          clear: r_embexp, r_pcompr, r_item.

          refresh: r_embexp, r_pcompr, r_item.

        else.

          screen-input  = '0'.

          screen-active = '0'.

        endif.

      elseif screen-name(8)  = 'R_EMBEXP' or

             screen-name(10) = '%_R_EMBEXP'.

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

        if not v_freteexp is initial or

           not v_segexp   is initial or

           not v_embexp   is initial.

* << Fim da exclusão

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

        if not v_freteexp   is initial or

           not v_segexp     is initial or

           not v_embexp     is initial.

* << Fim da inclusão

          screen-input  = '1'.

          screen-active = '1'.

          clear: r_embimp, r_pcompr, r_item.

          refresh: r_embimp, r_pcompr, r_item.

        else.

          screen-input  = '0'.

          screen-active = '0'.

        endif.

      elseif screen-name(8)  = 'R_PCOMPR'   or

             screen-name(10) = '%_R_PCOMPR' or

...

...

    '01'                   to wa_zycat031-operacao,

    /pws/zycat030-cod_pais to wa_zycat031-cod_pais,

    /pws/zycat030-valor    to wa_zycat031-valor,

    wa_zycat046-nbs        to wa_zycat031-nbs,

    wa_zycat046-modo_prest to wa_zycat031-modo_prest,

    wa_zycat031-valor      to wa_zycat031-saldo.

  append wa_zycat031 to itab_zycat031t.

endform.

form informacoes_cabecalho.

  clear: v_land1, v_stras, v_mcod3, v_name1,

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

   /pws/zycat030-cod_pais.

* << Fim da exclusão

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

   /pws/zycat030-cod_pais,

   v_stceg.

* << Fim da inclusão

  case /pws/zycat030-tp_processo.

    when 'A'.

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

      select single land1 name1 stras mcod3

* << Fim da exclusão

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

      select single land1 name1 stras mcod3 stceg

* << Fim da inclusão

        from lfa1

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

        into (v_land1, v_name1, v_stras, v_mcod3)

* << Fim da exclusão

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

        into (v_land1, v_name1, v_stras, v_mcod3, v_stceg)

* << Fim da inclusão

        where lifnr = /pws/zycat030-bukrs_ext.

    when 'V'.

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

      select single land1 name1 stras mcod3

* << Fim da exclusão

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

      select single land1 name1 stras mcod3 stceg

* << Fim da inclusão

        from kna1

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

        into (v_land1, v_name1, v_stras, v_mcod3)

* << Fim da exclusão

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

        into (v_land1, v_name1, v_stras, v_mcod3, v_stceg)

* << Fim da inclusão

        where kunnr = /pws/zycat030-bukrs_ext.

  endcase.

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

  if sy-subrc eq 0.

    /pws/zycat030-nif = v_stceg.

  endif.

* << Fim da inclusão

  if v_land1 is initial.

    message e061 with text-e16 /pws/zycat030-bukrs_ext

        text-e17.

...

...

                         changing p_erro.

  elseif not v_freteexp is initial or

         not v_segexp   is initial.

    perform busca_frete_seg_exp_2 using v_novo

                               changing p_erro.

  elseif not v_embexp is initial.

    perform busca_emb_exp_2 using v_novo

                         changing p_erro.

  elseif not v_pedcomp is initial.

    perform busca_pedido_compra changing p_erro.

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

  elseif not v_comagente is initial.

    perform busca_comissao_agente using v_novo

                               changing p_erro.

  elseif not v_prestconta is initial.

    perform busca_prestacao_contas using v_novo

                                changing p_erro.

* << Fim da inclusão

  endif.

endform.

form busca_emb_imp_2 using p_novo

                  changing p_erro.

  data:

    v_valor_total type /pws/zycit006-vlmerc,

    v_count       type /pws/zycat031-operacao,

    v_existe(1)   type c,

    wa_zycit003 type ty_zycit003,

    wa_zycit006 type ty_zycit006,

...

...

        v_erro(1) type c.

  v_novo = 'N'.

  case v_okcode.

    when 'CONFIRM'.

      if not v_freteexp is initial or

         not v_segexp   is initial.

        perform busca_frete_seg_exp_2 using v_novo

                                   changing v_erro.

      elseif not v_embexp is initial.

        perform busca_emb_exp_2 using v_novo

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

                             changing v_erro.

      elseif not v_comagente is initial.

        perform busca_comissao_agente using v_novo

* << Fim da inclusão

                             changing v_erro.

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

      elseif not v_prestconta is initial.

        perform busca_prestacao_contas using v_novo

                                    changing v_erro.

* << Fim da inclusão

      endif.

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

      clear:   r_embexp.

      refresh: r_embexp.

* << Fim da exclusão

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

      clear:   r_embexp, r_fornec, r_filial, r_moeda.

      refresh: r_embexp, r_fornec, r_filial, r_moeda.

* << Fim da inclusão

      set screen 0.

      leave screen.

    when 'CANCEL'.

      clear:   r_embexp.

      refresh: r_embexp.

      set screen 0.

      leave screen.

  endcase.

endform.

form match_code_importacao using p_low_high.

...

...

        i_fieldname  type dfies-fieldname,

        i_tporigem   type /pws/zycat030-tp_origem.

  i_tporigem = /pws/zycat030-tp_origem.

  if i_tporigem is initial.

    if not v_freteexp is initial.

      i_tporigem = 'FE'.

    elseif not v_segexp is initial.

      i_tporigem = 'SE'.

    elseif not v_embexp is initial.

      i_tporigem = 'EE'.

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

    elseif not v_comagente  is initial.

      i_tporigem = 'CA'.

    elseif not v_prestconta is initial.

      i_tporigem = 'PT'.

* << Fim da inclusão

    endif.

  endif.

  export i_tporigem to memory id 'CA011-OR'.

  if p_low_high = 'L'.

    i_fieldname = 'LOW'.

  else.

    i_fieldname = 'HIGH'.

  endif.

  call function 'F4IF_FIELD_VALUE_REQUEST'

       exporting

...

...

  else.

  endif.

  read table itab_result into wa_result index 1.

  if p_low_high = 'L'.

    r_embexp-low  = wa_result-fieldval.

  else.

    r_embexp-high = wa_result-fieldval.

  endif.

  free memory id 'CA011-OR'.

endform.

* >> Início da inclusão:

form determina_origem.

  check /pws/zycat030-tp_origem is initial.

  clear: v_embexp,

         v_embimp,

         v_freteexp,

         v_freteimp,

         v_segexp,

         v_segimp,

         v_pedcomp,

         v_sorigem,

         v_comagente,

         v_prestconta.

  if v_dom_tporigem = 'A'.

    v_sorigem    = 'X'.

  elseif v_dom_tporigem = 'B'.

    v_freteimp   = 'X'.

  elseif v_dom_tporigem = 'C'.

    v_segimp     = 'X'.

  elseif v_dom_tporigem = 'D'.

    v_embimp     = 'X'.

  elseif v_dom_tporigem = 'E'.

    v_freteexp   = 'X'.

  elseif v_dom_tporigem = 'F'.

    v_segexp     = 'X'.

  elseif v_dom_tporigem = 'G'.

    v_embexp     = 'X'.

  elseif v_dom_tporigem = 'H'.

    v_comagente  = 'X'.

  elseif v_dom_tporigem = 'I'.

    v_prestconta = 'X'.

  elseif v_dom_tporigem = 'J'.

    v_pedcomp    = 'X'.

  endif.

endform.

form busca_comissao_agente using p_novo

                        changing p_erro.

  types:

    begin of ty_result,

      nrseq      type /pws/zycet010-nrseq,

      lifnr      type /pws/zycet010-lifnr,

      waers      type /pws/zycet010-waers,

      vlcomis    type /pws/zycet010-vlcomis,

    end of ty_result.

  data:

    wa_zycet021    type /pws/zycet021,

    wa_result      type ty_result,

    wa_t001w       type ty_t001w,

    v_tabix        type sy-tabix,

    v_valor_total  type /pws/zycit006-vlmerc,

    v_vlme_f       type /pws/zycet008-vlme_f,

    v_tp_origem    type /pws/zycat030-tp_origem,

    v_kschl        type /pws/zycet156-kschl,

    v_matnr        type /pws/zycat046-matnr,

    v_count        type /pws/zycat031-operacao,

    v_provisao     type /pws/zycet037-comis_provisao,

    v_ras_rvs      type /pws/zycat030-nrseq,

    v_existe(1)    type c,

    begin of itab_zycet001 occurs 0,

       nrseq       type /pws/zycet001-nrseq,

       bukrs       type /pws/zycet001-bukrs,

       dtemb       type /pws/zycet001-dtemb,

       werks       type /pws/zycet001-werks,

       parvw       type /pws/zycet001-parvw,

       j_1bbranch  type /pws/zycet116-j_1bbranch,

    end of itab_zycet001,

    begin of itab_zycet001_aux occurs 0,

       nrseq       type /pws/zycet001-nrseq,

       bukrs       type /pws/zycet001-bukrs,

       dtemb       type /pws/zycet001-dtemb,

       werks       type /pws/zycet001-werks,

       parvw       type /pws/zycet001-parvw,

       j_1bbranch  type /pws/zycet116-j_1bbranch,

    end of itab_zycet001_aux,

    begin of itab_result occurs 0,

       nrseq      type /pws/zycet010-nrseq,

       lifnr      type /pws/zycet010-lifnr,

       waers      type /pws/zycet010-waers,

       vlcomis    type /pws/zycet010-vlcomis,

    end of itab_result,

    begin of itab_result_aux occurs 0,

       nrseq      type /pws/zycet010-nrseq,

       lifnr      type /pws/zycet010-lifnr,

       waers      type /pws/zycet010-waers,

       vlcomis    type /pws/zycet010-vlcomis,

    end of itab_result_aux,

    begin of itab_t001w occurs 0,

       werks      type t001w-werks,

       j_1bbranch type t001w-j_1bbranch,

    end of itab_t001w.

  data: begin of itab_zycet156 occurs 0.

          include structure /pws/zycet156.

  data: end of itab_zycet156.

  data: begin of itab_zycet021 occurs 0.

          include structure /pws/zycet021.

  data: end of itab_zycet021.

  data: begin of itab_zycet016 occurs 0.

          include structure /pws/zycet016.

  data: end of itab_zycet016.

  v_tp_origem = 'CA'.

  v_matnr     = 'COM'.

  select nrseq bukrs dtemb werks parvw

    from /pws/zycet001

    into table itab_zycet001

   where nrseq in r_embexp.

  delete itab_zycet001 where dtemb <= '20120731'.

  delete itab_zycet001 where parvw ne 'AR'

                         and parvw ne 'AT'.

  if itab_zycet001[] is initial.

    p_erro = 'X'.

    message i015 with text-i25 text-i26.

    exit.

  endif.

  select werks j_1bbranch

    from t001w

    into table itab_t001w

    for all entries in itab_zycet001

  where werks = itab_zycet001-werks.

  loop at itab_zycet001.

    clear: wa_t001w.

    v_tabix = sy-tabix.

    read table itab_t001w into wa_t001w

                               with key werks = itab_zycet001-werks.

    itab_zycet001-j_1bbranch = wa_t001w-j_1bbranch.

    modify itab_zycet001 index v_tabix.

  endloop.

  if not r_filial[] is initial.

    delete itab_zycet001 where j_1bbranch ne r_filial-low.

  endif.

  if itab_zycet001[] is initial.

    p_erro = 'X'.

    message i015 with text-i25 text-i26.

    exit.

  endif.

  itab_zycet001_aux[] = itab_zycet001[].

  delete adjacent duplicates

                        from itab_zycet001_aux comparing j_1bbranch.

  describe table itab_zycet001_aux lines v_count.

  if v_count > 1.

    p_erro = 'X'.

    message i015 with text-i44 text-i28.

    exit.

  endif.

  select * from /pws/zycet156

    into table itab_zycet156

    for all entries in itab_zycet001

    where bukrs     = itab_zycet001-bukrs

      and codmod    = 'X'

      and proccond  = v_matnr.

  select *

    from /pws/zycet021

    into table itab_zycet021

    for all entries in itab_zycet156

    where kschl     = itab_zycet156-kschl

      and siscoserv = 'X'.

  select *

    from /pws/zycet016

    into table itab_zycet016

    for all entries in itab_zycet001

   where nrseq = itab_zycet001-nrseq.

  loop at itab_zycet016.

    v_tabix = sy-tabix.

    read table itab_zycet021

            into wa_zycet021 with key kschl = itab_zycet016-kschl.

    if sy-subrc ne 0.

      delete itab_zycet016 index v_tabix.

    endif.

  endloop.

  loop at itab_zycet001.

    v_tabix = sy-tabix.

    read table itab_zycet016 with key nrseq = itab_zycet001-nrseq.

    if sy-subrc ne 0.

      delete itab_zycet001 index v_tabix.

    endif.

  endloop.

  if itab_zycet001[] is initial.

    p_erro = 'X'.

    message i015 with text-i25 text-i26.

    exit.

  endif.

  read table itab_zycet001 index 1.

  select single comis_provisao

    into v_provisao

    from /pws/zycet037

   where bukrs = itab_zycet001-bukrs.

  if v_provisao = '0'.

    select nrseq lifnr waers vlcomis

      from /pws/zycet010

      into table itab_result

      for all entries in itab_zycet001

    where nrseq = itab_zycet001-nrseq.

  else.

    select nrseq lifnr waers vlme

      from /pws/zycet013

      into table itab_result

      for all entries in itab_zycet001

    where nrseq = itab_zycet001-nrseq.

  endif.

  if not r_fornec[] is initial.

    delete itab_result where lifnr ne r_fornec-low.

  endif.

  if not r_moeda[] is initial.

    delete itab_result where waers ne r_moeda-low.

  endif.

  delete itab_result where waers eq 'BRL'.

  itab_result_aux[] = itab_result[].

  delete adjacent duplicates

                        from itab_result_aux comparing lifnr.

  describe table itab_result_aux lines v_count.

  if v_count > 1.

    p_erro = 'X'.

    message i015 with text-i45 text-i28.

    exit.

  endif.

  itab_result_aux[] = itab_result[].

  delete adjacent duplicates

                        from itab_result_aux comparing waers.

  describe table itab_result_aux lines v_count.

  if v_count > 1.

    p_erro = 'X'.

    message i015 with text-i46 text-i28.

    exit.

  endif.

  if itab_result[] is initial.

    p_erro = 'X'.

    message i015 with text-i47 text-i26.

    exit.

  endif.

  read table itab_result index 1.

  loop at itab_zycet001.

    v_tabix = sy-tabix.

    perform verifica_operacao_2 using itab_zycet001-nrseq

                                      itab_result-lifnr

                                      itab_result-waers

                                      'X'

                                      v_tp_origem

                             changing v_existe

                                      v_ras_rvs.

    if v_existe = 'X'.

      message i061 with text-i30 itab_zycet001-nrseq text-i32.

      delete itab_zycet001 index v_tabix.

    endif.

  endloop.

  if p_novo = 'N'.

    loop at itab_zycet001.

      v_tabix = sy-tabix.

      read table itab_zycat031t

                       with key nrseq_origem = itab_zycet001-nrseq

                                     despach = itab_result-lifnr

                                     waers   = itab_result-waers.

      if sy-subrc eq 0.

        message i061 with text-i30 itab_zycet001-nrseq text-i32.

        delete itab_zycet001 index v_tabix.

      endif.

    endloop.

  endif.

  if itab_zycet001[] is initial.

    p_erro = 'X'.

    message i015 with text-i25 text-i26.

    exit.

  endif.

  if p_novo = 'S'.

    clear: v_count.

  else.

    describe table itab_zycat031t lines v_count.

  endif.

  loop at itab_zycet001.

    clear: v_vlme_f,

           wa_zycat031,

           wa_result.

    loop at itab_result into wa_result

                                     where nrseq = itab_zycet001-nrseq.

      v_vlme_f = v_vlme_f + wa_result-vlcomis.

    endloop.

    if sy-subrc eq 0.

      v_count = v_count +  1.

      if v_count = 1.

        move:

          itab_zycet001-bukrs       to /pws/zycat030-bukrs,

          itab_zycet001-j_1bbranch  to /pws/zycat030-j_1bbranch,

          'A'                       to /pws/zycat030-tp_processo,

          wa_result-lifnr           to /pws/zycat030-bukrs_ext,

          wa_result-waers           to /pws/zycat030-waers,

          v_tp_origem               to /pws/zycat030-tp_origem.

        perform informacoes_cabecalho.

      else.

        if itab_zycet001-bukrs       ne /pws/zycat030-bukrs       or

           itab_zycet001-j_1bbranch  ne /pws/zycat030-j_1bbranch  or

           wa_result-lifnr           ne /pws/zycat030-bukrs_ext   or

           wa_result-waers           ne /pws/zycat030-waers.

          message i061

                  with text-i30 itab_zycet001-nrseq text-i33 text-i34.

          continue.

        endif.

      endif.

      move:

        v_count                 to wa_zycat031-operacao,

        /pws/zycat030-cod_pais  to wa_zycat031-cod_pais,

        itab_zycet001-dtemb     to wa_zycat031-data_ini,

        v_vlme_f                to wa_zycat031-valor,

        v_vlme_f                to wa_zycat031-saldo,

        itab_zycet001-nrseq     to wa_zycat031-nrseq_origem,

        wa_result-lifnr         to wa_zycat031-despach,

        wa_result-waers         to wa_zycat031-waers,

        wa_zycet021-nbs         to wa_zycat031-nbs,

        wa_zycet021-modo_prest  to wa_zycat031-modo_prest.

      append wa_zycat031 to itab_zycat031t.

    endif.

    v_valor_total = v_valor_total + v_vlme_f.

  endloop.

  move: v_valor_total  to  /pws/zycat030-valor,

        v_valor_total  to  /pws/zycat030-saldo.

  clear:   r_embexp, r_fornec, r_filial, r_moeda.

  refresh: r_embexp, r_fornec, r_filial, r_moeda.

endform.

form busca_prestacao_contas using p_novo

                         changing p_erro.

  data:

    wa_zycet033     type /pws/zycet033,

    wa_zycet021     type /pws/zycet021,

    wa_t001w        type ty_t001w,

    v_vlme_f        type /pws/zycet043-vldp,

    v_valor_total   type /pws/zycit006-vlmerc,

    v_tp_origem     type /pws/zycat030-tp_origem,

    v_kschl         type /pws/zycet156-kschl,

    v_count         type /pws/zycat031-operacao,

    v_ras_rvs       type /pws/zycat030-nrseq,

    v_embarque(25)  type c,

    v_existe(1)     type c,

    v_tabix         type sy-tabix,

    begin of itab_zycet001 occurs 0,

       nrseq        type /pws/zycet001-nrseq,

       bukrs        type /pws/zycet001-bukrs,

       dtemb        type /pws/zycet001-dtemb,

       werks        type /pws/zycet001-werks,

       j_1bbranch   type /pws/zycet116-j_1bbranch,

    end of itab_zycet001,

    begin of itab_zycet001_aux occurs 0,

       nrseq        type /pws/zycet001-nrseq,

       bukrs        type /pws/zycet001-bukrs,

       dtemb        type /pws/zycet001-dtemb,

       werks        type /pws/zycet001-werks,

       j_1bbranch   type /pws/zycet116-j_1bbranch,

    end of itab_zycet001_aux,

    begin of itab_t001w occurs 0,

       werks        type t001w-werks,

       j_1bbranch   type t001w-j_1bbranch,

    end of itab_t001w.

  data: begin of itab_zycet021 occurs 0.

          include structure /pws/zycet021.

  data: end of itab_zycet021.

  data: begin of itab_zycet033 occurs 0.

          include structure /pws/zycet033.

  data: end of itab_zycet033.

  data: begin of itab_zycet043 occurs 0.

          include structure /pws/zycet043.

  data: end of itab_zycet043.

  data: begin of itab_zycet043_aux occurs 0.

          include structure /pws/zycet043.

  data: end of itab_zycet043_aux.

  v_tp_origem = 'PT'.

  select nrseq bukrs dtemb werks

    from /pws/zycet001

    into table itab_zycet001

    where nrseq in r_embexp.

  delete itab_zycet001 where dtemb <= '20120731'.

  select werks j_1bbranch

    from t001w

    into table itab_t001w

    for all entries in itab_zycet001

  where werks = itab_zycet001-werks.

  loop at itab_zycet001.

    clear: wa_t001w.

    v_tabix = sy-tabix.

    read table itab_t001w into wa_t001w

                               with key werks = itab_zycet001-werks.

    itab_zycet001-j_1bbranch = wa_t001w-j_1bbranch.

    modify itab_zycet001 index v_tabix.

  endloop.

  if not r_filial[] is initial.

    delete itab_zycet001 where j_1bbranch ne r_filial-low.

  endif.

  itab_zycet001_aux[] = itab_zycet001[].

  delete adjacent duplicates

                        from itab_zycet001_aux comparing j_1bbranch.

  describe table itab_zycet001_aux lines v_count.

  if v_count > 1.

    p_erro = 'X'.

    message i015 with text-i44 text-i28.

    exit.

  endif.

  select * from /pws/zycet021

    into table itab_zycet021

    where siscoserv = 'X'.

  if not itab_zycet001[] is initial.

    select * from /pws/zycet043

      into table itab_zycet043

      for all entries in itab_zycet001

    where codmod = 'X'

      and nrseq  = itab_zycet001-nrseq

      and vldp   >  0.

    delete itab_zycet043 where pgtocamb is initial.

    if not r_fornec is initial.

      delete itab_zycet043 where despach ne r_fornec-low.

    endif.

    loop at itab_zycet043.

      v_tabix = sy-tabix.

      read table itab_zycet021 with key tpdesp = itab_zycet043-tpdesp.

      if sy-subrc ne 0.

        delete itab_zycet043 index v_tabix.

      endif.

    endloop.

    if not itab_zycet043[] is initial.

      select * from /pws/zycet033

        into table itab_zycet033

        for all entries in itab_zycet043

      where nrseq   = itab_zycet043-nrseq

        and nrpres  = itab_zycet043-nrpres

        and despach = itab_zycet043-despach.

    endif.

    loop at itab_zycet043.

      v_tabix = sy-tabix.

      read table itab_zycet033 with key nrseq = itab_zycet043-nrseq

                                       nrpres = itab_zycet043-nrpres

                                      despach = itab_zycet043-despach.

      if sy-subrc eq 0.

        itab_zycet043-waers = itab_zycet033-waers.

        modify itab_zycet043 index v_tabix.

      endif.

    endloop.

    if not r_moeda is initial.

      delete itab_zycet043 where waers ne r_moeda-low.

    endif.

    delete itab_zycet043 where waers eq 'BRL'.

  endif.

  if itab_zycet043[] is initial.

    p_erro = 'X'.

    message i015 with text-i35 text-i26.

    exit.

  endif.

  itab_zycet043_aux[] = itab_zycet043[].

  delete adjacent duplicates from itab_zycet043_aux comparing despach.

  describe table itab_zycet043_aux lines v_count.

  if v_count > 1.

    p_erro = 'X'.

    message i015 with text-i36 text-i37.

    exit.

  endif.

  itab_zycet043_aux[] = itab_zycet043[].

  delete adjacent duplicates from itab_zycet043_aux comparing waers.

  describe table itab_zycet043_aux lines v_count.

  if v_count > 1.

    p_erro = 'X'.

    message i015 with text-i48 text-i37.

    exit.

  endif.

  clear:   itab_zycet043_aux.

  refresh: itab_zycet043_aux.

  loop at itab_zycet043.

    clear: itab_zycet043_aux.

    itab_zycet043_aux-nrseq     = itab_zycet043-nrseq.

    itab_zycet043_aux-nrpres    = itab_zycet043-nrpres.

    itab_zycet043_aux-despach   = itab_zycet043-despach.

    itab_zycet043_aux-waers     = itab_zycet043-waers.

    itab_zycet043_aux-tpdesp    = itab_zycet043-tpdesp.

    itab_zycet043_aux-vldp      = itab_zycet043-vldp.

    collect itab_zycet043_aux.

  endloop.

  loop at itab_zycet043_aux.

    v_tabix = sy-tabix.

    perform verifica_operacao_2 using itab_zycet043_aux-nrpres

                                      itab_zycet043_aux-despach

                                      itab_zycet043_aux-waers

                                      itab_zycet043_aux-tpdesp

                                      v_tp_origem

                             changing v_existe

                                      v_ras_rvs.

    concatenate itab_zycet043_aux-nrpres

                itab_zycet043_aux-despach

                itab_zycet043_aux-tpdesp

           into v_embarque separated by space.

    if v_existe = 'X'.

      message i061 with text-i41 v_embarque text-i32.

      delete itab_zycet043_aux index v_tabix.

    endif.

  endloop.

  if p_novo = 'N'.

    loop at itab_zycet043_aux.

      v_tabix = sy-tabix.

      read table itab_zycat031t

                       with key nrseq_origem = itab_zycet043_aux-nrpres

                                despach      = itab_zycet043_aux-despach

                                waers        = itab_zycet043_aux-waers

                                tpdesp       = itab_zycet043_aux-tpdesp.

      if sy-subrc eq 0.

        concatenate itab_zycet043_aux-nrpres

                    itab_zycet043_aux-despach

                    itab_zycet043_aux-tpdesp

               into v_embarque separated by space.

        message i061 with text-i41 v_embarque text-i32.

        delete itab_zycet043_aux index v_tabix.

      endif.

    endloop.

  endif.

  if itab_zycet043_aux[] is initial.

    p_erro = 'X'.

    message i015 with text-i25 text-i26.

    exit.

  endif.

  if p_novo = 'S'.

    clear: v_count.

  else.

    describe table itab_zycat031t lines v_count.

  endif.

  loop at itab_zycet001.

    clear: v_vlme_f,

           wa_zycat031,

           wa_zycet033.

    loop at itab_zycet043_aux where nrseq = itab_zycet001-nrseq.

      v_count = v_count +  1.

      read table itab_zycet033

            into wa_zycet033 with key nrseq = itab_zycet043_aux-nrseq

                                     nrpres = itab_zycet043_aux-nrpres

                                    despach = itab_zycet043_aux-despach.

      read table itab_zycet021

            into wa_zycet021 with key tpdesp = itab_zycet043_aux-tpdesp.

      if v_count = 1.

        move:

          itab_zycet001-bukrs         to /pws/zycat030-bukrs,

          itab_zycet001-j_1bbranch    to /pws/zycat030-j_1bbranch,

          'A'                         to /pws/zycat030-tp_processo,

          itab_zycet043_aux-despach   to /pws/zycat030-bukrs_ext,

          itab_zycet043_aux-waers     to /pws/zycat030-waers,

          v_tp_origem                 to /pws/zycat030-tp_origem.

        perform informacoes_cabecalho.

      else.

        if itab_zycet001-bukrs         ne /pws/zycat030-bukrs       or

           itab_zycet001-j_1bbranch    ne /pws/zycat030-j_1bbranch  or

           itab_zycet043_aux-despach   ne /pws/zycat030-bukrs_ext   or

           itab_zycet043_aux-waers     ne /pws/zycat030-waers.

          message i061

                  with text-i41 itab_zycet001-nrseq text-i33 text-i34.

          continue.

        endif.

      endif.

      move:

        v_count                     to wa_zycat031-operacao,

        /pws/zycat030-cod_pais      to wa_zycat031-cod_pais,

        wa_zycet033-dtincl          to wa_zycat031-data_ini,

        itab_zycet043_aux-vldp      to wa_zycat031-valor,

        itab_zycet043_aux-vldp      to wa_zycat031-saldo,

        itab_zycet043_aux-waers     to wa_zycat031-waers,

        itab_zycet043_aux-nrpres    to wa_zycat031-nrseq_origem,

        itab_zycet043_aux-despach   to wa_zycat031-despach,

        itab_zycet043_aux-tpdesp    to wa_zycat031-tpdesp,

        wa_zycet021-nbs             to wa_zycat031-nbs,

        wa_zycet021-modo_prest      to wa_zycat031-modo_prest.

      append wa_zycat031 to itab_zycat031t.

      v_valor_total = v_valor_total + itab_zycet043_aux-vldp.

    endloop.

  endloop.

  move: v_valor_total  to  /pws/zycat030-valor,

        v_valor_total  to  /pws/zycat030-saldo.

  clear:   r_embexp, r_fornec, r_filial, r_moeda.

  refresh: r_embexp, r_fornec, r_filial, r_moeda.

endform.

form set_screen_origem_2.

  perform determina_origem.

  loop at screen.

    if screen-name cs 'OPTI_PUSH'.

      screen-active = '0'.

    else.

      if screen-name(8)  = 'R_EMBIMP' or

         screen-name(10) = '%_R_EMBIMP'.

        if not v_freteimp is initial or

           not v_segimp   is initial or

           not v_embimp   is initial.

          screen-input  = '1'.

          screen-active = '1'.

          clear:   r_embexp, r_pcompr, r_item,

                   r_fornec, r_filial, r_moeda.

          refresh: r_embexp, r_pcompr, r_item,

                   r_fornec, r_filial, r_moeda.

        else.

          screen-input  = '0'.

          screen-active = '0'.

        endif.

      elseif screen-name(8)  = 'R_EMBEXP' or

             screen-name(10) = '%_R_EMBEXP'.

        if not v_freteexp   is initial or

           not v_segexp     is initial or

           not v_embexp     is initial or

           not v_comagente  is initial or

           not v_prestconta is initial.

          screen-input  = '1'.

          screen-active = '1'.

          if v_comagente  is initial and

             v_prestconta is initial.

            clear:   r_embimp, r_pcompr, r_item,

                     r_fornec, r_filial, r_moeda.

            refresh: r_embimp, r_pcompr, r_item,

                     r_fornec, r_filial, r_moeda.

          else.

            clear:   r_embimp, r_pcompr, r_item.

            refresh: r_embimp, r_pcompr, r_item.

          endif.

        else.

          screen-input  = '0'.

          screen-active = '0'.

        endif.

      elseif screen-name(8)  = 'R_FORNEC'   or

             screen-name(10) = '%_R_FORNEC' or

             screen-name(8)  = 'R_FILIAL'   or

             screen-name(10) = '%_R_FILIAL' or

             screen-name(7)  = 'R_MOEDA'    or

             screen-name(9)  = '%_R_MOEDA'.

        if not v_comagente  is initial or

           not v_prestconta is initial.

          screen-input  = '1'.

          screen-active = '1'.

          clear:   r_embimp, r_pcompr, r_item.

          refresh: r_embimp, r_pcompr, r_item.

        else.

          screen-input  = '0'.

          screen-active = '0'.

        endif.

      elseif screen-name(8)  = 'R_PCOMPR'   or

             screen-name(10) = '%_R_PCOMPR' or

             screen-name(6)  = 'R_ITEM'     or

             screen-name(8)  = '%_R_ITEM'.

        if not v_pedcomp is initial.

          screen-input  = '1'.

          screen-active = '1'.

          clear:   r_embimp, r_embexp, r_fornec, r_filial, r_moeda.

          refresh: r_embimp, r_embexp, r_fornec, r_filial, r_moeda.

        else.

          screen-input  = '0'.

          screen-active = '0'.

        endif.

      endif.

    endif.

    modify screen.

  endloop.

endform.

form match_code_prestacao.

  data: l_display(1)   type c,

        itab_result    type table of ddshretval,

        wa_result      type ddshretval,

        itab_tdynpread type table of dynpread,

        wa_tdynpread   type dynpread .

  clear itab_tdynpread.

  refresh itab_tdynpread.

  wa_tdynpread-fieldname = 'R_FORNEC-LOW'.

  append wa_tdynpread to itab_tdynpread.

  call function 'DYNP_VALUES_READ'

       exporting

            dyname     = '/PWS/SAPMZYCA011'

            dynumb     = '0005'

       tables

            dynpfields = itab_tdynpread.

  if sy-subrc             eq 0.

    read table itab_tdynpread into wa_tdynpread index 1.

    set parameter id 'BES' field wa_tdynpread-fieldvalue.

  endif.

  call function 'F4IF_FIELD_VALUE_REQUEST'

       exporting

            tabname    = 'R_FORNEC'

            fieldname  = 'LOW'

            searchhelp = 'KRED'

            display    = l_display

       tables

            return_tab = itab_result

       exceptions

            others     = 5.

  if sy-subrc = 0.

  else.

  endif.

  read table itab_result into wa_result index 1.

  r_fornec-low = wa_result-fieldval.

endform.

form verifica_operacao_2 using p_nrseq_op

                               p_despach_op

                               p_moeda_op

                               p_tpdesp_op

                               p_origem_op

                      changing p_existe

                               p_ras_rvs.

  data:

    wa_zycat030  type /pws/zycat030,

    wa_zycat031  type /pws/zycat031.

  clear: p_existe,

         p_ras_rvs.

  if p_origem_op = 'CA'.

    select single *

      from /pws/zycat031

      into wa_zycat031

     where nrseq_origem = p_nrseq_op

       and despach      = p_despach_op

       and waers        = p_moeda_op.

  else.

    select single *

      from /pws/zycat031

      into wa_zycat031

     where nrseq_origem = p_nrseq_op

       and despach      = p_despach_op

       and waers        = p_moeda_op

       and tpdesp       = p_tpdesp_op.

  endif.

  if sy-subrc eq 0.

    p_ras_rvs = wa_zycat031-nrseq.

    select single *

      from /pws/zycat030

      into wa_zycat030

      where nrseq      = wa_zycat031-nrseq

        and status    ne 'EX'

        and tp_origem  = p_origem_op.

    if sy-subrc eq 0.

      p_existe = 'X'.

    endif.

  endif.

endform.

form verifica_alteracao_prestacao.

  data:

    wa_zycet033      type /pws/zycet033,

    wa_zycet021      type /pws/zycet021,

    wa_zycat031_alt  type ty_zycat031t,

    v_waers          type /pws/zycet033-waers,

    v_despach        type /pws/zycet043-despach,

    v_count          type /pws/zycat031-operacao,

    v_ras_rvs        type /pws/zycat030-nrseq,

    v_existe(1)      type c,

    v_alter(1)       type c,

    v_tabix          type sy-tabix,

    begin of itab_embarques occurs 0,

       nrseq    type /pws/zycet043-nrseq,

       despach  type /pws/zycet043-despach,

    end of itab_embarques,

    begin of itab_zycet043_aux occurs 0,

       nrseq    type /pws/zycet043-nrseq,

       nrpres   type /pws/zycet043-nrpres,

       tpdesp   type /pws/zycet043-tpdesp,

       despach  type /pws/zycet043-despach,

       vldp     type /pws/zycet043-vldp,

       waers    type /pws/zycet043-waers,

    end of itab_zycet043_aux.

  data: begin of itab_zycet021 occurs 0.

          include structure /pws/zycet021.

  data: end of itab_zycet021.

  data: begin of itab_zycet033 occurs 0.

          include structure /pws/zycet033.

  data: end of itab_zycet033.

  data: begin of itab_zycet043 occurs 0.

          include structure /pws/zycet043.

  data: end of itab_zycet043.

  clear: itab_zycet043,

         itab_zycet043_aux.

  check not itab_zycat031t[] is initial.

  select nrseq despach

    into table itab_embarques

    from /pws/zycet043

    for all entries in itab_zycat031t

  where codmod   = 'X'

    and nrpres   = itab_zycat031t-nrseq_origem

    and despach  = itab_zycat031t-despach.

  select * from /pws/zycet043

    into table itab_zycet043

    for all entries in itab_embarques

  where codmod  = 'X'

    and nrseq   = itab_embarques-nrseq

    and despach = itab_embarques-despach

    and vldp    >  0.

  delete itab_zycet043 where pgtocamb is initial.

  check not itab_zycet043[] is initial.

  v_waers = /pws/zycat030-waers.

  select * from /pws/zycet021

    into table itab_zycet021

    where siscoserv = 'X'.

  loop at itab_zycet043.

    v_tabix = sy-tabix.

    read table itab_zycet021 with key tpdesp = itab_zycet043-tpdesp.

    if sy-subrc ne 0.

      delete itab_zycet043 index v_tabix.

    endif.

  endloop.

  select * from /pws/zycet033

    into table itab_zycet033

    for all entries in itab_zycet043

  where nrseq   = itab_zycet043-nrseq

    and nrpres  = itab_zycet043-nrpres

    and despach = itab_zycet043-despach.

  loop at itab_zycet043.

    v_tabix = sy-tabix.

    read table itab_zycet033 with key nrseq = itab_zycet043-nrseq

                                     nrpres = itab_zycet043-nrpres

                                    despach = itab_zycet043-despach.

    if sy-subrc eq 0.

      itab_zycet043-waers = itab_zycet033-waers.

      modify itab_zycet043 index v_tabix.

    endif.

  endloop.

  delete itab_zycet043 where waers ne v_waers.

  check not itab_zycet043[] is initial.

  describe table itab_zycat031t lines v_count.

  clear:   itab_zycet043_aux.

  refresh: itab_zycet043_aux.

  loop at itab_zycet043.

    clear: itab_zycet043_aux.

    itab_zycet043_aux-nrseq     = itab_zycet043-nrseq.

    itab_zycet043_aux-nrpres    = itab_zycet043-nrpres.

    itab_zycet043_aux-despach   = itab_zycet043-despach.

    itab_zycet043_aux-waers     = itab_zycet043-waers.

    itab_zycet043_aux-tpdesp    = itab_zycet043-tpdesp.

    itab_zycet043_aux-vldp      = itab_zycet043-vldp.

    collect itab_zycet043_aux.

  endloop.

  clear v_alter.

  loop at itab_zycet043_aux.

    clear: wa_zycat031_alt,

           wa_zycet021,

           wa_zycet033.

    read table itab_zycat031t into wa_zycat031_alt

                     with key nrseq_origem = itab_zycet043_aux-nrpres

                                   despach = itab_zycet043_aux-despach

                                     waers = itab_zycet043_aux-waers

                                    tpdesp = itab_zycet043_aux-tpdesp.

    if sy-subrc eq 0.

      if wa_zycat031_alt-valor < itab_zycet043_aux-vldp.

        wa_zycat031_alt-saldo  = wa_zycat031_alt-saldo +

                    ( itab_zycet043_aux-vldp - wa_zycat031_alt-valor ).

        wa_zycat031_alt-valor  = itab_zycet043_aux-vldp.

        modify itab_zycat031t from wa_zycat031_alt

        transporting valor saldo

                where nrseq_origem = wa_zycat031_alt-nrseq_origem

                  and despach      = wa_zycat031_alt-despach

                  and waers        = wa_zycat031_alt-waers

                  and tpdesp       = wa_zycat031_alt-tpdesp.

        v_alter = 'X'.

      endif.

    else.

      clear: v_existe,

             v_ras_rvs.

      perform verifica_operacao_2 using itab_zycet043_aux-nrpres

                                        itab_zycet043_aux-despach

                                        itab_zycet043_aux-waers

                                        itab_zycet043_aux-tpdesp

                                        'PT'

                               changing v_existe

                                        v_ras_rvs.

      if v_existe is initial.

        v_count = v_count + 1.

        read table itab_zycet021 into wa_zycet021

                        with key  tpdesp = itab_zycet043_aux-tpdesp.

        read table itab_zycet033 into wa_zycet033

                        with key  nrseq = itab_zycet043_aux-nrseq

                                 nrpres = itab_zycet043_aux-nrpres

                                despach = itab_zycet043_aux-despach.

        wa_zycat031_alt-nrseq         =  /pws/zycat030-nrseq.

        wa_zycat031_alt-operacao      =  v_count.

        wa_zycat031_alt-nbs           =  wa_zycet021-nbs.

        wa_zycat031_alt-modo_prest    =  wa_zycet021-modo_prest.

        wa_zycat031_alt-cod_pais      =  /pws/zycat030-cod_pais.

        wa_zycat031_alt-data_ini      =  wa_zycet033-dtincl.

        wa_zycat031_alt-waers         =  itab_zycet043_aux-waers.

        wa_zycat031_alt-valor         =  itab_zycet043_aux-vldp.

        wa_zycat031_alt-saldo         =  itab_zycet043_aux-vldp.

        wa_zycat031_alt-nrseq_origem  =  itab_zycet043_aux-nrpres.

        wa_zycat031_alt-despach       =  itab_zycet043_aux-despach.

        wa_zycat031_alt-tpdesp        =  itab_zycet043_aux-tpdesp.

        append wa_zycat031_alt to itab_zycat031t.

        v_alter = 'X'.

      endif.

    endif.

  endloop.

  if v_alter = 'X'.

    message i015 with text-i42 text-i43.

  endif.

endform.

form verifica_alteracao_comissao.

  types:

     begin of ty_result,

       nrseq         type /pws/zycet010-nrseq,

       lifnr         type /pws/zycet010-lifnr,

       waers         type /pws/zycet010-waers,

       vlcomis       type /pws/zycet010-vlcomis,

     end of ty_result.

  data:

    wa_zycat031_alt  type ty_zycat031t,

    wa_result        type ty_result,

    v_provisao       type /pws/zycet037-comis_provisao,

    v_vlcomis        type /pws/zycet008-vlme_f,

    v_alter(1)       type c,

    begin of itab_result occurs 0,

       nrseq         type /pws/zycet010-nrseq,

       lifnr         type /pws/zycet010-lifnr,

       waers         type /pws/zycet010-waers,

       vlcomis       type /pws/zycet010-vlcomis,

    end of itab_result.

  clear v_alter.

  check not itab_zycat031t[] is initial.

  select single comis_provisao

    into v_provisao

    from /pws/zycet037

   where bukrs = /pws/zycat030-bukrs.

  if v_provisao = '0'.

    select nrseq lifnr waers vlcomis

      from /pws/zycet010

      into table itab_result

      for all entries in itab_zycat031t

    where nrseq = itab_zycat031t-nrseq_origem

      and lifnr = itab_zycat031t-despach

      and waers = itab_zycat031t-waers.

  else.

    select nrseq lifnr waers vlme

      from /pws/zycet013

      into table itab_result

      for all entries in itab_zycat031t

    where nrseq = itab_zycat031t-nrseq_origem

      and lifnr = itab_zycat031t-despach

      and waers = itab_zycat031t-waers.

  endif.

  check not itab_result[] is initial.

  loop at itab_zycat031t into wa_zycat031_alt.

    clear: v_vlcomis.

    loop at itab_result

         into wa_result where nrseq = wa_zycat031_alt-nrseq_origem.

      v_vlcomis = v_vlcomis + wa_result-vlcomis.

    endloop.

    if sy-subrc eq 0.

      if wa_zycat031_alt-valor < v_vlcomis.

        v_alter = 'X'.

        wa_zycat031_alt-saldo  = wa_zycat031_alt-saldo +

                               ( v_vlcomis - wa_zycat031_alt-valor ).

        wa_zycat031_alt-valor  = v_vlcomis.

        modify itab_zycat031t from wa_zycat031_alt

        transporting valor

                where nrseq_origem = wa_zycat031_alt-nrseq_origem

                  and despach      = wa_zycat031_alt-despach

                  and waers        = wa_zycat031_alt-waers.

      endif.

    endif.

  endloop.

  if v_alter = 'X'.

    message i015 with text-i42 text-i43.

  endif.

endform.

form drill_down.

  data: v_field(30)  type c,

        v_value(20)  type c,

        v_nrseq      type /pws/zycat039-nrseq,

        v_operacao   type /pws/zycat039-operacao,

        v_call       value 'X'.

  get cursor field v_field value v_value.

  if v_field = '/PWS/ZYCAT031-OPERACAO'.

    v_nrseq    = /pws/zycat030-nrseq.

    v_operacao = v_value.

    select single nrseq

      from /pws/zycat039

      into v_nrseq

     where nrseq    =  v_nrseq

       and operacao =  v_operacao.

    if sy-subrc ne 0.

      message i015 with text-e34.

      clear v_okcode.

      exit.

    endif.

    shift v_operacao right deleting trailing space.

    while sy-subrc eq 0.

      replace space with '0' into v_operacao.

    endwhile.

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

    set parameter id '/PWS/ZYCAP006' field v_operacao.

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

  endif.

  clear v_okcode.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCA011O01

...

  perform gos_criar

          using

            /pws/zycat030-nrseq

          changing

            gos.

  perform gos_publicar

          using

            gos.

endmodule.

module busca_sequencial output.

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

  data: domname like dd07v-domname,

        domwert like dd07v-domvalue_l,

        domtext like dd07v-ddtext.

  domname = '/PWS/ZYCAD027'.

  domwert = /pws/zycat030-tp_origem.

  call function 'GET_TEXT_DOMVALUE'

       exporting

            domname   = domname

            domvalue  = domwert

            langu     = sy-langu

       importing

            txt       = domtext

       exceptions

            not_found = 01.

  v_tipo_origem = domtext.

* << Fim da inclusão

  if /pws/zycat030-nrseq is initial.

    perform busca_sequencial.

  endif.

endmodule.

module atualiza_tela_oper output.

  move-corresponding itab_zycat031t to /pws/zycat031.

  move: itab_zycat031t-mark to v_mark.

  loop at screen.

    if ( itab_zycat031t-status = 'EP' or

         itab_zycat031t-status = 'EX' or

...

...

    loop at screen.

      if screen-name ne 'BOT_ENQ'.

        screen-input = '0'.

        modify screen.

      endif.

    endloop.

    loop at tc_oper-cols into wa_cols.

      if wa_cols-screen-name ne 'BT_ENQ'.

        wa_cols-screen-input = '0'.

        if wa_cols-screen-name = '/PWS/ZYCAT031-EBELP'.

* >> Início da exclusão: MODULE STATUS_0101

          wa_cols-screen-input = '0'.

* << Fim da exclusão

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

          wa_cols-screen-input  = '0'.

* << Fim da inclusão

          wa_cols-screen-active = '0'.

          wa_cols-invisible     = '1'.

        endif.

* >> Início da exclusão: MODULE STATUS_0101

        if wa_cols-screen-name = '/PWS/ZYCAT031-NRSEQ_ORIGEM'.

* << Fim da exclusão

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

        if wa_cols-screen-name = '/PWS/ZYCAT031-DESPACH' or

           wa_cols-screen-name = '/PWS/ZYCAT031-TPDESP'.

* << Fim da inclusão

          wa_cols-screen-input = '0'.

* >> Início da exclusão: MODULE STATUS_0101

          wa_cols-invisible     = '1'.

* << Fim da exclusão

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

          wa_cols-invisible    = '1'.

* << Fim da inclusão

        endif.

        modify tc_oper-cols from wa_cols.

      endif.

...

...

         wa_cols-screen-name ne '/PWS/ZYCAT031-EBELP'.

        wa_cols-screen-input = '1'.

      endif.

      if wa_cols-screen-name = '/PWS/ZYCAT031-STATUS' and

        not /pws/zycat030-processamento is initial.

        wa_cols-screen-input = '1'.

      elseif wa_cols-screen-name = '/PWS/ZYCAT031-STATUS' and

        /pws/zycat030-processamento is initial.

        wa_cols-screen-input = '0'.

      elseif wa_cols-screen-name = '/PWS/ZYCAT031-EBELP'.

* >> Início da exclusão: MODULE STATUS_0101

        wa_cols-screen-input = '0'.

* << Fim da exclusão

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

        wa_cols-screen-input  = '0'.

* << Fim da inclusão

        wa_cols-screen-active = '0'.

        wa_cols-invisible     = '1'.

      elseif wa_cols-screen-name = '/PWS/ZYCAT031-NRSEQ_ORIGEM'.

* >> Início da exclusão: MODULE STATUS_0101

        wa_cols-screen-input = '0'.

* << Fim da exclusão

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

        if /pws/zycat030-tp_origem is initial.

          wa_cols-screen-input  = '1'.

        else.

          wa_cols-screen-input  = '0'.

        endif.

      elseif wa_cols-screen-name = '/PWS/ZYCAT031-DESPACH' or

             wa_cols-screen-name = '/PWS/ZYCAT031-TPDESP'.

          wa_cols-screen-input  = '0'.

* << Fim da inclusão

        wa_cols-invisible     = '1'.

      endif.

      modify tc_oper-cols from wa_cols.

    endloop.

  endif.

endmodule.

module status_0103 output.

  if v_exibe is initial.

    loop at screen.

      screen-input = '1'.

...

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

Modificações efetuadas em REPS /PWS/MZYCA011TOP

...

        /pws/zycat031,

        /pws/zycat032,

        /pws/zycat033,

        /pws/zycat034,

        /pws/zycat037,

        /pws/zycat038,

        /pws/zycat039,

        /pws/zycat044,

        /pws/zycit001,

        /pws/zycet001,

* >> Início da exclusão:

        ekpo.

* << Fim da exclusão

* >> Início da inclusão:

        ekpo,

        /pws/zycet010,

        /pws/zycet033,

        /pws/zycet043,

        t001w.

* << Fim da inclusão

types:

  begin of ty_zycat031t.

        include structure /pws/zycat031.

types: mark,

       msg,

end of ty_zycat031t,

begin of ty_zycat032t.

        include structure /pws/zycat032.

types: mark,

end of ty_zycat032t,

...

...

      itab_zycat032      type table of /pws/zycat032,

      itab_zycat032_ant  type table of /pws/zycat032,

      itab_zycat033      type table of /pws/zycat033,

      itab_zycat033t     type table of ty_zycat033t with header line,

      itab_zycat033_ant  type table of /pws/zycat033,

      itab_zycat041      type table of /pws/zycat041,

      itab_src           type table of ty_src,

      itab_tline         type table of tline,

      itab_tline_ant     type table of tline,

      itab_tdynpread     type table of dynpread,

* >> Início da exclusão:

      itab_fcode         type table of ty_fcode.

* << Fim da exclusão

* >> Início da inclusão:

      itab_fcode         type table of ty_fcode,

      v_dom_tporigem     type /pws/zycal060.

* << Fim da inclusão

data: wa_cols         type cxtab_column,

      wa_zycat030_ant type /pws/zycat030,

      wa_zycat031     type /pws/zycat031,

      wa_zycat031_ant type /pws/zycat031,

      wa_zycat032     type /pws/zycat032,

      wa_zycat032_ant type /pws/zycat032,

      wa_zycat033     type /pws/zycat033,

      wa_zycat033_ant type /pws/zycat033,

      wa_src          type ty_src,

      wa_tline        type tline,

...

...

      v_funcionalidade type /pws/zyglt390-programa

                       value '/PWS/SAPMZYCA011',

      v_identificador  type /pws/zyglt390-identificador,

      v_sorigem    type c,

      v_freteimp   type c,

      v_segimp     type c,

      v_embimp     type c,

      v_freteexp   type c,

      v_segexp     type c,

      v_embexp     type c,

* >> Início da exclusão:

      v_pedcomp    type c.

* << Fim da exclusão

* >> Início da inclusão:

      v_pedcomp    type c,

      v_comagente       type c,

      v_prestconta      type c,

      v_stceg           type lfa1-stceg,

      v_tipo_origem(60) type c.

* << Fim da inclusão

controls: ts_contrato   type tabstrip,

          tc_oper       type tableview using screen '0101',

          tc_enq        type tableview using screen '0102',

          tc_re         type tableview using screen '0103'.

data editor        type ref to cl_gui_textedit.

data editcontainer type ref to cl_gui_custom_container.

data: gos type ref to /pws/zygl_cl_gos.

selection-screen begin of screen 0004 as subscreen.

select-options  r_embimp for /pws/zycit001-nrseq.

selection-screen skip 1.

selection-screen end of screen 0004.

selection-screen begin of screen 0005 as subscreen.

* >> Início da exclusão:

select-options  r_embexp for /pws/zycet001-nrseq.

* << Fim da exclusão

* >> Início da inclusão:

select-options:

       r_filial for t001w-j_1bbranch      no intervals no-extension,

       r_embexp for /pws/zycet001-nrseq,

       r_fornec for /pws/zycet043-despach no intervals no-extension,

       r_moeda  for /pws/zycet010-waers   no intervals no-extension.

* << Fim da inclusão

selection-screen end of screen 0005.

selection-screen begin of screen 0006 as subscreen.

select-options:

  r_pcompr for ekpo-ebeln no intervals no-extension,

  r_item   for ekpo-ebelp.

selection-screen end of screen 0006.

at selection-screen output.

  case sy-dynnr.

    when '0004' or '0005' or '0006'.

* >> Início da exclusão:

      perform set_screen_origem.

* << Fim da exclusão

* >> Início da inclusão:

      perform set_screen_origem_2.

* << Fim da inclusão

  endcase.

at selection-screen on value-request for r_pcompr-low.

  perform match_code_pedcompra.

at selection-screen on value-request for r_item-low.

  perform match_code_item_low.

at selection-screen on value-request for r_item-high.

  perform match_code_item_high.

at selection-screen on value-request for r_embimp-low.

  perform match_code_importacao using 'L'.

at selection-screen on value-request for r_embimp-high.

  perform match_code_importacao using 'H'.

at selection-screen on value-request for r_embexp-low.

  perform match_code_exportacao using 'L'.

at selection-screen on value-request for r_embexp-high.

  perform match_code_exportacao using 'H'.

* >> Início da inclusão:

at selection-screen on value-request for r_fornec-low.

  perform match_code_prestacao.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCA012F01

...

form user_command_002.

  case v_okcode.

    when 'BACK'.

      leave program.

    when 'ENTER'.

      perform seleciona_dados_exibe.

  endcase.

  clear v_okcode.

endform.

form seleciona_dados_modif.

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

  data: v_bloq.

* << Fim da exclusão

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

  data: v_bloq,

        v_tipo_pt(3) type c,

        v_dtcredpr   type /pws/zycbt031-dtcredpr,

        v_nrseqrem   type /pws/zycet033-nrseqrem,

        v_embarque   type /pws/zycet033-nrseq.

* << Fim da inclusão

  data: itab_zycat041 type table of /pws/zycat041,

        wa_zycat041   type /pws/zycat041,

        v_objname     type tadir-obj_name.

  perform verifica_autorizacao_emp changing v_bloq.

  check v_bloq is initial.

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

  clear: wa_zycat039c,

         wa_zycat039r,

         wa_zycat039f,

         wa_zycat039o,

         wa_zycat039fe.

* << Fim da inclusão

  select single * from /pws/zycat030

    where nrseq = /pws/zycat039-nrseq.

  select single *

    from /pws/zycat031

    into /pws/zycat031

    where nrseq    = /pws/zycat039-nrseq

      and operacao = /pws/zycat039-operacao.

  if sy-subrc ne 0 or

    sy-subrc eq 0 and /pws/zycat031-status ne 'PS'.

    clear v_okcode.

...

...

      wa_zycat039f-fat_imp = wa_zycat030-origem.

      perform atualiza_itab tables  itab_zycat039_f

                            using   wa_zycat039f

                                    tc_fatimp.

    elseif /pws/zycat030-tp_origem = 'FE' or

           /pws/zycat030-tp_origem = 'SE' or

           /pws/zycat030-tp_origem = 'EE'.

      wa_zycat039fe-fat_exp = wa_zycat030-origem.

      wa_zycat039fe-moeda   = /pws/zycat030-waers.

      wa_zycat039fe-valor   = /pws/zycat030-valor.

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

      perform atualiza_itab tables  itab_zycat039_fe

                            using   wa_zycat039fe

                                    tc_fatexp.

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

      select single dtvencto

        into wa_zycat039c-dtvencto

        from /pws/zycet010

       where nrseq = wa_zycat030-origem

         and lifnr = /pws/zycat030-bukrs_ext.

      wa_zycat039c-fat_comis =  wa_zycat030-origem.

      wa_zycat039c-moeda     = /pws/zycat030-waers.

      wa_zycat039c-valor     = /pws/zycat030-valor.

      wa_zycat039c-lifnr     = /pws/zycat030-bukrs_ext.

      perform atualiza_itab tables  itab_zycat039_c

                            using   wa_zycat039c

                                    tc_comag.

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

      perform verifica_associacao_pt using /pws/zycat039-nrseq

                                           /pws/zycat039-operacao

                                  changing v_tipo_pt

                                           v_dtcredpr

                                           v_nrseqrem

                                           v_embarque.

      if v_tipo_pt eq 'EXP'.

        wa_zycat039fe-fat_exp    =  v_embarque.

        wa_zycat039fe-nrpres     =  /pws/zycat031-nrseq_origem.

        wa_zycat039fe-despach    =  /pws/zycat031-despach.

        wa_zycat039fe-tpdesp     =  /pws/zycat031-tpdesp.

        wa_zycat039fe-moeda      =  /pws/zycat031-waers.

        wa_zycat039fe-valor      =  /pws/zycat031-valor.

        wa_zycat039fe-dt_pg_rec  =  v_dtcredpr.

* << Fim da inclusão

      perform atualiza_itab tables  itab_zycat039_fe

                            using   wa_zycat039fe

                                    tc_fatexp.

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

      elseif v_tipo_pt eq 'REM'.

        wa_zycat039r-remessa     =  v_nrseqrem.

        wa_zycat039r-nrpres      =  /pws/zycat031-nrseq_origem.

        wa_zycat039r-despach     =  /pws/zycat031-despach.

        wa_zycat039r-tpdesp      =  /pws/zycat031-tpdesp.

        wa_zycat039r-moeda       =  /pws/zycat031-waers.

        wa_zycat039r-valor       =  /pws/zycat031-valor.

        perform atualiza_itab tables  itab_zycat039_r

                              using   wa_zycat039r

                                      tc_remessa.

      endif.

* << Fim da inclusão

    endif.

    perform calcula_saldo.

  endif.

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

    perform busca_doc_pedido using /pws/zycat030-origem

                                   /pws/zycat031-ebelp.

    perform calcula_saldo.

  endif.

  if not itab_zycat039_r[] is initial or

     ( itab_zycat039_r[] is initial and

...

...

    v_dynnr = '0102'.

    ts_assoc-activetab = 'TB_CAG'.

  elseif not itab_zycat039_f[] is initial.

    v_dynnr = '0103'.

    ts_assoc-activetab = 'TB_FIMP'.

  elseif not itab_zycat039_o[] is initial.

    v_dynnr = '0105'.

    ts_assoc-activetab = 'TB_OUTROS'.

  elseif not itab_zycat039_fe[] is initial.

    v_dynnr = '0107'.

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

    ts_assoc-activetab = 'TB_FEXP'.

* << Fim da exclusão

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

    ts_assoc-activetab = 'TB_FATEXP'.

* << Fim da inclusão

  endif.

  if not itab_zycat039_o[] is initial.

    perform busca_saldo_bseg.

  endif.

  set screen 0100.

  leave screen.

endform.

form verifica_bloqueio.

  call function 'ENQUEUE_/PWS/EZYCAT030'

       exporting

...

...

             itab_zycat039_f, itab_zycat039_o.

    loop at itab_zycat039 into wa_zycat039.

      if not wa_zycat039-remessa is initial.

        append wa_zycat039 to itab_zycat039_r.

      elseif not wa_zycat039-fat_comis is initial.

        append wa_zycat039 to itab_zycat039_c.

      elseif not wa_zycat039-fat_imp is initial.

        append wa_zycat039 to itab_zycat039_f.

      elseif not wa_zycat039-fatura is initial.

        append wa_zycat039 to itab_zycat039_o.

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

      elseif not wa_zycat039-fat_exp is initial.

        append wa_zycat039 to itab_zycat039_fe.

* << Fim da inclusão

      endif.

    endloop.

    clear v_okcode.

    v_exibe = 'X'.

    v_screen = sy-dynnr.

    clear: v_okcode, v_dynnr.

    if not itab_zycat039_r[] is initial or

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

       ( itab_zycat039_r[] is initial and

         itab_zycat039_c[] is initial and

         itab_zycat039_f[] is initial and

         itab_zycat039_o[] is initial ).

* << Fim da exclusão

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

       ( 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 ).

* << Fim da inclusão

      v_dynnr = '0101'.

      ts_assoc-activetab = 'TB_REM'.

    elseif not itab_zycat039_c[] is initial.

      v_dynnr = '0102'.

      ts_assoc-activetab = 'TB_CAG'.

    elseif not itab_zycat039_f[] is initial.

      v_dynnr = '0103'.

      ts_assoc-activetab = 'TB_FIMP'.

    elseif not itab_zycat039_o[] is initial.

      v_dynnr = '0105'.

      ts_assoc-activetab = 'TB_OUTROS'.

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

    elseif not itab_zycat039_fe[] is initial.

      v_dynnr = '0107'.

      ts_assoc-activetab = 'TB_FATEXP'.

* << Fim da inclusão

    endif.

    if not itab_zycat039_o[] is initial.

      perform busca_saldo_bseg.

    endif.

    set screen 0100.

    leave screen.

  endif.

endform.

form verifica_autorizacao_emp changing p_bloq.

  data v_bukrs type /pws/zycat030-bukrs.

...

...

  if not p_tc-current_line is initial.

    modify p_itab_zycat039 index p_tc-current_line.

    if sy-subrc ne 0.

      read table p_itab_zycat039 into wa_zycat039

        with key nrseq     = p_itab_zycat039-nrseq

                 operacao  = p_itab_zycat039-operacao

                 remessa   = p_itab_zycat039-remessa

                 fat_comis = p_itab_zycat039-fat_comis

                 fat_imp   = p_itab_zycat039-fat_imp

                 fatura    = p_itab_zycat039-fatura

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

                 fat_exp   = p_itab_zycat039-fat_exp.

* << Fim da exclusão

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

                 fat_exp   = p_itab_zycat039-fat_exp

                 despach   = p_itab_zycat039-despach

                 tpdesp    = p_itab_zycat039-tpdesp

                 nrpres    = p_itab_zycat039-nrpres.

* << Fim da inclusão

      if sy-subrc eq 0.

        message i015 with text-e08.

      else.

        append p_itab_zycat039.

      endif.

    endif.

  else.

    move: v_mark to p_itab_zycat039-mark,

          /pws/zycat031-nrseq    to p_itab_zycat039-nrseq,

          /pws/zycat031-operacao to p_itab_zycat039-operacao.

...

...

      endif.

    endloop.

  endif.

endform.

form verifica_associacao changing p_wa_zycat039 structure /pws/zycat039

                                  p_pago.

  data: v_bukrs   type /pws/zycat030-bukrs,

        v_bukext  type /pws/zycat030-bukrs_ext.

  if not p_wa_zycat039-remessa is initial and

         p_wa_zycat039-dt_pg_rec is initial.

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

    perform valida_remessa changing p_wa_zycat039

* << Fim da exclusão

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

    perform valida_remessa_2 changing p_wa_zycat039

* << Fim da inclusão

                                    p_pago

                                    v_bukext

                                    v_bukrs.

  endif.

  if not p_wa_zycat039-fat_comis is initial and

         p_wa_zycat039-dt_pg_rec is initial.

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

    perform valida_comissao changing p_wa_zycat039

* << Fim da exclusão

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

    perform valida_comissao_2 changing p_wa_zycat039

* << Fim da inclusão

                                     p_pago

                                     v_bukext

                                     v_bukrs.

  endif.

  if not p_wa_zycat039-fat_imp is initial and

         p_wa_zycat039-dt_pg_rec is initial.

    perform valida_fatimp changing p_wa_zycat039

                                     p_pago

                                     v_bukext

                                     v_bukrs.

...

...

    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.

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

    clear p_pago.

    exit.

  endif.

  p_wa_zycat039-valor = /pws/zycat031-saldo.

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

  clear: v_nrboleto.

  select single nrboleto

    from /pws/zycbt064

    into v_nrboleto

   where mdcorresp = 'IP'

     and nrchave   = v_nrseqpgfat.

* << Fim da inclusão

  select single nrseq

    from /pws/zycbt031

    into v_nrseq

    where mdcorresp = 'IP'

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

      and nrcorresp = v_nrseqpgfat.

  if sy-subrc eq 0.

* << Fim da exclusão

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

     and nrseq     = v_nrboleto.

* << Fim da inclusão

    select single bco_ccme

      from /pws/zycbt134

      into v_bcoccme

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

      where nrseq  = v_nrseq.

    if sy-subrc eq 0 and not v_bcoccme is initial.

* << Fim da exclusão

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

   where mdcorresp = 'IP'

     and nrseq     = v_nrseq.

  if sy-subrc ne 0.

    message i061 with text-i13 v_nrseqpgfat text-i09.

    clear p_pago.

  else.

* << Fim da inclusão

      p_wa_zycat039-vme = p_wa_zycat039-valor.

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

    endif.

* << Fim da exclusão

  endif.

endform.

form user_command_0103.

  case v_okcode.

    when 'MALL'.

      loop at itab_zycat039_f.

...

...

      v_saldo_disp = v_saldo_aux - v_saldo_assoc.

      delete itab_zycat039_aux where fatura = wa_zycat039o-fatura

                                 and gjahr  = wa_zycat039o-gjahr.

      wa_zycat039o-fatura = wa_zycat039o-fatura.

      wa_zycat039o-gjahr  = wa_zycat039o-gjahr.

      wa_zycat039o-valor  = v_saldo_disp.

      append wa_zycat039o to itab_zycat039_aux.

    endif.

  endloop.

endform.

* >> Início da inclusão:

form verifica_associacao_pt using p_nrseq

                                  p_operacao

                         changing p_tipo_pt

                                  p_dtcredpr

                                  p_nrseqrem

                                  p_embarque.

  data: wa_zycat031 type /pws/zycat031,

        wa_zycet043 type /pws/zycet043,

        v_nrpres    type /pws/zycet033-nrpres.

  clear: p_tipo_pt,

         p_dtcredpr,

         p_nrseqrem,

         p_embarque,

         v_nrboleto.

  select *

    from /pws/zycat031

    into wa_zycat031

   where nrseq    = p_nrseq

     and operacao = p_operacao.

  select single *

    from /pws/zycet043

    into wa_zycet043

   where codmod   = 'X'

     and nrpres   =  wa_zycat031-nrseq_origem

     and tpdesp   =  wa_zycat031-tpdesp.

  endselect.

  p_embarque = wa_zycet043-nrseq.

  if wa_zycet043-remfinanc is initial.

    p_tipo_pt = 'EXP'.

    select single nrboleto

      from /pws/zycbt064

      into v_nrboleto

     where mdcorresp = 'EP'

       and nrchave   = wa_zycat031-nrseq_origem.

    select single dtcredpr

      from /pws/zycbt031

      into p_dtcredpr

     where mdcorresp = 'EP'

       and nrseq     = v_nrboleto.

    select single nrseq

      from /pws/zycbt134

      into v_nrboleto

     where mdcorresp = 'EP'

       and nrseq     = v_nrboleto.

    if sy-subrc ne 0.

      clear: p_tipo_pt.

      message i061 with text-i12 text-i11.

      exit.

    endif.

    select single *

      from /pws/zycat039

      into wa_zycat039

      where nrseq    ne  /pws/zycat039-nrseq

        and fat_exp   =  p_embarque

        and nrpres    =  wa_zycat031-nrseq_origem

        and despach   =  wa_zycat031-despach

        and tpdesp    =  wa_zycat031-tpdesp

        and moeda     =  wa_zycat031-waers.

  else.

    p_tipo_pt = 'REM'.

    select single nrseqrem

      from /pws/zycet033

      into p_nrseqrem

     where codmod   =  'X'

       and nrseq    =  p_embarque

       and nrpres   =  wa_zycat031-nrseq_origem

       and despach  =  wa_zycat031-despach.

    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.

    message i015 with text-e24 text-i11.

    exit.

  endif.

endform.

form valida_comissao_2 changing p_wa_zycat039 structure /pws/zycat039

                                p_pago

                                p_bukext

                                p_bukrs.

  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.

    message i015 with text-e09 text-i11.

    clear p_pago.

    exit.

  endif.

  select single bukrs nfnum waers

    from /pws/zycet002

    into (p_bukrs,

          p_wa_zycat039-num_nf,

          p_wa_zycat039-moeda)

    where nrseq = p_wa_zycat039-fat_comis.

  clear: v_nrboleto.

  select single nrboleto

    from /pws/zycbt064

    into v_nrboleto

   where mdcorresp = 'EL'

     and nrchave   = p_wa_zycat039-fat_comis

     and moeda     = /pws/zycat030-waers

     and lifnr     = p_wa_zycat039-lifnr.

  select single *

    from /pws/zycbt031

    into wa_zycbt031

   where bukrs     = /pws/zycat030-bukrs

     and mdcorresp = 'EL'

     and nrseq     = v_nrboleto

     and waers     = /pws/zycat030-waers

     and lifnr     = p_wa_zycat039-lifnr.

  select single bco_ccme

    from /pws/zycbt134

    into v_bcoccme

   where mdcorresp = 'EL'

     and nrseq     = v_nrboleto.

  if sy-subrc ne 0.

    message i061 with text-i13 p_wa_zycat039-fat_comis

                      text-i09.

    clear p_pago.

  else.

    p_wa_zycat039-dt_pg_rec = wa_zycbt031-dtcredpr.

    p_bukext                = wa_zycbt031-lifnr.

    if sy-subrc eq 0.

      p_wa_zycat039-vme = p_wa_zycat039-valor.

    endif.

  endif.

endform.

form valida_remessa_2 changing p_wa_zycat039 structure /pws/zycat039

                               p_pago

                               p_bukext

                               p_bukrs.

  data: v_nrseq    type /pws/zycbt031-nrseq,

        v_vlme     type /pws/zycbt134-vlme,

        v_bcoccme  type /pws/zycbt134-bco_ccme.

  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.

    message i015 with text-e07 text-i11.

    clear p_pago.

    exit.

  endif.

  select single bukrs recrem nrfat

    from /pws/zycbt124

    into (p_bukrs, p_bukext, p_wa_zycat039-num_nf)

   where nrseq = p_wa_zycat039-remessa.

  if sy-subrc ne 0.

    message i061 with text-i08 p_wa_zycat039-remessa

      text-i09.

    clear p_pago.

    exit.

  endif.

  clear: v_nrboleto.

  select single nrboleto

    from /pws/zycbt064

    into v_nrboleto

   where mdcorresp = 'CP'

     and nrchave   = p_wa_zycat039-remessa.

  select single nrseq dtcredpr

    from /pws/zycbt031

    into (v_nrseq, p_wa_zycat039-dt_pg_rec)

    where mdcorresp = 'CP'

      and nrseq     = v_nrboleto.

  select single bco_ccme vlme

    from /pws/zycbt134

    into (v_bcoccme, v_vlme)

   where nrseq  = v_nrseq

     and tpproc = 'PRINCIPAL'.

  if sy-subrc eq 0.

    if /pws/zycat030-tp_origem is initial.

      p_wa_zycat039-vme   = v_vlme.

      p_wa_zycat039-valor = v_vlme.

    else.

      p_wa_zycat039-vme = p_wa_zycat039-valor.

    endif.

  else.

    message i061 with text-i12 text-i11.

    clear p_pago.

  endif.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCA011

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 005

Texto: (22 caracteres)

"Commission related  RE"

Comprimento máximo: 23

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 005

Texto: (23 caracteres)

"Comissão referente a RE"

Comprimento máximo: 23

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 005

Texto: (23 caracteres)

"Comisión referente a RE"

Comprimento máximo: 23

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 006

Texto: (23 caracteres)

"Provision related to RE"

Comprimento máximo: 24

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 006

Texto: (24 caracteres)

"Prestação referente a RE"

Comprimento máximo: 24

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 006

Texto: (24 caracteres)

"Prestación referente aRE"

Comprimento máximo: 24

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E34

Texto: (33 caracteres)

"There is no association for Item."

Comprimento máximo: 33

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E34

Texto: (33 caracteres)

"Não há associação para este Item."

Comprimento máximo: 33

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E34

Texto: (33 caracteres)

"No hay asociación para este Ítem."

Comprimento máximo: 33

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I35

Texto: (23 caracteres)

"No Accountability found"

Comprimento máximo: 38

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I35

Texto: (38 caracteres)

"Nenhuma Prestação de Contas encontrada"

Comprimento máximo: 38

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I35

Texto: (38 caracteres)

"Ninguna Prestación de Cuentas encontra"

Comprimento máximo: 38

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I36

Texto: (29 caracteres)

"There are different Suppliers"

Comprimento máximo: 31

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I36

Texto: (31 caracteres)

"Existem Fornecedores diferentes"

Comprimento máximo: 31

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I36

Texto: (30 caracteres)

"Existen Proveedores diferentes"

Comprimento máximo: 31

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I37

Texto: (28 caracteres)

"for Selected Accountability."

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I37

Texto: (32 caracteres)

"para as Prestações Selecionadas."

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I37

Texto: (32 caracteres)

"para las Prestaciones Selecciona"

Comprimento máximo: 32

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I38

Texto: (29 caracteres)

"The Supplier will be consider"

Comprimento máximo: 29

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I38

Texto: (29 caracteres)

"Será considerado o Fornecedor"

Comprimento máximo: 29

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I38

Texto: (29 caracteres)

"Será considerado el Proveedor"

Comprimento máximo: 29

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I39

Texto: (24 caracteres)

"The Accountability Found"

Comprimento máximo: 25

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I39

Texto: (25 caracteres)

"As Prestações Encontradas"

Comprimento máximo: 25

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I39

Texto: (25 caracteres)

"Las Prestaciones Encontra"

Comprimento máximo: 25

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I40

Texto: (26 caracteres)

"have Different Currencies."

Comprimento máximo: 26

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I40

Texto: (26 caracteres)

"possuem Moedas Diferentes."

Comprimento máximo: 26

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I40

Texto: (26 caracteres)

"poseen Monedas Diferentes."

Comprimento máximo: 26

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I41

Texto: (9 caracteres)

"Down Pay."

Comprimento máximo: 9

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I41

Texto: (9 caracteres)

"Prestação"

Comprimento máximo: 9

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I41

Texto: (9 caracteres)

"Represent"

Comprimento máximo: 9

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I42

Texto: (40 caracteres)

"There were changes in the Accountability"

Comprimento máximo: 40

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I42

Texto: (40 caracteres)

"Houve Alterações na Prestação de Contas."

Comprimento máximo: 40

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I42

Texto: (40 caracteres)

"Hubo Alteraciones en la Prestación Cuent"

Comprimento máximo: 40

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I43

Texto: (22 caracteres)

"The RAS will be Update"

Comprimento máximo: 22

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I43

Texto: (22 caracteres)

"A RAS será Atualizada."

Comprimento máximo: 22

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I43

Texto: (22 caracteres)

"La RAS será Atualizada"

Comprimento máximo: 22

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I44

Texto: (34 caracteres)

"Shipments Have Different Branches."

Comprimento máximo: 37

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I44

Texto: (37 caracteres)

"Embarques Possuem Filiais Diferentes."

Comprimento máximo: 37

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I44

Texto: (37 caracteres)

"Embarques Poseen Filiales Diferentes."

Comprimento máximo: 37

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I45

Texto: (37 caracteres)

"Commissions Have Different Suppliers."

Comprimento máximo: 42

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I45

Texto: (42 caracteres)

"Comissões Possuem Fornecedores Diferentes."

Comprimento máximo: 42

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I45

Texto: (41 caracteres)

"Comisiones Poseen Proveedores Diferentes."

Comprimento máximo: 42

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I46

Texto: (36 caracteres)

"Commissions Have Different Currencie"

Comprimento máximo: 36

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I46

Texto: (36 caracteres)

"Comissões Possuem Moedas Diferentes."

Comprimento máximo: 36

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I46

Texto: (36 caracteres)

"Comisiones Poseen Monedas Diferentes"

Comprimento máximo: 36

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I47

Texto: (21 caracteres)

"None Found Commission"

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I47

Texto: (27 caracteres)

"Nenhuma Comissão Encontrada"

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I47

Texto: (27 caracteres)

"Ninguna Comisión Encontrada"

Comprimento máximo: 27

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: I48

Texto: (20 caracteres)

"Different Currencies"

Comprimento máximo: 25

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: I48

Texto: (25 caracteres)

"Existem Moedas diferentes"

Comprimento máximo: 25

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: I48

Texto: (25 caracteres)

"Existen Monedas diferente"

Comprimento máximo: 25

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

Incluído texto de seleção:

Idioma: EN

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

Texto: (31 caracteres)

"Branch (Local Business)"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (35 caracteres)

"Filial ( Local de Negócio )"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: ES

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

Texto: (35 caracteres)

"Filial ( Local de Negocio )"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: EN

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

Texto: (21 caracteres)

"Supplier Code"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (28 caracteres)

"Código do Fornecedor"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: ES

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

Texto: (27 caracteres)

"Código de Proveedor"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: EN

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

Texto: (16 caracteres)

"Currency"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

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

Texto: (13 caracteres)

"Moeda"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: ES

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

Texto: (14 caracteres)

"Moneda"

Referência ao Dictionary: NÃO

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

Modificações efetuadas em REPT /PWS/SAPMZYCA012

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: E24

Texto: (40 caracteres)

"Provision already associated with anothe"

Comprimento máximo: 40

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: E24

Texto: (40 caracteres)

"Prestação já associada em outra RAS/RVS."

Comprimento máximo: 40

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: E24

Texto: (39 caracteres)

"Prestación ya asociada en otra RAS/RVS."

Comprimento máximo: 40

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

Modificações efetuadas em TABU TVDIR

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

Modificações efetuadas em TABU TVIMF

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

Modificações efetuadas em TABU TDDAT