CE PLUS - Nota 009003
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 14/09/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:51:55
Descrição da Nota: COMPLEMENTO DO BOLETO - CAMPOS ABERTOS NO PROXIMO REGISTRO
Sintoma
Complemento do Boleto - campos nao abrem no proximo registro.
Solução
Complemento do Boleto - abrir os campos quando for para o proximo registro e fechar quando salvar.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09003 Data: 14/09/2009 Hora: 16:23:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09003
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00115
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06077 - 00006 - 7.0 - 00004 - DESPESAS DE EXPORTAÇÃO
06114 - 00005 - 7.0 - 00004 - COMPLEMENTO DO BOLETO - DA ESTORNO PAGAMENTO ANTECIPADO/FAT. IMPO
06118 - 00004 - 7.0 - 00004 - CB - 445631 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA.
06132 - 00003 - 7.0 - 00004 - COMPLEMENTO DO BOLETO
06903 - 00002 - 7.0 - 00006 - FORMA DE PAGAMENTO NO COMPLEMENTO DE BOLETO
07328 - 00001 - 7.0 - 00007 - PROCESSAR BOLETO - COMPLEMENTO DO BOLETO - BOTÃO ATALHO BOLETO/SA
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - CAMPOS ABERTOS NO PROXIMO REGISTRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - CAMPOS ABERTOS NO PROXIMO REGISTRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110I01
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110I01
...
if /pws/zycbe031-estrat is initial.
message i061 with text-216.
else.
call screen 0003 starting at 26 3 ending at 80 15.
endif.
when 'VTAXA'.
perform verifica_propoe_taxa.
when 'FPGTO'.
call screen 0104 starting at 3 2.
endcase.
* >> Início da exclusão: MODULE USER_COMMAND_0200
clear: w_ok, ok_code.
* << Fim da exclusão
endmodule.
module calcula_total input.
perform calcula_total.
endmodule.
module user_command_0001 input.
perform carrega_variaveis.
endmodule.
module controla_tela input.
clear itab_zyglt100. refresh itab_zyglt100.
v_repid = sy-repid.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
modify screen.
endloop.
endif.
endif.
endform.
form avanca_registro.
data v_proximo like sy-tabix.
read table itab_zycbt031 with key nrseq = /pws/zycbe031-nrseq.
v_proximo = sy-tabix + 1.
read table itab_zycbt031 index v_proximo.
* >> Início da exclusão: FORM AVANCA_REGISTRO
check sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM AVANCA_REGISTRO
if sy-subrc ne 0 .
clear w_ok.
else.
* << Fim da inclusão
select single * from /pws/zycbt031 into /pws/zycbe031
where nrseq = itab_zycbt031-nrseq
and dtboleto = itab_zycbt031-dtboleto.
move /pws/zycbe031 to wa_zycbt031.
clear /pws/zycbe064.
clear itab_zycbt064.
refresh itab_zycbt064.
select * from /pws/zycbt064
into table itab_zycbt064
where nrboleto = itab_zycbt031-nrseq. "#EC CI_NOFIRST
...
...
perform seleciona_dados_gerais.
perform carrega_dados.
perform calcula_valores_totais.
else.
clear /pws/zycbe048.
select single * from /pws/zycbt048 into /pws/zycbe048
where nrseq = itab_zycbt031-nrseq
and dtboleto = itab_zycbt031-dtboleto.
endif.
v_line = 01.
* >> Início da inclusão: FORM AVANCA_REGISTRO
endif.
* << Fim da inclusão
endform.
form volta_registro.
data v_proximo like sy-tabix.
read table itab_zycbt031 with key nrseq = /pws/zycbe031-nrseq.
v_proximo = sy-tabix - 1.
read table itab_zycbt031 index v_proximo.
check sy-subrc = 0.
clear /pws/zycbe064.
clear itab_zycbt064.
refresh itab_zycbt064.
...
...
endif.
endif.
if /pws/zycbe031-belnr_p is initial.
itab_pf_status-fcode = 'PAG'.
append itab_pf_status.
endif.
set pf-status '0200' excluding itab_pf_status.
refresh itab_pf_status.
endform.
form desabilitar_100.
* >> Início da exclusão: FORM DESABILITAR_100
data:
* << Fim da exclusão
* >> Início da inclusão: FORM DESABILITAR_100
data: v_cod like ok_code,
* << Fim da inclusão
v_belnr_as type /pws/zycbt117-belnr_as.
* >> Início da inclusão: FORM DESABILITAR_100
v_cod = w_ok .
* << Fim da inclusão
if /pws/zycbt118-fcambio = 'N'.
v_status_s = '0'.
elseif /pws/zycbt118-fcambio = 'S'.
v_status_despesa = v_status_s.
endif.
if v_desp_a = 'A'.
...
...
loop at screen.
if screen-name eq '/PWS/ZYCBE145-BUKRS_P' or
screen-name eq '/PWS/ZYCBE145-ZLSCH' or
screen-name eq '/PWS/ZYCBE031-BCOOPER' or
screen-name eq '/PWS/ZYCBE031-KURSF' or
screen-name eq '/PWS/ZYCBE031-DTCREDPR'.
screen-input = '0'.
modify screen.
endif.
endloop.
* >> Início da inclusão: FORM DESABILITAR_100
endif.
endif.
loop at screen.
if screen-name eq '/PWS/ZYCBE145-ZLSCH' or
screen-name eq '/PWS/ZYCBE031-BCOOPER' or
screen-name eq '/PWS/ZYCBE031-KURSF' or
screen-name eq 'V_PROPOR' or
screen-name eq '/PWS/ZYCBE031-DTCREDPR'.
if v_cod = 'AVAN' or
v_cod = 'ENTE'.
screen-input = '1'.
modify screen.
* << Fim da inclusão
endif.
endif.
* >> Início da inclusão: FORM DESABILITAR_100
endloop.
* << Fim da inclusão
tc_cont-line_sel_mode = 0.
tc_dados-line_sel_mode = 0.
endform.
module insert_line output.
perform insere_dados.
...