Bom dia a todos
Pessoal. Estou tendo um problema com uma tela onde a função de saida de tela SairTelaVenda() esta sendo executada por mais de uma vez
E só existe uma chamada desta tela que é lo valid da dialog. Uma vez confirmada a saida ela em algum momento é chamada novamente
Observem a linha
3 08:20:14-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ?
e a linha
14 08:20:23-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ?
De alguma maneira se repetem
Esta linha 14 não poderia existir devido a todo o processo ter sido finalizado na linha 13 mais de alguma maneira isso acontece
Algúem já passou por algo semalhante ?
1 08:20:13-BALCAO22-MONICA-393610-Voltou o foco
2 08:20:13-BALCAO22-MONICA-393610-Retornando de TeclaVenda TEVD02901834080338
3 08:20:14-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ?
4 08:20:14-BALCAO22-MONICA-393610-Retornou de SairTelaVenda como VERDADEIRO
5 08:20:14-BALCAO22-MONICA-393610-FINALIZANDO TELA DE VENDAS em temporário TEVD02901834080338
6 08:20:14-BALCAO22-MONICA-393610-Fechamento padrão do temporario : TEVD02901834080338
7 08:20:14-BALCAO22-MONICA-393610-Executando exclusão do temporário : TEVD02901834080338 : C:\sven\TE\TEVD02901834080338.DBF
8 08:20:14-BALCAO22-MONICA-393610-Executando exclusão do temporário : TEVD02901834080338 : C:\sven\TE\TEVD02901834080338.fpt
9 08:20:14-BALCAO22-MONICA-393610-NAO FOI ENCONTRADO NENHUM ARQUIVO : K:\sven\TEVD02901834080338.prn PARA EXCLUSÃO
10 08:20:14-BALCAO22-MONICA-393610-Finalizando venda em temporário TEVD02901834080338
11 08:20:14-BALCAO22-MONICA-393610-Nome atual do temporário de venda TEVD02901834080338
12 08:20:14-BALCAO22-MONICA-393610-Novo nome do temporário de venda FIMVD
13 08:20:14-BALCAO22-MONICA-393610-Trocou o nome e saiu FIMVD
14 08:20:23-BALCAO22-MONICA-393610-Confirmou a saida da tela de vendas com o texto Deseja realmente sair da venda ?
15 08:20:23-BALCAO22-MONICA-393610-Retornou de SairTelaVenda como VERDADEIRO
ACTIVATE DIALOG oDlgVd CENTERED ON INIT ( Ini_Dialogs(oDlgVd,,cFonteTela) ,;
BarraTelVd(oDlgVd,oBrVd,oGrupo[7]),;
SetsVendas( cFonteTela ) ) ;
VALID SairTelaVenda( oDlgVd )
*************************************//***************************************
STATIC FUNCTION SairTelaVenda( oDialogVd )
**************************************//***************************************
LOCAL lFinalizarTelaVd := .F.
IF lBrowseVdEmProcesso
GravaLogDia("Tentou sair sendo que o lBrowseVdEmProcesso estava como VERDADEIRO", "SVE")
ELSE
IF MSG( "Deseja realmente sair da venda" ,"ATENÇÃO","YESNO")
IF p_Arg1 = "O" .AND. p_nPedido > 0
cQueryDav := "UPDATE orcamto SET coo_dav = " + ANY2SQL( 0 ) + " WHERE pedido = " + ANY2SQL(p_nPedido)
p_nPedido := 0
MyMsgRun("Aguarde... Liberando a utilização do Dav ","AGUARDE...", {|| GravaBase(cQueryDav,"Orcamto") })
ENDIF
GravaLogDia("Confirmou a saida da tela de vendas com o texto " + "Deseja realmente sair da venda", "SVE")
lFinalizarTelaVd := .T.
ENDIF
ENDIF
GravaLogDia("Retornou de SairTelaVenda como " + IF(lFinalizarTelaVd,"VERDADEIRO","FALSO") , "SVE")
IF lFinalizarTelaVd
MyMsgRun("Finalizando operação ........","AGUARDE", {|| TerminaProcessoVenda( oDialogVd ) }, "Engrena.gif" )
ENDIF
RETURN lFinalizarTelaVd
************************************************************************
STATIC FUNCTION TerminaProcessoVenda( oDialogVd )
************************************************************************
GravaLogDia( "FINALIZANDO TELA DE VENDAS em temporário " + cArqVendas , "SVE" )
IF File(oPub:wPathTemp + cArqParc + ".DBF") // Caso seja um orcamento com cond. de pgto
MyMsgRun("Finalizando arquivo de parcelas ........","AGUARDE", {|| Fecha_Temp(cArqVendas,.T.) }, "Engrena.gif" )
GravaLogDia( "Finalizando Temporario das parcelas no final da venda em vd_00 " + cArqVendas , "SVE" )
ENDIF
IF !oPub:lControleErr
GravaLogDia( "Nome atual do temporário de venda " + cArqVendas , "SVE" )
cArqVendas := "FIMVD"
GravaLogDia( "Novo nome do temporário de venda " + cArqVendas , "SVE")
ENDIF
WaitSeconds( 0.5 )
*HB_GCAll(.T.)
GravaLogDia( "Trocou o nome e saiu " + cArqTemp , "SVE")
RETURN .T.