CE PLUS - Nota 010458
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 03/08/2010 00:00:00
Data/Hora Última Alteração: 16/12/2010 09:00:58
Descrição da Nota: CAPTAÇÃO DP C/C ME - DUMP AO SALVAR
Sintoma
Captação DP C/C ME - dump ao salvar.
Solução
Salvar os dados somente apos as consistencias corretas e quando tecla enter não alterar dados da
tabela, somente alterar dados da tela.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10458 Data: 03/08/2010 Hora: 14:57:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10458
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00033
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
03191 - 00007 - ESTORNO DOCUMENTO CONTÁBIL DA CAPTAÇÃO
09330 - 00006 - NOTA TRADUÇÃO CÂMBIO
09463 - 00005 - TRADUÇÃO PW.CE CÂMBIO - PORTUGUÊS PARA INGLÊS
10191 - 00004 - CAPTAÇÃO, PREENCHIMENTO SOCIEDADE PARCEIRA NA CONTABILIZAÇÃO
10272 - 00003 - TRADUÇÃO CLASSE CÂMBIO EN/ES
10377 - 00002 - CAPTAÇÃO - PROBLEMA CFM
10432 - 00001 - CAPTAÇÃO - TRAVA - INCONSISTÊNCIA DIAS CONTRATO/DIAS PARCELA PRINCIPAL
----------------------------------------------------------------------------------------------------
CAPTAÇÃO DP C/C ME - DUMP AO SALVAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO DP C/C ME - DUMP AO SALVAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001O01
REPS /PWS/MZYCB001TOP
REPT /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
WHERE nrseq = /pws/zycbe226-nrseq
AND tipo_op = 'P'
AND sld_exterior > 0.
ENDIF.
ENDIF.
IF sy-subrc = 0.
IF /pws/zycbe001-kunnr EQ /pws/zycbt226-kunag
OR /pws/zycbe001-kunnr IS INITIAL.
MOVE-CORRESPONDING /pws/zycbt226 TO itab_zycbt226.
IF sy-tcode EQ '/PWS/ZYCB001_C'.
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT226
clear v_save.
if v_enter is initial.
* << Fim da inclusão
IF /pws/zycbe241-vlr_ord GT /pws/zycbe226-sld_exterior.
CLEAR: /pws/zycbe241-vlr_ord.
MESSAGE i015 WITH text-462 text-463.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT226
if okcode = 'SAVE'.
v_save = 'X'.
endif.
endif.
* << Fim da inclusão
MOVE /pws/zycbe241-vlr_ord TO itab_zycbt226-vlr_ord.
MODIFY itab_zycbt226 INDEX v_line.
IF sy-subrc NE 0.
READ TABLE itab_zycbt226_aux WITH KEY
nrseq = itab_zycbt226-nrseq.
IF sy-subrc NE 0.
READ TABLE itab_zycbt226 WITH KEY
nrseq = /pws/zycbe226-nrseq.
IF sy-subrc NE 0.
APPEND itab_zycbt226.
...
...
UPDATE /pws/zycbt227
SET saldo = itab_zycbt227-saldo
WHERE nrseq = itab_zycbt226-nrseq
AND nrinvoic = itab_zycbt227-nrinvoic
AND nrparcf = itab_zycbt227-nrparcf
AND gsberf = itab_zycbt227-gsberf
AND dtassoc = itab_zycbt227-dtassoc.
ENDLOOP.
ENDIF.
UPDATE /pws/zycbt226
* >> Início da exclusão: FORM SAVE_ZYCBT226
SET sld_exterior = sld_exterior - itab_zycbt226-vlr_ord
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT226
set sld_exterior = itab_zycbt226-sld_exterior
* << Fim da inclusão
WHERE nrseq = itab_zycbt226-nrseq.
* >> Início da exclusão: FORM SAVE_ZYCBT226
SELECT SINGLE sld_exterior FROM /pws/zycbt226
INTO itab_zycbt226-sld_exterior
WHERE nrseq = itab_zycbt226-nrseq.
* << Fim da exclusão
MODIFY itab_zycbt226.
ELSE.
UPDATE /pws/zycbt226
* >> Início da exclusão: FORM SAVE_ZYCBT226
SET sld_exterior = sld_exterior - itab_zycbt226-vlr_ord
WHERE nrseq = itab_zycbt226-nrseq.
SELECT SINGLE sld_exterior FROM /pws/zycbt226
INTO itab_zycbt226-sld_exterior
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT226
set sld_exterior = itab_zycbt226-sld_exterior
* << Fim da inclusão
WHERE nrseq = itab_zycbt226-nrseq.
MODIFY itab_zycbt226.
ENDIF.
/pws/zycbt241-nrseqc = /pws/zycbe001-nrseqc.
/pws/zycbt241-nrseq = itab_zycbt226-nrseq.
/pws/zycbt241-waers = itab_zycbt226-waers.
/pws/zycbt241-vlr_ord = itab_zycbt226-vlr_ord.
IF v_ver_227 = 1.
/pws/zycbt241-sld_assoc = v_vlr_ord.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
exporting
defaultoption = 'Y'
textline1 = p_textline1
textline2 = p_textline2
titel = p_titel
importing
answer = v_answer
exceptions
others = 1.
endform.
* >> Início da inclusão:
form verifica_valores_226.
check not itab_zycbt226_aux[] is initial.
check not itab_zycbt226[] is initial.
clear: v_enter.
if v_save is initial.
if okcode = 'ENTE' .
if sy-tcode ne '/PWS/ZYCB001_A'.
loop at itab_zycbt226.
v_tabix = sy-tabix.
read table itab_zycbt226_aux
with key nrseq = itab_zycbt226-nrseq.
if itab_zycbt226-sld_exterior >= itab_zycbt226-vlr_ord and
itab_zycbt226-vlr_ord <= /pws/zycbe001-vlme.
itab_zycbt226-sld_exterior =
itab_zycbt226-sld_exterior - itab_zycbt226-vlr_ord .
modify itab_zycbt226 index v_tabix.
v_enter = 'X'.
else.
message i061 with text-512 text-513.
endif.
endloop.
endif.
endif.
else.
loop at itab_zycbt226.
v_tabix = sy-tabix.
read table itab_zycbt226_aux
with key nrseq = itab_zycbt226-nrseq.
if itab_zycbt226-sld_exterior >= itab_zycbt226-vlr_ord .
if itab_zycbt226-vlr_ord = /PWS/ZYCBE001-VLME.
itab_zycbt226-sld_exterior =
itab_zycbt226-sld_exterior - itab_zycbt226-vlr_ord .
modify itab_zycbt226 index v_tabix.
update /pws/zycbt226 set sld_exterior = itab_zycbt226-sld_exterior
where nrseq = itab_zycbt226-nrseq.
commit work.
endif.
endif.
endloop.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
perform delete_zycbt001_tr.
else.
perform delete_zycbt001.
endif.
endif.
when 'SAVE'.
if v_erro_ov = 'X'.
message i015 with text-509.
leave to screen '0100'.
endif.
* >> Início da inclusão: MODULE USER_COMMAND_CB001
perform verifica_valores_226.
* << Fim da inclusão
case /pws/zycbe001-tpcontr+0(1).
when 'D'.
perform create_zycbt002_a.
when 'P' or 'S'.
perform create_zycbt002_p.
when 'A' or 'E' or 'C' or 'T'.
perform create_zycbt002_e.
endcase.
perform cria_parcelas_comissao.
perform dias_juros using ' '.
...
...
call screen '0202'.
else.
message i015 with text-065.
endif.
when 'ENTE'.
if /pws/zycbe001-waers is initial and
/pws/zycbe001-txcneg is initial.
message i015 with text-075.
endif.
perform calcula_moeda.
* >> Início da inclusão: MODULE USER_COMMAND_CB001
perform verifica_valores_226.
* << Fim da inclusão
when 'CANCELA'.
if /pws/zycbe001-tpcontr(1) = 'A'.
if not /pws/zycbe001-fcanc is initial.
move 'X' to v_altcanc.
select single vlme from /pws/zycbt004
into /pws/zycbe004-vlme
where nrcontr eq /pws/zycbe001-nrcontr
and nrseqc eq /pws/zycbe001-nrseqc
and tpcontr eq /pws/zycbe001-tpcontr
and tpdesp eq 'JC'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
j_1bbranch like /pws/zycbe226-j_1bbranch,
waers like /pws/zycbe226-waers,
kunag like /pws/zycbe226-kunag,
bco_me like /pws/zycbe226-bco_me,
conta_contabil like /pws/zycbe226-conta_contabil,
vlr_exterior like /pws/zycbe226-vlr_exterior,
sld_exterior like /pws/zycbe226-sld_exterior,
vlr_ord like /pws/zycbe241-vlr_ord,
ref_op like /pws/zycbe226-ref_op,
sld_assoc like /pws/zycbe241-sld_assoc,
* >> Início da exclusão:
mark(1) type c,
* << Fim da exclusão
* >> Início da inclusão:
mark type c,
* << Fim da inclusão
end of itab_zycbt226.
data: itab_zycbt226_aux like itab_zycbt226 occurs 0 with header line.
data: begin of itab_zycbt227 occurs 0.
include structure /pws/zycbt227.
data: end of itab_zycbt227.
data: begin of itab_zycbt241 occurs 0.
include structure /pws/zycbt241.
data: end of itab_zycbt241.
data: begin of itab_prorrogacao occurs 10.
include structure /pws/zycbt002.
...
...
data: begin of t_zycbt003_ant occurs 0.
include structure /pws/zycbt003.
data: end of t_zycbt003_ant.
data: v_alterado,
v_ok2.
data: begin of itab_rollback occurs 0,
belnr_novo type /pws/zycbt002-belnr,
belnr_ant type /pws/zycbt002-belnr,
parcela,
end of itab_rollback.
* >> Início da inclusão:
data: v_enter type c,
v_save type c.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 512
Texto: (47 caracteres)
"Valor utilizado da ordem não pode ser maior que"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 513
Texto: (27 caracteres)
"valor do saldo no exterior."
Comprimento máximo: 27