> 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 ENDIFWhat do you think?