CE PLUS - Nota 004992
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 15/10/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 17:25:34
Descrição da Nota: VALORES MANTIDOS EXTERIOR(XBLNR) - REFERENCIA HORA
Sintoma
Após o desmembramento de uma fatura, em qualque transação, o programa está acrescentando
incorretamente uma informação no campo referência.
Solução
Agora a opção é parametrizável.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04992 Data: 15/10/2007 Hora: 17:42:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04992
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00019
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS EXTERIOR(XBLNR) - REFERENCIA HORA
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS EXTERIOR(XBLNR) - REFERENCIA HORA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
USING
value(p_bukrs) TYPE /pws/zycbt011-bukrs
value(p_ktosl) TYPE /pws/zyglt321-ktosl
value(p_codeven) TYPE /pws/zyglt321-codeven
value(p_desmemb) TYPE c
value(p_wa_zycbt226) TYPE t_s_zycbe226
value(p_wa_zycbt017) TYPE t_s_zycbt017
CHANGING
p_wa_zycbe033 TYPE t_s_zycbe033.
CONSTANTS:
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
c_desm_cont(01) TYPE c VALUE 'C',
c_sgtxt(05) TYPE c VALUE 'SGTXT',
c_xblnr(05) TYPE c VALUE 'XBLNR',
c_zuonr(05) TYPE c VALUE 'ZUONR',
c_zterm(05) TYPE c VALUE 'ZTERM',
c_zfbdt(05) TYPE c VALUE 'ZFBDT',
c_valut(05) TYPE c VALUE 'VALUT',
c_nrinvoic(08) TYPE c VALUE 'NRINVOIC',
c_nremb(05) TYPE c VALUE 'NREMB',
c_nrseq(05) TYPE c VALUE 'NRSEQ',
c_ref(06) TYPE c VALUE 'REF_OP',
c_obs(03) TYPE c VALUE 'OBS',
c_dtincl(06) TYPE c VALUE 'DTINCL',
c_dtlancto(08) TYPE c VALUE 'DTLANCTO',
c_dtlimite(08) TYPE c VALUE 'DTLIMITE',
c_dtbl(4) TYPE c VALUE 'DTBL',
c_dtinvoic(10) TYPE c VALUE 'DTINVOIC'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
c_desm_cont(01) TYPE c VALUE 'C',
c_sgtxt(05) TYPE c VALUE 'SGTXT',
c_xblnr(05) TYPE c VALUE 'XBLNR',
c_zuonr(05) TYPE c VALUE 'ZUONR',
c_zterm(05) TYPE c VALUE 'ZTERM',
c_zfbdt(05) TYPE c VALUE 'ZFBDT',
c_valut(05) TYPE c VALUE 'VALUT',
c_nrinvoic(08) TYPE c VALUE 'NRINVOIC',
c_nremb(05) TYPE c VALUE 'NREMB',
c_nrseq(05) TYPE c VALUE 'NRSEQ',
c_ref(06) TYPE c VALUE 'REF_OP',
c_obs(03) TYPE c VALUE 'OBS',
c_dtincl(06) TYPE c VALUE 'DTINCL',
c_dtlancto(08) TYPE c VALUE 'DTLANCTO',
c_dtlimite(08) TYPE c VALUE 'DTLIMITE',
c_dtbl(4) TYPE c VALUE 'DTBL',
c_dtinvoic(10) TYPE c VALUE 'DTINVOIC',
c_nrinvoic_ms(11) TYPE c VALUE 'NRINVOIC+MS',
c_nrseq_ms(08) TYPE c VALUE 'NRSEQ+MS',
c_nremb_ms(08) TYPE c VALUE 'NREMB+MS',
c_ref_ms(09) TYPE c VALUE 'REF_OP+MS'.
* << Fim da inclusão
FIELD-SYMBOLS:
<fs_zyglt321> TYPE t_s_zyglt321.
DATA: v_hora(8) TYPE c.
LOOP AT itab_zyglt321
ASSIGNING <fs_zyglt321>
WHERE ktosl = p_ktosl
AND codeven = p_codeven.
CASE <fs_zyglt321>-cpor3.
WHEN c_sgtxt.
CASE <fs_zyglt321>-cpocb.
...
...
WHEN c_obs.
p_wa_zycbe033-c_sgtxt = <fs_op>-obs.
p_wa_zycbe033-d_sgtxt = <fs_op>-obs.
p_wa_zycbe033-augtx = <fs_op>-obs.
ENDCASE.
WHEN c_xblnr.
v_hora = sy-uzeit.
CONCATENATE v_hora+2(2) ':' v_hora+4(2)
INTO v_hora.
CASE <fs_zyglt321>-cpocb.
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_nrinvoic_ms.
* << Fim da inclusão
CONCATENATE <fs_op>-nrinvoic v_hora
INTO p_wa_zycbe033-xblnr
SEPARATED BY space.
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_nremb.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_nremb_ms.
* << Fim da inclusão
CONCATENATE <fs_op>-nremb v_hora
INTO p_wa_zycbe033-xblnr
SEPARATED BY space.
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_nrseq_ms.
* << Fim da inclusão
CONCATENATE <fs_op>-nrseq v_hora
INTO p_wa_zycbe033-xblnr
SEPARATED BY space.
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_ref.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_ref_ms.
* << Fim da inclusão
CONCATENATE <fs_op>-ref_op v_hora
INTO p_wa_zycbe033-xblnr
SEPARATED BY space.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
WHEN c_nrinvoic.
p_wa_zycbe033-xblnr = <fs_op>-nrinvoic.
WHEN c_nremb.
p_wa_zycbe033-xblnr = <fs_op>-nremb.
WHEN c_nrseq.
p_wa_zycbe033-xblnr = <fs_op>-nrseq.
WHEN c_ref.
p_wa_zycbe033-xblnr = <fs_op>-ref_op.
* << Fim da inclusão
ENDCASE.
WHEN c_zfbdt.
CASE <fs_zyglt321>-cpocb.
WHEN c_dtincl.
p_wa_zycbe033-zfbdt = <fs_op>-dtincl.
WHEN c_dtlancto.
p_wa_zycbe033-zfbdt = <fs_op>-dtlancto.
WHEN c_dtlimite.
p_wa_zycbe033-zfbdt = <fs_op>-dtlimite.
WHEN c_dtbl.
...