FoxPro/Visual FoxPro - foxpro scatter memvar

ot = CREATEOBJECT("_thermometer")

 ot.caption = "Importación de Productos"

 ot.show

 USE SHARED productos AGAIN ALIAS pro ORDER ID IN 0

 USE import\e-productos AGAIN ALIAS imp IN 0

 SELECT pro

 REPLACE activo WITH .F. ALL

 SELECT imp

 SET FILTER TO activo

 COUNT TO ot.ibasis

 ln = 1

 SCAN

    SCATTER MEMVAR TO aimp

    REPLACE pro.ft WITH {}

    IF SEEK(imp.id, "pro", "id")

       SELECT pro

       lnantstock = stock

       lnantstockmin = stockmin

       lnantstockmax = stockmax

       ldfc = fc

       ldfm = fm

       GATHER FROM aimp

       REPLACE stock WITH lnantstock

       REPLACE stockmin WITH lnantstockmin

       REPLACE stockmax WITH lnantstockmax

       REPLACE fc WITH ldfc

       REPLACE fm WITH ldfm

       REPLACE ft WITH DATE()

    ELSE

       SELECT pro

       APPEND BLANK

       GATHER FROM aimp

       REPLACE ft WITH DATE()

    ENDIF

    SELECT imp

    ot.update(ln)

    ln = ln+1

 ENDSCAN

 SELECT pro

 DELETE FOR  .NOT. activo

 USE EXCLUSIVE productos

 PACK

 REPLACE ft WITH DATE() ALL

 REINDEX

 USE

 SELECT imp

 USE

 ot.complete

 ot.release

ENDPROC

**

1) Bloqueo automático con Buffer

SET MULTILOCKS ON

CURSORSETPROP("Buffering", 5, "MiTabla")

*************************

PROCEDURE GRABAR(lAppend)

*************************

Select MiTabla

nValorInventado=Thisform.Text16.Value

cFormula=[ Round( nValorInventado * nValorInventado1 / nValorInventado2,2) ]

if lAppend

	APPEND BLANK

endif

REPLACE Campo1 with lcVariable,;

	Campo2 with thisfom.Text2.Value,;

	Campo3 with Thisform.Propiedad3,;

	Campo4 with Thisform.gaPropiedad[3,2],;

	Campo5 with gaArray[4],;

	Campo6 with otroform.Text5.Value  ,;  && otroform es otro formulario que está  abierto

	Campo7 with nValorInventado,;

	Campo8 with Evaluate(cFormula),;

	Campo9 with EVL(Thisform.Text6.Value,"Sin Datos")

	etc....

nMess=Messagebox("Confirma la operación?",4,"Grabando")

if nMess=6

        TableUpdate(.t.,"mitabla")  && hace efectivos los cambios en la tabla

else

        TableRevert(.T.,"Mitabla")   && descarta todos los cambios y vuelve a lo anterior.

endif

Acá no se necesita UNLOCK ni FLUSH. De eso se encarga Visual Fox.

2) Bloqueo manual de registros

*************************

PROCEDURE GRABAR(lAppend)

*************************

Select MiTabla

nValorInventado=Thisform.Text16.Value

cFormula=[ Round( nValorInventado * nValorInventado1 / nValorInventado2,2) ]

if lAppend

	APPEND BLANK       && bloquea automáticamente el registro

else

	if !RLOCK()         && intenta bloquear el registro

		Messagebox("No puedo bloquear el registro")

		return

	endif

endif

REPLACE Campo1 with lcVariable,;

	Campo2 with thisfom.Text2.Value,;

	Campo3 with Thisform.Propiedad3,;

	Campo4 with Thisform.gaPropiedad[3,2],;

	Campo5 with gaArray[4],;

	Campo6 with otroform.Text5.Value  ,;  && otroform es otro formulario que está  abierto

	Campo7 with nValorInventado,;

	Campo8 with Evaluate(cFormula),;

	Campo9 with EVL(Thisform.Text6.Value,"Sin Datos")

	etc....

UNLOCK         && desbloqueo manual

FLUSH             && solid disk. Graba realmente en el disco.

******************************************************

* OPERANDO DIRECTAMENTE SOBRE TABLAS

******************************************************

* PROCEDURE LOAD ó INIT del Formulario

***************************************

SET MULTILOCKS ON	* Esto puede estar al principio del sistema

dimension gaTablas(2)

gaTabla[1]="MiTabla"

gaTabla[2]="TablaDet"

For i=1 to alen(gatablas)

	CURSORSETPROP("Buffering", 5, gaTabla[i])

next

* PROCEDURE INIT del Formulario

*******************************

WITH THISFORM

	.TEXT1.CONTROLSOURCE='MiTabla.Campo1'

	.Text2.ControlSource='MiTabla.Campo2'

	.Edit1.ControlSource='MiTabla.CampoMemo1'

ENDWITH

WITH THISFORM.GRID1

	.RecordSource='TablaDet'

	.ColumnCounts=4

	.Columns[1].ControlSource='Tabladet.Campo1'

	.Columns[2].ControlSource='Tabladet.Campo2'

	.Columns[3].ControlSource='Tabladet.Campo4'

	.Columns[4].ControlSource='Tabladet.Campo8'

endwith

* En el formulario tendrás botones para indicar la acción ;

* agregar, MOdificar, Borrar registros, con sendos botones ;

* Para agregar un registro utilizas el APPEND BLANK, pero en el ;

* botón de "Agregar". Para borrar, usas DELETE, pero en el botón ;

* de "Borrar". Y para modificar, simplemente cambias los valores ;

* Los cuadros de edición pueden estar inicialmente como Enabled=.F. ;

* y pasan a Enabled=.T. cuando pides alguna operación.

*

* En la cuadrícula (grid1) puedes hacer cambios directamente si  ;

* .Columns[x].Readonly=.F. O bien puedes utilizar otro formulario ;

* para hacer los cambios y validación, dejando el control Grid como ;

* un punto de inspección (es lo que utilizo generalmente).

* Botón de Grabar + Botón de Cancelar (CommandGroup)

* En el boton de grabar los cambios, Evento Click

nMess=Messagebox("Desea Grabar Esto?",4,"Mensaje")

if nMess#6

	return

endif

dimension gaTablas(2)

gaTabla[1]="MiTabla"

gaTabla[2]="TablaDet"

For i=1 to alen(gatablas)

	TableUpDate(.T.,gaTabla[i])

NEXT

* THISFORM.RELEASE ó Código siguiente

* En el botón de Cancelar los cambios, Evento Click

nMess=Messagebox("Desea Cancelar Esto?",4,"Mensaje")

if nMess#6

	return

endif

dimension gaTablas(2)

gaTabla[1]="MiTabla"

gaTabla[2]="TablaDet"

For i=1 to alen(gatablas)

	TableRevert(.T.,gaTabla[i])

NEXT

* THISFORM.RELEASE ó Código siguiente

SCATTER MEMVAR TO aimp

SCATTER MEMVAR