CPP_Builder/Pruebas_DB_sobre_IP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 18/11/2001

Browse Source
This commit is contained in:
José David Guillén 2021-09-12 22:14:42 +02:00
commit 8d47d749e6
47 changed files with 12209 additions and 0 deletions

179
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.bpr Normal file

@ -0,0 +1,179 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = BDEMONTREL.dll
OBJFILES = BDEMONTREL.obj
RESFILES =
RESDEPEN = $(RESFILES)
LIBFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi bcbsmp40.bpi Qrpt40.bpi Vcldb40.bpi \
ibsmp40.bpi vcldbx40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi nmfast40.bpi \
dclocx40.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl -WD -Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve \
-r- -a8 -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tWM \
-D$(SYSDEFINES);$(USERDEFINES)
PFLAGS = -U$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl -$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -aa -Tpd -x -Gn -Gi -v
# ---------------------------------------------------------------------------
ALLOBJ = c0d32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

1639
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.cpp Normal file

File diff suppressed because it is too large Load Diff

BIN
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.dll Normal file

Binary file not shown.

79
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.h Normal file

@ -0,0 +1,79 @@
#include <vcl\bde.hpp>
#define DEF_MDXEXT ".MDX"
#define DEF_MAXREPOPENTABLE 15
#define TAM_MAX_CADENA 513
#define TAMANO_DATE_DBF 8
#define RETARDO_ABRIR_TABLA 1000
#define DSCERR_NOINITDBI "Librería no inicializada"
#define DSCERR_NOMEMRECBUF "Insuficiente memoria buffer tabla"
#define DSCERR_NOMEMDESCFLD "Insuficiente memoria campos tabla"
#define DIM_FECHA 10
#define DIM_HORA 8
#define DIM_FICHEROTXT 50
#define NUMERO_MAXIMO_ARRAY 99
#define BDE_FIN_FICHERO 8706
typedef struct
{
hDBICur hCur;
PBYTE pRecBuf;
CURProps curProps;
RECProps recProps;
pFLDDesc pFldArray;
bool bTablaAbierta;
} dbiTabla;
extern "C" __declspec(dllexport) void LiberarMemoria(char *Memoria);
extern "C" __declspec(dllexport) char * ReservarMemoria(dbiTabla* psT,char *pszCampo);
extern "C" __declspec(dllexport) bool ComprobarNomFichError(char *Nombre);
extern "C" __declspec(dllexport) void CapturarFechaHora(char *pszFecha,char *pszHora);
extern "C" __declspec(dllexport) void GenerarError(char *Error);
extern "C" __declspec(dllexport) int IndCampo (dbiTabla* psT,char* pszCampo);
extern "C" __declspec(dllexport) DBIResult AnsiToNativo (char *pszAnsi,char *pszNativo);
extern "C" __declspec(dllexport) DBIResult InicializarBDE(char *pszIniFile);
extern "C" __declspec(dllexport) DBIResult ConectarBDE(char *pszBaseDatos,hDBIDb *hBaseDatos);
extern "C" __declspec(dllexport) DBIResult DesconectarBDE (hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult FinalizarBDE (void);
extern "C" __declspec(dllexport) DBIResult CargarDirBDE (char *pszDir,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult AbrirTablaBDE (dbiTabla *psT, char *pszNombreTabla,char *pszNombreTag,bool bExclusivo,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CerrarTablaBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult ContarRegBDE (dbiTabla* psT,int *nRN);
extern "C" __declspec(dllexport) DBIResult NumRegBDE (dbiTabla* psT,int *nRN);
extern "C" __declspec(dllexport) DBIResult IrRegBDE (dbiTabla* psT,int nNumRec,bool *bRD);
extern "C" __declspec(dllexport) DBIResult EstaRegBorBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BorrarRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult RecRegBorBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult VerBorradosBDE (dbiTabla* psT,bool bON);
extern "C" __declspec(dllexport) DBIResult IrPrimerRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrUltimoRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrSiguienteRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrAnteriorRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult SelIndBDE (dbiTabla* psT,char* szNombreTag);
extern "C" __declspec(dllexport) DBIResult BuscarValorExactoBDE (dbiTabla *psT,char *pszValor,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BuscarValorAproxBDE (dbiTabla *psT,char *pszValor,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BlanquearRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult AnadirRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult LeerCampoBDE (dbiTabla* psT,int nInd,char *pszValor,bool *bVacio);
extern "C" __declspec(dllexport) DBIResult LeerCampoNBDE (dbiTabla* psT,char* szNombre,char *pszValor,bool *bVacio);
extern "C" __declspec(dllexport) DBIResult ModificarCampoBDE (dbiTabla* psT,int nInd,char *pszValor);
extern "C" __declspec(dllexport) DBIResult ModificarCampoNBDE (dbiTabla* psT,char *pszNombre,char *pszValor);
extern "C" __declspec(dllexport) DBIResult DuplicarRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult EliminarBorradosTablaBDE (dbiTabla *psT,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult VaciarTablaBDE (dbiTabla *psT,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult ReindexarTablaBDE (dbiTabla *psT);
extern "C" __declspec(dllexport) DBIResult CopiarTablaBDE (char *pszNomOrigTable,char *pszNomDestTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult RenombrarTablaBDE (char *pszNomOldTable,char *pszNomNewTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult BorrarTablaBDE (char *pszNomTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CopiarEstruTablaBDE (dbiTabla *psT,char *pszNomDestTabla,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CopiarATextoBDE (dbiTabla* psT,char *pszNomText,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult AnadirDesdeTextoBDE (dbiTabla* psT,char *pszNomText,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult SelecReintBloqueoBDE (int nSegundos);
extern "C" __declspec(dllexport) int ConseguirLongitud(dbiTabla* psT,char *pszCampo);
extern "C" __declspec(dllexport) void LeerArrayCampoBDE(dbiTabla* psT,char* pszCampo,char **CampoN, BYTE byRango);
extern "C" __declspec(dllexport) void EscribirArrayCampoBDE(dbiTabla *psT,char *pszCampo,char **pszsCampoN, BYTE byRango);
extern "C" __declspec(dllexport) void CopiarCampo (dbiTabla *pTDestino,char *pszCampoDes,dbiTabla *pTOrigen,char *pszCampoOri);

BIN
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.lib Normal file

Binary file not shown.

179
Esergui -BDE utilizando API/EserguiBDE/BDEMONTREL.bpr Normal file

@ -0,0 +1,179 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = BDEMONTREL.dll
OBJFILES = BDEMONTREL.obj
RESFILES =
RESDEPEN = $(RESFILES)
LIBFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi bcbsmp40.bpi Qrpt40.bpi Vcldb40.bpi \
ibsmp40.bpi vcldbx40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi nmfast40.bpi \
dclocx40.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl -WD -Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve \
-r- -a8 -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tWM \
-D$(SYSDEFINES);$(USERDEFINES)
PFLAGS = -U$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl -$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -aa -Tpd -x -Gn -Gi -v
# ---------------------------------------------------------------------------
ALLOBJ = c0d32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

1639
Esergui -BDE utilizando API/EserguiBDE/BDEMONTREL.cpp Normal file

File diff suppressed because it is too large Load Diff

BIN
Esergui -BDE utilizando API/EserguiBDE/BDEMONTREL.dll Normal file

Binary file not shown.

79
Esergui -BDE utilizando API/EserguiBDE/BDEMONTREL.h Normal file

@ -0,0 +1,79 @@
#include <vcl\bde.hpp>
#define DEF_MDXEXT ".MDX"
#define DEF_MAXREPOPENTABLE 15
#define TAMANO_DATE_DBF 8
#define DSCERR_NOINITDBI "Librería no inicializada"
#define DSCERR_NOMEMRECBUF "Insuficiente memoria buffer tabla"
#define DSCERR_NOMEMDESCFLD "Insuficiente memoria campos tabla"
#define DIM_FECHA 10
#define DIM_HORA 8
#define DIM_FICHEROTXT 50
#define NUMERO_MAXIMO_ARRAY 99
#define BDE_FIN_FICHERO DBIERR_EOF
#define BDE_SIN_ERROR DBIERR_NONE
typedef struct
{
hDBICur hCur;
PBYTE pRecBuf;
CURProps curProps;
RECProps recProps;
pFLDDesc pFldArray;
bool bTablaAbierta;
} dbiTabla;
extern "C" __declspec(dllexport) void LiberarMemoria(char *Memoria);
extern "C" __declspec(dllexport) char * ReservarMemoria(dbiTabla* psT,char *pszCampo);
extern "C" __declspec(dllexport) bool ComprobarNomFichError(char *Nombre);
extern "C" __declspec(dllexport) void CapturarFechaHora(char *pszFecha,char *pszHora);
extern "C" __declspec(dllexport) void GenerarError(char *Error);
extern "C" __declspec(dllexport) int IndCampo (dbiTabla* psT,char* pszCampo);
extern "C" __declspec(dllexport) DBIResult AnsiToNativo (char *pszAnsi,char *pszNativo);
extern "C" __declspec(dllexport) DBIResult InicializarBDE(char *pszIniFile);
extern "C" __declspec(dllexport) DBIResult ConectarBDE(char *pszBaseDatos,hDBIDb *hBaseDatos);
extern "C" __declspec(dllexport) DBIResult DesconectarBDE (hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult FinalizarBDE (void);
extern "C" __declspec(dllexport) DBIResult CargarDirBDE (char *pszDir,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult AbrirTablaBDE (dbiTabla *psT, char *pszNombreTabla,char *pszNombreTag,bool bExclusivo,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CerrarTablaBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult ContarRegBDE (dbiTabla* psT,int *nRN);
extern "C" __declspec(dllexport) DBIResult NumRegBDE (dbiTabla* psT,int *nRN);
extern "C" __declspec(dllexport) DBIResult IrRegBDE (dbiTabla* psT,int nNumRec,bool *bRD);
extern "C" __declspec(dllexport) DBIResult EstaRegBorBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BorrarRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult RecRegBorBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult VerBorradosBDE (dbiTabla* psT,bool bON);
extern "C" __declspec(dllexport) DBIResult IrPrimerRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrUltimoRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrSiguienteRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrAnteriorRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult SelIndBDE (dbiTabla* psT,char* szNombreTag);
extern "C" __declspec(dllexport) DBIResult BuscarValorExactoBDE (dbiTabla *psT,char *pszValor,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BuscarValorAproxBDE (dbiTabla *psT,char *pszValor,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BlanquearRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult AnadirRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult LeerCampoBDE (dbiTabla* psT,int nInd,char *pszValor,bool *bVacio);
extern "C" __declspec(dllexport) DBIResult LeerCampoNBDE (dbiTabla* psT,char* szNombre,char *pszValor,bool *bVacio);
extern "C" __declspec(dllexport) DBIResult ModificarCampoBDE (dbiTabla* psT,int nInd,char *pszValor);
extern "C" __declspec(dllexport) DBIResult ModificarCampoNBDE (dbiTabla* psT,char *pszNombre,char *pszValor);
extern "C" __declspec(dllexport) DBIResult DuplicarRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult EliminarBorradosTablaBDE (dbiTabla *psT,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult VaciarTablaBDE (dbiTabla *psT,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult ReindexarTablaBDE (dbiTabla *psT);
extern "C" __declspec(dllexport) DBIResult CopiarTablaBDE (char *pszNomOrigTable,char *pszNomDestTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult RenombrarTablaBDE (char *pszNomOldTable,char *pszNomNewTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult BorrarTablaBDE (char *pszNomTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CopiarEstruTablaBDE (dbiTabla *psT,char *pszNomDestTabla,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CopiarATextoBDE (dbiTabla* psT,char *pszNomText,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult AnadirDesdeTextoBDE (dbiTabla* psT,char *pszNomText,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult SelecReintBloqueoBDE (int nSegundos);
extern "C" __declspec(dllexport) int ConseguirLongitud(dbiTabla* psT,char *pszCampo);
extern "C" __declspec(dllexport) void LeerArrayCampoBDE(dbiTabla* psT,char* pszCampo,char **CampoN, BYTE byRango);
extern "C" __declspec(dllexport) void EscribirArrayCampoBDE(dbiTabla *psT,char *pszCampo,char **pszsCampoN, BYTE byRango);
extern "C" __declspec(dllexport) void CopiarCampo (dbiTabla *pTDestino,char *pszCampoDes,dbiTabla *pTOrigen,char *pszCampoOri);

BIN
Esergui -BDE utilizando API/EserguiBDE/BDEMONTREL.lib Normal file

Binary file not shown.

1458
Esergui -BDE utilizando API/EserguiBDE/Dialogo.cpp Normal file

File diff suppressed because it is too large Load Diff

88
Esergui -BDE utilizando API/EserguiBDE/Dialogo.h Normal file

@ -0,0 +1,88 @@
//----------------------------------------------------------------------
#ifndef DialogoH
#define DialogoH
#endif
//----------------------CODIGOS DEL BURR BROWN--------------------------
#define BB_VACIA_BUFFER "*3"
#define BB_PARA_COMUNICA "*4"
#define BB_REANUDA_COMUNICA "*5"
#define BB_DEF_TECLA_FUNCION "*6"
#define BB_ENTRADA_TARJETA "*11"
#define BB_ENTRADA_TECLADO "*12"
#define BB_MENSAJE_BLOQUEO "*13"
#define BB_MENSAJE_SCROLL "*14"
#define BB_ENTRADA_SECRETO "*15"
#define BB_CAMBIA_A_TARJETA "*21"
#define BB_CAMBIA_A_TECLADO "*22"
#define BB_CAM_TEC_TARJ_DES "*23"
//----------------------VARIABLES GLOBALES------------------------------
#define NUM_MAX_CAR_TEC_FUNCION 100
#define NUM_OCASIONAL 1
#define NUM_PERIODICA_AUT 13
#define TIEMPO_MENSAJE_PANTALLA 12000 //Milesimas de segundos
#define TIEMPO_CONTADOR_SEGUNDO 1000 //Milesimas de segundos
//----------------------DEFINICION DE FUNCIONES ------------------------
#define F1 "01"
#define F2 "02"
#define F3 "03"
#define F4 "04"
#define F5 "05"
#define F6 "06"
#define F7 "07"
#define F8 "08"
//-----------CODIGOS DEL NUMERO DE ELEMENTOS DE LA TARJETA--------------
#define NUM_ELE_CIS_TAR "01"
#define NUM_ELE_TRA_TAR "02"
#define NUM_ELE_CON_TAR "03"
//----------------POSICIONES DE LA RESPUESTA PERIODICA------------------
#define UBICACION_DATO_CORRECTO 4
#define UBICACION_REFERENCIA 5
#define UBICACION_DATO_LEIDO_TEC 6
#define UBICACION_DATO_LEIDO_TAR 12
#define UBICACION_ELEMENTO_TAR 10
//----------------------ERRORES DE LOS THREADS--------------------------
#define THREAD_CONT_NO_INICIADO 1
#define THREAD_AUT_NO_INICIADO 2
#define THREAD_PSE_NO_INICIADO 3
#define THREAD_PSS_NO_INICIADO 4
#define THREAD_ALB_NO_INICIADO 5
//----------------------Declaracion de Funciones------------------------
void Temporizador(void);
void DialogoAutorizacion(void);
void DialogoPesoEntrada(void);
void DialogoPesoSalida(void);
void DialogoAlbaran(void);
void ConseguirReferencia(char *cReferencia);
bool ComprobarTecladoTarjeta(void);
bool EsperarRespuestaOcasional(char cServidor,char *pszTipoId);
void DefinirTeclasFuncion(char cServidor,char *pszTipoID,char *Tecla,char *Mensaje,char cReferencia);
void MostrarResultado(char cServidor,char *sTipoID,int nResultado);
void AnimacionMontrel(char cServidor,char *sTipoID,char cReferencia);
//----------------------Estructura del Dialogo-------------------------------
typedef struct
{
char sCodigoCisDIA[4];
char sCodigoConDIA[4];
char sMatriculaTraDIA[11];
char cCodigoSumDIA;
BYTE byNumeroPedidoDIA[9];
}DIA;
//----------------------VARIABLES EXTERNAS-----------------------------------
extern BYTE CargarThreads(void);
extern void TerminarThread(HANDLE ThreadID);
extern void DialogoAutorizacion(void);
extern void DialogoPesoEntrada(void);
extern void DialogoPesoSalida(void);
extern void DialogoAlbaran(void);
extern void Temporizador(void);
extern bool ComprobarTecladoTarjeta(void);

9
Esergui -BDE utilizando API/EserguiBDE/Drivers.dat Normal file

@ -0,0 +1,9 @@
SERVER 0000 0000 0001
BASEPE 0001 0011 0016
PLCDRV 0066 0130 0257
VEGDRV 0018 0146 0144
HELDRV 0129 0038 0038
BBRDRV 0040 0025 0026
VALDRV 0020 0130 0023
TAQENT 0010 0090 0090
ACCDRV 0045 0090 0014

181
Esergui -BDE utilizando API/EserguiBDE/ESERGUISA.bpr Normal file

@ -0,0 +1,181 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = ESERGUISA.exe
OBJFILES = ESERGUISA.obj Principal.obj Esergui.obj Report.obj Dialogo.obj
RESFILES = ESERGUISA.res
RESDEPEN = $(RESFILES) Principal.dfm Report.dfm
LIBFILES = BDEMONTREL.lib
LIBRARIES =
SPARELIBS = Vcl40.lib Qrpt40.lib vclx40.lib vcldb40.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi bcbsmp40.bpi Qrpt40.bpi Vcldb40.bpi \
ibsmp40.bpi vcldbx40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi nmfast40.bpi \
dclocx40.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I"..\..\..\Archivos de programa\Borland\CBuilder4\Projects";$(BCB)\include;$(BCB)\include\vcl \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
PFLAGS = -U"..\..\..\Archivos de programa\Borland\CBuilder4\Projects";$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
-I"..\..\..\Archivos de programa\Borland\CBuilder4\Projects";$(BCB)\include;$(BCB)\include\vcl \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i"..\..\..\Archivos de programa\Borland\CBuilder4\Projects";$(BCB)\include;$(BCB)\include\vcl
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
LFLAGS = -L"..\..\..\Archivos de programa\Borland\CBuilder4\Projects";$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

26
Esergui -BDE utilizando API/EserguiBDE/ESERGUISA.cpp Normal file

@ -0,0 +1,26 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("ESERGUISA.res");
USEFORM("Principal.cpp", Form1);
USEUNIT("Esergui.cpp");
USELIB("BDEMONTREL.lib");
USEFORM("Report.cpp", QuickReport1); /* TQuickRep: DesignClass */
USEUNIT("Dialogo.cpp");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TQuickReport1), &QuickReport1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
Esergui -BDE utilizando API/EserguiBDE/ESERGUISA.exe Normal file

Binary file not shown.

BIN
Esergui -BDE utilizando API/EserguiBDE/ESERGUISA.res Normal file

Binary file not shown.

71
Esergui -BDE utilizando API/EserguiBDE/Elemento.dat Normal file

@ -0,0 +1,71 @@
1 99 SER 001 1 SERVER 001 002 A
2 99 SER 002 1 SERVER 001 002 A
2 12 PLC 001 1 PLCDRV 100 001 A
2 10 BBR PEN 1 BBRDRV 050 001 A
2 13 BAS ENT 1 BASEPE 010 001 A
2 10 BBR PSA 1 BBRDRV 050 004 A
2 14 BAS SAL 1 BASEPE 010 001 A
2 01 BBR AUT 1 BBRDRV 050 002 A
2 10 BBR SAL 1 BBRDRV 050 003 A
2 11 HEL 01I 1 HELDRV 020 001 A
2 24 HEL 02I 1 HELDRV 020 003 A
2 10 HEL 03I 1 HELDRV 020 005 A
2 17 HEL 04I 1 HELDRV 020 007 A
2 19 HEL 05I 1 HELDRV 020 009 A
2 11 VEG 011 1 VEGDRV 020 001 B
2 11 VEG 012 1 VEGDRV 020 002 B
2 11 VEG 013 1 VEGDRV 020 003 B
2 11 VEG 014 1 VEGDRV 020 004 B
2 24 VEG 021 1 VEGDRV 020 005 B
2 24 VEG 022 1 VEGDRV 020 006 B
2 24 VEG 023 1 VEGDRV 020 007 B
2 24 VEG 024 1 VEGDRV 020 008 B
2 10 VEG 031 1 VEGDRV 020 009 B
2 10 VEG 032 1 VEGDRV 020 010 B
2 10 VEG 033 1 VEGDRV 020 011 B
2 10 VEG 034 1 VEGDRV 020 012 B
2 17 VEG 041 1 VEGDRV 020 013 B
2 17 VEG 042 1 VEGDRV 020 014 B
2 17 VEG 043 1 VEGDRV 020 015 B
2 17 VEG 044 1 VEGDRV 020 016 B
2 19 VEG 051 1 VEGDRV 020 017 B
2 19 VEG 052 1 VEGDRV 020 018 B
2 19 VEG 053 1 VEGDRV 020 019 B
2 19 VEG 054 1 VEGDRV 020 020 B
2 19 VEG 055 1 VEGDRV 020 021 B
2 20 VAL 001 1 VALDRV 020 001 A
2 20 VAL 002 1 VALDRV 020 002 A
2 20 VAL 003 1 VALDRV 020 003 A
2 20 VAL 004 1 VALDRV 020 004 A
2 20 VAL 005 1 VALDRV 020 005 A
2 20 VAL 006 1 VALDRV 020 006 A
2 20 VAL 007 1 VALDRV 020 007 A
2 20 VAL 008 1 VALDRV 020 008 A
2 20 VAL 009 1 VALDRV 020 009 A
2 20 VAL 010 1 VALDRV 020 010 A
2 20 VAL 011 1 VALDRV 020 011 A
2 20 VAL 012 1 VALDRV 020 012 A
2 20 VAL 013 1 VALDRV 020 013 A
2 20 VAL 014 1 VALDRV 020 014 A
2 20 VAL 015 1 VALDRV 020 015 A
2 20 VAL 016 1 VALDRV 020 016 A
2 20 VAL 017 1 VALDRV 020 017 A
2 20 VAL 018 1 VALDRV 020 018 A
2 20 VAL 019 1 VALDRV 020 019 A
2 20 VAL 020 1 VALDRV 020 020 A
2 15 TAQ 011 1 TAQENT 020 011 A
2 15 TAQ 012 1 TAQENT 020 012 A
2 15 TAQ 013 1 TAQENT 020 013 A
2 15 TAQ 014 1 TAQENT 020 014 A
2 15 TAQ 015 1 TAQENT 020 015 A
2 15 TAQ 016 1 TAQENT 020 016 A
2 15 TAQ 017 1 TAQENT 020 017 A
2 15 TAQ 018 1 TAQENT 020 018 A
2 15 TAQ 021 1 TAQENT 020 021 A
2 15 TAQ 022 1 TAQENT 020 022 A
2 15 TAQ 023 1 TAQENT 020 023 A
2 15 TAQ 024 1 TAQENT 020 024 A
2 15 TAQ 025 1 TAQENT 020 025 A
2 15 TAQ 026 1 TAQENT 020 026 A
2 21 ACC PA1 1 ACCDRV 100 001 A
2 21 ACC PA2 1 ACCDRV 100 002 A

31
Esergui -BDE utilizando API/EserguiBDE/Enraf.dat Normal file

@ -0,0 +1,31 @@
TAQ 111 T-11
TAQ 101 T-101
TAQ 112 T-12
TAQ 114 TK-114
TAQ 373 T-13
TAQ 360 TK-360
TAQ 241 TK-241
TAQ 372 TK-372
TAQ 113 TK-113
TAQ 101 TK-101
TAQ 362 TK-362
TAQ 363 TK-363
TAQ 364 TK-364
TAQ 365 TK-365
TAQ 371 TK-371
TAQ 005 TK-005
TAQ 221 TK-221
TAQ 231 TK-231
TAQ 115 TK-115
TAQ 351 TK-351
TAQ 352 TK-352
TAQ 353 TK-353
TAQ 354 TK-354
TAQ 355 TK-355
TAQ 356 TK-356
TAQ 357 TK-357
TAQ 358 TK-358
TAQ 001 TK-001
TAQ 002 TK-002
TAQ 003 TK-003
TAQ 004 TK-004

3283
Esergui -BDE utilizando API/EserguiBDE/Esergui.cpp Normal file

File diff suppressed because it is too large Load Diff

470
Esergui -BDE utilizando API/EserguiBDE/Esergui.h Normal file

@ -0,0 +1,470 @@
//---------------------------------------------------------------------------
//Libreria empleada
#include "BDEMONTREL.h"
//---------------------------------------------------------------------------
//Definiciones de Arrays de variables
#define TAM_FECHA 30
#define TAM_HORA 30
#define NUM_MAXIMO_COMPARTIMENTO 9
#define NUM_MAXIMO_PRODUCTO 9
#define NUM_MAXIMO_ADITIVO 9
#define NUM_MAXIMO_CARGA 9
#define NUM_MAXIMO_PEDIDOS 9
#define NUM_MAXIMO_ELEMENTOS 100
#define NUM_MAXIMO_ORDENES 9
#define NUM_MAXIMO_LINEAS 9
#define NUM_MAXIMO_VIAJES 9
#define NUM_MAXIMO_ALBARANES 9
#define NUM_MAXIMO_OCASIONAL 16
#define TAM_MAXIMO_OCASIONAL 128
#define NUM_MAXIMO_PERIODICA 100
#define PENDIENTE "PENDIENTE"
#define AUTORIZADA "AUTORIZADA"
#define CARGADA "CARGADA"
#define PESO_ENTRADA "PESO ENTRADA"
#define PESO_SALIDA "PESO SALIDA"
//---------------------------------------------------------------------------
//Definiciones de Errores
#define AUT_CON_CORRECTO 1000
#define AUT_CON_VALOR_NO_ENCONTRADO 1001
#define AUT_CON_BORRADO 1002
#define AUT_CON_CARNET_CADUCADO 1003
#define AUT_CON_ADR_CADUCADO 1004
#define AUT_EN_OTRO_ESTADO 1005
#define AUT_CIS_CORRECTO 1100
#define AUT_CIS_VALOR_NO_ENCONTRADO 1101
#define AUT_CIS_BORRADO 1102
#define AUT_CIS_TARJETA_CADUCADA 1103
#define AUT_CIS_ADR_CADUCADO 1104
#define AUT_CIS_ITV_CADUCADO 1115
#define AUT_CIS_SEGURO_CADUCADO 1116
#define AUT_TRA_CORRECTO 1200
#define AUT_TRA_VALOR_NO_ENCONTRADO 1201
#define AUT_TRA_BORRADO 1202
#define AUT_TRA_TARJETA_CADUCADA 1203
#define AUT_TRA_ADR_CADUCADO 1204
#define AUT_TRA_ITV_CADUCADO 1205
#define AUT_TRA_SEGURO_CADUCADO 1206
#define AUT_SUM_CORRECTO 1300
#define AUT_SUM_VALOR_NO_ENCONTRADO 1301
#define AUT_SUM_BORRADO 1302
#define AUT_ORC_CORRECTO 1400
#define AUT_ORC_PEDIDO_DUPLICADO 1401
#define AUT_ORC_VALOR_NO_ENCONTRADO 1402
#define AUT_ORC_BORRADO 1403
#define AUT_ORC_ESTADO_ACABADO 1404
#define AUT_ORC_OTRO_SUMINISTRADOR 1405
#define AUT_ORC_OTRA_CISTERNA 1406
#define AUT_ORC_FECHA_MENOR_QUE_HOY 1407
#define AUT_VIA_CORRECTO 1500
#define AUT_VIA_ORL_NO_ENCONTRADO 1501
#define AUT_VIA_PRO_NO_ENCONTRADO 1502
#define AUT_VIA_PROD_MAYOR_CAP_CIS 1503
#define AUT_VIA_PESO_MAYOR_CAP_TRA 1504
#define AUT_VIA_VOL_MAYOR_CAP_CIS 1505
#define AUT_CIF_TRP_NO_ECONTRADO 1601
#define AUT_EST_CORRECTO 1700
#define AUT_EST_CIS_YA_DENTRO 1701
#define AUT_EST_CON_YA_DENTRO 1702
#define AUT_EST_TRA_YA_DENTRO 1703
#define AUT_SIN_PED_SELECCIONADOS 1801
#define AUT_SUP_NUM_MAX_PED 1802
#define AUT_PED_YA_INTRODUCIDO 1803
#define PEE_CORRECTO 2000
#define PEE_ESTADO_NO_AUTORIZADO 2001
#define PEE_PESO_FUERA_DE_TOLERANCIA 2002
#define PEE_TRACTOR_NO_ENCONTRADO 2003
#define PEE_CISTERNA_NO_ENCONTRADA 2004
#define PEE_CISTERNA_SIN_ORDEN 2005
#define PEE_CONDUCTOR_NO_ENCONTRADO 2006
#define PEE_CARGA_EN_OTRO_ESTADO 2007
#define PES_CORRECTO 3000
#define PES_CISTERNA_SIN_ORDEN 3001
#define PES_ESTADO_NO_CARGADO 3002
#define PES_PESO_FUERA_DE_TOLERANCIA 3003
#define PES_CISTERNA_NO_ENCONTRADA 3004
#define PES_TRACTOR_NO_ENCONTRADO 3005
#define ALB_CORRECTO 4000
#define ALB_CAR_NO_ENCONTRADA 4001
#define ALB_ESTADO_NO_AUTORIZADO 4002
#define TRANSFER_CORRECTO 5000
#define ERROR_ABRIR_FICHERO_ELEMENTO 5001
#define ERROR_ABRIR_FICHERO_DRIVERS 5002
#define ERROR_ABRIR_FICHERO_TRANSFER 5003
#define DRIVER_NO_ENCONTRADO 5004
#define TEC_FUNCION_INVALIDA 6001
#define ENT_TECLADO_INVALIDA 6002
#define TAR_CON_INVALIDA 6003
#define TAR_CIS_INVALIDA 6004
#define SUP_TIEMPO_ENT_TECLADO 6005
#define DIA_CANCELADO 6006
#define OPERACION_OK 6007
#define SIN_ERROR 0
#define ERROR_BDE 250
#define VALOR_EN_BLANCO 251
//---------------------------------------------------------------------------
//Estructura del Fichero Drivers.dat
typedef struct
{
char cNombreDriverDRV[6];
char cEspacioEnBlanco1;
char cTamBufferTraDRV[4];
char cEspacioEnBlanco2;
char cTamBufferRecDRV[4];
char cEspacioEnBlanco3;
char cTamPeriodicaDRV[4];
char cEspacioEnBlanco4[2];
}DRVDat;
//Estructura del Fichero Lineas.dat
typedef struct
{
char cConcentradorLIN;
char cEspacioEnBlanco1;
char cNumeroLineaLIN[2];
char cEspacioEnBlanco2;
char cLineaActivaLIN;
char cEspacioEnBlanco3;
char cVelocidadLineaLIN[5];
char cEspacioEnBlanco4;
char cAnchuraDatosLIN;
char cEspacioEnBlanco5;
char cParidadLIN;
char cEspacioEnBlanco6;
char cBitsDeStopLIN;
char cEspacioEnBlanco7[2];
}LINDat;
//Estructura del fichero Elementos.dat
typedef struct
{
char cConcentradorELE;
char cEspacioEnBlanco1;
char cNumeroLineaELE[2];
char cEspacioEnBlanco2;
char cTipoELE[3];
char cEspacioEnBlanco3;
char cIdentificaELE[3];
char cEspacioEnBlanco4;
char cElementoActivoELE;
char cEspacioEnBlanco5;
char cNombreDriverELE[6];
char cEspacioEnBlanco6;
char cTimeOutComunicaELE[3];
char cEspacioEnBlanco7;
char cDireccionELE[3];
char cEspacioEnBlanco8;
char cTipoPrioridadELE;
char cEspacioEnBlanco9[2];
}ELEDat;
//Estructura de las Periodicas de transfer.dat
typedef struct
{
char cServidor;
long lTamPeriodicaTRAPERDat;
long lPosicionTRAPER;
char cTipoIDTRAPER[6];
}TRAPERDat;
//Estructura de las Ocasionales transfer.dat
typedef struct
{
long lPosicionTRAOCA;
}TRAOCADat;
//Estructura del albaran
typedef struct
{
char *CodIntCisAlb[NUM_MAXIMO_ALBARANES];
char *CodNtmCisAlb[NUM_MAXIMO_ALBARANES];
char *CodIntTraAlb[NUM_MAXIMO_ALBARANES];
char *CodMatTraAlb[NUM_MAXIMO_ALBARANES];
char *CodIntConAlb[NUM_MAXIMO_ALBARANES];
char *CodSumAlb[NUM_MAXIMO_ALBARANES];
char *CodCliAlb[NUM_MAXIMO_ALBARANES];
char *CclDesAlb[NUM_MAXIMO_ALBARANES];
char *PenCarAlb[NUM_MAXIMO_ALBARANES];
char *PsaCarAlb[NUM_MAXIMO_ALBARANES];
char *CodTrpAlb[NUM_MAXIMO_ALBARANES];
char *ExpNomAlb[NUM_MAXIMO_ALBARANES];
char *ProDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *TimDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *AdiDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *ConDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *BruDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *NetDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *PesDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *D15DepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *DtqDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *TemDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
char *TamDepAlb[NUM_MAXIMO_COMPARTIMENTO][NUM_MAXIMO_ALBARANES];
}DatosAlbaran;
//Estructura de Peso de Entrada
typedef struct
{
char *pszToleranciaMaxEntPEE;
char *pszToleranciaMinEntPEE;
char *pszCodigoCisPEE;
char *pszMatriculaCisPEE;
char *pszCodigoTraPEE;
char *pszCodigoConPEE;
char *pszCamionCisPEE;
char *pszTaraCisPEE;
char *pszTaraTraPEE;
int nResultadoPesoEntrada;
}DatosPesoEntrada;
//Estructura de Peso de Salida
typedef struct
{
char *pszToleranciaMaxSalPES;
char *pszToleranciaMinSalPES;
char *pszCodigoCisPES;
char *pszCodigoTraPES;
char *pszCodigoConPES;
char *pszCamionCisPES;
char *pszTaraCisPES;
char *pszTaraTraPES;
int nResultadoPesoSalida;
}DatosPesoSalida;
//Estructura de Lineas de Carga
typedef struct
{
int nPesoPro;
int nVolumenPro;
char *pszPorcentajeMaxPro;
char *pszDensidadPro;
char *pszInternoPro;
char *pszNombrePro;
char *pszCodigoPro;
char *pszImpuestoPro;
char *pszCantidadPro;//Volumen del producto
char *pszCodAdiPro;
BYTE byIndAdiPro;
int nResultadoPesoCarga;
}DatosLinea;
//Estructura de Ordenes de Carga
typedef struct
{
bool bBorradoOrd;
char *pszMatriculaCisOrd;
char *pszCodigoSumOrd;
char *pszNombreDesOrd;
char *pszCodigoCliOrd;
char *pszCodigoCliDesOrd;
char *pszNumeroOrd;
char *pszPedidoOrd;
char *pszUnidadOrd;
char *pszFechaEntOrd;
char *pszFechaCargaOrd;
int nPesoOrd;
BYTE byNumeroViajeOrd;
DatosLinea sLinea[NUM_MAXIMO_LINEAS];
int nResultadoOrd;
}DatosOrden;
//Estructura de Autorizacion
typedef struct
{
//Variables del conductor
bool bBorradoCon;
char *pszCadCarnetCon;//tipo date de 8
char *pszCadADRCon;
char *pszNombreCon;
char *pszCarnetCon;
char *pszInternoCon;
char *pszCodigoCon;
int nResultadoCon;
//Variables de la Cisterna
bool bBorradoCis;
int nSobrePesoCis;
char *pszNombreTransCis;
char *pszCTRCis;
char *pszCodTransCis;
char *pszCadTarjetaCis;
char *pszCadADRCis;
char *pszCadITVCis;
char *pszCadSeguroCis;
char *pszInternoCis;
char *pszTaraCis;
char *pszBrutoCis;
char *pszsVolumenCis[NUM_MAXIMO_COMPARTIMENTO];
char *pszCamionCis;
char *pszMatriculaCis;
char *pszMatriculaTraCis;
char *pszCodigoCis;
char *pszNumeroEjesCis;
int nResultadoCis;
//Variables del Tractor
bool bBorradoTra;
int nSobrePesoTra;
char *pszCadTarjetaTra;
char *pszCadADRTra;
char *pszCadITVTra;
char *pszCadSeguroTra;
char *pszInternoTra;
char *pszTaraTra;
char *pszBrutoTra;
char *pszMatriculaTra;
char *pszNumeroEjesTra;
int nResultadoTra;
//Variables del Suministrador
bool bBorradoSum;
char *pszCodigoSum;
char *pszNombreSum;
int nResultadoSum;
//Variables del Transportista
char *pszCIFTRP;
//Variables de las Ordenes de Carga
DatosOrden sOrden[NUM_MAXIMO_ORDENES];
int nPesoDeProducto;
//Variable de la distribucion de productos en compartimentos
int nProducto_Dep[NUM_MAXIMO_COMPARTIMENTO];
}DatosAutorizacion;
//-----------------------------FUNCIONES GENERALES----------------------
void CapturarFechaGen(char *pszFechaActual);
void ActualizaEstadoGen(char *Cis,char *Tra,char *Con,char *pszEstado,hDBIDb hBaseDatos);
void Formatea (char *pszStrDest,int nTamano,char *pszFormato,...);
//-----------------------------CLASE DE AUTORIZACION--------------------
class TAutorizacion
{
protected:
private: // Declaraciones
DatosAutorizacion sDatos;
bool ComprobarCaducidad(dbiTabla Tabla,char *Campo);
public: //Declaracion de funciones Locales
TAutorizacion(void);
int ComprobarEstado(hDBIDb hBaseDatos);
int ComprobarConductor(char *pszCodConductor,hDBIDb hBaseDatos);
int ComprobarCisterna(char *pszCodCisterna,hDBIDb hBaseDatos);
int ComprobarTractor(char *pszMatriculaTra,char *pszInternoTra,hDBIDb hBaseDatos);
int ComprobarSuministrador(char *pszCodSum,hDBIDb hBaseDatos);
int ComprobarPedidos(char *pszCodPed,hDBIDb hBaseDatos);
int CalcularPesoVolCarga(hDBIDb hBaseDatos);
int ComprobarPesoCarga(hDBIDb hBaseDatos);
int ComprobarDistribucionCarga(void);
bool Cabe_Cis (void);
bool Capacidad_Ok(int n_Prod,int *psnCapacidad_Prod,int *psnCantidad_Prod);
void ActualizaEstado(hDBIDb hBaseDatos);
void BuscarNumeroViaje(hDBIDb hBaseDatos);
void RellenarSIMICCAR(dbiTabla TCAR);
void ReservarMemoriaEstructura(hDBIDb hBaseDatos);
void LiberarEstructura(void);
void LeerEstructura(DatosAutorizacion *psDat);
void InicializaEstructura(void);
};
//--------------------------CLASE DEL PESO DE ENTRADA-----------------
class TPesoEntrada
{
protected:
private: // User declarations
DatosPesoEntrada sDatosEnt;
public:
TPesoEntrada(void);
int PesoEntrada(char *pszCodCisterna,hDBIDb hBaseDatos);
int ComprobarCisterna(char *pszNTMCis,hDBIDb hBaseDatos);
int ComprobarEstado(char *pszCodCisterna,dbiTabla TCAR);
int ComprobarPeso(char *pszTaraCis,char *pszTaraTra);
// void CambiarEstado(hDBIDb hBaseDatos);
void ReservarMemoriaEstructura(hDBIDb hBaseDatos);
void LiberarEstructura(void);
};
//-------------------------CLASE DE PESO DE SALIDA--------------------
class TPesoSalida
{
protected:
private: // User declarations
DatosPesoSalida sDatosSal;
public:
TPesoSalida(void);
int PesoSalida(char *pszCodCisterna,hDBIDb hBaseDatos);
int ComprobarCisterna(char *pszNTMCis,hDBIDb hBaseDatos);
int ComprobarEstado(char *pszCodCisterna,dbiTabla TCAR);
int ComprobarPeso(char *pszTaraCis);
// void CambiarEstado(hDBIDb hBaseDatos);
void ReservarMemoriaEstructura(hDBIDb hBaseDatos);
void LiberarEstructura(void);
};
//------------------------CLASE DE ALBARAN---------------------------
class TAlbaran
{
protected:
private: // User declarations
DatosAlbaran sDatosAlb;
public:
TAlbaran(void);
void GenerarAlbaran(dbiTabla TCar,dbiTabla TTrp,dbiTabla TCis,dbiTabla TTra,dbiTabla TExp,dbiTabla TSum,dbiTabla TDes,dbiTabla TCli,BYTE i,hDBIDb hBaseDatos);
int Albaran(char *pszCodCisterna,hDBIDb hBaseDatos);
// BYTE BuscarEnTCar(dbiTabla TCAR,char *pszValor);
int ComprobarEstado(dbiTabla TCar,char *pszCodCis);
// BYTE ComprobarCisterna(char *pszNTMCis,hDBIDb hBaseDatos);
// BYTE ComprobarEstado();
// BYTE ComprobarPeso(char *pszTaraCis,char *pszTaraTra);
// void CambiarEstado(dbiTabla TTabla,char *pszCampo,hDBIDb hBaseDatos);
void ReservarMemoriaEstructura(hDBIDb hBaseDatos);
void LiberarEstructura(void);
};
//----------------CLASE DE LOS FICHEROS Transfer,linea,elemento--------------------------
class TTransfer
{
protected:
private: // User declarations
ELEDat sELEDat;
DRVDat sDRVDat;
TRAPERDat sTRAPERDat[NUM_MAXIMO_PERIODICA];
TRAOCADat sTRAOCADat;
public:
TTransfer(void);
bool LeerFichero(char *NombreFichero,char *NombreEstructura);
void LeerEstructura(TRAPERDat *pTRAPERDat,TRAOCADat *pTRAOCADat);
void InicializarEstructuraTransfer(void);
int RellenarEstructuraTransfer(void);
int EscribirOcasional(char *sSentencia,BYTE byNumOcasional);
int LeerOcasional(char *Texto,BYTE byNumOcasional);
};
//----------------------VARIABLES EXTERNAS---------------------------
extern TAutorizacion *Autorizacion;
extern TPesoEntrada *PesoEntrada;
extern TPesoSalida *PesoSalida;
extern TAlbaran *Albaran;
extern TTransfer *Transfer;
//--------------------------------------------------------------------

BIN
Esergui -BDE utilizando API/EserguiBDE/IDAPI.CFG Normal file

Binary file not shown.

30
Esergui -BDE utilizando API/EserguiBDE/Lineas.dat Normal file

@ -0,0 +1,30 @@
1 10 1 09600 8 1 P
1 11 1 09600 8 1 P
1 12 1 09600 8 1 P
1 13 1 09600 8 1 N
1 14 1 09600 8 1 N
1 15 1 09600 7 1 I
1 16 1 09600 7 1 P
1 17 1 09600 8 1 P
1 18 1 09600 7 1 P
1 19 1 09600 8 1 P
1 20 1 09600 8 1 I
1 21 1 09600 8 1 P
1 24 1 09600 8 1 P
1 99 1 09600 8 1 P
2 99 1 09600 8 1 P
2 10 1 09600 8 1 P
2 11 1 09600 8 1 P
2 12 1 09600 8 1 P
2 13 1 09600 8 1 N
2 14 1 09600 8 1 N
2 15 1 09600 7 1 I
2 16 1 09600 7 1 P
2 17 1 09600 8 1 P
2 18 1 09600 7 1 P
2 19 1 09600 8 1 P
2 20 1 09600 8 1 I
2 21 1 09600 8 1 P
2 24 1 09600 8 1 P
2 99 1 09600 8 1 P
2 01 1 09600 7 1 P

BIN
Esergui -BDE utilizando API/EserguiBDE/Pcomm.dll Normal file

Binary file not shown.

1289
Esergui -BDE utilizando API/EserguiBDE/Principal.cpp Normal file

File diff suppressed because it is too large Load Diff

BIN
Esergui -BDE utilizando API/EserguiBDE/Principal.dfm Normal file

Binary file not shown.

130
Esergui -BDE utilizando API/EserguiBDE/Principal.h Normal file

@ -0,0 +1,130 @@
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include "Esergui.h"
#include "string.h"
#include "stdlib.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#ifndef PrincipalH
#define PrincipalH
#define N_TABLA 5
#define N_SUM 4
#define N_PED 5
#define N_CON 8
#define N_CIS 20
#define N_TRA 10
#define N_CAMPO N_CON+N_CIS+N_TRA+N_SUM+N_PED
#define NUM_MAX_TAM_BUFFER 10
#define NUM_MAX_TECLAS 17
#define OpConductor 1
#define OpCisterna 2
#define OpTractor 3
#define OpSuministrador 4
#define OpPedidos 5
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *Informaciondeestructura1;
TMenuItem *InformacionEstructura1;
TMenuItem *Salir1;
TMenuItem *Autorizacion1;
TMenuItem *Conductor;
TMenuItem *Tractor;
TMenuItem *Comprobar1;
TMenuItem *Cisterna;
TMenuItem *Suministrador;
TMenuItem *Pedidos;
TMenuItem *Todos;
TListBox *ListBox1;
TMenuItem *ComprobarPeso1;
TMenuItem *ComprobarPeso2;
TMenuItem *DistribuirCarga1;
TMenuItem *ComprobarEstado1;
TButton *Button1;
TMenuItem *PesodeEntrada1;
TMenuItem *PesoEntrada1;
TMenuItem *PesodeSalida1;
TMenuItem *PesodeSalida2;
TMenuItem *Albaran1;
TMenuItem *Albaran2;
TMenuItem *Lecturafichero1;
TMenuItem *Transfer1;
TMenuItem *Elemento1;
TMenuItem *Linea1;
TMenuItem *Driver1;
TMenuItem *LeerOcasional1;
TMenuItem *EscribirOcasional1;
TLabel *Label1;
TEdit *Edit1;
TMenuItem *Dialogo1;
TMenuItem *Autorizacion2;
TMenuItem *PesodeEntrada2;
TMenuItem *PesodeSalida3;
TMenuItem *Albaran3;
TMenuItem *CargarThreads1;
TLabel *Label2;
TLabel *Label3;
TLabel *Label4;
TLabel *Label5;
TEdit *Edit2;
TEdit *Edit3;
TEdit *Edit4;
TEdit *Edit5;
void __fastcall Salir1Click(TObject *Sender);
void __fastcall ConductorClick(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall InformacionEstructura1Click(TObject *Sender);
void __fastcall CisternaClick(TObject *Sender);
void __fastcall TractorClick(TObject *Sender);
void __fastcall SuministradorClick(TObject *Sender);
void __fastcall PedidosClick(TObject *Sender);
void __fastcall TodosClick(TObject *Sender);
void __fastcall ComprobarPeso1Click(TObject *Sender);
void __fastcall ComprobarPeso2Click(TObject *Sender);
void __fastcall DistribuirCarga1Click(TObject *Sender);
void __fastcall ComprobarEstado1Click(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall ComprobarEstado2Click(TObject *Sender);
void __fastcall PesoEntrada1Click(TObject *Sender);
void __fastcall PesodeSalida2Click(TObject *Sender);
void __fastcall Albaran2Click(TObject *Sender);
void __fastcall Transfer1Click(TObject *Sender);
void __fastcall Elemento1Click(TObject *Sender);
void __fastcall Linea1Click(TObject *Sender);
void __fastcall Driver1Click(TObject *Sender);
void __fastcall LeerOcasional1Click(TObject *Sender);
void __fastcall EscribirOcasional1Click(TObject *Sender);
void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
void __fastcall CargarThreads1Click(TObject *Sender);
void __fastcall FinalizarThreads1Click(TObject *Sender);
private: // User declarations
char sDatoTecleado[NUM_MAX_TECLAS];
BYTE byOpcion;
bool bTodos;
public: // User declarations
TPanel *Panel[N_TABLA+N_CAMPO];
HANDLE HDContadores,HDAUT,HDPSE,HDPSS,HDALB;
BYTE Error;
hDBIDb hBaseDatos;
void BoolACadena(bool bVariable,char *cadena);
void MuestraLista(char *cadena);
void MuestraError(int Error);
bool LeerFichero(char *NombreFichero,char *NombreEstructura);
__fastcall TForm1(TComponent* Owner);
__fastcall ~TForm1();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

547
Esergui -BDE utilizando API/EserguiBDE/PruebaError.txt Normal file

@ -0,0 +1,547 @@
27/06/2001 13:33:52 Error Dbidif sin información
27/06/2001 13:33:52 Error Dbidif sin información
27/06/2001 13:33:52 Error Dbidif sin información
27/06/2001 13:33:52 Error Dbidif sin información
27/06/2001 13:37:34 Prueba de Error
27/06/2001 13:37:35 Error Dbidif sin información
27/06/2001 13:37:35 Error Dbidif sin información
27/06/2001 13:37:35 Error Dbidif sin información
27/06/2001 13:37:35 Error Dbidif sin información
27/06/2001 13:46:44 Prueba de Error
27/06/2001 13:46:46 Error Dbidif sin información
27/06/2001 13:46:46 Error Dbidif sin información
27/06/2001 13:46:46 Error Dbidif sin información
27/06/2001 13:46:46 Error Dbidif sin información
27/06/2001 13:49:21 Prueba de Error
27/06/2001 13:54:08 Prueba de Error
27/06/2001 13:57:25 Prueba de Error
27/06/2001 14:00:26 Prueba de Error
27/06/2001 14:05:12 Prueba de Error
27/06/2001 14:08:35 Prueba de Error
27/06/2001 16:21:58 Prueba de Error
27/06/2001 16:27:08 Prueba de Error
27/06/2001 16:30:32 Prueba de Error
27/06/2001 16:32:52 Prueba de Error
27/06/2001 16:35:33 Prueba de Error
27/06/2001 16:40:15 Prueba de Error
27/06/2001 16:42:28 Prueba de Error
27/06/2001 16:43:48 Prueba de Error
27/06/2001 16:44:36 Prueba de Error
27/06/2001 16:47:46 Prueba de Error
27/06/2001 16:49:01 Prueba de Error
27/06/2001 16:51:38 Prueba de Error
27/06/2001 16:53:35 Prueba de Error
27/06/2001 16:56:09 Prueba de Error
27/06/2001 17:01:58 Prueba de Error
27/06/2001 17:03:28 Prueba de Error
27/06/2001 17:06:46 Prueba de Error
27/06/2001 17:10:32 Prueba de Error
27/06/2001 17:22:35 Prueba de Error
27/06/2001 17:27:03 Prueba de Error
27/06/2001 17:44:07 Prueba de Error
27/06/2001 17:46:50 Prueba de Error
29/06/2001 10:38:53 Prueba de Error
29/06/2001 10:44:50 Prueba de Error
02/07/2001 09:59:05 Prueba de Error
02/07/2001 10:09:39 Prueba de Error
02/07/2001 10:14:35 Prueba de Error
02/07/2001 10:17:24 Prueba de Error
02/07/2001 10:26:05 Prueba de Error
02/07/2001 10:35:55 Prueba de Error
02/07/2001 10:37:38 Prueba de Error
02/07/2001 10:38:47 Prueba de Error
02/07/2001 10:41:38 Prueba de Error
02/07/2001 11:11:24 Prueba de Error
02/07/2001 11:14:15 Prueba de Error
02/07/2001 11:16:31 Prueba de Error
02/07/2001 11:19:23 Prueba de Error
02/07/2001 11:20:42 Prueba de Error
02/07/2001 11:29:55 Prueba de Error
02/07/2001 11:33:12 Prueba de Error
02/07/2001 11:35:55 Prueba de Error
02/07/2001 11:56:50 Prueba de Error
02/07/2001 12:06:40 Prueba de Error
02/07/2001 12:34:40 Prueba de Error
02/07/2001 12:42:31 Prueba de Error
02/07/2001 12:45:31 Prueba de Error
02/07/2001 12:46:34 Prueba de Error
02/07/2001 12:50:01 Prueba de Error
02/07/2001 12:52:36 Prueba de Error
02/07/2001 12:56:40 Prueba de Error
02/07/2001 12:57:41 Prueba de Error
02/07/2001 13:00:19 Prueba de Error
02/07/2001 13:01:02 Prueba de Error
02/07/2001 13:02:29 Prueba de Error
02/07/2001 13:10:20 Prueba de Error
02/07/2001 14:01:34 Prueba de Error
02/07/2001 14:07:33 Prueba de Error
04/07/2001 18:36:09 Prueba de Error
04/07/2001 18:37:07 Prueba de Error
04/07/2001 18:38:34 Prueba de Error
04/07/2001 18:39:10 Prueba de Error
04/07/2001 18:39:33 Prueba de Error
04/07/2001 19:05:16 Prueba de Error
04/07/2001 19:10:35 Prueba de Error
04/07/2001 19:12:52 Prueba de Error
05/07/2001 08:39:27 Prueba de Error
05/07/2001 08:40:21 Prueba de Error
05/07/2001 08:42:09 Prueba de Error
05/07/2001 08:50:28 Prueba de Error
05/07/2001 08:59:20 Prueba de Error
05/07/2001 09:00:36 Prueba de Error
05/07/2001 09:01:35 Prueba de Error
05/07/2001 09:02:23 Prueba de Error
05/07/2001 09:03:10 Prueba de Error
05/07/2001 09:05:15 Prueba de Error
05/07/2001 09:20:14 Prueba de Error
05/07/2001 09:33:52 Prueba de Error
05/07/2001 09:35:51 Prueba de Error
05/07/2001 10:08:19 Prueba de Error
05/07/2001 10:09:59 Prueba de Error
05/07/2001 10:10:22 Prueba de Error
05/07/2001 10:26:36 Prueba de Error
05/07/2001 10:28:15 Prueba de Error
05/07/2001 10:29:36 Prueba de Error
05/07/2001 10:41:01 Prueba de Error
05/07/2001 10:44:15 Prueba de Error
05/07/2001 10:49:21 Prueba de Error
05/07/2001 10:51:32 Prueba de Error
05/07/2001 10:53:40 Prueba de Error
05/07/2001 11:03:35 Prueba de Error
05/07/2001 11:05:23 Prueba de Error
05/07/2001 11:06:01 Prueba de Error
05/07/2001 11:08:29 Prueba de Error
05/07/2001 11:22:06 Prueba de Error
05/07/2001 11:24:22 Prueba de Error
05/07/2001 11:26:52 Prueba de Error
05/07/2001 11:27:44 Prueba de Error
05/07/2001 11:28:19 Prueba de Error
05/07/2001 11:29:17 Prueba de Error
05/07/2001 11:32:29 Prueba de Error
05/07/2001 11:39:29 Prueba de Error
05/07/2001 11:41:15 Prueba de Error
05/07/2001 11:44:12 Prueba de Error
05/07/2001 11:46:05 Prueba de Error
05/07/2001 11:50:00 Prueba de Error
05/07/2001 12:30:25 Prueba de Error
05/07/2001 12:43:10 Prueba de Error
05/07/2001 13:39:18 Prueba de Error
05/07/2001 13:59:15 Prueba de Error
05/07/2001 16:54:38 Prueba de Error
05/07/2001 16:56:39 Prueba de Error
05/07/2001 17:00:40 Prueba de Error
05/07/2001 17:19:08 Prueba de Error
05/07/2001 17:44:52 Prueba de Error
05/07/2001 17:48:10 Prueba de Error
05/07/2001 17:55:20 Prueba de Error
05/07/2001 17:58:02 Prueba de Error
05/07/2001 18:01:35 Prueba de Error
05/07/2001 18:03:30 Prueba de Error
05/07/2001 18:05:32 Prueba de Error
05/07/2001 18:07:58 Prueba de Error
05/07/2001 18:10:01 Prueba de Error
05/07/2001 18:12:35 Prueba de Error
05/07/2001 18:19:01 Prueba de Error
05/07/2001 18:32:53 Prueba de Error
05/07/2001 18:39:31 Prueba de Error
05/07/2001 18:45:37 Prueba de Error
05/07/2001 18:49:28 Prueba de Error
05/07/2001 18:51:07 Prueba de Error
05/07/2001 18:55:28 Prueba de Error
05/07/2001 18:58:06 Prueba de Error
05/07/2001 19:08:48 Prueba de Error
05/07/2001 19:11:01 Prueba de Error
05/07/2001 19:15:01 Prueba de Error
06/07/2001 13:27:27 Prueba de Error
06/07/2001 13:30:06 Prueba de Error
06/07/2001 13:35:20 Prueba de Error
06/07/2001 13:37:17 Prueba de Error
06/07/2001 13:38:44 Prueba de Error
09/07/2001 09:51:21 Prueba de Error
09/07/2001 09:57:58 Prueba de Error
09/07/2001 09:59:30 Prueba de Error
09/07/2001 10:00:36 Prueba de Error
09/07/2001 10:08:41 Prueba de Error
09/07/2001 10:12:35 Prueba de Error
09/07/2001 10:14:52 Prueba de Error
09/07/2001 10:18:42 Prueba de Error
09/07/2001 10:20:15 Prueba de Error
09/07/2001 10:26:07 Prueba de Error
09/07/2001 10:28:05 Prueba de Error
09/07/2001 10:33:11 Prueba de Error
09/07/2001 10:34:19 Prueba de Error
09/07/2001 10:35:30 Prueba de Error
09/07/2001 10:36:02 Prueba de Error
09/07/2001 10:47:04 Prueba de Error
09/07/2001 10:48:59 Prueba de Error
09/07/2001 10:50:24 Prueba de Error
09/07/2001 10:50:52 Prueba de Error
09/07/2001 10:53:22 Prueba de Error
09/07/2001 10:54:32 Prueba de Error
09/07/2001 10:56:51 Prueba de Error
09/07/2001 10:58:11 Prueba de Error
09/07/2001 10:59:27 Prueba de Error
09/07/2001 11:04:06 Prueba de Error
09/07/2001 11:08:26 Prueba de Error
09/07/2001 11:09:22 Prueba de Error
09/07/2001 11:10:17 Prueba de Error
09/07/2001 11:11:48 Prueba de Error
09/07/2001 11:25:00 Prueba de Error
09/07/2001 11:26:13 Prueba de Error
09/07/2001 11:26:53 Prueba de Error
09/07/2001 11:28:53 Prueba de Error
09/07/2001 11:29:23 Prueba de Error
09/07/2001 12:15:34 Prueba de Error
09/07/2001 12:16:55 Prueba de Error
09/07/2001 12:19:23 Prueba de Error
09/07/2001 12:21:27 Prueba de Error
09/07/2001 12:25:21 Prueba de Error
09/07/2001 12:28:34 Prueba de Error
09/07/2001 12:30:17 Prueba de Error
09/07/2001 12:33:20 Prueba de Error
09/07/2001 12:36:42 Prueba de Error
09/07/2001 12:47:11 Prueba de Error
09/07/2001 12:47:39 Prueba de Error
09/07/2001 12:48:24 Prueba de Error
09/07/2001 12:51:00 Prueba de Error
09/07/2001 12:52:31 Prueba de Error
09/07/2001 13:00:23 Prueba de Error
09/07/2001 13:03:13 Prueba de Error
09/07/2001 13:05:12 Prueba de Error
09/07/2001 13:06:32 Prueba de Error
09/07/2001 13:47:11 Prueba de Error
09/07/2001 13:49:42 Prueba de Error
09/07/2001 13:52:49 Prueba de Error
09/07/2001 13:54:44 Prueba de Error
09/07/2001 13:59:20 Prueba de Error
09/07/2001 14:01:26 Prueba de Error
09/07/2001 14:03:32 Prueba de Error
09/07/2001 14:05:58 Prueba de Error
09/07/2001 14:08:46 Prueba de Error
09/07/2001 16:26:07 Prueba de Error
09/07/2001 19:04:42 Prueba de Error
09/07/2001 19:05:31 Prueba de Error
09/07/2001 19:06:14 Prueba de Error
09/07/2001 19:07:30 Prueba de Error
09/07/2001 19:09:16 Prueba de Error
10/07/2001 09:47:49 Prueba de Error
10/07/2001 09:48:50 Prueba de Error
10/07/2001 11:06:00 Prueba de Error
10/07/2001 12:40:58 Prueba de Error
10/07/2001 13:05:35 Prueba de Error
10/07/2001 13:20:53 Prueba de Error
10/07/2001 13:42:22 Prueba de Error
10/07/2001 13:44:30 Prueba de Error
10/07/2001 13:46:07 Prueba de Error
10/07/2001 13:50:58 Prueba de Error
10/07/2001 13:52:44 Prueba de Error
10/07/2001 13:56:35 Prueba de Error
10/07/2001 16:47:38 Prueba de Error
10/07/2001 16:48:46 Prueba de Error
10/07/2001 16:52:12 Prueba de Error
10/07/2001 16:53:12 Prueba de Error
10/07/2001 16:56:54 Prueba de Error
10/07/2001 16:59:59 Prueba de Error
10/07/2001 17:03:16 Prueba de Error
10/07/2001 17:06:12 Prueba de Error
10/07/2001 17:08:34 Prueba de Error
10/07/2001 17:10:29 Prueba de Error
10/07/2001 17:15:28 Prueba de Error
10/07/2001 17:17:03 Prueba de Error
10/07/2001 17:17:48 Prueba de Error
10/07/2001 17:18:16 Prueba de Error
10/07/2001 17:22:03 Prueba de Error
10/07/2001 17:24:00 Prueba de Error
10/07/2001 17:29:19 Prueba de Error
10/07/2001 17:32:07 Prueba de Error
10/07/2001 17:35:06 Prueba de Error
10/07/2001 17:38:18 Prueba de Error
10/07/2001 17:39:45 Prueba de Error
10/07/2001 17:42:16 Prueba de Error
10/07/2001 17:44:07 Prueba de Error
10/07/2001 17:48:13 Prueba de Error
10/07/2001 17:51:05 Prueba de Error
10/07/2001 17:52:17 Prueba de Error
10/07/2001 17:53:03 Prueba de Error
10/07/2001 17:54:28 Prueba de Error
10/07/2001 17:55:36 Prueba de Error
10/07/2001 17:58:58 Prueba de Error
10/07/2001 17:59:30 Prueba de Error
10/07/2001 18:02:42 Prueba de Error
10/07/2001 18:05:21 Prueba de Error
10/07/2001 18:09:30 Prueba de Error
10/07/2001 18:13:56 Prueba de Error
10/07/2001 18:18:10 Prueba de Error
10/07/2001 18:19:32 Prueba de Error
10/07/2001 18:22:25 Prueba de Error
10/07/2001 18:24:33 Prueba de Error
10/07/2001 18:25:32 Prueba de Error
10/07/2001 18:26:24 Prueba de Error
10/07/2001 18:26:48 Prueba de Error
10/07/2001 18:27:08 Prueba de Error
10/07/2001 18:27:42 Prueba de Error
10/07/2001 18:29:43 Prueba de Error
10/07/2001 18:30:21 Prueba de Error
10/07/2001 18:31:01 Prueba de Error
10/07/2001 18:31:53 Prueba de Error
10/07/2001 18:33:13 Prueba de Error
10/07/2001 18:36:00 Prueba de Error
10/07/2001 18:36:50 Prueba de Error
10/07/2001 18:38:21 Prueba de Error
10/07/2001 18:39:04 Prueba de Error
10/07/2001 18:39:59 Prueba de Error
10/07/2001 18:40:18 Prueba de Error
10/07/2001 18:40:44 Prueba de Error
10/07/2001 18:41:40 Prueba de Error
10/07/2001 18:43:31 Prueba de Error
10/07/2001 18:45:22 Prueba de Error
10/07/2001 18:48:17 Prueba de Error
10/07/2001 18:53:30 Prueba de Error
10/07/2001 18:54:49 Prueba de Error
10/07/2001 18:55:50 Prueba de Error
10/07/2001 18:56:15 Prueba de Error
10/07/2001 18:56:33 Prueba de Error
10/07/2001 18:57:46 Prueba de Error
10/07/2001 18:59:22 Prueba de Error
10/07/2001 19:02:14 Prueba de Error
10/07/2001 19:03:50 Prueba de Error
10/07/2001 19:08:40 Prueba de Error
10/07/2001 19:09:21 Prueba de Error
10/07/2001 19:09:44 Prueba de Error
10/07/2001 19:10:08 Prueba de Error
10/07/2001 19:10:44 Prueba de Error
10/07/2001 19:11:21 Prueba de Error
10/07/2001 19:11:47 Prueba de Error
10/07/2001 19:13:43 Prueba de Error
10/07/2001 19:14:44 Prueba de Error
10/07/2001 19:15:15 Prueba de Error
10/07/2001 19:15:37 Prueba de Error
10/07/2001 19:21:29 Prueba de Error
10/07/2001 19:23:18 Prueba de Error
10/07/2001 19:23:47 Prueba de Error
10/07/2001 19:26:28 Prueba de Error
10/07/2001 19:29:37 Prueba de Error
10/07/2001 19:31:25 Prueba de Error
11/07/2001 09:53:43 Prueba de Error
11/07/2001 10:02:55 Prueba de Error
11/07/2001 10:07:55 Prueba de Error
11/07/2001 10:13:33 Prueba de Error
11/07/2001 10:14:39 Prueba de Error
11/07/2001 10:15:50 Prueba de Error
11/07/2001 10:20:36 Prueba de Error
11/07/2001 10:22:14 Prueba de Error
11/07/2001 10:23:04 Prueba de Error
11/07/2001 10:23:44 Prueba de Error
11/07/2001 10:25:17 Prueba de Error
11/07/2001 10:27:16 Prueba de Error
11/07/2001 10:28:22 Prueba de Error
11/07/2001 10:28:56 Prueba de Error
11/07/2001 10:31:20 Prueba de Error
11/07/2001 10:34:43 Prueba de Error
11/07/2001 10:43:43 Prueba de Error
11/07/2001 10:44:38 Prueba de Error
11/07/2001 10:45:52 Prueba de Error
11/07/2001 10:46:34 Prueba de Error
11/07/2001 10:46:47 Prueba de Error
11/07/2001 10:48:16 Prueba de Error
11/07/2001 10:54:49 Prueba de Error
11/07/2001 10:56:58 Prueba de Error
11/07/2001 10:58:42 Prueba de Error
11/07/2001 11:44:30 Prueba de Error
11/07/2001 12:08:35 Prueba de Error
11/07/2001 12:09:50 Prueba de Error
11/07/2001 12:12:42 Prueba de Error
11/07/2001 12:13:01 Prueba de Error
11/07/2001 12:14:04 Prueba de Error
11/07/2001 12:18:21 Prueba de Error
11/07/2001 12:18:48 Prueba de Error
11/07/2001 12:19:39 Prueba de Error
11/07/2001 12:19:55 Prueba de Error
11/07/2001 12:21:34 Prueba de Error
11/07/2001 12:23:14 Prueba de Error
11/07/2001 12:25:19 Prueba de Error
11/07/2001 12:25:58 Prueba de Error
11/07/2001 12:32:16 Prueba de Error
11/07/2001 12:34:54 Prueba de Error
11/07/2001 12:37:39 Prueba de Error
11/07/2001 12:40:48 Prueba de Error
11/07/2001 12:42:35 Prueba de Error
11/07/2001 12:42:55 Prueba de Error
11/07/2001 12:44:21 Prueba de Error
11/07/2001 12:49:28 Prueba de Error
11/07/2001 12:57:22 Prueba de Error
11/07/2001 12:59:49 Prueba de Error
11/07/2001 13:00:52 Prueba de Error
11/07/2001 13:19:22 Prueba de Error
11/07/2001 13:20:33 Prueba de Error
11/07/2001 13:29:07 Prueba de Error
11/07/2001 13:35:03 Prueba de Error
11/07/2001 13:37:12 Prueba de Error
11/07/2001 13:38:09 Prueba de Error
11/07/2001 13:39:35 Prueba de Error
11/07/2001 13:40:36 Prueba de Error
11/07/2001 13:42:51 Prueba de Error
11/07/2001 13:44:04 Prueba de Error
11/07/2001 13:46:05 Prueba de Error
11/07/2001 13:47:03 Prueba de Error
11/07/2001 13:49:14 Prueba de Error
11/07/2001 14:26:17 Prueba de Error
11/07/2001 14:35:49 Prueba de Error
11/07/2001 14:37:22 Prueba de Error
11/07/2001 16:26:46 Prueba de Error
11/07/2001 16:28:37 Prueba de Error
11/07/2001 16:31:16 Prueba de Error
11/07/2001 16:33:06 Prueba de Error
11/07/2001 17:12:21 Prueba de Error
11/07/2001 17:12:59 Prueba de Error
11/07/2001 17:13:56 Prueba de Error
11/07/2001 17:15:38 Prueba de Error
11/07/2001 17:26:35 Prueba de Error
11/07/2001 17:28:25 Error String Number is out of range. (9985,39:1)
11/07/2001 17:31:16 Prueba de Error
11/07/2001 17:31:48 Prueba de Error
11/07/2001 17:33:54 Prueba de Error
11/07/2001 17:34:50 Prueba de Error
11/07/2001 17:36:29 Prueba de Error
11/07/2001 17:38:50 Prueba de Error
11/07/2001 17:41:50 Prueba de Error
11/07/2001 17:42:06 Error Info Table is busy. (10243,40:3). 1) . 2) . 3) . 4)
11/07/2001 17:44:31 Prueba de Error
11/07/2001 17:45:30 Error String Number is out of range. (9985,39:1)
11/07/2001 17:49:28 Prueba de Error
11/07/2001 17:51:05 Prueba de Error
11/07/2001 17:51:32 Prueba de Error
11/07/2001 17:52:34 Prueba de Error
11/07/2001 17:53:30 Error String Number is out of range. (9985,39:1)
11/07/2001 17:58:06 Prueba de Error
11/07/2001 17:59:20 Prueba de Error
11/07/2001 18:08:21 Prueba de Error
11/07/2001 18:10:35 Prueba de Error
11/07/2001 18:14:18 Prueba de Error
11/07/2001 18:16:05 Prueba de Error
11/07/2001 18:17:23 Prueba de Error
11/07/2001 18:21:46 Prueba de Error
11/07/2001 18:25:51 Prueba de Error
11/07/2001 18:27:18 Prueba de Error
11/07/2001 18:31:27 Prueba de Error
11/07/2001 18:35:20 Prueba de Error
11/07/2001 19:00:04 Prueba de Error
11/07/2001 19:02:01 Prueba de Error
11/07/2001 19:02:21 Error Info Table is busy. (10243,40:3). 1) . 2) . 3) . 4)
11/07/2001 19:03:07 Prueba de Error
11/07/2001 19:07:07 Prueba de Error
12/07/2001 10:01:56 Prueba de Error
12/07/2001 10:02:56 Prueba de Error
12/07/2001 10:05:06 Prueba de Error
12/07/2001 11:21:23 Prueba de Error
12/07/2001 11:24:18 Prueba de Error
12/07/2001 11:25:10 Prueba de Error
12/07/2001 11:26:22 Prueba de Error
12/07/2001 11:28:38 Prueba de Error
12/07/2001 11:32:39 Prueba de Error
12/07/2001 11:35:55 Prueba de Error
12/07/2001 11:43:59 Prueba de Error
12/07/2001 11:47:54 Prueba de Error
12/07/2001 11:50:55 Prueba de Error
12/07/2001 11:53:41 Prueba de Error
12/07/2001 12:05:42 Prueba de Error
12/07/2001 12:41:04 Prueba de Error
12/07/2001 12:46:29 Prueba de Error
12/07/2001 12:54:59 Prueba de Error
12/07/2001 13:12:04 Prueba de Error
12/07/2001 13:14:03 Prueba de Error
12/07/2001 13:14:45 Prueba de Error
13/07/2001 08:56:12 Prueba de Error
13/07/2001 08:56:52 Prueba de Error
13/07/2001 08:57:19 Prueba de Error
13/07/2001 08:57:52 Prueba de Error
13/07/2001 08:59:05 Prueba de Error
13/07/2001 09:00:37 Prueba de Error
13/07/2001 09:01:32 Prueba de Error
13/07/2001 09:02:33 Prueba de Error
13/07/2001 09:04:42 Prueba de Error
13/07/2001 09:05:48 Prueba de Error
13/07/2001 09:08:29 Prueba de Error
13/07/2001 09:09:04 Prueba de Error
13/07/2001 09:10:19 Prueba de Error
13/07/2001 09:13:34 Prueba de Error
13/07/2001 09:14:40 Prueba de Error
13/07/2001 09:15:39 Prueba de Error
13/07/2001 09:17:21 Prueba de Error
13/07/2001 09:19:38 Prueba de Error
13/07/2001 09:22:19 Prueba de Error
13/07/2001 09:22:57 Prueba de Error
13/07/2001 09:24:14 Prueba de Error
13/07/2001 09:25:05 Prueba de Error
13/07/2001 09:28:08 Prueba de Error
13/07/2001 09:29:04 Prueba de Error
13/07/2001 09:30:26 Prueba de Error
13/07/2001 09:31:11 Prueba de Error
13/07/2001 09:31:37 Prueba de Error
13/07/2001 09:32:58 Prueba de Error
13/07/2001 09:33:39 Prueba de Error
13/07/2001 09:36:06 Prueba de Error
13/07/2001 09:37:43 Prueba de Error
13/07/2001 09:39:56 Prueba de Error
13/07/2001 09:41:37 Prueba de Error
13/07/2001 09:44:34 Prueba de Error
13/07/2001 09:48:00 Prueba de Error
13/07/2001 09:49:37 Prueba de Error
13/07/2001 09:52:15 Prueba de Error
13/07/2001 09:55:20 Prueba de Error
13/07/2001 09:56:00 Prueba de Error
13/07/2001 09:56:40 Prueba de Error
13/07/2001 09:57:30 Prueba de Error
13/07/2001 09:58:36 Prueba de Error
13/07/2001 09:59:39 Prueba de Error
13/07/2001 10:01:18 Prueba de Error
13/07/2001 10:03:45 Prueba de Error
13/07/2001 10:08:30 Prueba de Error
13/07/2001 10:09:20 Prueba de Error
13/07/2001 10:11:53 Prueba de Error
13/07/2001 10:14:02 Prueba de Error
13/07/2001 10:14:44 Prueba de Error
13/07/2001 10:16:55 Prueba de Error
13/07/2001 10:18:49 Prueba de Error
13/07/2001 10:19:42 Prueba de Error
13/07/2001 10:26:29 Prueba de Error
13/07/2001 11:28:31 Prueba de Error
13/07/2001 11:31:13 Prueba de Error
13/07/2001 11:41:30 Prueba de Error
13/07/2001 12:08:07 Prueba de Error
13/07/2001 12:11:48 Prueba de Error
13/07/2001 12:31:00 Prueba de Error
13/07/2001 12:37:56 Prueba de Error
13/07/2001 12:42:29 Prueba de Error
13/07/2001 12:45:21 Prueba de Error
13/07/2001 13:09:58 Prueba de Error
13/07/2001 13:15:49 Prueba de Error
13/07/2001 13:35:05 Prueba de Error
13/07/2001 14:06:09 Prueba de Error
13/07/2001 14:09:29 Prueba de Error
13/07/2001 14:18:41 Prueba de Error
13/07/2001 14:27:23 Prueba de Error
13/07/2001 14:30:29 Prueba de Error
13/07/2001 14:31:13 Prueba de Error
16/07/2001 09:45:39 Prueba de Error
16/07/2001 09:57:11 Prueba de Error
16/07/2001 10:04:12 Prueba de Error
16/07/2001 10:15:51 Prueba de Error
16/07/2001 10:18:11 Prueba de Error
16/07/2001 10:24:23 Prueba de Error
16/07/2001 10:26:27 Prueba de Error
16/07/2001 10:28:37 Prueba de Error
16/07/2001 10:31:07 Prueba de Error
16/07/2001 10:34:51 Prueba de Error
16/07/2001 10:37:29 Prueba de Error
16/07/2001 10:42:17 Prueba de Error
16/07/2001 10:44:54 Prueba de Error
16/07/2001 10:59:36 Prueba de Error
16/07/2001 11:35:50 Prueba de Error
16/07/2001 11:37:06 Prueba de Error
16/07/2001 11:41:03 Prueba de Error
16/07/2001 11:44:41 Prueba de Error
16/07/2001 11:48:07 Prueba de Error
16/07/2001 11:53:27 Prueba de Error
16/07/2001 11:54:59 Prueba de Error
16/07/2001 11:57:06 Prueba de Error

14
Esergui -BDE utilizando API/EserguiBDE/Report.cpp Normal file

@ -0,0 +1,14 @@
//----------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "Report.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TQuickReport1 *QuickReport1;
//----------------------------------------------------------------------------
__fastcall TQuickReport1::TQuickReport1(TComponent* Owner)
: TQuickRep(Owner)
{
}
//----------------------------------------------------------------------------

BIN
Esergui -BDE utilizando API/EserguiBDE/Report.dfm Normal file

Binary file not shown.

35
Esergui -BDE utilizando API/EserguiBDE/Report.h Normal file

@ -0,0 +1,35 @@
//----------------------------------------------------------------------------
#ifndef ReportH
#define ReportH
//----------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\QuickRpt.hpp>
#include <vcl\QRCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Qrctrls.hpp>
//----------------------------------------------------------------------------
class TQuickReport1 : public TQuickRep
{
__published:
TQRBand *ColumnHeaderBand1;
TQRBand *DetailBand1;
TQRBand *PageFooterBand1;
TQRBand *PageHeaderBand1;
TQRBand *SummaryBand1;
TQRBand *TitleBand1;
TQRLabel *QRLabel1;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TQRLabel *QRLabel5;
private:
public:
__fastcall TQuickReport1::TQuickReport1(TComponent* Owner);
};
//----------------------------------------------------------------------------
extern TQuickReport1 *QuickReport1;
//----------------------------------------------------------------------------
#endif

BIN
Esergui -BDE utilizando API/EserguiBDE/Transfer.dat Normal file

Binary file not shown.

4
Esergui -BDE utilizando API/EserguiBDE/cam_fich.dat Normal file

@ -0,0 +1,4 @@
d:\oscar\esergui\esergui\drivers.dat
d:\oscar\esergui\esergui\elemento.dat
d:\oscar\esergui\esergui\lineas.dat
d:\oscar\esergui\esergui\transfer.dat

103
InterBase.bpr Normal file

@ -0,0 +1,103 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="InterBase.exe"/>
<OBJFILES value="InterBase.obj ..\Unit1.obj"/>
<RESFILES value="InterBase.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) ..\Unit1.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value=""/>
<SPARELIBS value="VCL50.lib VCLDB50.lib VCLIB50.lib"/>
<PACKAGES value="VCL50.bpi VCLX50.bpi bcbsmp50.bpi VCLDB50.bpi VCLADO50.bpi ibsmp50.bpi
VCLBDE50.bpi VCLDBX50.bpi QRPT50.bpi TEEUI50.bpi TEEDB50.bpi TEE50.bpi
DSS50.bpi TEEQR50.bpi VCLIB50.bpi VCLMID50.bpi VCLIE50.bpi INETDB50.bpi
INET50.bpi NMFAST50.bpi WEBMID50.bpi bcbie50.bpi dclocx50.bpi
bcb2kaxserver50.bpi asgc5.bpi CabForCB.bpi CoolPack.bpi JDsoft.bpi
PhantomPack.bpi RAS_Tools.bpi"/>
<PATHCPP value=".;..\..\C++ Builder"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="tlink32"/>
<USERDEFINES value="_DEBUG"/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="InterBase.cpp"/>
<INCLUDEPATH value="..;$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="..;..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I.. -I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tW -tWM"/>
<PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
</LINKER>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
[Language]
ActiveLang=
ProjectLang=
RootDir=
</IDEOPTIONS>
</PROJECT>

22
InterBase.cpp Normal file

@ -0,0 +1,22 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("InterBase.res");
USEFORM("..\Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
InterBase.exe Normal file

Binary file not shown.

BIN
InterBase.res Normal file

Binary file not shown.

51
MySQL_ADO.cpp Normal file

@ -0,0 +1,51 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MySQL_ADO.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "mySQLDbTables"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ADOTable1RecordChangeComplete(
TCustomADODataSet *DataSet, const TEventReason Reason,
const int RecordCount, const Error *Error, TEventStatus &EventStatus)
{
/*
if ( Reason == erAddNew )
ADOTable1->Refresh();
*/
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOTable1->Refresh();
/*
ADOTable1->Insert();
ADOTable1->FieldByName("name")->AsString = "JODERING";
ADOTable1->Post();
*/
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// Query1->Refresh();
}
//---------------------------------------------------------------------------

317
MySQL_ADO.dfm Normal file

@ -0,0 +1,317 @@
object Form1: TForm1
Left = 191
Top = 117
Width = 783
Height = 540
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 265
Width = 775
Height = 3
Cursor = crVSplit
Align = alTop
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 775
Height = 265
Align = alTop
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button1: TButton
Left = 656
Top = 280
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object DBGrid2: TDBGrid
Left = 8
Top = 272
Width = 641
Height = 225
DataSource = DataSource2
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button2: TButton
Left = 656
Top = 312
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 3
OnClick = Button2Click
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=MSDASQL.1;Password=nuevo;Persist Security Info=True;Use' +
'r ID=jd;Data Source=sample-MySQL;Mode=Read|Write;Connect Timeout' +
'=15;Extended Properties="DSN=sample-MySQL;DATABASE=test;SERVER=i' +
'nfdj.com;UID=jd;PWD=nuevo;PORT=3306;OPTION=0;STMT=;";Locale Iden' +
'tifier=3082'
LoginPrompt = False
Mode = cmReadWrite
Left = 520
Top = 16
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = ADOTable1
Left = 520
Top = 48
end
object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
OnRecordChangeComplete = ADOTable1RecordChangeComplete
TableName = 'pet'
Left = 552
Top = 80
object ADOTable1name: TStringField
FieldName = 'name'
Size = 18
end
object ADOTable1owner: TStringField
FieldName = 'owner'
Size = 16
end
object ADOTable1species: TStringField
FieldName = 'species'
Size = 12
end
object ADOTable1sex: TStringField
FieldName = 'sex'
FixedChar = True
Size = 1
end
object ADOTable1birth: TDateField
FieldName = 'birth'
end
object ADOTable1death: TDateField
FieldName = 'death'
end
object ADOTable1id: TAutoIncField
AutoGenerateValue = arAutoInc
FieldName = 'id'
end
end
object DataSource2: TDataSource
DataSet = mySQLTable1
Left = 112
Top = 440
end
object Table1: TTable
AutoRefresh = True
DatabaseName = 'SINPASWORD'
TableName = 'pet'
Left = 144
Top = 416
end
object Database1: TDatabase
AliasName = 'sample-MySQL'
DatabaseName = 'SINPASWORD'
LoginPrompt = False
Params.Strings = (
'DATABASE NAME='
'USER NAME=jd'
'ODBC DSN=sample-MySQL'
'OPEN MODE=READ/WRITE'
'BATCH COUNT=200'
'LANGDRIVER='
'MAX ROWS=-1'
'SCHEMA CACHE DIR='
'SCHEMA CACHE SIZE=8'
'SCHEMA CACHE TIME=-1'
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'SQLQRYMODE='
'ENABLE SCHEMA CACHE=FALSE'
'ENABLE BCD=FALSE'
'ROWSET SIZE=20'
'BLOBS TO CACHE=64'
'BLOB SIZE=32'
'PASSWORD=nuevo')
SessionName = 'Default'
Left = 296
Top = 440
end
object Query1: TQuery
AutoRefresh = True
DatabaseName = 'SINPASWORD'
RequestLive = True
SQL.Strings = (
'select * from pet'
'order by name')
UpdateObject = UpdateSQL1
Left = 664
Top = 384
object Query1name: TStringField
FieldName = 'name'
Origin = 'SINPASWORD.pet.name'
end
object Query1owner: TStringField
FieldName = 'owner'
Origin = 'SINPASWORD.pet.owner'
end
object Query1species: TStringField
FieldName = 'species'
Origin = 'SINPASWORD.pet.species'
end
object Query1sex: TStringField
FieldName = 'sex'
Origin = 'SINPASWORD.pet.sex'
FixedChar = True
Size = 1
end
object Query1birth: TDateField
FieldName = 'birth'
Origin = 'SINPASWORD.pet.birth'
end
object Query1death: TDateField
FieldName = 'death'
Origin = 'SINPASWORD.pet.death'
end
object Query1id: TIntegerField
AutoGenerateValue = arAutoInc
FieldName = 'id'
Origin = 'SINPASWORD.pet.id'
end
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update pet'
'set'
' name = :name,'
' owner = :owner,'
' species = :species,'
' sex = :sex,'
' birth = :birth,'
' death = :death,'
' id = :id'
'where'
' id = :OLD_id')
InsertSQL.Strings = (
'insert into pet'
' (name, owner, species, sex, birth, death, id)'
'values'
' (:name, :owner, :species, :sex, :birth, :death, :id)')
DeleteSQL.Strings = (
'delete from pet'
'where'
' id = :OLD_id')
Left = 696
Top = 384
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from pet')
Left = 584
Top = 80
object ADOQuery1id: TAutoIncField
AutoGenerateValue = arAutoInc
FieldName = 'id'
end
object ADOQuery1name: TStringField
FieldName = 'name'
Size = 18
end
object ADOQuery1owner: TStringField
FieldName = 'owner'
Size = 16
end
object ADOQuery1species: TStringField
FieldName = 'species'
Size = 12
end
object ADOQuery1sex: TStringField
FieldName = 'sex'
FixedChar = True
Size = 1
end
object ADOQuery1birth: TDateField
FieldName = 'birth'
end
object ADOQuery1death: TDateField
FieldName = 'death'
end
end
object mySQLDatabase1: TmySQLDatabase
Connected = True
DatabaseName = 'test'
UserName = 'jd'
UserPassword = 'nuevo'
Host = 'infdj.com'
ConnectOptions = []
Params.Strings = (
'Port=3306'
'DatabaseName=test'
'UID=jd'
'PWD=nuevo'
'Host=infdj.com')
Left = 688
Top = 456
end
object mySQLTable1: TmySQLTable
AutoRefresh = True
Database = mySQLDatabase1
Active = True
TableName = 'pet'
Left = 688
Top = 424
object mySQLTable1name: TStringField
FieldName = 'name'
Size = 21
end
object mySQLTable1owner: TStringField
FieldName = 'owner'
Size = 21
end
object mySQLTable1species: TStringField
FieldName = 'species'
Size = 21
end
object mySQLTable1sex: TStringField
FieldName = 'sex'
Size = 2
end
object mySQLTable1birth: TDateField
FieldName = 'birth'
end
object mySQLTable1death: TDateField
FieldName = 'death'
end
object mySQLTable1id: TLargeintField
AutoGenerateValue = arAutoInc
FieldName = 'id'
Required = True
end
end
end

78
MySQL_ADO.h Normal file

@ -0,0 +1,78 @@
//---------------------------------------------------------------------------
#ifndef MySQL_ADOH
#define MySQL_ADOH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Db.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include "mySQLDbTables.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
TDataSource *DataSource1;
TDBGrid *DBGrid1;
TADOTable *ADOTable1;
TSplitter *Splitter1;
TButton *Button1;
TDBGrid *DBGrid2;
TDataSource *DataSource2;
TTable *Table1;
TButton *Button2;
TDatabase *Database1;
TQuery *Query1;
TUpdateSQL *UpdateSQL1;
TADOQuery *ADOQuery1;
TStringField *Query1name;
TStringField *Query1owner;
TStringField *Query1species;
TStringField *Query1sex;
TDateField *Query1birth;
TDateField *Query1death;
TIntegerField *Query1id;
TAutoIncField *ADOQuery1id;
TStringField *ADOQuery1name;
TStringField *ADOQuery1owner;
TStringField *ADOQuery1species;
TStringField *ADOQuery1sex;
TDateField *ADOQuery1birth;
TDateField *ADOQuery1death;
TStringField *ADOTable1name;
TStringField *ADOTable1owner;
TStringField *ADOTable1species;
TStringField *ADOTable1sex;
TDateField *ADOTable1birth;
TDateField *ADOTable1death;
TAutoIncField *ADOTable1id;
TmySQLDatabase *mySQLDatabase1;
TmySQLTable *mySQLTable1;
TStringField *mySQLTable1name;
TStringField *mySQLTable1owner;
TStringField *mySQLTable1species;
TStringField *mySQLTable1sex;
TDateField *mySQLTable1birth;
TDateField *mySQLTable1death;
TLargeintField *mySQLTable1id;
void __fastcall ADOTable1RecordChangeComplete(
TCustomADODataSet *DataSet, const TEventReason Reason,
const int RecordCount, const Error *Error,
TEventStatus &EventStatus);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

122
MySQL_wADO.bpr Normal file

@ -0,0 +1,122 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="MySQL_wADO.exe"/>
<OBJFILES value="MySQL_wADO.obj MySQL_ADO.obj"/>
<RESFILES value="MySQL_wADO.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) MySQL_ADO.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value=""/>
<SPARELIBS value="VCL50.lib VCLDB50.lib VCLADO50.lib VCLBDE50.lib mySQLDACB5.lib vclx50.lib"/>
<PACKAGES value="VCL50.bpi VCLX50.bpi bcbsmp50.bpi VCLDB50.bpi VCLADO50.bpi ibsmp50.bpi
VCLBDE50.bpi VCLDBX50.bpi QRPT50.bpi TEEUI50.bpi TEEDB50.bpi TEE50.bpi
DSS50.bpi TEEQR50.bpi VCLIB50.bpi VCLMID50.bpi VCLIE50.bpi INETDB50.bpi
INET50.bpi NMFAST50.bpi WEBMID50.bpi bcbie50.bpi dclocx50.bpi
bcb2kaxserver50.bpi asgc5.bpi CabForCB.bpi CoolPack.bpi JDsoft.bpi
PhantomPack.bpi RAS_Tools.bpi mySQLDACB5.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="tlink32"/>
<USERDEFINES value="_DEBUG"/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="MySQL_wADO.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl;..\VCLs\MySQL_dac\CB5"/>
<LIBPATH value="..\VCLs\MySQL_dac\CB5;..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I$(BCB)\include -I$(BCB)\include\vcl -I..\VCLs\MySQL_dac\CB5 -src_suffix
cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tW -tWM"/>
<PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
</LINKER>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=2
Item0=$(BCB)\include;$(BCB)\include\vcl;C:\Mis documentos\Fuentes de Programacion\C++ Builder\VCLs\MySQL_dac\CB5
Item1=$(BCB)\include;$(BCB)\include\vcl
[HistoryLists\hlLibraryPath]
Count=2
Item0=..\VCLs\MySQL_dac\CB5;..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;C:\Mis documentos\Fuentes de Programacion\C++ Builder\VCLs\MySQL_dac\CB5
Item1=..\VCLs\MySQL_dac\CB5;..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[HistoryLists\hlConditionals]
Count=1
Item0=_DEBUG
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
[Language]
ActiveLang=
ProjectLang=
RootDir=
</IDEOPTIONS>
</PROJECT>

22
MySQL_wADO.cpp Normal file

@ -0,0 +1,22 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("MySQL_wADO.res");
USEFORM("MySQL_ADO.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
MySQL_wADO.exe Normal file

Binary file not shown.

BIN
MySQL_wADO.res Normal file

Binary file not shown.

25
ProjectGroup1.bpg Normal file

@ -0,0 +1,25 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = InterBase.exe MySQL_wADO.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
InterBase.exe: InterBase.bpr
$(ROOT)\bin\bpr2mak $**
$(ROOT)\bin\make -$(MAKEFLAGS) -f$*.mak
MySQL_wADO.exe: MySQL_wADO.bpr
$(ROOT)\bin\bpr2mak $**
$(ROOT)\bin\make -$(MAKEFLAGS) -f$*.mak

9
README.md Normal file

@ -0,0 +1,9 @@
#Pruebas_DB_sobre_IP
*18/11/2001*
ToDo: wwtcf?
![screenshot](/Pruebas_DB_sobre_IP.png "Screenshot")

BIN
mySQLDACB5.bpl Normal file

Binary file not shown.