borrar registros
Publicado por noe (48 intervenciones) el 07/07/2022 22:41:07
Hola foro!!!
Esperando me puedan ayudar y es con lo siguiente deseo eliminar registros del empleado que muestro en un grid, no sé lo que pasa cuando lo ejecuto en desarrollo lo hace correctamente pero al ejecutarlo ya generado no elimina los registros tengo el siguiente código
Con esto muestro los regs. del empleado esta en el (INIT) del formulario
Select periodo,concepto,horaext,guardias,signo,tipo,sueldo,importe,dias,numemp,marca;
From pgap Where numemp=nde and concepto <> 27 Into Cursor cpgap ReadWrite
Thisform.grid1.RecordSource='cpgap' el DeleteMark esta en .T.
Dentro del text de cada columna del grid en keypres tengo esto
If nKeyCode=9 or nKeyCode=13
Delete
Replace marca With 1
Endif
En el botón ELIMINA que está en el mismo formulario en el procedimiento click tengo esto
Select cpgap
Scan
If cpgap.marca=1
Delete From pgap Where numemp=cpgap.numemp and periodo=cpgap.periodo and concepto=cpgap.concepto
EndIf
EndScan
Lo hago con un (append from) con (delete from) y con (append blank) y lo realiza el borrado lógico(lo marca con el rectángulo negro)
Como lo puedo solucionar ?
GRACIAS.
Esperando me puedan ayudar y es con lo siguiente deseo eliminar registros del empleado que muestro en un grid, no sé lo que pasa cuando lo ejecuto en desarrollo lo hace correctamente pero al ejecutarlo ya generado no elimina los registros tengo el siguiente código
Con esto muestro los regs. del empleado esta en el (INIT) del formulario
Select periodo,concepto,horaext,guardias,signo,tipo,sueldo,importe,dias,numemp,marca;
From pgap Where numemp=nde and concepto <> 27 Into Cursor cpgap ReadWrite
Thisform.grid1.RecordSource='cpgap' el DeleteMark esta en .T.
Dentro del text de cada columna del grid en keypres tengo esto
If nKeyCode=9 or nKeyCode=13
Delete
Replace marca With 1
Endif
En el botón ELIMINA que está en el mismo formulario en el procedimiento click tengo esto
Select cpgap
Scan
If cpgap.marca=1
Delete From pgap Where numemp=cpgap.numemp and periodo=cpgap.periodo and concepto=cpgap.concepto
EndIf
EndScan
Lo hago con un (append from) con (delete from) y con (append blank) y lo realiza el borrado lógico(lo marca con el rectángulo negro)
Como lo puedo solucionar ?
GRACIAS.
Valora esta pregunta


0