FoxPro/Visual FoxPro - ACTUALIZAR REGISTRO POR FECHA

ACTUALIZAR REGISTRO POR FECHA

Publicado por Richard (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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

ACTUALIZAR REGISTRO POR FECHA

Publicado por Saul (728 intervenciones) el 28/01/2014 19:31:20

Intenta con este codigo..

Suerte me cuentas

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar