CE PLUS - Nota 002109
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 14/09/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:21:41
Descrição da Nota: DESVINCULAÇÃO DE VALORES NAS FATURAS NA VINCULAÇÃO
Sintoma
O Processo de Desvincular um valor no programa de Vinculação de Faturas não está sendo possível. O
programa não entra nem no Batch Input. Um outro erro que estava ocorrendo era que não estava
voltando o valor da fatura para a tabela corretamente.
Solução
Foi selecionada a tabela /PWS/ZYCBT089 de parâmetros gerais da empresa.
Para o segundo erro foi somente atualizada uma tabela interna itab_zycbt005_ant que quando desse o
erro na vinculação os valores voltassem corretamente para a tabela de faturas.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02109 Data: 14/09/2006 Hora: 17:32:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02109
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DESVINCULAÇÃO DE VALORES NAS FATURAS NA VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSO DESVINCULAÇÃO SALDO DA FATURA VINCULAÇÃO FATURAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
* >> Início da inclusão: FORM FILL_DATE1_F02
nrparcf = itab_vinc-nrparcf
* << Fim da inclusão
gsberf = itab_vinc-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
FROM /pws/zycbt005
INTO TABLE itab_zycbt005
WHERE nrseqc = /pws/zycbe005-nrseqc
AND dtvincul = /pws/zycbe005-dtvincul
AND tpdesp = ' '.
* >> Início da exclusão: FORM CARREGA_ITAB_ZYCBT005
MOVE itab_zycbt005[] TO itab_zycbt005_ant[].
* << Fim da exclusão
LOOP AT itab_zycbt005.
MOVE itab_zycbt005-vlvinc TO itab_zycbt005-calcpar.
MODIFY itab_zycbt005.
ENDLOOP.
ENDIF.
...
...
WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
AND gsberf = itab_zycbt017-gsberf.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT017
MOVE itab_zycbt005[] TO itab_zycbt005_ant[].
* << Fim da inclusão
ENDFORM.
FORM limpa_itab_zycbt005_aux4.
REFRESH itab_zycbt005_aux4.
CLEAR itab_zycbt005_aux4.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
FORM get_parameters_001.
CLEAR wa_zycbt007.
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe001-bukrs.
* >> Início da inclusão: FORM GET_PARAMETERS_001
CLEAR wa_zycbt089.
SELECT SINGLE * FROM /pws/zycbt089 INTO wa_zycbt089
WHERE bukrs EQ /pws/zycbe001-bukrs.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr(1) EQ 'D'.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT006'.
ELSE.
...
...
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
nrparcf = itab_zycbt005-nrparcf
* << Fim da inclusão
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
...