Cuadro de dialogo
tengo un aplicativo que contiene un datawindow grid el cual se va llenando conforme van realizando pedidos el problema que tengo o la iniciativa es como hacer cuando mi sistema este minimizado me salga un cuadro de dialogo que me indique tiene 1 pedido y ais sucesivamente alguna ayuda o sugerencia
1 respuesta
osea
if dw_1.grid.rowcount > 0 then
open(w_conteo)
end if
pero en el timer como programo
Según entiendo tus pedidos se llenan en un tabla [PEDIDO] y estos tienen un clave única que pues ser un IdPedido O SecPedido.
Lo que tendrías que hacer es...!
1.- Hacer una captura de tu ultimo IdPedido que tiene tu grid.
LONG ll_ultimo_pedido
ll_ultimo_pedido = dw_1.Describe("Evaluate('Max(IdPedido)',0")
El 0 significa que evaluara en toda la columna y no en una especifica. Como las filas 1,2,3..
2.- Hacer un select si existe un pedido con IdPedido mayor ( > ) al de tu grid.
LONG ll_nuevo_pedido
Select top 1 IdPedido Into :ll_nuevo_pedido From PEDIDO Where IdPedido > :ll_ultimo_pedido Order by Asc;
El top 1 es para capturar los pedidos 1 por uno para luego agregarlas de forma ascendente a tu grid.
3.- Evaluar nuevos pedidos.
Olvidate del response puedes hacerlo con un MessageBox
If ll_nuevo_pedido > 0 Then
Como tienes el Id del nuevo pedido (ll_nuevo_pedido)
Haz una consulta a tu tabla y llena los datos en tu grid.
MessageBox("Aviso","Tiene un nuevo pedido"+
End If
