CE PLUS - Nota 012522
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 18/09/2012 00:00:00
Data/Hora Última Alteração: 21/09/2012 10:01:12
Descrição da Nota: PRESTAÇÃO DE CONTAS CRIAR REMESSA FINANCEIRA NO CÂMBIO
Sintoma
Necessidade de fazer retenção de imposto para alguns tipos de despesa da exportação. Na prestação de
contas não tem como fazer a retenção de imposto e na remessa financeira o sistema faz isso.
Solução
Desenvolvimento adicional para criação de Remessa Financeira ao liberar uma prestação de contas e
enviar os dados para o Câmbio.
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12522 Data: 18/09/2012 Hora: 10:46:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12522
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00002
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
PRESTAÇÃO DE CONTAS CRIAR REMESSA FINANCEIRA NO CÂMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PRESTAÇÃO CONTAS REMESSA FINANCEIRA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYCEL903
DYNP /PWS/SAPMZYCE013 0100
REPS /PWS/MZYCE013F01
REPS /PWS/MZYCE013TOP
REPS /PWS/MZYCE013X01
REPT /PWS/SAPMZYCE013
TABD /PWS/ZYCEE021
TABD /PWS/ZYCEE033
TABD /PWS/ZYCEE043
TABD /PWS/ZYCET019
TABD /PWS/ZYCET021
TABD /PWS/ZYCET033
TABD /PWS/ZYCET043
TOBJ /PWS/ZYCEV021V
VIED /PWS/ZYCEV021
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCEL903
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCEL903
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (18 caracteres), idioma: EN
"Remittance Finance"
Descrição breve incluída: (23 caracteres), idioma: PT
"GL - Remessa Financeira"
Descrição breve incluída: (21 caracteres), idioma: ES
"GL - Envío Financiero"
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 (10 caracteres), idioma: EN
"Remittance"
Denominador breve incluído (10 caracteres), idioma: PT
"Remessa Fi"
Denominador breve incluído (10 caracteres), idioma: ES
"Envío Fin."
Comprimento máximo do denominador médio: 18
Denominador médio incluído (18 caracteres), idioma: EN
"Remittance Finance"
Denominador médio incluído (18 caracteres), idioma: PT
"Remessa Financeira"
Denominador médio incluído (16 caracteres), idioma: ES
"Envío Financiero"
Comprimento máximo do denominador longo: 18
Denominador longo incluído (18 caracteres), idioma: EN
"Remittance Finance"
Denominador longo incluído (18 caracteres), idioma: PT
"Remessa Financeira"
Denominador longo incluído (16 caracteres), idioma: ES
"Envío Financiero"
Comprimento máximo do título: 18
Título incluído (18 caracteres), idioma: EN
"Remittance Finance"
Título incluído (18 caracteres), idioma: PT
"Remessa Financeira"
Título incluído (16 caracteres), idioma: ES
"Envío Financiero"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE013 0100
Alterar Campos da Tela "0100"
Alterar Campo:
Nome: /PWS/ZYCET021-PGTOCAMB
Tipo: Texto
Linha: 3
Coluna: 81
Comp.Def: 12
Comp.Vis: 12
Altura: 1
Alterar Campo:
Nome: /PWS/ZYCET021-PGTOCAMB
Tipo: I/O
Linha: 3
Coluna: 98
Comp.Def: 1
Comp.Vis: 1
Altura: 1
Alterar Campo:
Nome: /PWS/ZYCEE033-SERIES
Tipo: Texto
Linha: 5
Coluna: 81
Comp.Def: 14
Comp.Vis: 14
Altura: 1
Alterar Campo:
Nome: /PWS/ZYCEE033-SERIES
Tipo: I/O
Linha: 5
Coluna: 98
Comp.Def: 3
Comp.Vis: 3
Altura: 1
Alterar Campo:
Nome: /PWS/ZYCEE033-SUBSER
Tipo: I/O
Linha: 5
Coluna: 103
Comp.Def: 2
Comp.Vis: 2
Altura: 1
Alterar Campo:
Nome: /PWS/ZYCEE033-AREA
Tipo: Texto
Linha: 7
Coluna: 81
Comp.Def: 10
Comp.Vis: 10
Altura: 1
Alterar Campo:
Nome: /PWS/ZYCEE033-AREA
Tipo: I/O
Linha: 7
Coluna: 98
Comp.Def: 10
Comp.Vis: 10
Altura: 1
Incluir Campo:
Nome: /PWS/ZYCEE033-NRSEQREM
Tipo: Texto
Texto: Nº Seq. Remessa
Linha: 9
Coluna: 81
Comp.Def: 15
Comp.Vis: 15
Altura: 1
Incluir Campo:
Nome: /PWS/ZYCEE033-NRSEQREM
Tipo: I/O
Linha: 9
Coluna: 98
Comp.Def: 10
Comp.Vis: 10
Altura: 1
Atributos:
Dicionário:
Marcar Do Dict.
ID parâmetro: /PWS/ZYCBP001
Programa:
Desmarcar Campo de Entrada
Marcar Campo de saída
Exibição:
Marcar como Visível
Alterar Campo:
Nome: QDR_001
Tipo: Quadro
Linha: 12
Coluna: 1
Comp.Def: 116
Comp.Vis: 116
Altura: 22
Incluir Campo:
Nome: /PWS/ZYCEE033-DOCREMFINANC
Tipo: Texto
Texto: Remessa Financeira
Linha: 31
Coluna: 83
Comp.Def: 18
Comp.Vis: 18
Altura: 1
Incluir Campo:
Nome: /PWS/ZYCEE033-DOCREMFINANC
Tipo: I/O
Linha: 31
Coluna: 105
Comp.Def: 10
Comp.Vis: 10
Altura: 1
Atributos:
Dicionário:
Marcar Do Dict.
Programa:
Desmarcar Campo de Entrada
Marcar Campo de saída
Exibição:
Marcar como Visível
Incluir Campo:
Nome: /PWS/ZYCEE033-DOCCAMBREM
Tipo: Texto
Texto: Doc. Câmbio Remessa
Linha: 32
Coluna: 83
Comp.Def: 19
Comp.Vis: 19
Altura: 1
Incluir Campo:
Nome: /PWS/ZYCEE033-DOCCAMBREM
Tipo: I/O
Linha: 32
Coluna: 105
Comp.Def: 10
Comp.Vis: 10
Altura: 1
Atributos:
Dicionário:
Marcar Do Dict.
Programa:
Desmarcar Campo de Entrada
Marcar Campo de saída
Exibição:
Marcar como Visível
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE013F01
...
APPEND itstatus.
IF /pws/zycee033-nrpres IS INITIAL.
MOVE 'DELE' TO itstatus-fcode.
APPEND itstatus.
MOVE 'LOG_TRILHA' TO itstatus-fcode.
APPEND itstatus.
ENDIF.
ELSE.
MOVE 'MODI' TO itstatus-fcode.
APPEND itstatus.
* >> Início da exclusão: FORM LOAD_DATA
IF NOT /pws/zycee033-docfat IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DATA
IF NOT /pws/zycee033-docfat IS INITIAL OR
NOT /pws/zycee033-docremfinanc IS INITIAL.
* << Fim da inclusão
MOVE 'PREF' TO itstatus-fcode.
APPEND itstatus.
ELSE.
MOVE 'COMP' TO itstatus-fcode.
APPEND itstatus.
MOVE 'CPRV' TO itstatus-fcode.
APPEND itstatus.
ENDIF.
IF NOT /pws/zycee033-docomp IS INITIAL.
MOVE 'COMP' TO itstatus-fcode.
APPEND itstatus.
ENDIF.
IF NOT /pws/zycee033-docomprov IS INITIAL.
MOVE 'CPRV' TO itstatus-fcode.
APPEND itstatus.
ENDIF.
* >> Início da exclusão: FORM LOAD_DATA
IF /pws/zycee033-docfat IS INITIAL AND
/pws/zycee033-docomp IS INITIAL AND
/pws/zycee033-docomprov IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DATA
IF /pws/zycee033-docfat IS INITIAL AND
/pws/zycee033-docomp IS INITIAL AND
/pws/zycee033-docomprov IS INITIAL AND
/pws/zycee033-docremfinanc IS INITIAL.
* << Fim da inclusão
MOVE 'ESTO' TO itstatus-fcode.
APPEND itstatus.
ENDIF.
IF v_log_trilha IS INITIAL.
MOVE 'LOG_TRILHA' TO itstatus-fcode.
APPEND itstatus.
ENDIF.
ENDIF.
PERFORM verifica_especifico.
IF sy-tcode = c_code_c AND
...
...
itab_zycet021-kschl
''
itab_zycet002[]
CHANGING
v_conta_1
v_conta_2.
ENDIF.
itab_zycet043-conta2 = v_conta_2.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECT_DESPESAS
itab_zycet043-codmod = c_module.
itab_zycet043-nrpres = /pws/zycee033-nrpres.
itab_zycet043-nradto = ' ' .
itab_zycet043-nrseq = /pws/zycee033-nrseq.
itab_zycet043-despach = /pws/zycee033-despach.
itab_zycet043-tpdesp = itab_zycet021-tpdesp.
itab_zycet043-kschl = itab_zycet021-kschl.
itab_zycet043-descr = itab_zycet021-descr.
itab_zycet043-embarca = /pws/zycee033-embarca.
itab_zycet043-werks = ' '.
itab_zycet043-vldp = ' '.
itab_zycet043-codiva = itab_zycet021-iva.
itab_zycet043-status = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DESPESAS
itab_zycet043-codmod = c_module.
itab_zycet043-nrpres = /pws/zycee033-nrpres.
itab_zycet043-nradto = ' ' .
itab_zycet043-nrseq = /pws/zycee033-nrseq.
itab_zycet043-despach = /pws/zycee033-despach.
itab_zycet043-tpdesp = itab_zycet021-tpdesp.
itab_zycet043-kschl = itab_zycet021-kschl.
itab_zycet043-descr = itab_zycet021-descr.
itab_zycet043-embarca = /pws/zycee033-embarca.
itab_zycet043-werks = ' '.
itab_zycet043-vldp = ' '.
itab_zycet043-codiva = itab_zycet021-iva.
itab_zycet043-status = 'I'.
itab_zycet043-pgtocamb = itab_zycet021-pgtocamb.
itab_zycet043-remfinanc = itab_zycet021-remfinanc.
* << Fim da inclusão
APPEND itab_zycet043.
ENDLOOP.
ENDIF.
PERFORM preenche_zycet043_despesas.
IF NOT itab_zycet043[] IS INITIAL AND
NOT itab_zycet033_sel[] IS INITIAL.
CLEAR itab_zycet045. REFRESH itab_zycet045.
SELECT nrseq nradto tpdesp descr vldp waers
FROM /pws/zycet045
INTO TABLE itab_zycet045
...
...
IMPORTING
autoriza = v_autoriza.
IF v_autoriza = 'X'.
PERFORM executa_shiftf9.
ELSE.
MESSAGE w016 WITH text-087 text-088.
ENDIF.
ENDFORM.
FORM delete_data.
DATA: v_conf.
* >> Início da exclusão: FORM DELETE_DATA
IF /pws/zycee033-docfat IS INITIAL AND
/pws/zycee033-docomp IS INITIAL AND
/pws/zycee033-docomprov IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_DATA
IF /pws/zycee033-docfat IS INITIAL AND
/pws/zycee033-docomp IS INITIAL AND
/pws/zycee033-docomprov IS INITIAL AND
/pws/zycee033-docremfinanc IS INITIAL.
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = text-007
titel = text-008
IMPORTING
answer = v_conf
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
...
...
v_export = 'EMB_REL'.
EXPORT v_export TO MEMORY ID '/PWS/ZYCEID'.
SET PARAMETER ID '/PWS/ZYCEP001' FIELD v_value.
PERFORM verify_transaction USING '/PWS/ZYCE003_E'
CHANGING v_authority.
IF v_authority = 'S'.
CALL TRANSACTION '/PWS/ZYCE003_E' AND SKIP FIRST SCREEN.
ENDIF.
ELSEIF v_field = '/PWS/ZYCEE033-DOCFAT' OR
v_field = '/PWS/ZYCEE033-DOCOMPROV' OR
* >> Início da exclusão: FORM DRILL_DOWN
v_field = '/PWS/ZYCEE033-DOCNUM_1'.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN
v_field = '/PWS/ZYCEE033-DOCNUM_1' OR
v_field = '/PWS/ZYCEE033-DOCREMFINANC'.
* << Fim da inclusão
IF NOT v_value IS INITIAL.
i_belnr = v_value.
i_bukrs = /pws/zycee033-bukrs.
GET CURSOR FIELD v_field VALUE v_belnr_bkpf.
UNPACK v_belnr_bkpf TO v_belnr_bkpf.
IF v_field = '/PWS/ZYCEE033-DOCFAT'.
v_dt_lancamento = /pws/zycee033-dtlanc.
ELSE.
v_dt_lancamento = /pws/zycee033-dtacerto.
ENDIF.
...
...
CHANGING v_authority.
IF v_authority = 'S'.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
ELSEIF v_field = '/PWS/ZYCEE033-NRADTO'.
IF NOT /pws/zycee033-nradto IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_DRILL_DOWN_ADIANT'
EXPORTING
nradto = /pws/zycee033-nradto.
* >> Início da inclusão: FORM DRILL_DOWN
ENDIF.
ELSEIF v_field = '/PWS/ZYCEE033-NRSEQREM'.
SET PARAMETER ID '/PWS/ZYCBP374' FIELD v_value.
PERFORM verify_transaction USING '/PWS/ZYCB109_E'
CHANGING v_authority.
IF v_authority = 'S'.
CALL TRANSACTION '/PWS/ZYCB109_E' AND SKIP FIRST SCREEN.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM verify_transaction USING ptcode
CHANGING pauthority.
CLEAR pauthority.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD ptcode.
IF sy-subrc EQ 0.
pauthority = 'S'.
ELSE.
...
...
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
TABLES itab_zycet043
itab_zycet016
CHANGING itab_total
IF FOUND.
ELSE.
v_conf = 'J'.
ENDIF.
IF v_conf EQ 'J'.
* >> Início da inclusão: FORM CRIA_PRE_FATURA
PERFORM verifica_fatura_remessa
CHANGING
v_fatura
v_remessa.
IF NOT v_fatura IS INITIAL.
* << Fim da inclusão
CALL FUNCTION 'MESSAGES_INITIALIZE'.
PERFORM preenche_f43.
* >> Início da inclusão: FORM CRIA_PRE_FATURA
PERFORM verifica_mensagens
CHANGING
v_controle.
IF v_controle IS INITIAL.
PERFORM call_function_f43 USING 1.
ENDIF.
ENDIF.
IF NOT v_remessa IS INITIAL.
CALL FUNCTION 'MESSAGES_INITIALIZE'.
PERFORM preenche_f43_remessa.
* << Fim da inclusão
PERFORM verifica_mensagens
CHANGING
v_controle.
IF v_controle IS INITIAL.
* >> Início da exclusão: FORM CRIA_PRE_FATURA
PERFORM call_function_f43.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_PRE_FATURA
PERFORM call_function_f43 USING 2.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CRIA_PRE_FATURA
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM select_parameter USING p_type.
CLEAR: itab_zycbt032, itab_zycbe033, itab_zycbe035,
itab_zycet095, wa_zycbt011.
...
...
SELECT *
INTO TABLE itab_zyglt321
FROM /pws/zyglt321
WHERE ktosl IN ('ADT', 'DPC')
AND codeven IN ('011B', '011C').
ENDFORM.
FORM preenche_f43.
PERFORM: preenche_itab_zycbe033 USING '1',
preenche_itab_zycbe035 USING '1'.
ENDFORM.
* >> Início da exclusão: FORM CALL_FUNCTION_F43
FORM call_function_f43.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_FUNCTION_F43
FORM call_function_f43
USING p_type.
* << Fim da inclusão
DATA: i_subrc(1) VALUE 0,
v_nrseq LIKE /pws/zycee033-nrseq.
DATA: v_mode_import TYPE c.
CLEAR v_status.
CLEAR itab_zycbe035.
READ TABLE itab_zycbe035 WITH KEY d_newko = ' '.
IF sy-subrc = 0.
MESSAGE i016 WITH text-018.
EXIT.
ENDIF.
...
...
t_imposto = itab_witht
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
ELSE.
IMPORT itab_zycbt034[] FROM MEMORY ID '034'.
IMPORT itab_zycbt032[] FROM MEMORY ID '034'.
ENDIF.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CALL_FUNCTION_F43
PERFORM grava_f43.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_FUNCTION_F43
PERFORM grava_f43 USING p_type.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
...
...
ENDFORM.
FORM verify_null_field USING value(p_field)
value(p_fieldname)
value(p_description).
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM CALCULA_TOTAIS
FORM calcula_totais.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_TOTAIS
FORM calcula_totais
USING p_ptype.
* << Fim da inclusão
CLEAR itab_total.
REFRESH itab_total.
SORT itab_zycet043 BY kschl.
SORT itab_zycet016 BY kschl.
* >> Início da inclusão: FORM CALCULA_TOTAIS
IF p_ptype = 1.
LOOP AT itab_zycet043 WHERE kschl NE space AND vldp GT 0.
CHECK itab_zycet043-pgtocamb IS INITIAL OR
itab_zycet043-remfinanc IS INITIAL.
READ TABLE itab_zycet016 WITH KEY kschl = itab_zycet043-kschl
BINARY SEARCH.
IF sy-subrc IS INITIAL.
MOVE-CORRESPONDING itab_zycet016 TO itab_total.
CLEAR: itab_total-vbeln_va.
itab_total-waers = /pws/zycee033-waers.
itab_total-kschl = itab_zycet043-kschl.
itab_total-codiva = itab_zycet043-codiva.
itab_total-conta1 = itab_zycet043-conta1.
itab_total-conta2 = itab_zycet043-conta2.
itab_total-tpdesp = itab_zycet043-tpdesp.
itab_total-vldp = itab_zycet043-vldp.
IF NOT v_impiva IS INITIAL AND
NOT itab_zycet043-codiva IS INITIAL.
itab_total-vlcond = itab_zycet043-vliva.
ELSE.
IF itab_zycet043-waers_prov EQ text-001.
itab_total-vlcond = itab_zycet043-vlprov.
ELSE.
itab_total-vlcond = itab_zycet043-vlprovme.
ENDIF.
ENDIF.
IF /pws/zycee033-waers NE itab_zycet016-waers.
CLEAR: itab_total-diferenca.
ELSE.
IF itab_zycet043-waers_prov EQ text-001.
itab_total-diferenca = itab_zycet043-vldp -
itab_zycet043-vlprov.
ELSE.
itab_total-diferenca = itab_zycet043-vldp -
itab_zycet043-vlprovme.
ENDIF.
ENDIF.
IF itab_zycet043-waers_prov EQ text-001.
IF NOT itab_total-diferenca IS INITIAL OR
( NOT itab_zycet043-vlprov IS INITIAL AND
itab_zycet043-vldp EQ itab_zycet043-vlprov ).
COLLECT itab_total.
ENDIF.
ELSE.
IF NOT itab_total-diferenca IS INITIAL OR
( NOT itab_zycet043-vlprovme IS INITIAL AND
itab_zycet043-vldp EQ itab_zycet043-vlprovme ).
COLLECT itab_total.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
SORT itab_zycet043 BY nrseq tpdesp nradto kschl despach nrpres.
SORT itab_zycet016 BY nrseq vbeln_va vbeln_vf posnr docnum kschl.
ELSEIF p_ptype = 2.
* << Fim da inclusão
LOOP AT itab_zycet043 WHERE kschl NE space AND vldp GT 0.
* >> Início da inclusão: FORM CALCULA_TOTAIS
CHECK NOT itab_zycet043-pgtocamb IS INITIAL AND
NOT itab_zycet043-remfinanc IS INITIAL.
* << Fim da inclusão
READ TABLE itab_zycet016 WITH KEY kschl = itab_zycet043-kschl
BINARY SEARCH.
IF sy-subrc IS INITIAL.
MOVE-CORRESPONDING itab_zycet016 TO itab_total.
CLEAR: itab_total-vbeln_va.
...
...
IF NOT itab_total-diferenca IS INITIAL OR
( NOT itab_zycet043-vlprovme IS INITIAL AND
itab_zycet043-vldp EQ itab_zycet043-vlprovme ).
COLLECT itab_total.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
SORT itab_zycet043 BY nrseq tpdesp nradto kschl despach nrpres.
SORT itab_zycet016 BY nrseq vbeln_va vbeln_vf posnr docnum kschl.
* >> Início da inclusão: FORM CALCULA_TOTAIS
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM dados_provisionados.
DATA: BEGIN OF it_016_col OCCURS 5,
nrseq LIKE /pws/zycet016-nrseq,
kschl LIKE /pws/zycet016-kschl,
waers LIKE /pws/zycet016-waers,
vlme LIKE /pws/zycet016-vlme,
vlmi LIKE /pws/zycet016-vlme,
END OF it_016_col.
DATA: BEGIN OF itab_zycet008 OCCURS 0.
...
...
v_retorno(2) TYPE c.
DEFINE selecionar_evento_adiantamento.
select single agums
from /pws/zycbt011
into &1
where codeven eq &2
and codmod eq &3
and bukrs eq &4.
END-OF-DEFINITION.
CASE p_type.
* >> Início da exclusão: FORM PREENCHE_ITAB_ZYCBE033
WHEN '1'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
WHEN '1' OR '6'.
* << Fim da inclusão
PERFORM determina_zterm
USING
/pws/zycee033-despach
/pws/zycee033-bukrs
/pws/zycee033-nrseq
itab_zyglt321[]
CHANGING
itab_zycbe033-zterm.
IF NOT /pws/zycee033-werks IS INITIAL.
SELECT SINGLE regio
...
...
itab_zycbe033-waers = sf_moeda_desp_out.
ENDIF.
ELSE.
IF wa_zycet037-kurrf = 'X'.
itab_zycbe033-kursf = ' '.
itab_zycbe033-waers = text-001.
ELSE.
itab_zycbe033-kursf = /pws/zycee033-kurrf.
itab_zycbe033-waers = /pws/zycee033-waers.
ENDIF.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
PERFORM ajusta_valor_desp
USING
p_type
CHANGING
v_vldp.
* << Fim da inclusão
itab_zycbe033-wrbtr = abs( v_vldp ).
ENDIF.
SELECT witht
wt_subjct
FROM lfbw
INTO TABLE itab_lfbw
WHERE lifnr EQ /pws/zycee033-despach AND
bukrs EQ /pws/zycee033-bukrs.
IF sy-subrc EQ 0.
DELETE itab_lfbw WHERE sbjct IS initial.
ENDIF.
v_irrf_desp = 'N'.
CLEAR: itab_witht.
REFRESH: itab_witht.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
IF p_type = 1.
LOOP AT itab_zycet043.
CHECK itab_zycet043-pgtocamb IS INITIAL OR
itab_zycet043-remfinanc IS INITIAL.
CHECK NOT itab_zycet043-vldp IS INITIAL.
LOOP AT itab_zyglt378 WHERE cod_desp EQ itab_zycet043-tpdesp.
READ TABLE itab_lfbw WITH KEY witht = itab_zyglt378-witht
TRANSPORTING NO FIELDS.
CHECK sy-subrc EQ 0.
CLEAR itab_witht.
itab_witht-tcode = itab_zycbe033-tcode.
itab_witht-tabela = itab_zycbe033-tabela.
itab_witht-cpochv = itab_zycbe033-cpochv.
itab_witht-residuo = itab_zycet043-vldp.
itab_witht-newbs = itab_zyglt378-witht.
COLLECT itab_witht.
v_irrf_desp = 'S'.
ENDLOOP.
ENDLOOP.
ELSEIF p_type = 6.
* << Fim da inclusão
LOOP AT itab_zycet043.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
CHECK NOT itab_zycet043-pgtocamb IS INITIAL AND
NOT itab_zycet043-remfinanc IS INITIAL.
* << Fim da inclusão
CHECK NOT itab_zycet043-vldp IS INITIAL.
LOOP AT itab_zyglt378 WHERE cod_desp EQ itab_zycet043-tpdesp.
READ TABLE itab_lfbw WITH KEY witht = itab_zyglt378-witht
TRANSPORTING NO FIELDS.
CHECK sy-subrc EQ 0.
CLEAR itab_witht.
itab_witht-tcode = itab_zycbe033-tcode.
itab_witht-tabela = itab_zycbe033-tabela.
itab_witht-cpochv = itab_zycbe033-cpochv.
itab_witht-residuo = itab_zycet043-vldp.
itab_witht-newbs = itab_zyglt378-witht.
COLLECT itab_witht.
v_irrf_desp = 'S'.
ENDLOOP.
ENDLOOP.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
ENDIF.
* << Fim da inclusão
PERFORM preenche_itab_zycbt034 USING '1'.
APPEND itab_zycbe033.
WHEN '2'.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FBV0'.
itab_zycbe033-tabela = text-010.
itab_zycbe033-cpochv = /pws/zycee033-nrseq.
itab_zycbe033-belnr = /pws/zycee033-docfat.
itab_zycbe033-bukrs = /pws/zycee033-bukrs.
itab_zycbe033-xblnr = /pws/zycee033-nrseq.
...
...
text-012.
ENDCASE.
ENDFORM.
FORM preenche_itab_zycbe035 USING value(p_type).
DATA : v_continue,
it_zycbe035 LIKE itab_zycbe035 OCCURS 0 WITH HEADER LINE.
DATA: it_centro_lucro TYPE t_centro_lucro.
DATA: wa_zycet021 TYPE /pws/zycet021.
DATA: _erro TYPE c.
CASE p_type.
* >> Início da exclusão: FORM PREENCHE_ITAB_ZYCBE035
WHEN '1'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE035
WHEN '1' OR '2'.
* << Fim da inclusão
IF wa_zycet037-prest_cent_lucro EQ '1'.
PERFORM calc_percentual_centro_lucro
USING
itab_zycet002[]
CHANGING
it_centro_lucro[]
_erro.
IF NOT _erro IS INITIAL.
EXIT.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM PREENCHE_ITAB_ZYCBE035
PERFORM calcula_totais.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE035
PERFORM calcula_totais USING p_type.
* << Fim da inclusão
LOOP AT itab_total.
v_index = sy-tabix.
CLEAR v_continue.
READ TABLE itab_zycet021
INTO wa_zycet021
WITH KEY
tpdesp = itab_zycet043-tpdesp
kschl = itab_zycet043-kschl.
CHECK NOT itab_total-vlcond IS INITIAL .
it_zycbe035-tcode = 'F-43'.
...
...
READ TABLE itab_zyglt100 WITH KEY zexit = 'PDC006' BINARY SEARCH.
IF sy-subrc EQ 0
AND NOT itab_zyglt100-programa IS INITIAL
AND NOT itab_zyglt100-formulario IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
IF v_controle IS INITIAL.
PERFORM preenche_itab_zycbe035_2
USING
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE035
p_type
* << Fim da inclusão
it_centro_lucro[].
ENDIF.
ENDCASE.
ENDFORM.
FORM preenche_itab_zycbe035_2
USING
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE035_2
p_ptype
* << Fim da inclusão
p_t_centro_lucro TYPE t_centro_lucro.
DATA: wa_zycet021 TYPE /pws/zycet021.
CLEAR it_zycet043. REFRESH it_zycet043.
MOVE itab_zycet043[] TO it_zycet043[].
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE035_2
IF p_ptype = 1.
LOOP AT itab_zycet043 WHERE vldp NE 0.
CHECK itab_zycet043-pgtocamb IS INITIAL OR
itab_zycet043-remfinanc IS INITIAL.
READ TABLE itab_zycet021 INTO wa_zycet021
WITH KEY tpdesp = itab_zycet043-tpdesp
kschl = itab_zycet043-kschl.
itab_zycbe035-d_newko = itab_zycet043-conta1.
READ TABLE itab_total WITH KEY kschl = itab_zycet043-kschl.
IF sy-subrc NE 0.
PERFORM preenche_f63_sem_exit.
itab_zycbe035-tcode = 'F-43'.
itab_zycbe035-tabela = text-010.
itab_zycbe035-chave = text-016.
itab_zycbe035-cpochv = /pws/zycee033-nrseq.
itab_zycbe035-d_valut = /pws/zycee033-dtacerto.
itab_zycbe035-d_gsber = itab_zycbe033-d_gsber.
itab_zycbe035-d_kostl = itab_zycet043-kostl.
itab_zycbe035-d_sgtxt = /pws/zycee033-observ.
itab_zycbe035-mwskz = itab_zycet043-codiva.
CLEAR itab_zycet095.
PERFORM determinar_preenchimento USING 'ADT'
'011B'
'ZUONR'
CHANGING itab_zycbe035-c_zuonr.
IF NOT v_impiva IS INITIAL AND
NOT itab_zycet043-codiva IS INITIAL.
itab_zycbe035-wrbtr = abs( itab_zycet043-vliva ).
IF NOT /pws/zycee033-kurrf IS INITIAL AND NOT
/pws/zycee033-waers EQ text-001.
MULTIPLY itab_zycbe035-wrbtr BY /pws/zycee033-kurrf.
ENDIF.
ELSE.
itab_zycbe035-wrbtr = abs( itab_zycet043-vldp ).
ENDIF.
IF wa_zycet037-prest_cent_lucro EQ '1'.
REFRESH it_desmembra_lancto.
PERFORM desmembra_lancto_centro_lucro
USING
itab_zycbe035
wa_zycet021
p_t_centro_lucro[]
CHANGING
it_desmembra_lancto[].
APPEND LINES OF it_desmembra_lancto TO itab_zycbe035.
ELSE.
APPEND itab_zycbe035.
ENDIF.
ENDIF.
ENDLOOP.
ELSEIF p_ptype = 2.
* << Fim da inclusão
LOOP AT itab_zycet043 WHERE vldp NE 0.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE035_2
CHECK NOT itab_zycet043-pgtocamb IS INITIAL AND
NOT itab_zycet043-remfinanc IS INITIAL.
* << Fim da inclusão
READ TABLE itab_zycet021 INTO wa_zycet021
WITH KEY tpdesp = itab_zycet043-tpdesp
kschl = itab_zycet043-kschl.
itab_zycbe035-d_newko = itab_zycet043-conta1.
READ TABLE itab_total WITH KEY kschl = itab_zycet043-kschl.
...
...
wa_zycet021
p_t_centro_lucro[]
CHANGING
it_desmembra_lancto[].
APPEND LINES OF it_desmembra_lancto TO itab_zycbe035.
ELSE.
APPEND itab_zycbe035.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE035_2
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM preenche_f63_sem_exit.
LOOP AT it_zycet043 WHERE vldp NE 0.
CLEAR : itab_desp_prov.
REFRESH: itab_desp_prov.
LOOP AT itab_zycet016 WHERE kschl = it_zycet043-kschl.
itab_zycet016-conta1 = it_zycet043-conta1.
itab_zycet016-conta2 = it_zycet043-conta2.
itab_desp_prov-nrseq = itab_zycet016-nrseq.
itab_desp_prov-kwert = itab_zycet016-vlme.
...
...
text-001
wa_zycbt011-ctmoed
CHANGING v_taxa.
itab_desp_prov-vlmi = itab_desp_prov-kwert * v_taxa.
COLLECT itab_desp_prov.
itab_zycet016-vlmi = itab_zycet016-vlme * v_taxa.
MODIFY itab_zycet016.
ENDLOOP.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM GRAVA_F43
FORM grava_f43.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_F43
FORM grava_f43
USING p_type.
* << Fim da inclusão
DATA: v_nova_dtlanc TYPE d.
CLEAR: itab_zycbt032, it_erro.
REFRESH it_erro.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-43'
tabela = text-010
cpochv = /pws/zycee033-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
v_status = 'S'.
* >> Início da exclusão: FORM GRAVA_F43
PERFORM grava_zycet019 USING '2'.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_F43
IF p_type = 1.
* << Fim da inclusão
/pws/zycee033-docfat = itab_zycbt032-belnr.
* >> Início da inclusão: FORM GRAVA_F43
ELSE.
/pws/zycee033-docremfinanc = itab_zycbt032-belnr.
ENDIF.
* << Fim da inclusão
/pws/zycee033-status = 'A'.
* >> Início da inclusão: FORM GRAVA_F43
PERFORM grava_zycet019 USING '2'.
* << Fim da inclusão
IMPORT novo_budat TO v_nova_dtlanc
FROM MEMORY ID 'NOVO_BUDAT'.
IF sy-subrc = 0.
/pws/zycee033-dtlanc = v_nova_dtlanc.
FREE MEMORY ID 'NOVO_BUDAT'.
ENDIF.
* >> Início da inclusão: FORM GRAVA_F43
IF NOT /pws/zycee033-docremfinanc IS INITIAL.
PERFORM preenche_itab_zycbt124.
ENDIF.
* << Fim da inclusão
IF NOT itab_zycet033_sel[] IS INITIAL.
LOOP AT itab_zycet033_sel.
* >> Início da exclusão: FORM GRAVA_F43
UPDATE /pws/zycet033 SET docfat = itab_zycbt032-belnr
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_F43
UPDATE /pws/zycet033 SET
docfat = /pws/zycee033-docfat
docremfinanc = /pws/zycee033-docremfinanc
nrseqrem = /pws/zycee033-nrseqrem
* << Fim da inclusão
dtvencto = /pws/zycee033-dtvencto
status = 'A'
dtlanc = /pws/zycee033-dtlanc
WHERE nrseq = /pws/zycee033-nrseq
AND codmod = 'X'
AND nrpres = /pws/zycee033-nrpres
AND nradto = itab_zycet033_sel-nradto
AND despach = /pws/zycee033-despach.
ENDLOOP.
ELSE.
* >> Início da exclusão: FORM GRAVA_F43
UPDATE /pws/zycet033 SET docfat = itab_zycbt032-belnr
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_F43
UPDATE /pws/zycet033 SET
docfat = /pws/zycee033-docfat
docremfinanc = /pws/zycee033-docremfinanc
nrseqrem = /pws/zycee033-nrseqrem
* << Fim da inclusão
dtvencto = /pws/zycee033-dtvencto
status = 'A'
dtlanc = /pws/zycee033-dtlanc
WHERE nrseq = /pws/zycee033-nrseq
AND codmod = 'X'
AND nrpres = /pws/zycee033-nrpres
AND nradto = /pws/zycee033-nradto
AND despach = /pws/zycee033-despach.
ENDIF.
MOVE /pws/zycee033-status TO itab_zycet033-status.
...
...
itab_zycet019-nrpres.
ENDLOOP.
ENDIF.
IF sy-binpt IS INITIAL.
COMMIT WORK.
ENDIF.
WHEN '2'.
LOOP AT itab_total WHERE nrseq = /pws/zycee033-nrseq.
itab_zycet019-codmod = c_module.
CLEAR itab_zycbt032.
* >> Início da exclusão: FORM GRAVA_ZYCET019
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-43'
tabela = text-010.
MOVE: /pws/zycee033-nrseq TO itab_zycet019-nrseq,
/pws/zycee033-nradto TO itab_zycet019-nradto,
/pws/zycee033-nrpres TO itab_zycet019-nrpres,
itab_total-kostl TO itab_zycet019-kostl,
itab_total-prctr TO itab_zycet019-prctr,
itab_total-gsber TO itab_zycet019-gsber,
itab_zycbt032-belnr TO itab_zycet019-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCET019
MOVE: /pws/zycee033-nrseq TO itab_zycet019-nrseq,
/pws/zycee033-nradto TO itab_zycet019-nradto,
/pws/zycee033-nrpres TO itab_zycet019-nrpres,
itab_total-kostl TO itab_zycet019-kostl,
itab_total-gsber TO itab_zycet019-gsber,
/pws/zycee033-docfat TO itab_zycet019-belnr,
/pws/zycee033-docremfinanc TO itab_zycet019-docremfinanc.
* << Fim da inclusão
MODIFY /pws/zycet019 FROM itab_zycet019.
APPEND itab_zycet019.
ENDLOOP.
IF NOT v_log_trilha IS INITIAL.
LOOP AT itab_zycet019.
MOVE-CORRESPONDING itab_zycet019 TO /pws/zycet019.
PERFORM carrega_log USING '/PWS/ZYCET019'
'U'
sy-tcode
SY-REPID
itab_zycet019-nrpres.
ENDLOOP.
ENDIF.
IF sy-binpt IS INITIAL.
COMMIT WORK.
ENDIF.
IF itab_total[] IS INITIAL.
itab_zycet019-codmod = c_module.
CLEAR itab_zycbt032.
* >> Início da exclusão: FORM GRAVA_ZYCET019
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-43'
tabela = text-010.
* << Fim da exclusão
IF NOT itab_zycet033_sel[] IS INITIAL.
LOOP AT itab_zycet033_sel.
MOVE: /pws/zycee033-nrseq TO itab_zycet019-nrseq,
itab_zycet033_sel-nradto TO itab_zycet019-nradto,
/pws/zycee033-nrpres TO itab_zycet019-nrpres,
wa_zycet001-gsber TO itab_zycet019-gsber,
* >> Início da exclusão: FORM GRAVA_ZYCET019
itab_zycbt032-belnr TO itab_zycet019-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCET019
/pws/zycee033-docfat TO itab_zycet019-belnr,
/pws/zycee033-docremfinanc TO itab_zycet019-docremfinanc.
* << Fim da inclusão
MODIFY /pws/zycet019 FROM itab_zycet019.
APPEND itab_zycet019.
ENDLOOP.
IF NOT v_log_trilha IS INITIAL.
LOOP AT itab_zycet019.
MOVE-CORRESPONDING itab_zycet019 TO /pws/zycet019.
PERFORM carrega_log USING '/PWS/ZYCET019'
'U'
sy-tcode
SY-REPID
itab_zycet019-nrpres.
ENDLOOP.
ENDIF.
ELSE.
MOVE: /pws/zycee033-nrseq TO itab_zycet019-nrseq,
/pws/zycee033-nradto TO itab_zycet019-nradto,
/pws/zycee033-nrpres TO itab_zycet019-nrpres,
wa_zycet001-gsber TO itab_zycet019-gsber,
* >> Início da exclusão: FORM GRAVA_ZYCET019
itab_zycbt032-belnr TO itab_zycet019-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCET019
/pws/zycee033-docfat TO itab_zycet019-belnr,
/pws/zycee033-docremfinanc TO itab_zycet019-docremfinanc.
* << Fim da inclusão
MODIFY /pws/zycet019 FROM itab_zycet019.
APPEND itab_zycet019.
ENDIF.
IF NOT v_log_trilha IS INITIAL.
LOOP AT itab_zycet019.
MOVE-CORRESPONDING itab_zycet019 TO /pws/zycet019.
PERFORM carrega_log USING '/PWS/ZYCET019'
'U'
sy-tcode
SY-REPID
...
...
AND nradto = /pws/zycee033-nradto
AND nrpres = /pws/zycee033-nrpres.
ENDIF.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-028.
itab_zycbt036-tabela = text-010.
itab_zycbt036-cpochv = v_cpochv.
LOOP AT itab_zycet019 WHERE codmod = c_module
AND nrseq = /pws/zycee033-nrseq
AND nrpres = /pws/zycee033-nrpres.
* >> Início da exclusão: FORM PREENCHE_ITAB_ZYCBE036
itab_zycbt036-belnr = itab_zycet019-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE036
IF NOT itab_total-pgtocamb IS INITIAL AND
NOT itab_total-remfinanc IS INITIAL.
itab_zycbt036-belnr = itab_zycet019-docremfinanc.
ELSE.
itab_zycbt036-belnr = itab_zycet019-belnr.
ENDIF.
* << Fim da inclusão
itab_zycbt036-zuonr = itab_zycet019-nradto.
itab_zycbt036-dtdocto = /pws/zycee033-dtlanc.
APPEND itab_zycbt036.
ENDLOOP.
WHEN '2'.
CLEAR itab_zycbt030. REFRESH itab_zycbt030.
SELECT * FROM /pws/zycbt030
INTO TABLE itab_zycbt030
WHERE nrinvoic = /pws/zycee033-nrseq.
CLEAR itab_zycbt036.
...
...
WHEN '3'.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-028.
itab_zycbt036-tabela = text-010.
itab_zycbt036-cpochv = itab_total-conta1.
READ TABLE itab_zycet019 WITH KEY
codmod = c_module
nrseq = /pws/zycee033-nrseq
nrpres = /pws/zycee033-nrpres.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE036
IF NOT itab_total-pgtocamb IS INITIAL AND
NOT itab_total-remfinanc IS INITIAL.
itab_zycbt036-belnr = itab_zycet019-docremfinanc.
itab_zycbt036-dtdocto = /pws/zycee033-dtlanc.
APPEND itab_zycbt036.
IF itab_total-conta1 NE itab_total-conta2.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-028.
itab_zycbt036-tabela = text-010.
itab_zycbt036-cpochv = itab_total-conta2.
itab_zycbt036-belnr = itab_zycet019-docremfinanc.
itab_zycbt036-dtdocto = /pws/zycee033-dtlanc.
APPEND itab_zycbt036.
ENDIF.
ELSE.
* << Fim da inclusão
itab_zycbt036-belnr = itab_zycet019-belnr.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE036
itab_zycbt036-dtdocto = /pws/zycee033-dtlanc.
APPEND itab_zycbt036.
IF itab_total-conta1 NE itab_total-conta2.
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-028.
itab_zycbt036-tabela = text-010.
itab_zycbt036-cpochv = itab_total-conta2.
itab_zycbt036-belnr = itab_zycet019-docremfinanc.
* << Fim da inclusão
itab_zycbt036-dtdocto = /pws/zycee033-dtlanc.
APPEND itab_zycbt036.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE036
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
WHEN '4'.
itab_zycbt036-tcode = 'F-44'.
itab_zycbt036-tabela = '/PWS/ZYCEE033'.
...
...
READ TABLE itab_zycet021 WITH KEY tpdesp = itab_zycet043-tpdesp
estat = ' '.
IF sy-subrc EQ 0 AND itab_zycet043-vldp <> 0.
LOOP AT itab_zycet016 WHERE kschl = itab_zycet043-kschl.
MOVE-CORRESPONDING itab_zycet016 TO itab_total.
itab_total-waers = wa_zycet037-waers_prest.
itab_total-vlcond = itab_zycet016-vlmi.
itab_total-diferenca = itab_zycet016-vldf.
itab_total-conta1 = itab_zycet043-conta1.
itab_total-conta2 = itab_zycet043-conta2.
* >> Início da exclusão: FORM PREENCHE_ITAB_TOTAL
itab_total-prctr = ' '.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_TOTAL
itab_total-prctr = ' '.
itab_total-pgtocamb = itab_zycet043-pgtocamb.
itab_total-remfinanc = itab_zycet043-remfinanc.
* << Fim da inclusão
COLLECT itab_total.
ENDLOOP.
ELSE.
READ TABLE it_desp_rec_vendas[] INTO wa_desp_rec_vendas
WITH KEY zycet404-kschl = itab_zycet043-kschl
TRANSPORTING conta.
IF sy-subrc = 0.
LOOP AT itab_zycet016 WHERE kschl = itab_zycet043-kschl.
MOVE-CORRESPONDING itab_zycet016 TO itab_total.
itab_total-waers = wa_zycet037-waers_prest.
itab_total-vlcond = itab_zycet016-vlmi.
itab_total-diferenca = itab_zycet016-vldf.
itab_total-conta1 = itab_zycet043-conta1.
itab_total-conta2 = wa_desp_rec_vendas-conta.
itab_total-prctr = ' '.
* >> Início da inclusão: FORM PREENCHE_ITAB_TOTAL
itab_total-pgtocamb = itab_zycet043-pgtocamb.
itab_total-remfinanc = itab_zycet043-remfinanc.
* << Fim da inclusão
COLLECT itab_total.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT itab_total.
AT LAST.
SUM.
v_totfinal = /pws/zycee033-totdep - itab_total-vldp.
ENDAT.
ADD v_totfinal TO itab_total-vldp.
itab_total-diferenca = itab_total-vldp - itab_total-vlcond.
MODIFY itab_total.
ENDLOOP.
ENDFORM.
FORM estornar_documentos.
* >> Início da inclusão: FORM ESTORNAR_DOCUMENTOS
IF NOT /pws/zycee033-nrseqrem IS INITIAL.
SELECT COUNT(*) FROM /pws/zycbt124
WHERE nrseq = /pws/zycee033-nrseqrem.
ENDIF.
IF sy-subrc NE 0.
* << Fim da inclusão
IF /pws/zycee033-statuscb IS INITIAL AND
/pws/zycee033-docnum_1 IS INITIAL.
IF NOT v_exit2 IS INITIAL AND
NOT /pws/zycee033-docfat IS INITIAL.
PERFORM: preenche_itab_zycee005 USING '4',
call_function_mr8m.
ELSE.
IF NOT /pws/zycee033-docomprov IS INITIAL.
PERFORM: preenche_itab_zycee005 USING '1',
call_function_fbra USING '1'.
...
...
PERFORM: preenche_itab_zycee005 USING '2',
call_function_fbra USING '2'.
ENDIF.
IF NOT /pws/zycee033-docfat IS INITIAL AND
/pws/zycee033-docomprov IS INITIAL AND
/pws/zycee033-docomp IS INITIAL.
PERFORM: preenche_itab_zycee005 USING '3',
call_function_fb08 USING '1',
preenche_itab_zycee005 USING '7'.
ENDIF.
* >> Início da inclusão: FORM ESTORNAR_DOCUMENTOS
IF NOT /pws/zycee033-docremfinanc IS INITIAL AND
/pws/zycee033-docfat IS INITIAL AND
/pws/zycee033-docomprov IS INITIAL AND
/pws/zycee033-docomp IS INITIAL.
PERFORM: preenche_itab_zycee005 USING '9',
call_function_fb08 USING '4',
preenche_itab_zycee005 USING '7'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM ESTORNAR_DOCUMENTOS
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE i016 WITH text-054 text-055.
* >> Início da inclusão: FORM ESTORNAR_DOCUMENTOS
ENDIF.
ELSE.
MESSAGE i016 WITH text-116 text-117.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM preenche_itab_zycee005 USING value(p_type).
DATA:
v_docref(10) TYPE c,
v_itmref(6) TYPE c,
v_parvw(2) TYPE c,
v_branch TYPE t001w-j_1bbranch,
v_monat TYPE t001b-frpe1,
v_gjahr TYPE t001b-frye1,
...
...
SELECT SINGLE budat FROM bkpf INTO itab_zycee005-budat
WHERE bukrs = /pws/zycee033-bukrs
AND belnr = /pws/zycee033-docfat
AND gjahr = v_gjahr.
ENDIF.
itab_zycee005-bldat = itab_zycee005-budat.
ELSE.
itab_zycee005-stgrd = '02'.
itab_zycee005-budat = sy-datlo.
itab_zycee005-bldat = /pws/zycee033-dtacerto.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCEE005
ENDIF.
APPEND itab_zycee005.
WHEN '9'.
itab_zycee005-tcode = text-034.
itab_zycee005-belnr = /pws/zycee033-docremfinanc.
IF v_retorno NE '02'.
itab_zycee005-stgrd = '01'.
IF NOT /pws/zycee033-dtlanc IS INITIAL.
itab_zycee005-budat = /pws/zycee033-dtlanc.
ELSE.
SELECT SINGLE budat FROM bkpf INTO itab_zycee005-budat
WHERE bukrs = /pws/zycee033-bukrs
AND belnr = /pws/zycee033-docremfinanc
AND gjahr = v_gjahr.
ENDIF.
itab_zycee005-bldat = itab_zycee005-budat.
ELSE.
itab_zycee005-stgrd = '02'.
itab_zycee005-budat = sy-datlo.
itab_zycee005-bldat = /pws/zycee033-dtlanc.
* << Fim da inclusão
ENDIF.
APPEND itab_zycee005.
WHEN OTHERS.
ENDCASE.
ENDFORM.
FORM define_periodo USING value(p_budat)
value(p_bukrs)
CHANGING value(p_gjahr)
value(p_monat)
value(p_periodo).
...
...
PERFORM carrega_log USING '/PWS/ZYCET033'
'U'
sy-tcode
SY-REPID
/pws/zycee033-nrpres.
LOOP AT itab_zycet019_aud.
itab_zycet019_aud-augbl = space.
MOVE-CORRESPONDING itab_zycet019_aud TO /pws/zycet019.
PERFORM carrega_log USING '/PWS/ZYCET019'
'U'
* >> Início da inclusão: FORM CALL_FUNCTION_FB08
sy-tcode
SY-REPID
itab_zycet019_aud-nrpres.
ENDLOOP.
ENDIF.
IF sy-binpt IS INITIAL.
COMMIT WORK.
ENDIF.
WHEN '4'.
CLEAR: /pws/zycee033-docremfinanc,
/pws/zycee033-nrseqrem.
/pws/zycee033-status = 'I'.
IF NOT itab_zycet033_sel[] IS INITIAL.
LOOP AT itab_zycet033_sel.
UPDATE /pws/zycet033 SET
docremfinanc = /pws/zycee033-docremfinanc
status = /pws/zycee033-status
nrseqrem = /pws/zycee033-nrseqrem
WHERE codmod = 'X'
AND nrseq = /pws/zycee033-nrseq
AND nradto = itab_zycet033_sel-nradto
AND nrpres = /pws/zycee033-nrpres.
IF NOT v_log_trilha IS INITIAL.
LOOP AT itab_zycet019_aud.
MOVE-CORRESPONDING itab_zycet019_aud TO /pws/zycet019.
PERFORM carrega_log USING '/PWS/ZYCET019'
'D'
sy-tcode
SY-REPID
itab_zycet019_aud-nrpres.
ENDLOOP.
ENDIF.
DELETE FROM /pws/zycet019
WHERE codmod = 'X'
AND nrseq = /pws/zycee033-nrseq
AND nradto = itab_zycet033_sel-nradto
AND nrpres = /pws/zycee033-nrpres.
ENDLOOP.
ELSE.
UPDATE /pws/zycet033 SET
docremfinanc = /pws/zycee033-docremfinanc
status = /pws/zycee033-status
nrseqrem = /pws/zycee033-nrseqrem
WHERE codmod = 'X'
AND nrseq = /pws/zycee033-nrseq
AND nradto = /pws/zycee033-nradto
AND nrpres = /pws/zycee033-nrpres.
IF NOT v_log_trilha IS INITIAL.
LOOP AT itab_zycet019_aud.
MOVE-CORRESPONDING itab_zycet019_aud TO /pws/zycet019.
PERFORM carrega_log USING '/PWS/ZYCET019'
'D'
* << Fim da inclusão
sy-tcode
SY-REPID
itab_zycet019_aud-nrpres.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM CALL_FUNCTION_FB08
DELETE FROM /pws/zycet019
WHERE codmod = 'X'
AND nrseq = /pws/zycee033-nrseq
AND nradto = /pws/zycee033-nradto
AND nrpres = /pws/zycee033-nrpres.
ENDIF.
MOVE /pws/zycee033-status TO itab_zycet033-status.
MODIFY itab_zycet033 TRANSPORTING status
WHERE nrseq = /pws/zycee033-nrseq
AND nrpres = /pws/zycee033-nrpres.
IF NOT v_log_trilha IS INITIAL.
MOVE-CORRESPONDING /pws/zycee033 TO /pws/zycet033.
PERFORM carrega_log USING '/PWS/ZYCET033'
'U'
sy-tcode
SY-REPID
/pws/zycee033-nrpres.
ENDIF.
* << Fim da inclusão
IF sy-binpt IS INITIAL.
COMMIT WORK.
ENDIF.
ENDCASE.
ELSE.
LOOP AT itab_zycet005.
MESSAGE i016 WITH itab_zycet005-msg+0(50)
itab_zycet005-msg+50(50).
ENDLOOP.
ENDIF.
...
...
top_text = _it_vtopis[]
EXCEPTIONS
terms_of_payment_not_in_t052 = 1.
IF sy-subrc = 0 AND _payment_split IS INITIAL.
READ TABLE _it_vtopis[] INTO _vtopis INDEX 1 TRANSPORTING hdatum.
p_dtdcto = _vtopis-hdatum.
p_dtvencto = _vtopis-hdatum.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM preenche_f43_remessa.
PERFORM: preenche_itab_zycbe033 USING '6',
preenche_itab_zycbe035 USING '2'.
ENDFORM.
FORM ajusta_valor_desp
USING
p_ptype
CHANGING
p_v_vldp.
CLEAR p_v_vldp.
IF p_ptype = 1.
LOOP AT itab_zycet043.
CHECK itab_zycet043-pgtocamb IS INITIAL OR
itab_zycet043-remfinanc IS INITIAL.
IF NOT itab_zycet043-codiva IS INITIAL AND
NOT v_impiva IS INITIAL.
PERFORM preencher_valor_iva USING /pws/zycee033-bukrs
/pws/zycee033-waers
itab_zycet043-vldp
CHANGING itab_zycet043-codiva
itab_zycet043-vliva.
IF NOT itab_zycet043-codiva IS INITIAL.
ADD itab_zycet043-vliva TO v_vldp.
ELSE.
ADD itab_zycet043-vldp TO v_vldp.
ENDIF.
ELSE.
ADD itab_zycet043-vldp TO v_vldp.
IF itab_zycet043-codiva IS INITIAL.
CLEAR itab_zycet043-vliva.
ENDIF.
ENDIF.
ENDLOOP.
ELSEIF p_ptype = 6.
LOOP AT itab_zycet043.
CHECK NOT itab_zycet043-pgtocamb IS INITIAL AND
NOT itab_zycet043-remfinanc IS INITIAL.
IF NOT itab_zycet043-codiva IS INITIAL AND
NOT v_impiva IS INITIAL.
PERFORM preencher_valor_iva USING /pws/zycee033-bukrs
/pws/zycee033-waers
itab_zycet043-vldp
CHANGING itab_zycet043-codiva
itab_zycet043-vliva.
IF NOT itab_zycet043-codiva IS INITIAL.
ADD itab_zycet043-vliva TO v_vldp.
ELSE.
ADD itab_zycet043-vldp TO v_vldp.
ENDIF.
ELSE.
ADD itab_zycet043-vldp TO v_vldp.
IF itab_zycet043-codiva IS INITIAL.
CLEAR itab_zycet043-vliva.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
FORM preenche_itab_zycbt124.
DATA: itab_zycbt124 LIKE /pws/zycbt124 OCCURS 5 WITH HEADER LINE.
DATA: v_nrfat LIKE /pws/zycbt124-nrfat.
PERFORM busca_seq_remessa
CHANGING
/pws/zycee033-nrseqrem.
PERFORM seleciona_nrfat
USING
/pws/zycee033-bukrs
/pws/zycee033-docremfinanc
/pws/zycee033-dtincl
CHANGING
v_nrfat.
itab_zycbt124-nrseq = /pws/zycee033-nrseqrem.
itab_zycbt124-nrfech = /pws/zycee033-nrpres.
itab_zycbt124-bukrs = /pws/zycee033-bukrs.
itab_zycbt124-werks = /pws/zycee033-werks.
itab_zycbt124-tpoper = 'P'.
itab_zycbt124-recrem = /pws/zycee033-despach.
itab_zycbt124-nrfat = v_nrfat.
itab_zycbt124-dtincl = /pws/zycee033-dtincl.
itab_zycbt124-dtvencto = /pws/zycee033-dtvencto.
itab_zycbt124-waers = /pws/zycee033-waers.
itab_zycbt124-vlme = v_vldp.
itab_zycbt124-txtinf = /pws/zycee033-observ.
itab_zycbt124-fcambio = 'S'.
itab_zycbt124-status = 'A'.
itab_zycbt124-kursf = /pws/zycee033-kurrf.
itab_zycbt124-dtdocto = /pws/zycee033-dtdcto.
itab_zycbt124-belnr = /pws/zycee033-docremfinanc.
itab_zycbt124-frpagto = 'C'.
itab_zycbt124-dtsdusuario = sy-uname.
itab_zycbt124-dtsdhr = sy-uzeit.
itab_zycbt124-dtusers = sy-datum.
itab_zycbt124-tprecrem = 'F'.
itab_zycbt124-criacao = 'D'.
itab_zycbt124-vlmi = itab_zycbt124-vlme * /pws/zycee033-kurrf.
itab_zycbt124-pfiscal = 'N'.
itab_zycbt124-tpcliente = 'F'.
APPEND itab_zycbt124.
MODIFY /pws/zycbt124 FROM TABLE itab_zycbt124.
COMMIT WORK.
ENDFORM.
FORM verifica_fatura_remessa CHANGING p_v_fatura
p_v_remessa.
LOOP AT itab_zycet043 WHERE ( pgtocamb IS initial OR
remfinanc IS initial ) AND
NOT vldp IS initial.
p_v_fatura = 'X'.
EXIT.
ENDLOOP.
LOOP AT itab_zycet043 WHERE NOT pgtocamb IS initial AND
NOT remfinanc IS initial AND
NOT vldp IS initial.
p_v_remessa = 'X'.
EXIT.
ENDLOOP.
ENDFORM.
FORM busca_seq_remessa CHANGING p_/pws/zycee033_nrseqrem.
DATA:
v_nrseq LIKE /pws/zycbt124-nrseq,
v_count(8) TYPE n,
v_ano(3).
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt124
WHERE nrseq LIKE v_ano.
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO p_/pws/zycee033_nrseqrem.
ENDFORM.
FORM seleciona_nrfat
USING
p_bukrs TYPE /pws/zycee033-bukrs
p_docremfinanc TYPE /pws/zycee033-docremfinanc
p_dtinclusao TYPE /pws/zycee033-dtincl
CHANGING
p_v_nrfat TYPE /pws/zycbt124-nrfat.
DATA: v_ano(4) TYPE c.
v_ano = /pws/zycee033-dtincl(4).
SELECT SINGLE awkey FROM bkpf
INTO p_v_nrfat
WHERE bukrs = p_bukrs AND
belnr = p_docremfinanc AND
gjahr = v_ano.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE013TOP
...
v_cpochv LIKE /pws/zycbe033-cpochv,
v_taxa LIKE /pws/zycet033-kurrf,
v_monat LIKE t001b-frpe1,
v_mr8m LIKE /pws/zycet033-docfat,
v_branch LIKE t001w-j_1bbranch,
v_docomp LIKE /pws/zycee033-docomp,
i_belnr LIKE bseg-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
v_nivel_tsr_desc LIKE t036t-ktext,
* >> Início da exclusão:
v_totimpo LIKE /pws/zycbe033-wrbtrirrf,
v_vldp LIKE /pws/zycee033-totdep,
v_vladto LIKE /pws/zycee033-vlmi,
* << Fim da exclusão
* >> Início da inclusão:
v_totimpo LIKE /pws/zycbe033-wrbtrirrf,
v_vldp LIKE /pws/zycee033-totdep,
v_vladto LIKE /pws/zycee033-vlmi,
* << Fim da inclusão
v_status(1), "#EC NEEDED
* >> Início da exclusão:
v_nrpres LIKE /pws/zycet033-nrpres,
v_flag_obs TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
v_nrpres LIKE /pws/zycet033-nrpres,
v_flag_obs TYPE c,
* << Fim da inclusão
v_check(1),
* >> Início da exclusão:
v_tabix LIKE sy-tabix,
v_duplic(1) TYPE c VALUE '1',
v_newum(1) TYPE c,
v_impiva TYPE flag,
v_alt TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
v_tabix LIKE sy-tabix,
v_duplic(1) TYPE c VALUE '1',
v_newum(1) TYPE c,
v_impiva TYPE flag,
v_alt TYPE c,
v_fatura(1) TYPE c,
v_remessa(1) TYPE c.
* << Fim da inclusão
DATA: p_moeda_prestacao TYPE /pws/zycet033-waers.
DATA: v_lock.
DATA: d_name1 LIKE lfa1-name1.
CONSTANTS: c_code_c(20) VALUE '/PWS/ZYCE013_C',
c_code_a(20) VALUE '/PWS/ZYCE013_A',
c_code_e(20) VALUE '/PWS/ZYCE013_E'.
DATA wa_zycbt011 LIKE /pws/zycbt011.
DATA: BEGIN OF wa_descdesp,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE013X01
...
diferenca LIKE /pws/zycet002-vlme,
pep LIKE vbap-ps_psp_pnr,
ordem LIKE /pws/zycet002-vbeln_va,
item LIKE /pws/zycet002-posnr,
kschl LIKE /pws/zycet043-kschl,
tpdesp LIKE /pws/zycet043-tpdesp,
chave_dif LIKE /pws/zycbe035-chave,
vbeln_va LIKE /pws/zycet002-vbeln_va,
aupos LIKE /pws/zycet002-aupos,
codiva LIKE /pws/zycet043-codiva,
* >> Início da inclusão:
pgtocamb LIKE /pws/zycet043-pgtocamb,
remfinanc LIKE /pws/zycet043-remfinanc,
* << Fim da inclusão
END OF itab_total.
DATA: okcode LIKE sy-ucomm,
v_controle TYPE flag,
v_modo_bi(1) TYPE c,
v_modify(1) TYPE c VALUE 'S',
wa_cols TYPE LINE OF cxtab_control-cols.
DATA: itab_zycbt032 TYPE /pws/zycbt032 OCCURS 5 WITH HEADER LINE,
itab_zycbt034 TYPE /pws/zycbt034 OCCURS 5 WITH HEADER LINE,
itab_witht TYPE /pws/zycbt036 OCCURS 0 WITH HEADER LINE,
itab_zycet033_sel LIKE itab_zycet033 OCCURS 10 WITH HEADER LINE,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE013
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 116
Texto: (57 caracteres)
"Installment of accounts generated a Financial Remittance."
Comprimento máximo: 60
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 116
Texto: (49 caracteres)
"Prestação de Contas criou uma Remessa Financeira."
Comprimento máximo: 60
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 116
Texto: (57 caracteres)
"Representación de cuentas ha creado un Remesa Financiera."
Comprimento máximo: 60
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 117
Texto: (50 caracteres)
"Please, reverse the Remittance on Exchange Module."
Comprimento máximo: 50
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 117
Texto: (35 caracteres)
"Favor estornar a Remessa no Câmbio."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 117
Texto: (49 caracteres)
"Por favor, anular las remesa en Cambio de Módulo."
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE021
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
IVA MWSKZ CHAR 2
ESTAT /PWS/ZYCIL061 CHAR 1
RATEIO /PWS/ZYCEL228 CHAR 3
PRESTC /PWS/ZYCEL717 CHAR 1
CUSTEF /PWS/ZYGLT897 CHAR 3
PGTOCAMB /PWS/ZYCEL582 CHAR 1
* >> Início da inclusão:
REMFINANC /PWS/ZYCEL903 CHAR 1
* << Fim da inclusão
ESCLF /PWS/ZYCEL572 CHAR 1
USERNAMEC SYUNAME CHAR 12
DTUSERC SYDATUM DATS 8
HRUSERC SYSTTIMLO TIMS 6
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE033
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
DTDCTO /PWS/ZYCIL032 DATS 8
DOCNUM_2 /PWS/ZYCEL457 CHAR 10
PGTOCAMB /PWS/ZYCEL582 CHAR 1
STATUSCB /PWS/ZYCIL035 CHAR 1
BUDAT BUDAT DATS 8
TIPO /PWS/ZYGLL158 CHAR 3
* >> Início da inclusão:
NRSEQREM /PWS/ZYCBL222 CHAR 10
DOCREMFINANC /PWS/ZYCEL457 CHAR 10
DOCCAMBREM /PWS/ZYCEL457 CHAR 10
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE043
Nome campo Elem.dados Tab.verif. N CtDt Comp.
...
WAERS_PROV /PWS/ZYCEL444 CUKY 5
DOCNUM /PWS/ZYCIL130 CHAR 10
TPREND /PWS/ZYCEL895 CHAR 3
RECBENF /PWS/ZYCEL896 CHAR 4
TRIBUT /PWS/ZYCEL897 CHAR 2
FONTEPAG /PWS/ZYCEL898 CHAR 3
* >> Início da inclusão:
PGTOCAMB /PWS/ZYCEL582 CHAR 1
REMFINANC /PWS/ZYCEL903 CHAR 1
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET019
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
MANDT MANDT CLNT 3
CODMOD /PWS/ZYCIL090 CHAR 1
NRSEQ /PWS/ZYCIL001 CHAR 10
NRADTO /PWS/ZYCIL027 CHAR 10
KOSTL /PWS/ZYCEL451 CHAR 10
PRCTR /PWS/ZYCEL454 CHAR 10
GSBER /PWS/ZYCEL448 CHAR 4
NRPRES /PWS/ZYCEL001 CHAR 10
BELNR /PWS/ZYCEL457 CHAR 10
AUGBL AUGBL CHAR 10
DOCOMPROV /PWS/ZYCEL457 CHAR 10
* >> Início da inclusão:
DOCREMFINANC /PWS/ZYCEL457 CHAR 10
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET021
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
CSLL /PWS/ZYCEL576 CHAR 1
INSS /PWS/ZYGLL1145 CHAR 1
IVA MWSKZ CHAR 2
ESTAT /PWS/ZYCIL061 CHAR 1
RATEIO /PWS/ZYCEL228 CHAR 3
PRESTC /PWS/ZYCEL717 CHAR 1
CUSTEF /PWS/ZYGLT897 CHAR 3
PGTOCAMB /PWS/ZYCEL582 CHAR 1
* >> Início da inclusão:
REMFINANC /PWS/ZYCEL903 CHAR 1
* << Fim da inclusão
ESCLF /PWS/ZYCEL572 CHAR 1
USERNAMEC SYUNAME CHAR 12
DTUSERC SYDATUM DATS 8
HRUSERC SYSTTIMLO TIMS 6
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET033
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
BVTYP BVTYP CHAR 4
FDLEV FDLEV CHAR 2
DTDCTO /PWS/ZYCIL032 DATS 8
DOCNUM_2 /PWS/ZYCEL457 CHAR 10
PGTOCAMB /PWS/ZYCEL582 CHAR 1
STATUSCB /PWS/ZYCIL035 CHAR 1
BUDAT BUDAT DATS 8
TIPO /PWS/ZYGLL158 CHAR 3
* >> Início da inclusão:
NRSEQREM /PWS/ZYCBL222 CHAR 10
DOCREMFINANC /PWS/ZYCEL457 CHAR 10
DOCCAMBREM /PWS/ZYCEL457 CHAR 10
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET043
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
CONTA2 /PWS/ZYCEL473 CHAR 10
PORCENT1 /PWS/ZYCIL131 DEC 10
SOMATORIO /PWS/ZYCIL093 CURR 13
STATUS /PWS/ZYCIL035 CHAR 1
KOSTL /PWS/ZYCEL451 CSKS CHAR 10
WAERS_PROV /PWS/ZYCEL444 CUKY 5
DOCNUM /PWS/ZYCIL130 CHAR 10
TPREND /PWS/ZYCEL895 CHAR 3
RECBENF /PWS/ZYCEL896 CHAR 4
TRIBUT /PWS/ZYCEL897 CHAR 2
FONTEPAG /PWS/ZYCEL898 CHAR 3
* >> Início da inclusão:
PGTOCAMB /PWS/ZYCEL582 CHAR 1
REMFINANC /PWS/ZYCEL903 CHAR 1
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIED /PWS/ZYCEV021
Camp.visão Tabela Nome campo Chv Elem.dados Mod
MANDT /PWS/ZYCET021 MANDT MANDT
LAND1 /PWS/ZYCET021 LAND1 LAND1
BUKRS /PWS/ZYCET021 BUKRS BUKRS
REGIO /PWS/ZYCET021 REGIO REGIO
WERKS /PWS/ZYCET021 WERKS /PWS/ZYCEL450
TIPO /PWS/ZYCET021 TIPO /PWS/ZYGLL158
LIFNR /PWS/ZYCET021 LIFNR LIFNR
TPDESP /PWS/ZYCET021 TPDESP /PWS/ZYCIL036
TPREND /PWS/ZYCET021 TPREND /PWS/ZYCEL895
RECBENF /PWS/ZYCET021 RECBENF /PWS/ZYCEL896
KVSL1 /PWS/ZYCET021 KVSL1 /PWS/ZYCEL716
DESCR /PWS/ZYCET021 DESCR /PWS/ZYCIL037
KSCHL /PWS/ZYCET021 KSCHL /PWS/ZYCEL476
IVA /PWS/ZYCET021 IVA MWSKZ
ESTAT /PWS/ZYCET021 ESTAT /PWS/ZYCIL061
RATEIO /PWS/ZYCET021 RATEIO /PWS/ZYCEL228
PRESTC /PWS/ZYCET021 PRESTC /PWS/ZYCEL717
CUSTEF /PWS/ZYCET021 CUSTEF /PWS/ZYGLT897
PGTOCAMB /PWS/ZYCET021 PGTOCAMB /PWS/ZYCEL582
* >> Início da inclusão:
REMFINANC /PWS/ZYCET021 REMFINANC /PWS/ZYCEL903
* << Fim da inclusão
ESCLF /PWS/ZYCET021 ESCLF /PWS/ZYCEL572
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCEV021V
Gerar novamente o diálogo de atualização da Visão: /PWS/ZYCEV021