Víctor Arturo Mercado Fernández

Intenta: ¿? Chr(7)

Si solo se trata de ingresar tres ceros al inicio del archivo inenta: =StrToFile( "000" + FileToStr( "todovisual.txt" ), "todovisual.txt" ) Lo puedes ejecutar en la ventana de comandos

***Load*** Public buscar, cdni buscar = "" cdni = "" ***Refresh*** Select alumno Set Filter To Upper( Alumno.nomyape ) == Upper( buscar ) And Alumno.dni == cdni ***InteractiveChange de txtActnombre*** buscar = Alltrim( This.Value ) Thisform.Refresh...

1.- Crea una tabla (Resumen) con los campos: Tarjeta C(10), C01 N(3,0), C14 N(3,0), C44 N(3,0), C64 N(3,0) y C99 N(3,0) Con un índice por el campo Tarjeta 2.- Crea un procedimiento: For nContador = 1 To 10 Append Blank Replace resumentarjeta With...

Genera la consulta y exportala con el comando Copy To...

¿En base a que campo(s) la comparación?

Intenta: Select tabla Go Top Do While !Eof() Select resumen Seek tabla.codigo If Eof() Append Blank Replace resumen.codigo With tabla.codigo, resumen.descripcion With tabla.descripcion EndIf Replace resumen.cuenta With resumen.cuenta + 1 Select tabla...

Puedes utilizar un objeto Timer con un intervalo de 1000 y con la instrucción ThisForm.text1.Value = Time()

Específicamente ¿Qué es lo que llevas y en que requieres asesoría? Ejemplos de punto de venta no tengo, pero quizá uno de los que tengo te pueden servir.

Para mostrar solo los registros que en el campo Descripción tengan la palabra pared puedes hacer algo similar a: Set Filter To "pared" $ descripcion