No puedo crear tablas con campo memo en tiempo de ejecucion

artu0407 · Post by **artu0407** » Fri Apr 25, 2008 9:57 pm

Sres les paso el fragmento de mi prg
cDBF := "aaa"

IF FILE(cPathTMP+cDBF+".DBF")
FERASE(cPathTMP+cDBF+".DBF")
FERASE(cPathTMP+cDBF+".CDX")
ENDIF
AADD( aDbf,{ "RUC " , "C", 11, 00})
AADD( aDbf,{ "NOMBRE" , "C", 30, 00})
AADD( aDbf,{ "DIRECC" , "C", 30, 00})
AADD( aDbf,{ "MEMO" , "M", 10, 00})

DBCREATE( cPathTMP+cDBF+".DBF", aDBF ) // bota ERROR AQUI

Me dice : ERROR DBFCDX/1020 Create error c:\tmp\aaa.dbf

El trozo de mi bat compilador es:

SET FWH=d:\Fwh
SET HDIR=d:\harbour
SET BCDIR=d:\borland\bcc55
set bcidir=d:\bcc55\include

d:\harbour\bin\harbour fluja /n /Id:\Fwh\include;d:\harbour\include
d:\borland\bcc55\bin\bcc32 -c -Id:\harbour\include;%bcidir% fluja.c
d:\cdata\clip53\bin\rmake artu
if errorlevel 1 goto malo

%bcdir%\bin\brc32 -r -I%FWH%\include;%bcidir% fluja.rc

echo c0w32.obj + > b32.bc
echo fluja.obj + >> b32.bc
echo xmenu + >> b32.bc
echo msgbtn + >> b32.bc
echo mibtn + >> b32.bc
echo miitem + >> b32.bc
echo rddsys + >> b32.bc
echo texcels + >> b32.bc
echo oleauto, + >> b32.bc
echo fluja.exe, + >> b32.bc
echo fluja.map, + >> b32.bc
echo %FWH%\lib\FiveH.lib %FWH%\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtwin.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\codepage.lib + >> b32.bc
echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %FWH%\lib\fget.lib %FWH%\lib\ole2.lib, >> b32.bc
rem IF EXIST conta.res echo conta.res >> b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc

Alli figura dbffpt.lib que puede pasar?

gracias

Loren · Post by **Loren** » Fri Apr 25, 2008 10:08 pm

artu0407,

Yo lo hago así y nunca tuve problemas.

Code: Select all

  
DbCreate( (rut+'\Term'+alltrim(str(x))+'.dbf'),    {  { "Codevento"   ,"N",   9, 0 },;
                                                      { "Fecha"       ,"D",   8, 0 },;
                                                      { "posicionx"   ,"N",   4, 0 },;
                                                      { "Usuario"     ,"C",  10, 0 },;
                                                      { "Sol"         ,"C",   1, 0 },;
                                                      { "Tendido"     ,"N",   2, 0 },;
                                                      { "Acceso"      ,"N",   2, 0 },;
                                                      { "NAsiento"    ,"N",   3, 0 },;
                                                      { "Zona"        ,"N",   1, 0 },;
                                                      { "Fila"        ,"N",   2, 0 },;
                                                      { "Jovenes"     ,"L",   1, 0 },;
                                                      { "Jubilado"    ,"L",   1, 0 },;
                                                      { "Tipologia"   ,"C",   2, 0 },;
                                                      { "Nevento"     ,"N",   3, 0 },;
                                                      { "NPuerta"     ,"N",   3, 0 },;
                                                      { "Sector"      ,"C",  10, 0 },;
                                                      { "Precio"      ,"N",   7, 2 } } )

ADBLANCO · Post by **ADBLANCO** » Fri Apr 25, 2008 10:52 pm

ME PARECE QUE TE FALTA BORRAR EL ARCHIVO .FPT
YA QUE ESTAS TRABAJANDO CON INDICES .CDX

PRUEBA Y ME DICES LOS RESULTADOS...

ADBLANCO · Post by **ADBLANCO** » Fri Apr 25, 2008 10:53 pm

IF FILE(cPathTMP+cDBF+".DBF")
FERASE(cPathTMP+cDBF+".DBF")
FERASE(cPathTMP+cDBF+".CDX")
FERASE(cPathTMP+cDBF+".FPT")
ENDIF

artu0407 · Post by **artu0407** » Sat Apr 26, 2008 4:12 am

ADBLANCO wrote:IF FILE(cPathTMP+cDBF+".DBF")
FERASE(cPathTMP+cDBF+".DBF")
FERASE(cPathTMP+cDBF+".CDX")
FERASE(cPathTMP+cDBF+".FPT")
ENDIF

Todavia no existe la tabla con extension FPT por eso no la elimino, hice la pregunta por que estoy migrando de fw 2.1 a 2.6 y cuando quise abrir
mi tabla me salio el msje Error DBFCDX/1020 Create error <nombre de la tabla>

sabes que sucede