CE PLUS - Nota 003789
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 29/05/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 09:42:19
Descrição da Nota: ERRO NA MENSAGEM AO EFETUAR O RECEBIMENTO
Sintoma
Ao tentar efetuar o recebimento, sem preencher as contas na tabela zygl012, estava exibindo mensagem
incorreta (Campo ATENÇÃO!!! Não existe ta
não está preenchido! Lançamento não sera realizado).
Solução
Alterado no programa em todos os pontos onde chamava o FORM verify_null_field o simbolo de texto.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03789 Data: 29/05/2007 Hora: 10:22:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03789
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00168
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO NA MENSAGEM AO EFETUAR O RECEBIMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FORM VERIFY_NULL_FIELD, TEXT-021, TEXT-016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
'PRS'
itab_zycbt035-werks
space
itab_zycbt035-matuse
space
space.
READ TABLE itab_cta INDEX 1.
ENDIF.
itab_zycbt035-d_newko = itab_cta-konth.
PERFORM verify_null_field USING itab_zycbt035-d_newko 'C_NEWKO'
* >> Início da exclusão: FORM GET_PARAMETERS_F_02B
text-021.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F_02B
text-016.
* << Fim da inclusão
ELSEIF itab_zycbt035-bschl EQ '40'.
CLEAR: v_matuse.
IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
IF itab_zycbt035-knttp EQ 'F' OR itab_zycbt035-knttp EQ 'K'.
v_matuse = 3.
ELSE.
v_matuse = 1.
ENDIF.
ENDIF.
IF v_matuse IS INITIAL.
...
...
itab_zycbt035-werks
space
v_matuse
space
space.
READ TABLE itab_cta INDEX 1.
ENDIF.
itab_zycbt035-d_newko = itab_cta-konts.
CLEAR itab_zycbt035-ps_psp_pnr.
PERFORM verify_null_field USING itab_zycbt035-d_newko 'D_NEWKO'
* >> Início da exclusão: FORM GET_PARAMETERS_F_02B
text-021.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F_02B
text-016.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycbt035 INDEX v_index.
ENDLOOP.
ENDFORM.
FORM multiplos_lancamentos_f_02b.
DATA: v_index TYPE i,
v_montante LIKE /pws/zycbe035-wrbtr ,
v_valseg LIKE /pws/zycit036-vlreal,
v_tot_seg LIKE /pws/zycit085-vlseg,
v_seg_ac LIKE /pws/zycit085-vlseg,
...
...
'PRF'
itab_zycbt035-werks
space
itab_zycbt035-matuse
space
space.
READ TABLE itab_cta INDEX 1.
ENDIF.
itab_zycbt035-d_newko = itab_cta-konth.
PERFORM verify_null_field USING itab_zycbt035-d_newko 'C_NEWKO'
* >> Início da exclusão: FORM GET_PARAMETERS_F_02FRE
text-021.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F_02FRE
text-016.
* << Fim da inclusão
ELSEIF itab_zycbt035-bschl EQ '40'.
CLEAR: v_matuse.
IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
IF itab_zycbt035-knttp EQ 'F' OR itab_zycbt035-knttp EQ 'K'.
v_matuse = 3.
ELSE.
v_matuse = 1.
ENDIF.
ENDIF.
IF v_matuse IS INITIAL.
...
...
itab_zycbt035-werks
space
v_matuse
space
space.
READ TABLE itab_cta INDEX 1.
ENDIF.
itab_zycbt035-d_newko = itab_cta-konts.
CLEAR itab_zycbt035-ps_psp_pnr.
PERFORM verify_null_field USING itab_zycbt035-d_newko 'D_NEWKO'
* >> Início da exclusão: FORM GET_PARAMETERS_F_02FRE
text-021.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F_02FRE
text-016.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycbt035 INDEX v_index.
ENDLOOP.
ENDFORM.
FORM reverse_documento_provfre_fb08.
CLEAR v_belnr_ant.
IF e_if02fre EQ 'S'.
MESSAGE i030 WITH wa_nf-belnrf02fre.
CLEAR: wa_nf-belnrf02fre, wa_nf-dt_f02fre.
itab_zycit050-estorno = 'X'.
...