hola a todos tengo la siguiente pregunta,uso clarion 5.5 conectado a sql server 2005... y en una orden de compra despues de cargar la orden y cargar los renglones tengo 3 botones por defecto, el aceptar, el cancelar y el salir...necesito el codigo en el aceptar y el cancelar (por eso uso un salir) . pero el salir me elimina lo creado al elegir NO.. en desea guardar los cambios?, y me guarda otra vez y no sale de la ventana si elijo SI, pero eso ya lo hizo en el aceptar y en el cancelar, hay alguna manera de usar un boton salir o el mismo boton salir del clarion sin que pregunte nada y salga sin hacer cambios?.....les dejo el codigo del aceptar y cancelar.
boton aceptar:
message('Se grabo correctamente el comprobante '&GLO:PTO_VENTA&'-'&GLO:NRO_ORDEN_COMPRA)
! copiar renglones de detalle de la orden
DET1:sucursal = GLO:PTO_VENTA
DET1:nro_orden = GLO:NRO_ORDEN_COMPRA
DET1:Nro_Renglon = 1
set(DET1:por_renglon,DET1:por_renglon)
next(Detalle_OrdenCompra)
loop while not errorcode() and DET1:sucursal=GLO:PTO_VENTA and DET1:nro_orden =GLO:NRO_ORDEN_COMPRA
DET1:nro_orden= GLO:NRO_ORDEN_COMPRA
add(Detalle_OrdenCompra)
next(Detalle_OrdenCompra)
.
thiswindow.reset()
boton cancelar:
IF SELF.REQUEST=1 !VIENE POR INSERT DE LA TABLA DE orden de compra
!Elimina todos los renglones correspondiente a la orden de compra
Materia_Prima{PROP:SQL}= ' DELETE Detalle_OrdenCompra'&|
' WHERE SUCURSAL = '&GLO:PTO_VENTA &' AND nro_orden = '&GLO:NRO_ORDEN_COMPRA
!Elimina la cabecera de la orden de compra
PRODUCTOS{PROP:SQL}= ' DELETE OrdenCompra'&|
' WHERE SUCURSAL = '&GLO:PTO_VENTA &' AND nro_orden = '&GLO:NRO_ORDEN_COMPRA
.
salir de la ventana sin mensajes y sin eliminar lo creado
-
- Mensajes: 6
- Registrado: Jue Abr 14, 2011 12:33 pm
- Contactar:
-
- Al nivel de RZ
- Mensajes: 161
- Registrado: Dom Feb 06, 2011 2:36 am
- Contactar:
Re: salir de la ventana sin mensajes y sin eliminar lo cread
hola laura:
quiza algo asi en el embed del button "salir", antes del parentcall.
ThisWindow.SetResponse(RequestCancelled)
post(event:closewindow)
funciona ?
quiza algo asi en el embed del button "salir", antes del parentcall.
ThisWindow.SetResponse(RequestCancelled)
post(event:closewindow)
funciona ?
-
- Mensajes: 6
- Registrado: Jue Abr 14, 2011 12:33 pm
- Contactar:
Re: salir de la ventana sin mensajes y sin eliminar lo cread
el boton salir tiene parent call? porq yo no lo encuentro, me podrias decir mas especifico donde lo escribo al embed?...gracias
-
- Al nivel de RZ
- Mensajes: 161
- Registrado: Dom Feb 06, 2011 2:36 am
- Contactar:
Re: salir de la ventana sin mensajes y sin eliminar lo cread
uh, perdon.
en el accept del button....
en el accept del button....
-
- Mensajes: 6
- Registrado: Jue Abr 14, 2011 12:33 pm
- Contactar:
Re: salir de la ventana sin mensajes y sin eliminar lo cread
si lo hice alli antes de tu ultima respuesta y me sale la opcion desea salir? varias veces y ademas me hace el mismo problema q es si le pongo que si deseo guardar no me sale de la ventana, y se le pongo que no quiero guardar no me guarda ninguno de los cambios , y como dije antes en el boton aceptar y cancelar necesito ese codigo q puse arriba en el primer mensaje
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 47 invitados