Xailer & OZ Software

Olá, em modo console eu carregava um DBEDIT com cabeçalho, mascaras e campos
e uma função para controlar o q se passava no DBEDIT, ou seja, ao começar
digitar algum texto, o sistema avaliava se fosse diferente de ESC abria uma
função para procurar produtos, se fosse F7 finalizava e pedia dados para
entrega e assim por diante.... minha dúvida é como poderia fazer isso no
Xailer e como...
Abaixo um pequeno exemplo:
Function Main()
LOCAL ...
Use ArqTemp Alias ArqTemp
aCampo[1] := "Codigo"
aCampo[2] := "Descricao"
aCampo[3] := "Qtd"
aCampo[4] := "Venda"
aCampo[5] := "desconto"
aCampo[6] := "Liquido"
aCampo[7] := "Total"
aHeader[1] := "Codigo"
aHeader[2] := "Descricao"
aHeader[3] := "Qtd"
aHeader[4] := "Pr.Venda"
aHeader[5] := "%Dcto"
aHeader[6] := "Pr.c/Des"
aHeader[7] := "Pr.Total"
aMasc[1] := "@!"
aMasc[2] := "@!"
aMasc[3] := "@E 99999"
aMasc[4] := "@E 99999.99"
aMasc[5] := "@E 99.99"
aMasc[6] := "@E 99999.99"
aMasc[7] := "@E 99999.99"
DBEDIT(07, 02, 15, 76, aCampo, "ControleDbEdit", aMasc, aHeader,
CHR(196), CHR(179), "")
RETURN
************************************************************ *******************
FUNCTION ControleDBEdit(modo)
************************************************************ *******************
LOCAL ...
DBSELECTAR("VendaTemp")
IF MODO == 4
IF LASTKEY()==K_F7 //========= FINALIZA A VENDA
...
ELSEIF LASTKEY()==K_F5 //=========== CAPTURA PESO DA BALANCA
...
ELSEIF LASTKEY()==K_ESC //========================== ESC na Venda
...
ELSEIF LASTKEY()==K_DEL //============= APAGANDO UM PRODUTO
...
ELSEIF LASTKEY() <> K_ESC //============================= VENDENDO
...
ENDIF
ENDIF
IF MODO == 2
...
ENDIF
RETURN(1)
[]´s
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

Cassiano, bom dia,
Fizemos algo semelhante usando o nKey de OnChar:
IF nKey==K_F7...
Mário

Blz Mario obrigado pela resposta vou testar e qualquer coisa comento aki...
[]´s
"www[dot]eMeAsOfT[dot]com" wrote in message
news:53299153$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano, bom dia,
Fizemos algo semelhante usando o nKey de OnChar:
IF nKey==K_F7...
Mário
--
http://www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft
http://www.facebook.com/emeasoft
https://plus.google.com/102999253031532804222
http://g.co/maps/26gey
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com