CE PLUS - Nota 013790
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: SISCOSERV
Data/Hora da Publicação: 07/07/2014 16:06:22
Data/Hora Última Alteração: 07/07/2014 16:06:22
Descrição da Nota: SISCOSERV - ASSOCIAÇÃO
Sintoma
Inclusão de funcionalidade para associar um Pagamento/Recebimento com mais de uma RAS/RVS
Solução
Inclusão de funcionalidade para associar um Pagamento/Recebimento com mais de uma RAS/RVS
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13790 Data: 10/03/2014 Hora: 10:34:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13790
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12671 - 00001 - 9.0 - 00002 - ASSOCIAÇÃO SISCOSERV
13310 - 00002 - 9.0 - 00006 - SISCOSERV - ASSOCIAÇÃO - AUTOMATIZAR PAGAMENTO DO PEDIDO DE COMPR
13659 - 00003 - 9.0 - 00007 - SISCOSERV, DESP.IMPORTAÇÃO, ORDEM DE VENDA, PEDIDO DE COMPRA, NIF
13735 - 00004 - 9.0 - 00007 - SISCOSERV, AUTOMATIZAR ASSOCIAÇÃO DE RAS/RVS COM ORIGEM
----------------------------------------------------------------------------------------------------
SISCOSERV - ASSOCIAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOSERV - ASSOCIAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYCAD033
DOMD /PWS/ZYCAD032
DTEL /PWS/ZYCAL069
VIEW /PWS/ZYCAV010
SHLP /PWS/ZYCAA185
SHLP /PWS/ZYCAA184
SHLP /PWS/ZYCAA182
SHLP /PWS/ZYCAA183
SHLD /PWS/ZYCAA183
FUNC /PWS/ZYCAA184
FUNC /PWS/ZYCAA183
FUNC /PWS/ZYCAA182
FUNC /PWS/ZYCAA185
CUAD /PWS/SAPMZYCA012
DYNP /PWS/SAPMZYCA012 0300
DYNP /PWS/SAPMZYCA012 0006
REPS /PWS/MZYCA012I01
REPS /PWS/MZYCA012O01
REPS /PWS/MZYCA012TOP
REPS /PWS/MZYCA012F01
REPT /PWS/SAPMZYCA012
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCAD033
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCAD033
Descrição breve incluída (58 caracteres), idioma: PT
"Siscoserv - Associação Pagamento/Recebimento - Tp Processo"
Classe de desenvolvimento: /PWS/ZYCA
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "B"
Texto incluído, idioma: PT (6 caracteres):
"Boleto"
Incluído valor fixo "D"
Texto incluído, idioma: PT (18 caracteres):
"Documento Contábil"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYCAD032
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYCAD032
-Valores individuais
Incluído valor fixo "C"
Texto incluído, idioma: PT (55 caracteres):
"Associação Pagamento/Recebimento com RAS/RVS sem Origem"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCAL069
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCAL069
Classe de desenvolvimento: /PWS/ZYCA
Idioma original: PT
Descrição breve incluída: (58 caracteres), idioma: PT
"Siscoserv - Associação Pagamento/Recebimento - Tp Processo"
Categoria de dados: Domínio
Domínio: /PWS/ZYCAD033
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. Proc."
Comprimento máximo do denominador médio: 16
Denominador médio incluído (16 caracteres), idioma: PT
"Tipo de Processo"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (16 caracteres), idioma: PT
"Tipo de Processo"
Comprimento máximo do título: 16
Título incluído (16 caracteres), idioma: PT
"Tipo de Processo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCAA184
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCAA184
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCAGF
TEXTO BREVE: Exit Ajuda Pesquisa Documentos Associação Pgto/Receb.
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE FUNÇÃO NORMAL
(_) - MÓDULO DE ACESSO REMOTO
(_) - MÓDULO DE ATUALIZAÇÃO
(X) - INÍCIO IMEDIATO
(_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.
(_) - INÍC. RETARDADO
(_) - PROCES. CLOETIVO
DADOS GERAIS:
(_) - BLOQUEIO PROCESSO
(_) - GLOBAL
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
EXPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA TRANSF. TEXTO BREVE
MODIFIC.:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
CALLCONTROL LIKE DDSHF4CTRL ' ' ' ' 'X'
SHLP TYPE SHLP_DESCR_T ' ' ' ' 'X'
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
RECORD_TAB LIKE SEAHLPRES ' '
SHLP_TAB TYPE SHLP_DESCR_TAB_T ' '
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
* >> Início Código Fonte:
FUNCTION /PWS/ZYCAA184.
TYPES:
BEGIN OF ty_dados,
bukrs TYPE bsak-bukrs,
lifnr TYPE bsak-lifnr,
augdt TYPE bsak-augdt,
augbl TYPE bsak-augbl,
gjahr TYPE bsak-gjahr,
belnr TYPE bsak-belnr,
waers TYPE bsak-waers,
dmbtr TYPE bsak-dmbtr,
END OF ty_dados.
DATA: itab_dados TYPE STANDARD TABLE OF ty_dados,
itab_zycat039 TYPE STANDARD TABLE OF /pws/zycat039,
v_tabix TYPE sy-tabix,
v_fieldname TYPE dfies-lfieldname,
v_belnr_co TYPE /pws/zycbt108-belnr_co.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> TYPE ty_dados,
<fs_dados_aux> TYPE ty_dados,
<fs_record_tab> TYPE seahlpres,
<fs_zycat039> TYPE /pws/zycat039.
IF callcontrol-step = 'DISP' OR
callcontrol-step = 'PRESEL'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'BUKRS' OR
<fs_fielddescr>-fieldname = 'LIFNR' OR
<fs_fielddescr>-fieldname = 'AUGDT' OR
<fs_fielddescr>-fieldname = 'AUGBL' OR
<fs_fielddescr>-fieldname = 'GJAHR' OR
<fs_fielddescr>-fieldname = 'BELNR' OR
<fs_fielddescr>-fieldname = 'WAERS' OR
<fs_fielddescr>-fieldname = 'WRBTR'.
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_dados
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
IF NOT itab_dados[] IS INITIAL.
SELECT * FROM /pws/zycat039
INTO TABLE itab_zycat039
FOR ALL ENTRIES IN itab_dados
WHERE fatura = itab_dados-augbl
AND gjahr = itab_dados-gjahr.
LOOP AT itab_dados ASSIGNING <fs_dados>.
v_tabix = sy-tabix.
IF <fs_dados>-augbl = <fs_dados>-belnr.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
READ TABLE itab_zycat039 ASSIGNING <fs_zycat039>
WITH KEY fatura = <fs_dados>-augbl
gjahr = <fs_dados>-gjahr.
IF sy-subrc EQ 0.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCAA183
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCAA183
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCAGF
TEXTO BREVE: Exit Ajuda Pesquisa Documentos Associação Pgto/Receb.
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE FUNÇÃO NORMAL
(_) - MÓDULO DE ACESSO REMOTO
(_) - MÓDULO DE ATUALIZAÇÃO
(X) - INÍCIO IMEDIATO
(_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.
(_) - INÍC. RETARDADO
(_) - PROCES. CLOETIVO
DADOS GERAIS:
(_) - BLOQUEIO PROCESSO
(_) - GLOBAL
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
EXPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA TRANSF. TEXTO BREVE
MODIFIC.:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
CALLCONTROL LIKE DDSHF4CTRL ' ' ' ' 'X'
SHLP TYPE SHLP_DESCR_T ' ' ' ' 'X'
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
RECORD_TAB LIKE SEAHLPRES ' '
SHLP_TAB TYPE SHLP_DESCR_TAB_T ' '
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
* >> Início Código Fonte:
FUNCTION /pws/zycaa183.
TYPES:
BEGIN OF ty_dados,
bukrs TYPE bsad-bukrs,
kunnr TYPE bsad-kunnr,
augdt TYPE bsad-augdt,
augbl TYPE bsad-augbl,
gjahr TYPE bsad-gjahr,
belnr TYPE bsad-belnr,
waers TYPE bsad-waers,
dmbtr TYPE bsad-dmbtr,
END OF ty_dados.
DATA: itab_dados TYPE STANDARD TABLE OF ty_dados,
itab_zycat039 TYPE STANDARD TABLE OF /pws/zycat039,
v_tabix TYPE sy-tabix,
v_fieldname TYPE dfies-lfieldname,
v_belnr_co TYPE /pws/zycbt108-belnr_co.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> TYPE ty_dados,
<fs_dados_aux> TYPE ty_dados,
<fs_record_tab> TYPE seahlpres,
<fs_zycat039> TYPE /pws/zycat039.
IF callcontrol-step = 'DISP' OR
callcontrol-step = 'PRESEL'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'BUKRS' OR
<fs_fielddescr>-fieldname = 'KUNNR' OR
<fs_fielddescr>-fieldname = 'AUGDT' OR
<fs_fielddescr>-fieldname = 'AUGBL' OR
<fs_fielddescr>-fieldname = 'GJAHR' OR
<fs_fielddescr>-fieldname = 'BELNR' OR
<fs_fielddescr>-fieldname = 'WAERS' OR
<fs_fielddescr>-fieldname = 'WRBTR'.
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_dados
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
IF NOT itab_dados[] IS INITIAL.
SELECT * FROM /pws/zycat039
INTO TABLE itab_zycat039
FOR ALL ENTRIES IN itab_dados
WHERE fatura = itab_dados-augbl
AND gjahr = itab_dados-gjahr.
LOOP AT itab_dados ASSIGNING <fs_dados>.
v_tabix = sy-tabix.
IF <fs_dados>-augbl = <fs_dados>-belnr.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
READ TABLE itab_zycat039 ASSIGNING <fs_zycat039>
WITH KEY fatura = <fs_dados>-augbl
gjahr = <fs_dados>-gjahr.
IF sy-subrc EQ 0.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCAA182
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCAA182
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCAGF
TEXTO BREVE: Exit Ajuda Pesquisa Boletos Associação Pgto/Receb.
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE FUNÇÃO NORMAL
(_) - MÓDULO DE ACESSO REMOTO
(_) - MÓDULO DE ATUALIZAÇÃO
(X) - INÍCIO IMEDIATO
(_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.
(_) - INÍC. RETARDADO
(_) - PROCES. CLOETIVO
DADOS GERAIS:
(_) - BLOQUEIO PROCESSO
(_) - GLOBAL
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
EXPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA TRANSF. TEXTO BREVE
MODIFIC.:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
CALLCONTROL LIKE DDSHF4CTRL ' ' ' ' 'X'
SHLP TYPE SHLP_DESCR_T ' ' ' ' 'X'
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
RECORD_TAB LIKE SEAHLPRES ' '
SHLP_TAB TYPE SHLP_DESCR_TAB_T ' '
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
* >> Início Código Fonte:
FUNCTION /pws/zycaa182.
TYPES:
BEGIN OF ty_dados,
nrseq TYPE /pws/zycbt134-nrseq,
waers TYPE /pws/zycbt134-waers,
vlme TYPE /pws/zycbt134-vlme,
lifnr TYPE /pws/zycbt134-lifnr,
mdcorresp TYPE /pws/zycbt134-mdcorresp,
nrcorresp TYPE /pws/zycbt134-nrcorresp,
tipo TYPE /pws/zycbt134-tipo,
END OF ty_dados.
DATA: itab_dados TYPE STANDARD TABLE OF ty_dados,
itab_zycat039 TYPE STANDARD TABLE OF /pws/zycat039,
v_tabix TYPE sy-tabix,
v_fieldname type dfies-lfieldname,
v_belnr_co type /pws/zycbt108-belnr_co.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> TYPE ty_dados,
<fs_dados_aux> TYPE ty_dados,
<fs_record_tab> TYPE seahlpres,
<fs_zycat039> TYPE /pws/zycat039.
CLEAR callcontrol-maxrecords.
IF callcontrol-step = 'DISP' OR
callcontrol-step = 'PRESEL'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'NRSEQ' OR
<fs_fielddescr>-fieldname = 'WAERS' OR
<fs_fielddescr>-fieldname = 'VLME' OR
<fs_fielddescr>-fieldname = 'LIFNR' OR
<fs_fielddescr>-fieldname = 'MDCORRESP' OR
<fs_fielddescr>-fieldname = 'NRCORRESP' OR
<fs_fielddescr>-fieldname = 'TIPO'.
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_dados
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
IF NOT itab_dados[] IS INITIAL.
SELECT * FROM /pws/zycat039
INTO TABLE itab_zycat039
FOR ALL ENTRIES IN itab_dados
WHERE fatura = itab_dados-nrseq.
LOOP AT itab_dados ASSIGNING <fs_dados>.
v_tabix = sy-tabix.
READ TABLE itab_zycat039 ASSIGNING <fs_zycat039>
WITH KEY fatura = <fs_dados>-nrseq.
IF sy-subrc EQ 0.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
ELSE.
IF <fs_dados>-mdcorresp = 'IP'.
CLEAR v_belnr_co.
SELECT SINGLE belnr_co
FROM /pws/zycbt108
INTO v_belnr_co
WHERE nrseq_pgfat = <fs_dados>-nrcorresp.
IF NOT v_belnr_co IS INITIAL.
DELETE itab_dados INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCAA185
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCAA185
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCAGF
TEXTO BREVE: Exit Ajuda Pesquisa Documentos Associação Pgto/Receb.
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE FUNÇÃO NORMAL
(_) - MÓDULO DE ACESSO REMOTO
(_) - MÓDULO DE ATUALIZAÇÃO
(X) - INÍCIO IMEDIATO
(_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.
(_) - INÍC. RETARDADO
(_) - PROCES. CLOETIVO
DADOS GERAIS:
(_) - BLOQUEIO PROCESSO
(_) - GLOBAL
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
EXPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA TRANSF. TEXTO BREVE
MODIFIC.:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
CALLCONTROL LIKE DDSHF4CTRL ' ' ' ' 'X'
SHLP TYPE SHLP_DESCR_T ' ' ' ' 'X'
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
RECORD_TAB LIKE SEAHLPRES ' '
SHLP_TAB TYPE SHLP_DESCR_TAB_T ' '
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
* >> Início da inclusão:
FUNCTION /pws/zycaa185.
TYPES:
BEGIN OF ty_dados,
bukrs TYPE bsad-bukrs,
kunnr TYPE bsad-kunnr,
augdt TYPE bsad-augdt,
augbl TYPE bsad-augbl,
gjahr TYPE bsad-gjahr,
belnr TYPE bsad-belnr,
waers TYPE bsad-waers,
dmbtr TYPE bsad-dmbtr,
END OF ty_dados.
DATA: itab_dados TYPE STANDARD TABLE OF ty_dados,
v_fieldname TYPE dfies-lfieldname,
v_belnr type bkpf-belnr,
v_bukrs type bkpf-bukrs,
v_gjahr type bkpf-gjahr.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> TYPE ty_dados,
<fs_record_tab> TYPE seahlpres.
IF callcontrol-step = 'RETTOP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'BUKRS' OR
<fs_fielddescr>-fieldname = 'KUNNR' OR
<fs_fielddescr>-fieldname = 'LIFNR' OR
<fs_fielddescr>-fieldname = 'AUGDT' OR
<fs_fielddescr>-fieldname = 'AUGBL' OR
<fs_fielddescr>-fieldname = 'GJAHR' OR
<fs_fielddescr>-fieldname = 'BELNR' OR
<fs_fielddescr>-fieldname = 'WAERS' OR
<fs_fielddescr>-fieldname = 'WRBTR'.
v_fieldname = <fs_fielddescr>-fieldname.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_dados
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
parameter_unknown = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
UNASSIGN: <fs_shlp>, <fs_fielddescr>.
IF NOT itab_dados[] IS INITIAL.
READ TABLE ITAB_DADOS ASSIGNING <FS_DADOS> INDEX 1.
IF <FS_DADOS> IS ASSIGNED.
MOVE: <FS_DADOS>-AUGBL TO V_BELNR,
<FS_DADOS>-BUKRS TO V_BUKRS,
<FS_DADOS>-GJAHR TO V_GJAHR.
EXPORT V_BELNR TO MEMORY ID 'BELNR'.
EXPORT V_BUKRS TO MEMORY ID 'BUKRS'.
EXPORT V_GJAHR TO MEMORY ID 'GJAHR'.
ENDIF.
ENDIF.
ENDIF.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIEW /PWS/ZYCAV010
CRIAR VISAO : /PWS/ZYCAV010
DESCRIÇÃO BREVE: Siscoserv - Boletos de Remessa e Fat. Importação
CLASSE DESENVOLVIMENTO: /PWS/ZYCA
TABELAS/CONDIÇÕES JOIN
TABELAS: CONDIÇÕES JOIN:
/PWS/ZYCBT134 TABELA NOME CPO = TABELA NOME CPO
CPOS. VISÃO
CAMPO VISÃO: NOME TAB: NOME CAMPO: MOD:
MANDT /PWS/ZYCBT134 MANDT ' '
NRSEQ /PWS/ZYCBT134 NRSEQ ' '
WAERS /PWS/ZYCBT134 WAERS ' '
VLME /PWS/ZYCBT134 VLME ' '
LIFNR /PWS/ZYCBT134 LIFNR ' '
MDCORRESP /PWS/ZYCBT134 MDCORRESP ' '
NRCORRESP /PWS/ZYCBT134 NRCORRESP ' '
TIPO /PWS/ZYCBT134 TIPO ' '
CONDIÇÕES DE SELEÇÃO
TABELA: NOME CPO.: OPERADOR: VL COMP: AND/OR
/PWS/ZYCBT134 MDCORRESP EQ 'IP' OR
/PWS/ZYCBT134 MDCORRESP EQ 'CP' AND
/PWS/ZYCBT134 TPPROC EQ 'PRINCIPAL' OR
/PWS/ZYCBT134 TPPROC EQ ' '
STATUS AT.
ACESSO:
(X) - SÓ LER
(_) - LER E MODIFICAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCAA182
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCAA182
DESCRIÇÃO BREVE: Siscoserv - Boletos de Remessa e Fat. Importação
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: /PWS/ZYCAV010
COMPORTAMENTO DE DIÁLOGO:
TIPO DE DIÁLOGO: Exibição de Valores Imediata
HOT KEY: ' '
EXIT AJUD. PESQUISA: /PWS/ZYCAA182
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
NRSEQ ' ' 'X' 1 1 ' ' /PWS/ZYCBL222 ' ' ' '
WAERS ' ' ' ' 2 2 ' ' WAERS ' ' ' '
VLME ' ' ' ' 3 3 ' ' WRBTR ' ' ' '
LIFNR ' ' ' ' 4 4 ' ' LIFRE ' ' ' '
MDCORRESP ' ' ' ' 5 5 ' ' /PWS/ZYCBL138 ' ' ' '
NRCORRESP ' ' ' ' 6 6 ' ' /PWS/ZYCBL204 ' ' ' '
TIPO ' ' ' ' 7 7 ' ' CHAR30 ' ' ' '
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCAA183
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCAA183
DESCRIÇÃO BREVE: Siscoserv - Documento Compensação Cliente
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: BSAD
COMPORTAMENTO DE DIÁLOGO:
TIPO DE DIÁLOGO: Diálogo com Restrição de Valores
HOT KEY: ' '
EXIT AJUD. PESQUISA: /PWS/ZYCAA183
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
BUKRS ' ' 'X' 1 1 ' ' BUKRS ' ' ' '
KUNNR ' ' 'X' 2 2 ' ' KUNNR ' ' ' '
AUGDT ' ' 'X' 3 3 ' ' AUGDT ' ' ' '
AUGBL ' ' 'X' 4 4 ' ' AUGBL ' ' ' '
GJAHR ' ' 'X' 5 5 ' ' GJAHR ' ' ' '
BELNR ' ' 'X' 6 6 ' ' BELNR_D ' ' ' '
WAERS ' ' 'X' 7 7 ' ' WAERS ' ' ' '
WRBTR ' ' 'X' 8 8 ' ' WRBTR ' ' ' '
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCAA184
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCAA184
DESCRIÇÃO BREVE: Siscoserv - Documento Compensação Fornecedor
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO: BSAK
COMPORTAMENTO DE DIÁLOGO:
TIPO DE DIÁLOGO: Diálogo com Restrição de Valores
HOT KEY: ' '
EXIT AJUD. PESQUISA: /PWS/ZYCAA184
PARÂMETROS:
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
BUKRS ' ' 'X' 1 1 ' ' BUKRS ' ' ' '
LIFNR ' ' 'X' 2 2 ' ' LIFNR ' ' ' '
AUGDT ' ' 'X' 3 3 ' ' AUGDT ' ' ' '
AUGBL ' ' 'X' 4 4 ' ' AUGBL ' ' ' '
GJAHR ' ' 'X' 5 5 ' ' GJAHR ' ' ' '
BELNR ' ' 'X' 6 6 ' ' BELNR_D ' ' ' '
WAERS ' ' 'X' 7 7 ' ' WAERS ' ' ' '
WRBTR ' ' 'X' 8 8 ' ' WRBTR ' ' ' '
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLP /PWS/ZYCAA185
CRIAR AJUDA DE PESQUISA COLETIVA: /PWS/ZYCAA185
DESCRIÇÃO BREVE: Siscoserv - Associação Pgto/Recebimento (Doc. Contábil)
DEFINIÇÃO
EXIT AJUD. PESQUISA: /PWS/ZYCAA185
PARÂMETROS:
PARAM. IMP EXP ELEM. DADOS VALOR PROPOSTO
BUKRS ' ' 'X' BUKRS ' '
RECREM ' ' ' ' /PWS/ZYCBL255 ' '
AUGDT ' ' ' ' AUGDT ' '
AUGBL ' ' 'X' AUGBL ' '
GJAHR ' ' 'X' GJAHR ' '
BELNR ' ' ' ' BELNR_D ' '
WAERS ' ' ' ' WAERS ' '
WRBTR ' ' ' ' WRBTR ' '
AJUDA DE PESQUISA INCLUÍDAS
/PWS/ZYCAA183
/PWS/ZYCAA184
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCA012
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012TOP
...
begin of ty_awkey,
awkey type bkpf-awkey,
end of ty_awkey,
begin of ty_bsad,
vbeln type bsad-vbeln,
augdt type bsad-augdt,
augbl type bsad-augbl,
waers type bsad-waers,
gjahr type bsad-gjahr,
wrbtr type bsad-wrbtr,
* >> Início da exclusão:
end of ty_bsad.
* << Fim da exclusão
* >> Início da inclusão:
END OF ty_bsad,
begin of ty_saldo_oper,
nrseq type /pws/zycat031-nrseq,
operacao type /pws/zycat031-operacao,
saldo type /pws/zycat031-saldo,
end of ty_saldo_oper.
* << Fim da inclusão
tables: /pws/zycat030,
/pws/zycat031,
/pws/zycat037,
/pws/zycat038,
/pws/zycat039,
* >> Início da inclusão:
/pws/zycbt031,
/pws/zycbt124,
bsad,
* << Fim da inclusão
bkpf.
include /pws/z_rel_alv.
data: begin of rs_result,
tp_processo like /pws/zycat030-tp_processo,
nrseq_origem like /pws/zycat031-nrseq_origem,
waers like /pws/zycat031-waers,
valor like /pws/zycat031-valor,
saldo like /pws/zycat031-saldo,
nrseq like /pws/zycat039-nrseq,
operacao like /pws/zycat039-operacao,
...
...
data: end of itab_zycat039_ass.
data: begin of itab_zycat031_ass occurs 0.
include structure /pws/zycat031.
data: bukrs like /pws/zycat030-bukrs,
bukrs_ext like /pws/zycat030-bukrs_ext,
tp_processo like /pws/zycat030-tp_processo,
tp_origem like /pws/zycat030-tp_origem,
re like /pws/zycat039-re,
di like /pws/zycat039-di,
pagamento type c,
* >> Início da inclusão:
num_nf type /pws/zycat039-num_nf,
* << Fim da inclusão
mark.
data: end of itab_zycat031_ass.
data: wa_zycat039a like itab_zycat031_ass.
data: v_okcode type sy-ucomm,
v_exibe type c,
v_screen type sy-dynnr,
v_dynnr type sy-dynnr,
v_nbs type /pws/zycat041-descricao,
v_operacao type /pws/zycat039-operacao,
v_mark type c,
...
...
v_funcionalidade type /pws/zyglt390-programa
value '/PWS/SAPMZYCA012',
v_identificador type /pws/zyglt390-identificador,
v_saldo_assoc type bseg-wrbtr,
v_saldo_disp type bseg-wrbtr,
v_saldo_aux type bseg-wrbtr,
v_wrbtr_fat type bseg-wrbtr,
v_nrboleto type /pws/zycbt064-nrboleto,
v_dom_tporigem type /pws/zycal067,
v_titulo(90) type c,
* >> Início da exclusão:
v_ravs_pago value 'X'.
* << Fim da exclusão
* >> Início da inclusão:
v_ravs_pago VALUE 'X',
v_processo(20) TYPE c,
v_tpprocesso TYPE /pws/zycat030-tp_processo,
v_parceiro TYPE bsad-kunnr,
v_name TYPE kna1-name1,
wa_zycbt134 TYPE /pws/zycbt134,
v_dom_pgtorec TYPE /pws/zycal069,
v_saldo type /pws/zycat031-saldo.
data: itab_saldo_oper type table of ty_saldo_oper.
* << 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',
* >> Início da exclusão:
tc_associacao type tableview using screen '0200'.
* << Fim da exclusão
* >> Início da inclusão:
tc_associacao TYPE TABLEVIEW USING SCREEN '0200',
tc_pgto_receb TYPE TABLEVIEW USING SCREEN '0300'.
* << Fim da inclusão
selection-screen begin of screen 0005 as subscreen.
selection-screen begin of block bl1 with frame title text-001.
selection-screen comment /3(60) text-003.
selection-screen end of block bl1.
selection-screen begin of block bl2 with frame title text-002.
select-options: so_empr for /pws/zycat030-bukrs,
so_nrseq for /pws/zycat039-nrseq,
so_oper for /pws/zycat039-operacao,
so_dtini for /pws/zycat031-data_ini,
so_dtfim for /pws/zycat031-data_fim,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012F01
...
endloop.
endform.
form user_command_0003.
case v_okcode.
when 'ENTE'.
clear v_okcode.
if v_dom_tporigem = 'A'.
call screen '0001'.
elseif v_dom_tporigem = 'B'.
call screen '0004'.
* >> Início da inclusão: FORM USER_COMMAND_0003
elseif v_dom_tporigem = 'C'.
set screen '0006'.
leave screen.
* << Fim da inclusão
endif.
endcase.
endform.
form user_command_0004.
case v_okcode.
when 'EXEC'.
perform busca_ras_rvs_associacao.
endcase.
endform.
form user_command_0200.
...
...
form atualiza_tela_assoc using
p_itab_zycat031_ass structure itab_zycat031_ass
p_wa_zycat039a structure itab_zycat031_ass.
move-corresponding p_itab_zycat031_ass to p_wa_zycat039a.
move p_wa_zycat039a-mark to v_mark.
endform.
form atualiza_itab_assoc
tables p_itab_zycat031_ass structure itab_zycat031_ass
using p_wa_zycat031a structure itab_zycat031_ass
p_tc type cx_tableview.
* >> Início da inclusão: FORM ATUALIZA_ITAB_ASSOC
data: wa_saldo_oper type ty_saldo_oper.
* << Fim da inclusão
move-corresponding p_wa_zycat031a to p_itab_zycat031_ass.
move: v_mark to p_itab_zycat031_ass-mark.
* >> Início da inclusão: FORM ATUALIZA_ITAB_ASSOC
if not v_dom_pgtorec is initial.
read table itab_saldo_oper into wa_saldo_oper
with key nrseq = p_itab_zycat031_ass-nrseq
operacao = p_itab_zycat031_ass-operacao.
if not p_itab_zycat031_ass-valor is initial.
p_itab_zycat031_ass-saldo =
wa_saldo_oper-saldo - p_itab_zycat031_ass-valor.
p_itab_zycat031_ass-mark = 'X'.
elseif p_itab_zycat031_ass-valor is initial.
p_itab_zycat031_ass-saldo = wa_saldo_oper-saldo.
clear p_itab_zycat031_ass-mark.
endif.
endif.
* << Fim da inclusão
if not p_tc-current_line is initial.
modify p_itab_zycat031_ass index p_tc-current_line.
endif.
endform.
form processar_associacao_massa.
data: v_processo type /pws/zycat038-processo,
v_val_total type /pws/zycat031-valor,
v_tabix type sy-tabix,
v_answer.
clear itab_zycat039.
...
...
i_result-waers = itab_zycat031_ass-waers.
i_result-valor = itab_zycat031_ass-valor.
i_result-saldo = itab_zycat031_ass-saldo.
i_result-nrseq = itab_zycat031_ass-nrseq.
i_result-operacao = itab_zycat031_ass-operacao.
i_result-tp_origem = itab_zycat031_ass-tp_origem.
i_result-re = itab_zycat031_ass-re.
i_result-di = itab_zycat031_ass-di.
i_result-status = itab_zycat031_ass-status.
append i_result.
* >> Início da inclusão: FORM PROCESSAR_ASSOCIACAO_MASSA
if v_dom_tporigem ne 'C'.
* << Fim da inclusão
delete itab_zycat031_ass index v_tabix.
* >> Início da inclusão: FORM PROCESSAR_ASSOCIACAO_MASSA
endif.
* << Fim da inclusão
endloop.
commit work.
clear v_okcode.
message s015 with text-s02.
perform e04_comment_build using gt_list_top_of_page[].
perform f_fieldcat_fill.
...
...
afield-col_pos = i.
afield-fieldname = 'TP_PROCESSO'.
afield-ref_fieldname = 'TP_PROCESSO'.
afield-ref_tabname = '/PWS/ZYCAT030'.
afield-outputlen = 3.
afield-reptext_ddic = text-006.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
append afield to i_fieldcat.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
if v_dom_tporigem ne 'C'.
* << Fim da inclusão
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'NRSEQ_ORIGEM'.
afield-ref_fieldname = 'NRSEQ_ORIGEM'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 15.
afield-hotspot = 'X'.
afield-reptext_ddic = text-007.
afield-seltext_s = text-007.
afield-seltext_m = text-007.
afield-seltext_l = text-007.
append afield to i_fieldcat.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
endif.
* << Fim da inclusão
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'WAERS'.
afield-ref_fieldname = 'WAERS'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 6.
afield-reptext_ddic = text-008.
afield-seltext_s = text-008.
afield-seltext_m = text-008.
afield-seltext_l = text-008.
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'VALOR'.
afield-ref_fieldname = 'VALOR'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 17.
afield-cfieldname = 'WAERS'.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
if v_dom_tporigem ne 'C'.
* << Fim da inclusão
afield-reptext_ddic = text-009.
afield-seltext_s = text-009.
afield-seltext_m = text-009.
afield-seltext_l = text-009.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
else.
afield-reptext_ddic = text-021.
afield-seltext_s = text-021.
afield-seltext_m = text-021.
afield-seltext_l = text-021.
endif.
* << Fim da inclusão
append afield to i_fieldcat.
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'SALDO'.
afield-ref_fieldname = 'SALDO'.
afield-ref_tabname = '/PWS/ZYCAT031'.
afield-outputlen = 17.
afield-cfieldname = 'WAERS'.
afield-reptext_ddic = text-010.
...
...
afield-col_pos = i.
afield-fieldname = 'OPERACAO'.
afield-ref_fieldname = 'OPERACAO'.
afield-ref_tabname = '/PWS/ZYCAT039'.
afield-outputlen = 15.
afield-reptext_ddic = text-012.
afield-seltext_s = text-012.
afield-seltext_m = text-012.
afield-seltext_l = text-012.
append afield to i_fieldcat.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
if v_dom_tporigem ne 'C'.
* << Fim da inclusão
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'TP_ORIGEM'.
afield-ref_fieldname = 'TP_ORIGEM'.
afield-ref_tabname = '/PWS/ZYCAT030'.
afield-outputlen = 15.
afield-reptext_ddic = text-013.
afield-seltext_s = text-013.
afield-seltext_m = text-013.
afield-seltext_l = text-013.
append afield to i_fieldcat.
* >> Início da inclusão: FORM F_FIELDCAT_FILL
endif.
* << Fim da inclusão
i = i + 5.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RE'.
afield-ref_fieldname = 'RE'.
afield-ref_tabname = '/PWS/ZYCAT039'.
afield-outputlen = 15.
afield-reptext_ddic = text-014.
afield-seltext_s = text-014.
afield-seltext_m = text-014.
...
...
endif.
set parameter id 'BES' field ''.
endif.
endif.
endif.
clear feld.
when '%EX'.
leave program.
endcase.
endform.
* >> Início da inclusão:
form user_command_0006.
case v_okcode.
when 'BACK'.
clear: v_okcode, v_dom_tporigem, v_dom_pgtorec,
bkpf-belnr, bkpf-bukrs, bkpf-gjahr, v_nrboleto.
set screen 0003.
leave screen.
when 'ENTER'.
case v_dom_pgtorec.
when 'B'.
perform trata_boleto.
when 'D'.
perform trata_belnr.
endcase.
endcase.
endform.
form trata_boleto.
data: v_belnrco type /pws/zycbt108-belnr_co,
v_tpcliente type /pws/zycbt124-tpcliente.
select single * from /pws/zycbt134
into wa_zycbt134
where nrseq = v_nrboleto
and ( ( mdcorresp = 'CP' and
tpproc = 'PRINCIPAL' or
tpproc = ' ' )
or mdcorresp = 'IP' ).
if sy-subrc ne 0.
message i061 with text-e34 text-e35 text-e36.
clear v_okcode.
exit.
else.
if wa_zycbt134-mdcorresp = 'IP'.
select single belnr_co from /pws/zycbt108
into v_belnrco
where nrseq_pgfat = wa_zycbt134-nrcorresp.
if not v_belnrco is initial.
message i061 with text-e34 text-e35 text-e36.
clear v_okcode.
exit.
endif.
endif.
endif.
select single * from /pws/zycat039
into wa_zycat039
where fatura = v_nrboleto.
if sy-subrc eq 0.
clear v_okcode.
message i015 with text-e08.
exit.
endif.
clear wa_zycat039.
move: wa_zycbt134-nrseq to bkpf-belnr,
wa_zycbt134-bukrs to bkpf-bukrs,
wa_zycbt134-waers to bsad-waers,
wa_zycbt134-vlme to bsad-wrbtr,
wa_zycbt134-dtlanc to bsad-augdt,
wa_zycbt134-vlme to v_saldo,
wa_zycbt134-nrcorresp to /pws/zycbt031-nrcorresp,
wa_zycbt134-mdcorresp to /pws/zycbt031-mdcorresp,
text-017 to v_processo.
select single tipo
from /pws/zycbt031
into /pws/zycbt031-tipo
where nrseq = wa_zycbt134-nrseq.
case wa_zycbt134-mdcorresp.
when 'CP'.
select single j_1bbranch tpoper recrem tpcliente
from /pws/zycbt124
into (/pws/zycbt124-j_1bbranch, /pws/zycbt124-tpoper,
bsad-kunnr, v_tpcliente)
where nrseq = wa_zycbt134-nrcorresp.
case v_tpcliente.
when 'C'.
select single name1
from kna1
into v_name
where kunnr = bsad-kunnr.
move text-019 to v_parceiro.
when 'F'.
select single name1
from lfa1
into v_name
where lifnr = bsad-kunnr.
move text-020 to v_parceiro.
endcase.
case /pws/zycbt124-tpoper.
when 'P'.
v_tpprocesso = 'A'.
when 'R'.
v_tpprocesso = 'V'.
endcase.
when 'IP'.
select single j_1bbranch lifnr
from /pws/zycbt119
into (/pws/zycbt124-j_1bbranch, bsad-kunnr)
where nrseq = wa_zycbt134-nrcorresp.
select single name1
from lfa1
into v_name
where kunnr = bsad-kunnr.
move: text-020 to v_parceiro,
'A' to v_tpprocesso.
endcase.
perform seleciona_ras_rvs.
if not itab_zycat031_ass[] is initial.
set screen '0300'.
leave screen.
endif.
endform.
form trata_belnr.
data: itab_bsad type table of bsad,
itab_bsak type table of bsak,
wa_bsad type bsad,
wa_bsak type bsak.
select * from bsad
into table itab_bsad
where bukrs = bkpf-bukrs
and augbl = bkpf-belnr.
if sy-subrc ne 0.
select * from bsak
into table itab_bsak
where bukrs = bkpf-bukrs
and augbl = bkpf-belnr.
if sy-subrc ne 0.
message i015 with text-e37 text-e38.
clear v_okcode.
exit.
else.
delete itab_bsak where augdt(4) ne bkpf-gjahr.
loop at itab_bsak into wa_bsak.
if wa_bsak-augbl = wa_bsak-belnr.
delete itab_bsak index sy-tabix.
endif.
endloop.
if itab_bsak[] is initial.
message i015 with text-e37 text-e38.
clear v_okcode.
exit.
endif.
endif.
else.
delete itab_bsad where augdt(4) ne bkpf-gjahr.
loop at itab_bsad into wa_bsad.
if wa_bsad-augbl = wa_bsad-belnr.
delete itab_bsad index sy-tabix.
endif.
endloop.
if itab_bsad[] is initial.
message i015 with text-e37 text-e38.
clear v_okcode.
exit.
endif.
endif.
select single * from /pws/zycat039
into wa_zycat039
where fatura = bkpf-belnr
and gjahr = bkpf-gjahr.
if sy-subrc eq 0.
clear v_okcode.
message i015 with text-e08.
exit.
endif.
clear wa_zycat039.
loop at itab_bsak into wa_bsak.
move: wa_bsak-bupla to /pws/zycbt124-j_1bbranch,
wa_bsak-waers to bsad-waers,
wa_bsak-lifnr to bsad-kunnr,
'A' to v_tpprocesso,
text-018 to v_processo.
bsad-wrbtr = v_saldo = bsad-wrbtr + wa_bsak-wrbtr.
if v_name is initial.
select single name1 from lfa1
into v_name
where lifnr = bsad-kunnr.
endif.
if v_parceiro is initial.
move text-020 to v_parceiro.
endif.
endloop.
if sy-subrc ne 0.
loop at itab_bsad into wa_bsad.
move: wa_bsad-bupla to /pws/zycbt124-j_1bbranch,
wa_bsad-waers to bsad-waers,
wa_bsad-kunnr to bsad-kunnr,
wa_bsad-augdt to bsad-augdt,
'V' to v_tpprocesso,
text-018 to v_processo.
bsad-wrbtr = v_saldo = bsad-wrbtr + wa_bsad-wrbtr.
if v_name is initial.
select single name1 from kna1
into v_name
where kunnr = bsad-kunnr.
endif.
if v_parceiro is initial.
move text-019 to v_parceiro.
endif.
endloop.
endif.
perform seleciona_ras_rvs.
if not itab_zycat031_ass[] is initial.
set screen '0300'.
leave screen.
endif.
endform.
form user_command_0300.
case v_okcode.
when 'BACK'.
perform limpa_pgto_receb.
set screen '0006'.
leave screen.
when 'SEL'.
perform trata_drill_down.
when 'MALL'.
perform mark_dmark using 'X'.
when 'DALL'.
perform mark_dmark using ' '.
when 'SAVE'.
perform save_pgto_receb.
endcase.
endform.
form trata_drill_down.
data: v_field(25) type c,
v_line type i,
v_origem type c,
wa_zycbt031a type /pws/zycbe031.
get cursor field v_field line v_line.
case v_field.
when 'BKPF-BELNR'.
case v_processo.
when text-017.
authority-check object 'S_TCODE'
id 'TCD' field '/PWS/ZYCB110_A'.
if sy-subrc eq 0.
select single * from /pws/zycbt031
into wa_zycbt031a
where nrseq = bkpf-belnr.
v_origem = 'X'.
export v_origem wa_zycbt031a to memory id '010'.
call transaction '/PWS/ZYCB110_A'.
else.
message e261(sf) with '/PWS/ZYCB110_A'.
endif.
when text-018.
set parameter id 'BUK' field bkpf-bukrs.
set parameter id 'BLN' field bkpf-belnr.
set parameter id 'GJR' field bkpf-gjahr.
authority-check object 'S_TCODE'
id 'TCD' field 'FB03'.
if sy-subrc eq 0.
call transaction 'FB03' and skip first screen.
else.
message e261(sf) with 'FB03'.
endif.
endcase.
when '/PWS/ZYCBT031-NRCORRESP'.
case /pws/zycbt031-mdcorresp.
when 'CP'.
set parameter id '/PWS/ZYCBP001'
field /pws/zycbt031-nrcorresp.
call transaction '/PWS/ZYCB109_E' and skip first screen.
when 'IP'.
set parameter id '/PWS/ZYCBP344'
field /pws/zycbt031-nrcorresp.
call transaction '/PWS/ZYCB106_E' and skip first screen.
endcase.
when 'WA_ZYCAT039A-SALDO'.
v_line = tc_pgto_receb-top_line + v_line - 1.
read table itab_zycat031_ass index v_line.
check not itab_zycat031_ass-saldo is initial.
itab_zycat031_ass-valor = itab_zycat031_ass-saldo.
clear itab_zycat031_ass-saldo.
itab_zycat031_ass-mark = 'X'.
modify itab_zycat031_ass index v_line.
perform saldo_pgto_receb.
endcase.
clear v_okcode.
endform.
form seleciona_ras_rvs.
data: itab_zycat030 type table of /pws/zycat030,
wa_zycat030 type /pws/zycat030,
wa_saldo_oper type ty_saldo_oper.
clear: itab_zycat031_ass, itab_saldo_oper.
refresh: itab_zycat031_ass, itab_saldo_oper.
if /pws/zycbt124-j_1bbranch is initial.
select /pws/zycat030~mandt /pws/zycat030~bukrs
/pws/zycat030~bukrs_ext /pws/zycat030~tp_processo
/pws/zycat031~nrseq /pws/zycat031~operacao
/pws/zycat031~nbs /pws/zycat031~cod_pais
/pws/zycat031~modo_prest /pws/zycat031~data_ini
/pws/zycat031~data_fim /pws/zycat031~waers
/pws/zycat031~saldo
/pws/zycat031~origem /pws/zycat031~status
/pws/zycat031~ebelp /pws/zycat031~nrseq_origem
/pws/zycat031~despach /pws/zycat031~tpdesp
from ( /pws/zycat030 inner join /pws/zycat031
on /pws/zycat030~nrseq = /pws/zycat031~nrseq )
into corresponding fields of table itab_zycat031_ass
where /pws/zycat030~bukrs = bkpf-bukrs
and /pws/zycat030~tp_processo = v_tpprocesso
and /pws/zycat030~bukrs_ext = bsad-kunnr
and /pws/zycat030~waers = bsad-waers
and /pws/zycat030~tp_origem = ' '
and /pws/zycat031~status = 'PS'.
else.
select /pws/zycat030~mandt /pws/zycat030~bukrs
/pws/zycat030~bukrs_ext /pws/zycat030~tp_processo
/pws/zycat031~nrseq /pws/zycat031~operacao
/pws/zycat031~nbs /pws/zycat031~cod_pais
/pws/zycat031~modo_prest /pws/zycat031~data_ini
/pws/zycat031~data_fim /pws/zycat031~waers
/pws/zycat031~saldo
/pws/zycat031~origem /pws/zycat031~status
/pws/zycat031~ebelp /pws/zycat031~nrseq_origem
/pws/zycat031~despach /pws/zycat031~tpdesp
from ( /pws/zycat030 inner join /pws/zycat031
on /pws/zycat030~nrseq = /pws/zycat031~nrseq )
into corresponding fields of table itab_zycat031_ass
where /pws/zycat030~bukrs = bkpf-bukrs
and /pws/zycat030~j_1bbranch = /pws/zycbt124-j_1bbranch
and /pws/zycat030~tp_processo = v_tpprocesso
and /pws/zycat030~bukrs_ext = bsad-kunnr
and /pws/zycat030~waers = bsad-waers
and /pws/zycat030~tp_origem = ' '
and /pws/zycat031~status = 'PS'.
endif.
delete itab_zycat031_ass where saldo <= 0.
if itab_zycat031_ass[] is initial.
message i015 with text-e39 text-e40.
exit.
endif.
select * from /pws/zycat039
into table itab_zycat039
for all entries in itab_zycat031_ass
where nrseq = itab_zycat031_ass-nrseq
and operacao = itab_zycat031_ass-operacao.
loop at itab_zycat039 into wa_zycat039.
if not wa_zycat039-remessa is initial or
not wa_zycat039-fat_comis is initial or
not wa_zycat039-fat_imp is initial or
not wa_zycat039-fat_exp is initial.
delete itab_zycat031_ass
where nrseq = wa_zycat039-nrseq
and operacao = wa_zycat039-operacao.
endif.
endloop.
if itab_zycat031_ass[] is initial.
message i015 with text-e39 text-e40.
exit.
endif.
select * from /pws/zycat030
into table itab_zycat030_ass
for all entries in itab_zycat031_ass
where nrseq = itab_zycat031_ass-nrseq.
loop at itab_zycat031_ass.
move: itab_zycat031_ass-nrseq to wa_saldo_oper-nrseq,
itab_zycat031_ass-operacao to wa_saldo_oper-operacao,
itab_zycat031_ass-saldo to wa_saldo_oper-saldo.
append wa_saldo_oper to itab_saldo_oper.
endloop.
endform.
form mark_dmark using value(p_mark).
loop at itab_zycat031_ass.
itab_zycat031_ass-mark = p_mark.
if not p_mark is initial.
check not itab_zycat031_ass-saldo is initial.
itab_zycat031_ass-valor = itab_zycat031_ass-saldo.
clear itab_zycat031_ass-saldo.
else.
check not itab_zycat031_ass-valor is initial.
itab_zycat031_ass-saldo = itab_zycat031_ass-valor.
clear itab_zycat031_ass-valor.
endif.
modify itab_zycat031_ass.
endloop.
perform saldo_pgto_receb.
clear v_okcode.
endform.
form saldo_pgto_receb.
move bsad-wrbtr to v_saldo.
loop at itab_zycat031_ass where valor > 0.
v_saldo = v_saldo - itab_zycat031_ass-valor.
endloop.
endform.
form save_pgto_receb.
if not v_saldo is initial.
clear v_okcode.
message e015 with text-e41.
exit.
endif.
clear itab_zycat039_ass.
refresh itab_zycat039_ass.
loop at itab_zycat031_ass where mark = 'X'.
clear wa_zycat039.
itab_zycat031_ass-saldo =
itab_zycat031_ass-saldo + itab_zycat031_ass-valor.
modify itab_zycat031_ass.
move:
sy-mandt to wa_zycat039-mandt,
itab_zycat031_ass-nrseq to wa_zycat039-nrseq,
itab_zycat031_ass-operacao to wa_zycat039-operacao,
bkpf-belnr to wa_zycat039-fatura,
itab_zycat031_ass-num_nf to wa_zycat039-num_nf,
bsad-augdt to wa_zycat039-dt_pg_rec,
bsad-waers to wa_zycat039-moeda,
itab_zycat031_ass-valor to wa_zycat039-valor,
itab_zycat031_ass-re to wa_zycat039-re,
itab_zycat031_ass-di to wa_zycat039-di.
if v_dom_pgtorec = 'D'.
move bkpf-gjahr to wa_zycat039-gjahr.
endif.
append wa_zycat039 to itab_zycat039_ass.
endloop.
perform processar_associacao_massa.
perform limpa_pgto_receb.
set screen 0006.
leave screen.
endform.
form limpa_pgto_receb.
clear: v_dom_pgtorec, v_nrboleto, v_parceiro, v_processo,
v_name, v_saldo.
free: bkpf, /pws/zycbt124, bsad, /pws/zycbt031,
itab_zycat031_ass, itab_zycat030_ass,
itab_zycat039_ass, itab_saldo_oper.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012I01
module exit_command input.
case sy-dynnr.
when '0001' or '0002'.
leave program.
when '0003'.
leave program.
when '0004'.
set screen 0.
leave screen.
* >> Início da inclusão: MODULE EXIT_COMMAND
WHEN '0006'.
SET SCREEN 0.
LEAVE SCREEN.
* << Fim da inclusão
when '0100'.
set screen v_screen.
leave screen.
when '0104'.
clear v_path.
set screen 0.
leave screen.
when '0106'.
set screen 0.
leave screen.
when '0200'.
* >> Início da inclusão: MODULE EXIT_COMMAND
SET SCREEN 0.
LEAVE SCREEN.
WHEN '0300'.
* << Fim da inclusão
set screen 0.
leave screen.
endcase.
endmodule.
module user_command input.
case sy-dynnr.
when '0001'.
perform user_command_001.
when '0002'.
perform user_command_002.
when '0003'.
perform user_command_0003.
when '0004'.
perform user_command_0004.
* >> Início da inclusão: MODULE USER_COMMAND
WHEN '0006'.
PERFORM user_command_0006.
* << Fim da inclusão
when '0100'.
perform user_command_0100.
when '0101'.
perform user_command_0101.
when '0102'.
perform user_command_0102.
when '0103'.
perform user_command_0103.
when '0104'.
perform user_command_0104.
when '0105'.
perform user_command_0105.
when '0106'.
perform user_command_0106.
when '0107'.
perform user_command_0107.
when '0200'.
perform user_command_0200.
* >> Início da inclusão: MODULE USER_COMMAND
WHEN '0300'.
PERFORM user_command_0300.
* << Fim da inclusão
endcase.
endmodule.
module atualiza_itab_remessa input.
perform atualiza_itab tables itab_zycat039_r
using wa_zycat039r
tc_remessa.
endmodule.
module calcula_saldo input.
perform calcula_saldo.
endmodule.
...
...
module atualiza_itab_fatexp input.
perform atualiza_itab tables itab_zycat039_fe
using wa_zycat039fe
tc_fatexp.
endmodule.
module atualiza_itab_associacao input.
perform atualiza_itab_assoc tables itab_zycat031_ass
using wa_zycat039a
tc_associacao.
endmodule.
* >> Início da inclusão:
MODULE consiste_boleto INPUT.
CHECK v_okcode = 'ENTER'.
CHECK v_dom_pgtorec = 'B'.
CHECK v_nrboleto IS INITIAL.
MESSAGE e015 WITH text-e32.
ENDMODULE.
MODULE consiste_belnr INPUT.
CHECK v_okcode = 'ENTER'.
CHECK v_dom_pgtorec = 'D'.
CHECK bkpf-belnr IS INITIAL OR
bkpf-gjahr IS INITIAL OR
bkpf-bukrs IS INITIAL.
MESSAGE e015 WITH text-e33.
ENDMODULE.
MODULE saldo_pgto_receb INPUT.
PERFORM saldo_pgto_receb.
ENDMODULE.
MODULE atualiza_itab_pgto_receb INPUT.
PERFORM atualiza_itab_assoc TABLES itab_zycat031_ass
USING wa_zycat039a
tc_pgto_receb.
ENDMODULE.
MODULE matchode_belnr INPUT.
DATA: v_belnr TYPE bkpf-belnr,
v_bukrs TYPE bkpf-bukrs,
v_gjahr TYPE bkpf-gjahr.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'BKPF'
fieldname = 'BELNR'
searchhelp = '/PWS/ZYCAA185'
TABLES
return_tab = itab_result
EXCEPTIONS
OTHERS = 5.
IF sy-subrc EQ 0.
IMPORT v_belnr FROM MEMORY ID 'BELNR'.
IMPORT v_bukrs FROM MEMORY ID 'BUKRS'.
IMPORT v_gjahr FROM MEMORY ID 'GJAHR'.
FREE: itab_tdynpread.
MOVE: 'BKPF-BELNR' TO wa_tdynpread-fieldname,
v_belnr TO wa_tdynpread-fieldvalue.
APPEND wa_tdynpread TO itab_tdynpread.
MOVE: 'BKPF-BUKRS' TO wa_tdynpread-fieldname,
v_bukrs TO wa_tdynpread-fieldvalue.
APPEND wa_tdynpread TO itab_tdynpread.
MOVE: 'BKPF-GJAHR' TO wa_tdynpread-fieldname,
v_gjahr TO wa_tdynpread-fieldvalue.
APPEND wa_tdynpread TO itab_tdynpread.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0006'
TABLES
dynpfields = itab_tdynpread
EXCEPTIONS
OTHERS = 8.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA012O01
...
delete itab_zycat039_o where fatura is initial.
describe table itab_zycat039_o lines v_lines.
tc_outros-lines = v_lines + 15.
when '0107'.
delete itab_zycat039_fe where fat_exp is initial.
describe table itab_zycat039_fe lines v_lines.
tc_fatexp-lines = v_lines + 15.
when '0200'.
describe table itab_zycat031_ass lines v_lines.
tc_associacao-lines = v_lines.
* >> Início da inclusão: MODULE AJUSTA_TC
WHEN '0300'.
DESCRIBE TABLE itab_zycat031_ass LINES v_lines.
tc_pgto_receb-lines = v_lines.
* << Fim da inclusão
endcase.
endmodule.
module atualiza_tela_remessa output.
perform atualiza_tela using itab_zycat039_r
wa_zycat039r.
endmodule.
module status_0102 output.
if not v_exibe is initial or
not itab_zycat039_r[] is initial or
not itab_zycat039_f[] is initial or
...
...
set titlebar '0004'.
endmodule.
module status_0200 output.
set pf-status '0200'.
set titlebar '0200'.
endmodule.
module atualiza_tela_associacao output.
perform atualiza_tela_assoc using itab_zycat031_ass
wa_zycat039a.
endmodule.
* >> Início da inclusão:
MODULE status_0006 OUTPUT.
SET PF-STATUS '0006'.
SET TITLEBAR '006'.
LOOP AT SCREEN.
IF v_dom_pgtorec IS INITIAL.
IF screen-group1 = 'BOL' OR
screen-group1 = 'BLN'.
screen-active = '0'.
ENDIF.
ELSEIF v_dom_pgtorec = 'B'.
IF screen-group1 = 'BOL'.
screen-active = '1'.
ELSEIF screen-group1 = 'BLN'.
screen-active = '0'.
ENDIF.
ELSEIF v_dom_pgtorec = 'D'.
IF screen-group1 = 'BLN'.
screen-active = '1'.
ELSEIF screen-group1 = 'BOL'.
screen-active = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDMODULE.
MODULE status_0300 OUTPUT.
SET PF-STATUS '0300'.
SET TITLEBAR '300'.
LOOP AT SCREEN.
IF v_dom_pgtorec = 'B'.
IF screen-group1 = 'BOL'.
screen-active = '1'.
ELSEIF screen-group1 = 'BLN'.
screen-active = '0'.
ENDIF.
ELSEIF v_dom_pgtorec = 'D'.
IF screen-group1 = 'BLN'.
screen-active = '1'.
ELSEIF screen-group1 = 'BOL'.
screen-active = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA012 0300
Efetuar download da(s) tela(s) no Portal de Produtos, caminho:
Aplicativos -> pw.CE > Notas > NOTAS - TELAS > CAMBIO > 13790_TELA.ZIP
Descompactar, criar a tela 0300 e efetuar upload no programa e tela correspondente, transação SE80.
CRIAR O STATUS-GUI 0300 COM AS INFORMAÇÕES ABAIXO:
PRIMEIRO BOTÃO DA BARRA DE FERRAMENTAS
CÓDIGO DE FUNÇÃO: ENTE
CATEGORIA DE FUNÇÃO: ' ' (Função de Aplicação)
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Confirmação
NOME DE ÍCONE:
TEXTO DE ÍCONE:
TEXTO INFORMATIVO:
SELEÇÃO DIRETA:
TECLA DE ATALHO:
SEGUNDO BOTÃO DA BARRA DE FERRAMENTAS
CÓDIGO DE FUNÇÃO: SAVE
CATEGORIA DE FUNÇÃO: ' ' (Função de Aplicação)
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Gravar
NOME DE ÍCONE: ICON_SYSTEM_SAVE
TEXTO DE ÍCONE:
TEXTO INFORMATIVO:
SELEÇÃO DIRETA: F8
TECLA DE ATALHO:
TERCEIRO E QUARTO BOTÕES DA BARRA DE FERRAMENTAS
CÓDIGO DE FUNÇÃO: BACK
CATEGORIA DE FUNÇÃO: ' ' (Função de Aplicação)
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Voltar
NOME DE ÍCONE:
TEXTO DE ÍCONE:
TEXTO INFORMATIVO:
SELEÇÃO DIRETA: F8
TECLA DE ATALHO:
QUINTO BOTÃO DA BARRA DE FERRAMENTAS
CÓDIGO DE FUNÇÃO: EXIT
CATEGORIA DE FUNÇÃO: 'E' (Comando Exit)
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Cancelar
NOME DE ÍCONE: ICON_CANCEL
TEXTO DE ÍCONE:
TEXTO INFORMATIVO:
SELEÇÃO DIRETA: F8
TECLA DE ATALHO:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA012 0006
Efetuar download da(s) tela(s) no Portal de Produtos, caminho:
Aplicativos -> pw.CE > Notas > NOTAS - TELAS > CAMBIO > 13790_TELA.ZIP
Descompactar, criar a tela 0006 e efetuar upload no programa e tela correspondente, transação SE80.
CRIAR O STATUS-GUI 0006 COM AS INFORMAÇÕES ABAIXO:
PRIMEIRO BOTÃO DA BARRA DE FERRAMENTAS
CÓDIGO DE FUNÇÃO: ENTE
CATEGORIA DE FUNÇÃO: ' ' (Função de Aplicação)
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Confirmação
NOME DE ÍCONE:
TEXTO DE ÍCONE:
TEXTO INFORMATIVO:
SELEÇÃO DIRETA:
TECLA DE ATALHO:
TERCEIRO E QUARTO BOTÕES DA BARRA DE FERRAMENTAS
CÓDIGO DE FUNÇÃO: BACK
CATEGORIA DE FUNÇÃO: ' ' (Função de Aplicação)
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Voltar
NOME DE ÍCONE:
TEXTO DE ÍCONE:
TEXTO INFORMATIVO:
SELEÇÃO DIRETA: F8
TECLA DE ATALHO:
QUINTO BOTÃO DA BARRA DE FERRAMENTAS
CÓDIGO DE FUNÇÃO: EXIT
CATEGORIA DE FUNÇÃO: 'E' (Comando Exit)
TEXTOS DE FUNÇÃO ESTÁTICOS
TEXTO DE FUNÇÃO: Cancelar
NOME DE ÍCONE: ICON_CANCEL
TEXTO DE ÍCONE:
TEXTO INFORMATIVO:
SELEÇÃO DIRETA: F8
TECLA DE ATALHO:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA012
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 017
Texto: (9 caracteres)
"Billet N."
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 017
Texto: (9 caracteres)
"Nº Boleto"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 017
Texto: (9 caracteres)
"NºBilhete"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 018
Texto: (17 caracteres)
"Account. Document"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 018
Texto: (13 caracteres)
"Doc. Contábil"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 018
Texto: (13 caracteres)
"Doc. Contable"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 019
Texto: (7 caracteres)
"Custom."
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (7 caracteres)
"Cliente"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 019
Texto: (7 caracteres)
"Cliente"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 020
Texto: (8 caracteres)
"Supplier"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 020
Texto: (10 caracteres)
"Fornecedor"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 020
Texto: (9 caracteres)
"Proveedor"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 021
Texto: (15 caracteres)
"Associate Value"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 021
Texto: (15 caracteres)
"Valor Associado"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 021
Texto: (14 caracteres)
"Valor Asociado"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E32
Texto: (18 caracteres)
"Fill Number Billet"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E32
Texto: (26 caracteres)
"Preencher Número do Boleto"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E32
Texto: (22 caracteres)
"Rellenar Número Billet"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E33
Texto: (39 caracteres)
"Fill Acc. Document Number/Year/Business"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E33
Texto: (45 caracteres)
"Preencher Número/Ano/Empresa do Doc. Contábil"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E33
Texto: (45 caracteres)
"Rellenar Número / Año / Contabilidad de Socie"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E34
Texto: (42 caracteres)
"Billet not found as paid or does not match"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E34
Texto: (50 caracteres)
"Boleto não encontrado como pago ou não corresponde"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E34
Texto: (48 caracteres)
"Billet no se encuentra como pagado o no coincide"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E35
Texto: (39 caracteres)
"a process of Shipment or Invoice Import"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E35
Texto: (48 caracteres)
"a um processo de Remessa ou Fatura de Importação"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E35
Texto: (44 caracteres)
"un proceso de envío o factura de importación"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E36
Texto: (17 caracteres)
"generated in Rate"
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E36
Texto: (17 caracteres)
"gerada no Câmbio."
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E36
Texto: (17 caracteres)
"generado en Cambi"
Comprimento máximo: 17
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E37
Texto: (28 caracteres)
"Document is not compensation"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E37
Texto: (30 caracteres)
"Documento não é de compensação"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E37
Texto: (30 caracteres)
"El documento no es una compens"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E38
Texto: (20 caracteres)
"Customer or Supplier"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E38
Texto: (24 caracteres)
"de Cliente ou Fornecedor"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E38
Texto: (19 caracteres)
"Cliente o Proveedor"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E39
Texto: (27 caracteres)
"No RAS / RVS selected to be"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E39
Texto: (36 caracteres)
"Nenhuma RAS/RVS selecionada para ser"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E39
Texto: (35 caracteres)
"No RAS / RVS seleccionados para ser"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E40
Texto: (35 caracteres)
"associated with the payment/receipt"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E40
Texto: (35 caracteres)
"associada ao pagamento/recebimento."
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E40
Texto: (30 caracteres)
"asociado con el pago / recibo."
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: E41
Texto: (45 caracteres)
"Join the exact value of the Payment / Receipt"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: E41
Texto: (47 caracteres)
"Associar o valor exato do Pagamento/Recebimento"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: E41
Texto: (39 caracteres)
"Únete al valor exacto del Recibo / Pago"
Comprimento máximo: 47