Perdona Jesus
Pero al copiar las variables he cometido un paqueño error, este es el codigo que te he pasado:
Peliculas->DA:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente
y este es el codigo correcto:
Peliculas->AR:=x19; // Este Campo Memo de Texto es el que da el Error
Peliculas->DA:=x20 // Este Campo Memo de Fotos Funciona Perfectamente
como puedes ver son dos campos Memo con dos variables diferentes
y aqui tienes el metodo que crea la base de datos:
Method BaseDatos( oSender ) Class TPrincipal
// Busca Base de Datos.
if ! File( "Peliculas.dbf" )
// Si no la Encuentra la Crea.
DbCreate( 'Peliculas.dbf', { { 'TN', 'C', 34, 0 }, { 'NU', 'N', 10, 0 }, { 'TO', 'C', 34, 0}, ;
{ 'AN', 'C', 6, 0 }, { 'NA', 'C', 20, 0 }, { 'TE', 'C', 10, 0 }, { 'CL', 'C', 14, 0 }, ;
{ 'DU', 'C', 3, 0 }, { 'A1', 'C', 25, 0 }, { 'A2', 'C', 25, 0 }, { 'A3', 'C', 25, 0 }, ;
{ 'A4', 'C', 25, 0}, { 'DS', 'C', 25, 0 }, { 'PR', 'C', 25, 0 }, { 'GI' ,'C', 25, 0 }, ;
{ 'FO', 'C', 25, 0 }, { 'MU', 'C', 25, 0 }, { 'DI', 'C', 25, 0 }, { 'AR', 'M', 10, 0 },{ 'DA', 'M', 10, 0 } } )
endif
// Busca el fichero de indices.
if ! File( "Peliculas.cdx" )
// Sino lo encuentra lo crea.
Use Peliculas
Index On Field->TN Tag "TN"
Index On Field->NU Tag "NU"
Index On Field->AN Tag "AN"
Index On Field->TE Tag "TE"
Index On Field->DI Tag "DI"
Close Data
Endif
return
|