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.calcularWhat am I missing?