salir de la ventana sin mensajes y sin eliminar lo creado
Publicado: Jue Abr 14, 2011 1:05 pm
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
.
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
.