>> This.Parent.Parent.Yapaso =.f. >> IF This.Value <= 0 >> Messagebox("Precio No Puede Ser Cero",0+64+0,"Aviso") >> This.value = This.Parent.Parent.OldValue >> Return 0 >> ENDIF >> >> IF Thisform.Setup01.Fields("ControlarPrecio").Value >> IF This.Value<cCompra.Costo >> Thisform.Mensaje("Precio NO Puede Ser Menor Que el Costo Del Artículo!",1) >> RETURN 0 >> ENDIF >> ENDIF >> >> lAutorizar=.t. >> If (this.value < cCompra.precio2) >> IF Messagebox("No Puede Facturar Este Artículo Por Debajo del Precio Mínimo"+CHR(13)+; >> "Desea Facturar Con Este Precio De Todas Formas?",4+32+256,"Aviso")=6 >> DO FORM autorizar01 TO lAutorizar >> IF lAutorizar >> This.value = This.Parent.Parent.OldValue >> RETURN 0 >> ENDIF >> ELSE >> This.value = This.Parent.Parent.OldValue >> RETURN 0 >> ENDIF >> Endif >> This.Parent.Parent.calcular >>>What am I missing?
>IF lAutorizar > This.value = This.Parent.Parent.OldValue > RETURN 0 >ENDIF >>What do you think?