FoxPro/Visual FoxPro - ayudenme con estas sentencias por favor

   
Vista:

ayudenme con estas sentencias por favor

Publicado por juan (76 intervenciones) el 29/02/2008 17:58:40
desearia tener conocimiento de como realmente se utilizan los rlock o flock de acurdo a sus experiencias, pense que ya no necesitaria en visual9 pero veo que siempre seran necesarios controlar el bloqueo.
desde ya gracias,

Son dos casos

caso 1:::::

DO WHILE aar=0
SELECT autodet
IF FLOCK()
INSERT INTO autodet ;
(planilla,numero,fecha,empresa,subempresa,contrato,benef,paciente,monto,cantidad,montototal,cedula,;
NOMSERV,CODIGO,CODGRUPO,marca,usugra,fecgra,horgra,cantidad,montototal,seguro);
values;
(vplanilla,vnumero,thisform.fecha.Value,;
thisform.empresa.Value,;
thisform.subempresa.Value,;
thisform.contrato.Value,;
thisform.codigo.Value,;
thisform.nomsocio.value,;
thisform.costo.value,1,thisform.costo.value,thisform.cedula.value,;
thisform.servicio.value,thisform.concepto.value,83,thisform.marca.value,nomoperador,DATE(),TIME(),;
thisform.cantidad.Value,;
thisform.montototal.Value,thisform.seguro.Value)
*
SELECT autodet
=TABLEUPDATE(.t.)
UNLOCK
EXIT
ENDIF
ENDDO

caso 2:::::
*
SELECT autodet
SET ORDER TO NUMERO && NUMERO
IF SEEK(thisform.buscar.VALUE)
aaa=0
DO WHILE aaa=0
if rLOCK()
replace empresa WITH thisform.empresa.value
replace subempresa WITH thisform.subempresa.value,MARCA WITH THISFORM.MARCA.VALUE
replace monto WITH thisform.costo.value,montototal WITH monto*cantidad
replace contrato WITH thisform.contrato.value,benef WITH thisform.codigo.value
REPLACE seguro WITH thisform.ds.value
TABLEUPDATE()
unlock()
exit
ENDIF
enddo
ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayudenme con estas sentencias por favor

Publicado por Plinio (7771 intervenciones) el 01/03/2008 02:41:24
Si estas usando buffering (Table update, table revert) puedes ahorrarte el trabajo, Vfp te lo hace de acuerdo al tipo de buffer que uses.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayudenme con estas sentencias por favor

Publicado por juan (76 intervenciones) el 01/03/2008 14:59:25
esloque siempre pense,pero cuando otras aplicaciones quieren actualizar las mismas tablas se producen perdidas de datos, quedando uno de ellos sin actualizar, aparentemente lo graba pero realmente no., al querer registrar 2 o mas detalles, solo lo graba 1, en caso de que trabaje solo, los graba todos, pero al trabajar on line varias estaciones de trabajo no.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar