String ls_codigo
Long ll_fila
this.AcceptText()
IF dwo.name = "serie" THEN
ls_codigo = data
ll_fila = dw_almacen.Find("serie = '"+ls_codigo+"'",1,dw_almacen.RowCount())
IF ll_fila > 0 THEN
Messagebox("Aviso", "El registro que ha digitado ya existe",Question!)
RETURN 1
END IF
END IF
Long ll_cnt
String ls_codigo
this.AcceptText()
IF dwo.name = "serie" THEN
ls_codigo = data
SELECT count(codigo) INTO :ll_cnt FROM tabla WHERE codigo = :ls_codigo;
IF ll_cnt > 0 THEN
Messagebox("Aviso", "El registro que ha digitado ya existe",Question!)
RETURN 1
END IF
END IF