| Pregunta: | 1904 - INTRODUCCIÓN DE DATOS |
| Autor: | Farid Flores Antunez |
| Hola a todos los programadores yo programo en clipper 5.0 necesito de su ayuda como le puedo hacer para capturar en forma continua por ejemplo... en un programa de inventario se meten los datos del catalogo del inventario .., por ejemplo meto la cuenta ARTICULO-CANTIDAD-IMPORTE 1010-35-25.10 1020-50-35.10 COMO LE PUEDO HACER PARA METER VARIAS CUENTAS CONSECUTIVAS AL MISMO TIEMPO Y QUE SE VALLAN BAJANDO Y ME PIDA UNA NUEVA CUENTA Y QUE SE VALLAN GUARDANDO EN UNA BASE... | |
| Respuesta: | Vicente Serrano |
| defines primero un Array.(ejemplo de 20) Puedes poner un bucle Do while .t. entrada de datos al array (inclementando el indice del array) salida con Escape, u otra tecla o cuando se el indice sea >20 end do Paso de datos a la base deseada. for n=1 to 20 paso a base del elemento n next n | |
| Respuesta: | Manuel Gómez Zamorano |
| Bueno, vamos a ya .: local aCuentas:= {} loca cCuenta := space(11) while .t. @ 5,5 say ´Introduzca cuenta .: " ; get cCuenta pict ´@r 9999-99-99,99´ read if lastkey() = 27 exit else aadd( aCuentas, cCuenta ) endif cCuenta:= space(11) end if !empty( aCuentas ) select TuFichero for I:= 1 lo len( aCuentas ) dbAppend() replace CUENTA with aCuenta[I] next use endif Bueno pues espero que sea esta la respuesta y que te sirva de ayuda; un saludo | |