FoxPro/Visual FoxPro - ACTUALIZAR REGISTRO POR FECHA

   
Vista:
Imágen de perfil de Richard

ACTUALIZAR REGISTRO POR FECHA

Publicado por Richard richard12mig@icloud.com (4 intervenciones) el 28/01/2014 18:10:42
BUEN DIA
:tengo este inconveniente tengo un registro
codigo fecha hora entradas
1303020001 28-01-2014 10:12:12 pm 3
mi duda es si este codigo ya fue registrado hoy que no vuelva a ser registrado unicamente al dia siguente
ya que cada vez que registro este codigo le suma una entrada mas campo entradas!
tengo esta idea pero unicamente con el codigo , como podria que valide la fecha. si esta registrado hoy no puede registrarse el mismo dia
DO CASE
Case nKeyCode = 13
SELECT SALIDAS
LOCATE FOR CODIGOS = THISFORM.TExt1.Value
IF FOUND ()
SET FILTER TO CODIGOS = THISFORM.TExt1.Value
WAIT WINDOW "SERIE NO ENCONTRADA "NOWAIT AT 100,50 TIMEOUT 0.5 && mensUSEaje si esta o no
thisform.Refresh
thisform.grid1.Refresh
MESSAGEBOX("NO PUEDE DAR SALIDA",64,"VERIFIQUE REGISTROS")
GO top
thisform.grid1.Refresh
thisform.text1.Value=0
thisform.text1.SetFocus
ELSE
WAIT WINDOW "NUEVA SALIDA" NOWAIT AT 100,50 TIMEOUT 0.5
&&REPLACE CODIGOS WITH THISFORM.TEXT1.Value
replace fechaSALIDA WITH DATE()
replace horaSALIDA WITH thisform.text3.Value
replace ultimaSALIDA WITH DATETIME ()
THISFORM.TEXT4.Value = RECCOUNT ()
GO top
WAIT WINDOW "DATOS ALMACENADOS" NOWAIT AT 20,50 TIMEOUT 0.5
thisform.grid1.Refresh
thisform.text1.Value=0
thisform.text1.SetFocus
SET FILTER TO
thisform.grid1.Refresh
thisform.text1.Value=0
thisform.text1.SetFocus
ENDIF
ENDCASE
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

ACTUALIZAR REGISTRO POR FECHA

Publicado por Saul (676 intervenciones) el 28/01/2014 19:31:20
Intenta con este codigo..

Suerte me cuentas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
dUltimaFecha = DATE()   &&Tu fecha Actual del día
cCodigo = ALLTRIM(THISFORM.TEXT1.Value)
 
SELECT UltimaSalida, Codigos ;
FROM SALIDAS;
WHERE TTOD(ultimaSALIDA) = dUltimaFecha;  &&TTOD convierta una Datetime() en Date()
AND ALLTRIM(codigos) = cCodigo;
INTO CURSOR _TuCursor
 
SELECT _TuCursor
IF RECCOUNT() > 0
	** Tus UPDATE() para los campos que necesites actulizar
	UPDATE SALIDAS SET fechaSALIDA = DATE(),;
				       horaSalida = thisform.text3.Value;
				WHERE TTOD(ultimaSALIDA) = dUltimaFecha;  &&TTOD convierta una Datetime() en Date()
				AND ALLTRIM(codigos) = cCodigo
 
	** O REPLACE es lo mismo
	*	SELECT SALIDAS
	*	replace fechaSALIDA WITH DATE()
	*	replace horaSALIDA WITH thisform.text3.Value
	*	replace ultimaSALIDA WITH DATETIME ()
 
ELSE
	*INSERT INTO salidas .. blabla...
 
	*O TU APPEND BLANK
 
		SELECT SALIDAS
		APPEND BLANK
		replace fechaSALIDA WITH DATE()
		replace horaSALIDA WITH thisform.text3.Value
		replace ultimaSALIDA WITH DATETIME ()
ENDIF
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