Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Carga de ficheros EDI:

Browse Source 
- mejoras en los tiempos de carga al no intentar meter todos los registros del fichero (se evita la excepción de violación de clave)
- Timeout del cliente ampliado a 45 minutos para las cargas que sean más pesadas.

git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@102 1c943782-d109-9647-9548-93b3ac332352
This commit is contained in:
David Arranz 2008-03-11 19:13:35 +00:00
parent 0b2eaf77bd
commit c843b688f4
35 changed files with 1074 additions and 2249 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Base/BaseD10.drc
View File

@ -13,7 +13,7 @@ BEGIN
END END
/* C:\Varela_D2007\Source\Base\uConfigurarConexion.dfm */ /* C:\Varela_D2007\Source\Base\uConfigurarConexion.dfm */
/* C:\Varela_D2007\Source\Base\uDataModuleBase.DFM */ /* C:\Varela_D2007\Source\Base\uDataModuleBase.dfm */
/* C:\Varela_D2007\Source\Base\uViewBase.dfm */ /* C:\Varela_D2007\Source\Base\uViewBase.dfm */
/* C:\Varela_D2007\Source\Base\uEditorBase.dfm */ /* C:\Varela_D2007\Source\Base\uEditorBase.dfm */
/* C:\Varela_D2007\Source\Base\uViewGridBase.dfm */ /* C:\Varela_D2007\Source\Base\uViewGridBase.dfm */
@ -26,4 +26,4 @@ END
/* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */ /* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */
/* C:\Varela_D2007\Source\Base\uViewGrid.dfm */ /* C:\Varela_D2007\Source\Base\uViewGrid.dfm */
/* C:\Varela_D2007\Source\Base\BaseD10.res */ /* C:\Varela_D2007\Source\Base\BaseD10.res */
/* C:\Varela_D2007\Source\Base\BaseD10.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf6.tmp */

14
Source/CargaEDI/CargaEDI.dproj
View File

@ -43,19 +43,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

2
Source/CargaEDI/CargaEDI.drc
View File

@ -15,4 +15,4 @@ END
/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */ /* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
/* C:\Varela_D2007\Source\CargaEDI\uCargaEDI.dfm */ /* C:\Varela_D2007\Source\CargaEDI\uCargaEDI.dfm */
/* C:\Varela_D2007\Source\CargaEDI\CargaEDI.res */ /* C:\Varela_D2007\Source\CargaEDI\CargaEDI.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf26.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf98.tmp */

6
Source/CargaEDI/CargaEDI.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\CargaEDI.ico" MAINICON ICON "C:\Varela_D2007\Resources\Iconos\CargaEDI.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,0,0 FILEVERSION 2,1,1,0
PRODUCTVERSION 2,0,0,0 PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,7 +12,7 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "2.0.0.0\0" VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
END END
END END

BIN
Source/CargaEDI/CargaEDI.res
View File

Binary file not shown.

7
Source/CargaEDI/uCargaEDI.pas
View File

@ -130,13 +130,14 @@ begin
end end
else begin else begin
JvAnimate1.Active := True; JvAnimate1.Active := True;
AnadirMensaje('Cargando ficheros de ventas');
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
AnadirMensaje('Cargando ficheros de inventario'); AnadirMensaje('Cargando ficheros de inventario');
TCargarInventarioThread.Create('CABINV.TXT', 'LININV.TXT', TCargarInventarioThread.Create('CABINV.TXT', 'LININV.TXT',
'CANTINV.TXT', OnLoadSuccess, OnLoadError); 'CANTINV.TXT', OnLoadSuccess, OnLoadError);
AnadirMensaje('Cargando ficheros de ventas');
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
end; end;
end; end;

4
Source/Cliente/AdminPV.dproj
View File

@ -42,9 +42,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 11 de marzo de 2008 18:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<VersionInfoKeys Name="CompileDate">viernes, 05 de octubre de 2007 17:13</VersionInfoKeys>
</VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>

2
Source/Cliente/AdminPV.drc
View File

@ -19,4 +19,4 @@ END
/* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */ /* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */
/* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */ /* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */
/* C:\Varela_D2007\Source\Cliente\AdminPV.res */ /* C:\Varela_D2007\Source\Cliente\AdminPV.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf24.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf96.tmp */

8
Source/Cliente/AdminPV.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Cliente.ico" MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Cliente.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,0,0 FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,0,0 PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,11 +13,11 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.0.0\0" VALUE "FileVersion", "2.1.1.0\0"
VALUE "InternalName", "Administración de puntos de venta\0" VALUE "InternalName", "Administración de puntos de venta\0"
VALUE "ProductName", "Administración de puntos de venta\0" VALUE "ProductName", "Administración de puntos de venta\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "jueves, 24 de enero de 2008 19:08\0" VALUE "CompileDate", "martes, 11 de marzo de 2008 20:09\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/AdminPV.res
View File

Binary file not shown.

2
Source/Configuracion/Configuracion.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Varela_D2007\Source\Configuracion\uPanelControl.dfm */ /* C:\Varela_D2007\Source\Configuracion\uPanelControl.dfm */
/* C:\Varela_D2007\Source\Configuracion\Configuracion.res */ /* C:\Varela_D2007\Source\Configuracion\Configuracion.res */
/* C:\Varela_D2007\Source\Configuracion\Configuracion.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE.tmp */

4
Source/ControlesBase/ControlesBaseD10.drc
View File

@ -15,7 +15,7 @@ END
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uFormPropiedadesControl.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uFormPropiedadesControl.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlesBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlesBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlesBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlesBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.DFM */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uDataModuleControles.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlGrid.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewControlGrid.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewParametrosControlGrid.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewParametrosControlGrid.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewAgrupaciones.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewAgrupaciones.dfm */
@ -26,4 +26,4 @@ END
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */ /* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */
/* C:\Varela_D2007\Source\ControlesBase\ControlesBaseD10.res */ /* C:\Varela_D2007\Source\ControlesBase\ControlesBaseD10.res */
/* C:\Varela_D2007\Source\ControlesBase\ControlesBaseD10.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8.tmp */

4
Source/Modulos/Devoluciones/Cliente/Devoluciones.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.DFM */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uViewListaDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uViewListaDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorListaDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorListaDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uPluginControllerDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uPluginControllerDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorAjustarDevoluciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorAjustarDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.res */ /* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.res */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A.tmp */

4
Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc
View File

@ -13,9 +13,9 @@ BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uAsistenteCargaFicheros.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uAsistenteCargaFicheros.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.DFM */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uDataModuleFicherosEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uViewHistorialCargasEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uViewHistorialCargasEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */ /* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf10.tmp */

5
Source/Modulos/FicherosEDI/Cliente/uCargarFicheros.pas
View File

@ -87,8 +87,10 @@ implementation
uses uses
uDataModuleBase, cxControls; uDataModuleBase, cxControls;
{ TROThread } const
TIME_OUT = 1000 * 60 * 45; // 45 MINUTOS
{ TROThread }
destructor TCargarFicherosThread.Destroy; destructor TCargarFicherosThread.Destroy;
begin begin
@ -159,6 +161,7 @@ begin
fROChannel := TROWinInetHTTPChannel.Create(NIL); fROChannel := TROWinInetHTTPChannel.Create(NIL);
fROChannel.OnFailure := OnChannelFailure; fROChannel.OnFailure := OnChannelFailure;
fROChannel.TargetURL := dmBase.Channel.TargetURL; fROChannel.TargetURL := dmBase.Channel.TargetURL;
fROChannel.Timeout := TIME_OUT;
end; end;
{ TCargarVentasThread } { TCargarVentasThread }

4
Source/Modulos/Parametros/Cliente/Parametros.drc
View File

@ -12,9 +12,9 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.DFM */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uDataModuleParametros.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosCentro.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosCentro.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosFecha.dfm */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosFecha.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */ /* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA.tmp */

BIN
Source/Modulos/Parametros/Cliente/Parametros.res
View File

Binary file not shown.

4
Source/Modulos/Recepciones/Cliente/Recepciones.drc
View File

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.DFM */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorListaRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorListaRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepcionesAlbaran.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepcionesAlbaran.dfm */
@ -20,4 +20,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uPluginControllerRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uPluginControllerRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorAjustarRecepciones.dfm */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorAjustarRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.res */ /* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.res */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18.tmp */

4
Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.DFM */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uViewListaReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uViewListaReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorListaReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorListaReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uPluginControllerReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uPluginControllerReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorCambioReferenciaGenerica.dfm */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorCambioReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.res */ /* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.res */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16.tmp */

4
Source/Modulos/Stock/Cliente/Stock.drc
View File

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.DFM */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDI.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockPrendasCentros.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockPrendasCentros.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDIInventario.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDIInventario.dfm */
@ -21,4 +21,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uEditorControlStockVARELA.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uEditorControlStockVARELA.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uPluginControllerStock.dfm */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uPluginControllerStock.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.res */ /* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.res */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E.tmp */

2
Source/Modulos/Traspasos/Cliente/Traspasos.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uPluginControllerTraspasos.dfm */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uPluginControllerTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorAjustarTraspasos.dfm */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorAjustarTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.res */ /* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf20.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf92.tmp */

2
Source/Modulos/VentasProceso/Cliente/VentasProceso.drc
View File

@ -20,4 +20,4 @@ END
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlVentaProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlVentaProceso.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.res */ /* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8A.tmp */

2
Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.drc
View File

@ -22,4 +22,4 @@ END
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uPluginControllerVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uPluginControllerVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlVentasTerminadas.dfm */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.res */ /* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf88.tmp */

331
Source/Servidor/AdminPV_Server.dproj
View File

@ -1,173 +1,166 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{86364157-b301-43dd-bfad-250a58064559}</ProjectGuid> <ProjectGuid>{86364157-b301-43dd-bfad-250a58064559}</ProjectGuid>
<MainSource>AdminPV_Server.dpr</MainSource> <MainSource>AdminPV_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\AdminPV_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\AdminPV_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dbxcds;DbxCommonDriver;dbexpress;dsnapcon;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;xmlrtl;RemObjects_Core_D10;RemObjects_WebBroker_D10;RemObjects_RODX_D10;RemObjects_BPDX_D10;RemObjects_Synapse_D10;RemObjects_Indy_D10;DataAbstract_Core_D10;DataAbstract_IDE_D10;DataAbstract_DBXDriver_D10B;DataAbstract_SQLiteDriver_D10;DataAbstract_Scripting_D10;PascalScript_RO_D10;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;fqb100;frx10;frxADO10;frxBDE10;frxDB10;frxe10;frxIBX10;fs10;fsADO10;fsBDE10;fsDB10;fsIBX10;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;ccpack10dsg;ccpack10;EasyListviewD10;GUISDK_D10;JvAppFrmD10R;JvCoreD10R;JclVcl;Jcl;JvSystemD10R;JvStdCtrlsD10R;JvBandsD10R;JvDBD10R;JvDlgsD10R;JvBDED10R;JvCmpD10R;JvCryptD10R;JvCtrlsD10R;JvCustomD10R;JvDockingD10R;JvDotNetCtrlsD10R;JvEDID10R;JvGlobusD10R;JvHMID10R;JvInterpreterD10R;JvJansD10R;JvManagedThreadsD10R;JvMMD10R;JvPageCompsD10R;JvPrintPreviewD10R;JvRuntimeDesignD10R;JvTimeFrameworkD10R;JvUIBD10R;JvValidatorsD10R;JvWizardD10R;JvXPCtrlsD10R;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;RemObjects_DataSnap_D10</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dbxcds;DbxCommonDriver;dbexpress;dsnapcon;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;xmlrtl;RemObjects_Core_D10;RemObjects_WebBroker_D10;RemObjects_RODX_D10;RemObjects_BPDX_D10;RemObjects_Synapse_D10;RemObjects_Indy_D10;DataAbstract_Core_D10;DataAbstract_IDE_D10;DataAbstract_DBXDriver_D10B;DataAbstract_SQLiteDriver_D10;DataAbstract_Scripting_D10;PascalScript_RO_D10;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;fqb100;frx10;frxADO10;frxBDE10;frxDB10;frxe10;frxIBX10;fs10;fsADO10;fsBDE10;fsDB10;fsIBX10;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;ccpack10dsg;ccpack10;EasyListviewD10;GUISDK_D10;JvAppFrmD10R;JvCoreD10R;JclVcl;Jcl;JvSystemD10R;JvStdCtrlsD10R;JvBandsD10R;JvDBD10R;JvDlgsD10R;JvBDED10R;JvCmpD10R;JvCryptD10R;JvCtrlsD10R;JvCustomD10R;JvDockingD10R;JvDotNetCtrlsD10R;JvEDID10R;JvGlobusD10R;JvHMID10R;JvInterpreterD10R;JvJansD10R;JvManagedThreadsD10R;JvMMD10R;JvPageCompsD10R;JvPrintPreviewD10R;JvRuntimeDesignD10R;JvTimeFrameworkD10R;JvUIBD10R;JvValidatorsD10R;JvWizardD10R;JvXPCtrlsD10R;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;RemObjects_DataSnap_D10</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput> <DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput> <DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput> <DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath> <DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath> <DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath> <DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath> <DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput> <DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput> <DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput> <DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath> <DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath> <DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath> <DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath> <DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">AdminPV_Server</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 05 de octubre de 2007 17:13</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AdminPV_Server.dpr</Source></Source><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">AdminPV_Server</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 10 de marzo de 2008 13:15</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AdminPV_Server.dpr</Source></Source><Excluded_Packages>
<Excluded_Packages Name="C:\Varela_D2007\Lib\DevExpressVCL\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
<Excluded_Packages Name="C:\Varela_D2007\Lib\DevExpressVCL\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> </ProjectExtensions>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <ItemGroup>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <DelphiCompile Include="AdminPV_Server.dpr">
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages> <MainSource>MainSource</MainSource>
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages> </DelphiCompile>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject> <DCCReference Include="..\Base\uDataTableUtils.pas"/>
</ProjectExtensions> <DCCReference Include="..\Base\uDBSelectionList.pas"/>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <DCCReference Include="..\Base\uIntegerList.pas"/>
<ItemGroup> <DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas"/>
<DelphiCompile Include="AdminPV_Server.dpr"> <DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas"/>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas">
</DelphiCompile> <Form>srvControles</Form>
<DCCReference Include="..\Base\uDataTableUtils.pas" /> </DCCReference>
<DCCReference Include="..\Base\uDBSelectionList.pas" /> <DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas">
<DCCReference Include="..\Base\uIntegerList.pas" /> <Form>srvDevoluciones</Form>
<DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas" /> <DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas"/>
<DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas"> <DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas"/>
<Form>srvControles</Form> <DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas"> <DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas">
<Form>srvDevoluciones</Form> <Form>srvParametros</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas">
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas" /> <Form>srvRecepciones</Form>
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas" /> <DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas"> <DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas"/>
<Form>srvParametros</Form> <DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas">
<DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas"> <Form>srvReferenciaGenerica</Form>
<Form>srvRecepciones</Form> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas">
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas" /> <Form>srvStock</Form>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas"> </DCCReference>
<Form>srvReferenciaGenerica</Form> <DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas">
</DCCReference> <Form>srvTraspasos</Form>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas" /> <DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas"> <DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas"/>
<Form>srvStock</Form> <DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas">
</DCCReference> <Form>srvVentasEnProceso</Form>
<DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas"> </DCCReference>
<Form>srvTraspasos</Form> <DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas" /> <DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas">
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas" /> <Form>srvVentasTerminadas</Form>
<DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas"> </DCCReference>
<Form>srvVentasEnProceso</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
</DCCReference> <Form>frConexionBD</Form>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas" /> <DCCReference Include="Configuracion\uConfFicherosEDI.pas">
<DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas"> <Form>frConfFicherosEDI</Form>
<Form>srvVentasTerminadas</Form> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DCCReference Include="Configuracion\uConexionBD.pas"> <Form>frConfGeneral</Form>
<Form>frConexionBD</Form> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DCCReference Include="Configuracion\uConfFicherosEDI.pas"> <Form>fConfiguracion</Form>
<Form>frConfFicherosEDI</Form> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DCCReference Include="Configuracion\uConfGeneral.pas"> <Form>FrameConfiguracion</Form>
<Form>frConfGeneral</Form> </DCCReference>
</DCCReference> <DCCReference Include="EDI\EDI_INVRPT.pas"/>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="EDI\EDI_Reader.pas"/>
<Form>fConfiguracion</Form> <DCCReference Include="EDI\EDI_SLSRPT.pas"/>
</DCCReference> <DCCReference Include="EDI_Inventary_Impl.pas"/>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="EDI_Log_Impl.pas"/>
<Form>FrameConfiguracion</Form> <DCCReference Include="EDI_Sales_Impl.pas"/>
</DCCReference> <DCCReference Include="EDI_Utils.pas"/>
<DCCReference Include="EDI\EDI_INVRPT.pas" /> <DCCReference Include="fServerForm.pas">
<DCCReference Include="EDI\EDI_Reader.pas" /> <Form>ServerForm</Form>
<DCCReference Include="EDI\EDI_SLSRPT.pas" /> </DCCReference>
<DCCReference Include="EDI_Inventary_Impl.pas" /> <DCCReference Include="RegExpr.pas"/>
<DCCReference Include="EDI_Log_Impl.pas" /> <DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas"/>
<DCCReference Include="EDI_Sales_Impl.pas" /> <DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas"/>
<DCCReference Include="EDI_Utils.pas" /> <DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas"/>
<DCCReference Include="fServerForm.pas"> <DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas">
<Form>ServerForm</Form> <Form>dmEDIInventary</Form>
</DCCReference> </DCCReference>
<DCCReference Include="RegExpr.pas" /> <DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas"/>
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas" /> <DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas"/>
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas" /> <DCCReference Include="Services\EDI_Sales\uBizEDISales.pas"/>
<DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas" /> <DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas">
<DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas"> <Form>dmEDISales</Form>
<Form>dmEDIInventary</Form> </DCCReference>
</DCCReference> <DCCReference Include="Services\Login\srvLogin_Impl.pas">
<DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas" /> <Form>srvLogin</Form>
<DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas" /> </DCCReference>
<DCCReference Include="Services\EDI_Sales\uBizEDISales.pas" /> <DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas">
<DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas"> <Form>srvTransfereciaFicheros</Form>
<Form>dmEDISales</Form> </DCCReference>
</DCCReference> <DCCReference Include="srvInformes_Impl.pas">
<DCCReference Include="Services\Login\srvLogin_Impl.pas"> <Form>srvInformes</Form>
<Form>srvLogin</Form> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas"> <Form>fAcercaDe</Form>
<Form>srvTransfereciaFicheros</Form> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="srvInformes_Impl.pas"> <Form>dmServer</Form>
<Form>srvInformes</Form> </DCCReference>
</DCCReference> <DCCReference Include="uSchemaUtilsServer.pas"/>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="VARELA_Intf.pas"/>
<Form>fAcercaDe</Form> <DCCReference Include="VARELA_Invk.pas"/>
</DCCReference> </ItemGroup>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
</DCCReference>
<DCCReference Include="uSchemaUtilsServer.pas" />
<DCCReference Include="VARELA_Intf.pas" />
<DCCReference Include="VARELA_Invk.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

1206
Source/Servidor/AdminPV_Server.drc
View File

File diff suppressed because it is too large Load Diff

10
Source/Servidor/AdminPV_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,1,0,0 FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,0,0 PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.0.0\0" VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductName", "AdminPV_Server\0" VALUE "ProductName", "AdminPV_Server\0"
VALUE "ProductVersion", "2.1.0.0\0" VALUE "ProductVersion", "2.1.1.0\0"
VALUE "CompileDate", "jueves, 24 de enero de 2008 19:05\0" VALUE "CompileDate", "martes, 11 de marzo de 2008 20:08\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/AdminPV_Server.res
View File

Binary file not shown.

47
Source/Servidor/EDI_Log_Impl.dfm
View File

@ -52,70 +52,29 @@ object EDI_Log: TEDI_Log
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REPORT' Name = 'REPORT'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA' Name = 'FECHA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OK' Name = 'OK'
DataType = datBoolean DataType = datBoolean
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ERROR_MSG' Name = 'ERROR_MSG'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -125,7 +84,6 @@ object EDI_Log: TEDI_Log
item item
Name = 'FECHA' Name = 'FECHA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -133,14 +91,12 @@ object EDI_Log: TEDI_Log
Name = 'REPORT' Name = 'REPORT'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'OK' Name = 'OK'
DataType = datBoolean DataType = datBoolean
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -148,7 +104,6 @@ object EDI_Log: TEDI_Log
Name = 'ERROR_MSG' Name = 'ERROR_MSG'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -171,8 +126,6 @@ object EDI_Log: TEDI_Log
Top = 16 Top = 16
end end
object DABINAdapter: TDABINAdapter object DABINAdapter: TDABINAdapter
BufferSize = 262144
IsCompatibleV4 = True
Left = 48 Left = 48
Top = 80 Top = 80
end end

3
Source/Servidor/EDI_Log_Impl.pas
View File

@ -54,7 +54,7 @@ begin
cmd := schEDILog.NewCommand(conn, 'Insert_EDILog'); cmd := schEDILog.NewCommand(conn, 'Insert_EDILog');
try try
cmd.ParamByName('FECHA').AsDateTime := Fecha; cmd.ParamByName('FECHA').AsDateTime := Fecha;
cmd.ParamByName('REPORT').AsString := Report; cmd.ParamByName('REPORT').AsString := Report;
if OK then if OK then
cmd.ParamByName('OK').AsInteger := 1 cmd.ParamByName('OK').AsInteger := 1
else else
@ -63,6 +63,7 @@ begin
cmd.Execute; cmd.Execute;
finally finally
conn.CommitTransaction; conn.CommitTransaction;
conn.Close;
conn := nil; conn := nil;
end; end;
end; end;

343
Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.dfm
View File

@ -1,7 +1,7 @@
object dmEDIInventary: TdmEDIInventary object dmEDIInventary: TdmEDIInventary
OldCreateOrder = False OldCreateOrder = False
Height = 185 Height = 79
Width = 396 Width = 251
object schEDIInventary: TDASchema object schEDIInventary: TDASchema
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary DataDictionary = dmServer.DataDictionary
@ -65,134 +65,55 @@ object dmEDIInventary: TdmEDIInventary
Name = 'NUMDOC' Name = 'NUMDOC'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NUMLIN' Name = 'NUMLIN'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NUMCANT' Name = 'NUMCANT'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TIPOCANT' Name = 'TIPOCANT'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CENTRO' Name = 'CENTRO'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TMOV' Name = 'TMOV'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FACT' Name = 'FACT'
DataType = datString DataType = datString
Size = 12 Size = 12
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DEPTO' Name = 'DEPTO'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IDVEN' Name = 'IDVEN'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = <> Params = <>
@ -265,174 +186,70 @@ object dmEDIInventary: TdmEDIInventary
Name = 'NUMDOC' Name = 'NUMDOC'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NUMLIN' Name = 'NUMLIN'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODART' Name = 'CODART'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'BARRA' Name = 'BARRA'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TALLA' Name = 'TALLA'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MARCA' Name = 'MARCA'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TAMANO' Name = 'TAMANO'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SERIE' Name = 'SERIE'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'COLOR' Name = 'COLOR'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MODELO' Name = 'MODELO'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DIBUJO' Name = 'DIBUJO'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIP' Name = 'DESCRIP'
DataType = datString DataType = datString
Size = 70 Size = 70
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = <> Params = <>
@ -492,132 +309,80 @@ object dmEDIInventary: TdmEDIInventary
Name = 'NUMDOC' Name = 'NUMDOC'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TIPODOC' Name = 'TIPODOC'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TIPOLIQ' Name = 'TIPOLIQ'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA' Name = 'FECHA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHALIQ' Name = 'FECHALIQ'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMISOR' Name = 'EMISOR'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RECEPTOR' Name = 'RECEPTOR'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DPTO' Name = 'DPTO'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CENTRO' Name = 'CENTRO'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_CARGA' Name = 'FECHA_CARGA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript end
BusinessRulesServer.ScriptLanguage = rslPascalScript item
Params = <
item
Name = 'NUMDOC'
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_CABINV'
SQL = 'SELECT NUMDOC'#10'FROM RDX_CABINV'#10'WHERE'#10' NUMDOC = :NUMDOC'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'NUMDOC'
TableField = 'NUMDOC'
end>
end>
Name = 'ExisteNumDoc'
Fields = <
item
Name = 'NUMDOC'
DataType = datString
Size = 25
Required = True
InPrimaryKey = True
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -627,7 +392,6 @@ object dmEDIInventary: TdmEDIInventary
item item
Name = 'RETURN_VALUE' Name = 'RETURN_VALUE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptResult ParamType = daptResult
end> end>
@ -645,7 +409,6 @@ object dmEDIInventary: TdmEDIInventary
item item
Name = 'RETURN_VALUE' Name = 'RETURN_VALUE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptResult ParamType = daptResult
end> end>
@ -664,7 +427,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'NUMDOC' Name = 'NUMDOC'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -672,7 +434,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'TIPODOC' Name = 'TIPODOC'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -680,21 +441,18 @@ object dmEDIInventary: TdmEDIInventary
Name = 'TIPOLIQ' Name = 'TIPOLIQ'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'FECHA' Name = 'FECHA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'FECHALIQ' Name = 'FECHALIQ'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -702,7 +460,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'EMISOR' Name = 'EMISOR'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -710,7 +467,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'RECEPTOR' Name = 'RECEPTOR'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -718,7 +474,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'DPTO' Name = 'DPTO'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -726,14 +481,12 @@ object dmEDIInventary: TdmEDIInventary
Name = 'CENTRO' Name = 'CENTRO'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'FECHA_CARGA' Name = 'FECHA_CARGA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -757,14 +510,12 @@ object dmEDIInventary: TdmEDIInventary
Name = 'NUMDOC' Name = 'NUMDOC'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'NUMLIN' Name = 'NUMLIN'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -772,7 +523,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'CODART' Name = 'CODART'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -780,7 +530,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -788,7 +537,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'BARRA' Name = 'BARRA'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -796,7 +544,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'TALLA' Name = 'TALLA'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -804,7 +551,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'MARCA' Name = 'MARCA'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -812,7 +558,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'TAMANO' Name = 'TAMANO'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -820,7 +565,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'SERIE' Name = 'SERIE'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -828,7 +572,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'COLOR' Name = 'COLOR'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -836,7 +579,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'MODELO' Name = 'MODELO'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -844,7 +586,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'DIBUJO' Name = 'DIBUJO'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -852,7 +593,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'DESCRIP' Name = 'DESCRIP'
DataType = datString DataType = datString
Size = 70 Size = 70
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -877,21 +617,18 @@ object dmEDIInventary: TdmEDIInventary
Name = 'NUMDOC' Name = 'NUMDOC'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'NUMLIN' Name = 'NUMLIN'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'NUMCANT' Name = 'NUMCANT'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -899,14 +636,12 @@ object dmEDIInventary: TdmEDIInventary
Name = 'TIPOCANT' Name = 'TIPOCANT'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -914,7 +649,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'CENTRO' Name = 'CENTRO'
DataType = datString DataType = datString
Size = 17 Size = 17
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -922,7 +656,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'TMOV' Name = 'TMOV'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -930,7 +663,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'FACT' Name = 'FACT'
DataType = datString DataType = datString
Size = 12 Size = 12
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -938,7 +670,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'DEPTO' Name = 'DEPTO'
DataType = datString DataType = datString
Size = 3 Size = 3
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
@ -946,7 +677,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'IDVEN' Name = 'IDVEN'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -967,7 +697,7 @@ object dmEDIInventary: TdmEDIInventary
RelationShips = < RelationShips = <
item item
Name = 'FK_RDX_LININV_RDX_CABINV' Name = 'FK_RDX_LININV_RDX_CABINV'
MasterDatasetName = 'RDX_CABINV' MasterDatasetName = 'ExisteNumDoc'
MasterFields = 'NUMDOC' MasterFields = 'NUMDOC'
DetailDatasetName = 'RDX_LININV' DetailDatasetName = 'RDX_LININV'
DetailFields = 'NUMDOC' DetailFields = 'NUMDOC'
@ -985,7 +715,6 @@ object dmEDIInventary: TdmEDIInventary
item item
Name = 'Insert RDX_CABINV' Name = 'Insert RDX_CABINV'
DoUpdate = False DoUpdate = False
DoInsert = True
DoDelete = False DoDelete = False
DatasetName = 'RDX_CABINV' DatasetName = 'RDX_CABINV'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
@ -993,7 +722,6 @@ object dmEDIInventary: TdmEDIInventary
item item
Name = 'Insert RDX_LININV' Name = 'Insert RDX_LININV'
DoUpdate = False DoUpdate = False
DoInsert = True
DoDelete = False DoDelete = False
DatasetName = 'RDX_LININV' DatasetName = 'RDX_LININV'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
@ -1001,14 +729,12 @@ object dmEDIInventary: TdmEDIInventary
item item
Name = 'Insert RDX_CANTINV' Name = 'Insert RDX_CANTINV'
DoUpdate = False DoUpdate = False
DoInsert = True
DoDelete = False DoDelete = False
DatasetName = 'RDX_CANTINV' DatasetName = 'RDX_CANTINV'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item item
Name = 'Update RDX_CABINV' Name = 'Update RDX_CABINV'
DoUpdate = True
DoInsert = False DoInsert = False
DoDelete = False DoDelete = False
DatasetName = 'RDX_CABINV' DatasetName = 'RDX_CABINV'
@ -1016,7 +742,6 @@ object dmEDIInventary: TdmEDIInventary
end end
item item
Name = 'Update RDX_LININV' Name = 'Update RDX_LININV'
DoUpdate = True
DoInsert = False DoInsert = False
DoDelete = False DoDelete = False
DatasetName = 'RDX_LININV' DatasetName = 'RDX_LININV'
@ -1024,7 +749,6 @@ object dmEDIInventary: TdmEDIInventary
end end
item item
Name = 'Update RDX_CANTINV' Name = 'Update RDX_CANTINV'
DoUpdate = True
DoInsert = False DoInsert = False
DoDelete = False DoDelete = False
DatasetName = 'RDX_CANTINV' DatasetName = 'RDX_CANTINV'
@ -1034,7 +758,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'Delete RDX_CANTINV' Name = 'Delete RDX_CANTINV'
DoUpdate = False DoUpdate = False
DoInsert = False DoInsert = False
DoDelete = True
DatasetName = 'RDX_CANTINV' DatasetName = 'RDX_CANTINV'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
@ -1042,7 +765,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'Delete RDX_LININV' Name = 'Delete RDX_LININV'
DoUpdate = False DoUpdate = False
DoInsert = False DoInsert = False
DoDelete = True
DatasetName = 'RDX_LININV' DatasetName = 'RDX_LININV'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
@ -1050,7 +772,6 @@ object dmEDIInventary: TdmEDIInventary
Name = 'Delete RDX_CABINV' Name = 'Delete RDX_CABINV'
DoUpdate = False DoUpdate = False
DoInsert = False DoInsert = False
DoDelete = True
DatasetName = 'RDX_CABINV' DatasetName = 'RDX_CABINV'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end> end>

174
Source/Servidor/Services/EDI_Inventary/uDataModuleEDI_Inventary.pas
View File

@ -12,6 +12,10 @@ type
TdmEDIInventary = class(TDataModule) TdmEDIInventary = class(TDataModule)
schEDIInventary: TDASchema; schEDIInventary: TDASchema;
private private
FConnection : IDAConnection;
FNumDocCargados : TStringList;
function ExisteNumDoc(const ANumDoc : String): Boolean;
function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean; function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarLineas(const ALinData : TEDIFileData; var NumRegNuevos : integer) : Boolean; function InsertarLineas(const ALinData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarCantidades(const ACantData : TEDIFileData; var NumRegNuevos : integer) : Boolean; function InsertarCantidades(const ACantData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
@ -47,71 +51,100 @@ var
NumRegNuevosCab : Integer; NumRegNuevosCab : Integer;
NumRegNuevosLin : Integer; NumRegNuevosLin : Integer;
NumRegNuevosCant : Integer; NumRegNuevosCant : Integer;
bContinuar : Boolean;
begin begin
Result := True; bContinuar := False;
FNumDocCargados := TStringList.Create;
FConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
FConnection.BeginTransaction;
Cab_Reader := TCABINV_Reader.Create; Cab_Reader := TCABINV_Reader.Create;
Lin_Reader := TLININV_Reader.Create;
Cant_Reader := TCANTINV_Reader.Create;
try try
Cab_Reader.Filename := FicheroCAB; Cab_Reader.Filename := FicheroCAB;
Cab_Reader.ReadFile; Cab_Reader.ReadFile;
Result := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
finally
FreeAndNIL(Cab_Reader);
end;
if Result then Lin_Reader.Filename := FicheroLIN;
begin Lin_Reader.ReadFile;
Lin_Reader := TLININV_Reader.Create;
Cant_Reader.Filename := FicheroCANT;
Cant_Reader.ReadFile;
try try
Lin_Reader.Filename := FicheroLIN; bContinuar := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
Lin_Reader.ReadFile;
Result := InsertarLineas (Lin_Reader.FileData, NumRegNuevosLin);
finally
FreeAndNIL(Lin_Reader);
end;
if Result then if bContinuar then
begin bContinuar := InsertarLineas (Lin_Reader.FileData, NumRegNuevosLin);
Cant_Reader := TCANTINV_Reader.Create;
try if bContinuar then
Cant_Reader.Filename := FicheroCANT; bContinuar := InsertarCantidades(Cant_Reader.FileData, NumRegNuevosCant);
Cant_Reader.ReadFile;
Result := InsertarCantidades(Cant_Reader.FileData, NumRegNuevosCant); if bContinuar then
finally begin
Cant_Reader.Free; NumRegNuevos := NumRegNuevosCant;
bContinuar := GenerarInventarioEDI;
end;
if bContinuar then
begin
if MarcarRegistrosUltimoInventarioEDI then
FConnection.CommitTransaction
else
FConnection.RollbackTransaction;
end;
except
on E : Exception do
begin
FConnection.RollbackTransaction;
InsertarLog(False, e.Message + ' (CargarFicheros - InventarioEDI)');
end; end;
end; end;
finally
FreeAndNIL(Cab_Reader);
FreeAndNIL(Lin_Reader);
FreeAndNIL(Cant_Reader);
FConnection.Close;
FConnection := NIL;
FreeAndNIL(FNumDocCargados);
end; end;
Result := bContinuar;
end;
if Result then function TdmEDIInventary.ExisteNumDoc(const ANumDoc: String): Boolean;
begin var
NumRegNuevos := NumRegNuevosCant; ds: IDADataset;
Result := GenerarInventarioEDI; begin
if Result then try
Result := MarcarRegistrosUltimoInventarioEDI; ds := schEDIInventary.NewDataset(FConnection, 'ExisteNumDoc');
ds.ParamByName('NUMDOC').AsString := ANumDoc;
ds.Open;
Result := (not ds.IsEmpty);
ds.Close;
finally
ds := NIL;
end; end;
end; end;
function TdmEDIInventary.GenerarInventarioEDI: Boolean; function TdmEDIInventary.GenerarInventarioEDI: Boolean;
var var
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection;
begin begin
Result := False; Result := False;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); ACommand := schEDIInventary.NewCommand(FConnection, 'RDX_P_CARGAR_INVENTARIOEDI');
ACommand := schEDIInventary.NewCommand(AConnection, 'RDX_P_CARGAR_INVENTARIOEDI');
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction;
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (GenerarInventarioEDI)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (GenerarInventarioEDI)');
end end
end; end;
end; end;
@ -122,11 +155,11 @@ var
i : integer; i : integer;
Registro : PCABINV; Registro : PCABINV;
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection; ANumDoc : String;
begin begin
Result := False; Result := False;
NumRegNuevos := 0; NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ACabData.Count - 1 do for i := 0 to ACabData.Count - 1 do
begin begin
@ -135,10 +168,14 @@ begin
if not Registro.REGISTRO_OK then if not Registro.REGISTRO_OK then
Continue; Continue;
ACommand := schEDIInventary.NewCommand(AConnection, 'Insert_RDX_CABINV'); ANumDoc := Trim(Registro.NUMDOC);
if ExisteNumDoc(ANumDoc) then
Continue;
ACommand := schEDIInventary.NewCommand(FConnection, 'Insert_RDX_CABINV');
with ACommand do with ACommand do
begin begin
ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC); ParamByName('NUMDOC').AsString := ANumDoc;
ParamByName('TIPODOC').AsString := Trim(Registro.TIPODOC); ParamByName('TIPODOC').AsString := Trim(Registro.TIPODOC);
ParamByName('TIPOLIQ').AsString := Trim(Registro.TIPOLIQ); ParamByName('TIPOLIQ').AsString := Trim(Registro.TIPOLIQ);
ParamByName('FECHA').AsDateTime := EDIDateToDateF(Trim(Registro.FECHA)); ParamByName('FECHA').AsDateTime := EDIDateToDateF(Trim(Registro.FECHA));
@ -149,18 +186,16 @@ begin
ParamByName('CENTRO').AsString := Trim(Registro.CENTRO); ParamByName('CENTRO').AsString := Trim(Registro.CENTRO);
end; end;
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction; NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1; FNumDocCargados.Add(ANumDoc);
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (InsertarCabecera INV)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (InsertarCabecera INV)');
end end
end; end;
end; //for end; //for
@ -172,11 +207,10 @@ var
i : integer; i : integer;
Registro : PCANTINV; Registro : PCANTINV;
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection; ANumDoc : String;
begin begin
Result := False; Result := False;
NumRegNuevos := 0; NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ACantData.Count - 1 do for i := 0 to ACantData.Count - 1 do
begin begin
@ -185,7 +219,11 @@ begin
if not Registro.REGISTRO_OK then if not Registro.REGISTRO_OK then
Continue; Continue;
ACommand := schEDIInventary.NewCommand(AConnection, 'Insert_RDX_CANTINV'); ANumDoc := Trim(Registro.NUMDOC);
if FNumDocCargados.IndexOf(ANumDoc) = -1 then
Continue;
ACommand := schEDIInventary.NewCommand(FConnection, 'Insert_RDX_CANTINV');
with ACommand do with ACommand do
begin begin
ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC); ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC);
@ -200,18 +238,15 @@ begin
ParamByName('IDVEN').AsString := Trim(Registro.IDVEN); ParamByName('IDVEN').AsString := Trim(Registro.IDVEN);
end; end;
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1; NumRegNuevos := NumRegNuevos + 1;
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (InsertarCantidades INV)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (InsertarCantidades INV)');
end end
end; end;
end; //for end; //for
@ -223,11 +258,10 @@ var
i : integer; i : integer;
Registro : PLININV; Registro : PLININV;
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection; ANumDoc : String;
begin begin
Result := False; Result := False;
NumRegNuevos := 0; NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ALinData.Count - 1 do for i := 0 to ALinData.Count - 1 do
begin begin
@ -236,7 +270,11 @@ begin
if not Registro.REGISTRO_OK then if not Registro.REGISTRO_OK then
Continue; Continue;
ACommand := schEDIInventary.NewCommand(AConnection, 'Insert_RDX_LININV'); ANumDoc := Trim(Registro.NUMDOC);
if FNumDocCargados.IndexOf(ANumDoc) = -1 then
Continue;
ACommand := schEDIInventary.NewCommand(FConnection, 'Insert_RDX_LININV');
with ACommand do with ACommand do
begin begin
ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC); ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC);
@ -254,18 +292,15 @@ begin
ParamByName('DESCRIP').AsString := Trim(Registro.DESCRIP); ParamByName('DESCRIP').AsString := Trim(Registro.DESCRIP);
end; end;
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction; NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1;
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (InsertarLineas INV)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (InsertarLineas INV)');
end end
end; end;
end; //for end; //for
@ -288,23 +323,18 @@ end;
function TdmEDIInventary.MarcarRegistrosUltimoInventarioEDI: Boolean; function TdmEDIInventary.MarcarRegistrosUltimoInventarioEDI: Boolean;
var var
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection;
begin begin
Result := False; Result := False;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); ACommand := schEDIInventary.NewCommand(FConnection, 'RDX_P_SET_ULTIMOINVENTARIO');
ACommand := schEDIInventary.NewCommand(AConnection, 'RDX_P_SET_ULTIMOINVENTARIO');
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction;
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (MarcarRegistrosUltimoInventarioEDI)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (MarcarRegistrosUltimoInventarioEDI)');
end end
end; end;
end; end;

950
Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.dfm
View File

File diff suppressed because it is too large Load Diff

159
Source/Servidor/Services/EDI_Sales/uDataModuleEDI_Sales.pas
View File

@ -4,13 +4,17 @@ interface
uses uses
SysUtils, Classes, uDAScriptingProvider, uDADataTable, uDACDSDataTable, SysUtils, Classes, uDAScriptingProvider, uDADataTable, uDACDSDataTable,
uBizEDISales, uDAEngine, uDAADODriver, uDABINAdapter, uBizEDISales, uDAEngine, uDAADODriver, uDABINAdapter, uDAInterfaces,
uDABusinessProcessor, uDAClasses, EDI_Reader, JvComponentBase; uDABusinessProcessor, uDAClasses, EDI_Reader, JvComponentBase;
type type
TdmEDISales = class(TDataModule) TdmEDISales = class(TDataModule)
schEDISales: TDASchema; schEDISales: TDASchema;
private private
FConnection : IDAConnection;
FClave1Cargados : TStringList;
function ExisteClave1(const AClave1 : Float): Boolean;
function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean; function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarLugares(const ALugData : TEDIFileData; var NumRegNuevos : integer) : Boolean; function InsertarLugares(const ALugData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarArticulos(const AArtData : TEDIFileData; var NumRegNuevos : integer) : Boolean; function InsertarArticulos(const AArtData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
@ -27,7 +31,7 @@ var
implementation implementation
uses uses
EDI_Sales_Impl, Controls, Forms, uDataTableUtils, EDI_SLSRPT, uDAInterfaces, EDI_Sales_Impl, Controls, Forms, uDataTableUtils, EDI_SLSRPT,
Dialogs, schEDISalesClient_Intf, uDataModuleServer, Variants, EDI_Utils, Dialogs, schEDISalesClient_Intf, uDataModuleServer, Variants, EDI_Utils,
VARELA_Intf, EDI_Log_Impl, DB; VARELA_Intf, EDI_Log_Impl, DB;
@ -45,69 +49,97 @@ var
NumRegNuevosCab : Integer; NumRegNuevosCab : Integer;
NumRegNuevosLug : Integer; NumRegNuevosLug : Integer;
NumRegNuevosArt : Integer; NumRegNuevosArt : Integer;
bContinuar : Boolean;
begin begin
Result := True; bContinuar := False;
FClave1Cargados := TStringList.Create;
FConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
FConnection.BeginTransaction;
Cab_Reader := TCABVEN_Reader.Create; Cab_Reader := TCABVEN_Reader.Create;
Lug_Reader := TLUGVEN_Reader.Create;
Art_Reader := TARTVEN_Reader.Create;
try try
Cab_Reader.Filename := FicheroCAB; Cab_Reader.Filename := FicheroCAB;
Cab_Reader.ReadFile; Cab_Reader.ReadFile;
Result := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
finally
FreeAndNIL(Cab_Reader);
end;
if Result then Lug_Reader.Filename := FicheroLUG;
begin Lug_Reader.ReadFile;
Lug_Reader := TLUGVEN_Reader.Create;
Art_Reader.Filename := FicheroART;
Art_Reader.ReadFile;
try try
Lug_Reader.Filename := FicheroLUG; bContinuar := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
Lug_Reader.ReadFile;
Result := InsertarLugares (Lug_Reader.FileData, NumRegNuevosLug);
finally
FreeAndNIL(Lug_Reader);
end;
if Result then if bContinuar then
begin bContinuar := InsertarLugares (Lug_Reader.FileData, NumRegNuevosLug);
Art_Reader := TARTVEN_Reader.Create;
try if bContinuar then
Art_Reader.Filename := FicheroART; bContinuar := InsertarArticulos(Art_Reader.FileData, NumRegNuevosArt);
Art_Reader.ReadFile;
Result := InsertarArticulos(Art_Reader.FileData, NumRegNuevosArt); if bContinuar then
finally begin
FreeAndNil(Art_Reader); NumRegNuevos := NumRegNuevosArt;
bContinuar := GenerarVentasEDI;
end;
if bContinuar then
FConnection.CommitTransaction
else
FConnection.RollbackTransaction;
except
on E : Exception do
begin
FConnection.RollbackTransaction;
InsertarLog(False, E.Message + ' (CargarFicheros - VentasEDI)');
end; end;
end; end;
finally
FreeAndNIL(Cab_Reader);
FreeAndNIL(Lug_Reader);
FreeAndNil(Art_Reader);
FConnection.Close;
FConnection := NIL;
FreeAndNIL(FClave1Cargados);
end; end;
Result := bContinuar;
end;
if Result then function TdmEDISales.ExisteClave1(const AClave1: Float): Boolean;
begin var
NumRegNuevos := NumRegNuevosArt; ds: IDADataset;
Result := GenerarVentasEDI; begin
try
ds := schEDISales.NewDataset(FConnection, 'ExisteClave1');
ds.ParamByName('CLAVE1').AsFloat := AClave1;
ds.Open;
Result := (not ds.IsEmpty);
ds.Close;
finally
ds := NIL;
end; end;
end; end;
function TdmEDISales.GenerarVentasEDI: Boolean; function TdmEDISales.GenerarVentasEDI: Boolean;
var var
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection;
begin begin
Result := False; Result := False;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName); ACommand := schEDISales.NewCommand(FConnection, 'RDX_P_CARGAR_VENTASEDI');
ACommand := schEDISales.NewCommand(AConnection, 'RDX_P_CARGAR_VENTASEDI');
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction;
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (GenerarVentasEDI)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (GenerarVentasEDI)');
end end
end; end;
end; end;
@ -121,11 +153,10 @@ var
AuxInt : Integer; AuxInt : Integer;
AuxNum : Double; AuxNum : Double;
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection; AClave1 : String;
begin begin
Result := False; Result := False;
NumRegNuevos := 0; NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to AArtData.Count - 1 do for i := 0 to AArtData.Count - 1 do
begin begin
@ -134,7 +165,11 @@ begin
if not Registro.REGISTRO_OK then if not Registro.REGISTRO_OK then
Continue; Continue;
ACommand := schEDISales.NewCommand(AConnection, 'Insert_RDX_ARTVEN'); AClave1 := Trim(Registro.CLAVE1);
if FClave1Cargados.IndexOf(AClave1) = -1 then
Continue;
ACommand := schEDISales.NewCommand(FConnection, 'Insert_RDX_ARTVEN');
with ACommand do with ACommand do
begin begin
ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1)); ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1));
@ -280,18 +315,15 @@ begin
ParamByName('UMEDESP').AsString := Trim(Registro.UMEDESP); ParamByName('UMEDESP').AsString := Trim(Registro.UMEDESP);
end; end;
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction; NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1;
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (InsertarArticulos SLS)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (InsertarArticulos SLS)');
end end
end; end;
end; //for end; //for
@ -305,11 +337,10 @@ var
AuxStr : String; AuxStr : String;
AuxNum : Double; AuxNum : Double;
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection; AClave1 : Float;
begin begin
Result := False; Result := False;
NumRegNuevos := 0; NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ACabData.Count - 1 do for i := 0 to ACabData.Count - 1 do
begin begin
@ -318,7 +349,11 @@ begin
if not Registro.REGISTRO_OK then if not Registro.REGISTRO_OK then
Continue; Continue;
ACommand := schEDISales.NewCommand(AConnection, 'Insert_RDX_CABVEN'); AClave1 := StrToFloat(Trim(Registro.CLAVE1));
if ExisteClave1(AClave1) then
Continue;
ACommand := schEDISales.NewCommand(FConnection, 'Insert_RDX_CABVEN');
with ACommand do with ACommand do
begin begin
ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1)); ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1));
@ -384,18 +419,16 @@ begin
ParamByName('FECTAS').AsDateTime := EDIDateToDateF(Trim(Registro.FECTAS)); ParamByName('FECTAS').AsDateTime := EDIDateToDateF(Trim(Registro.FECTAS));
end; // with end; // with
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1; NumRegNuevos := NumRegNuevos + 1;
FClave1Cargados.Add(Trim(Registro.CLAVE1));
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + ' (InsertarCabecera SLS)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + ' (InsertarCabecera SLS)');
end end
end; end;
@ -421,11 +454,10 @@ var
i : integer; i : integer;
Registro : PLUGVEN; Registro : PLUGVEN;
ACommand: IDASQLCommand; ACommand: IDASQLCommand;
AConnection : IDAConnection; AClave1 : String;
begin begin
Result := False; Result := False;
NumRegNuevos := 0; NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ALugData.Count - 1 do for i := 0 to ALugData.Count - 1 do
begin begin
@ -434,7 +466,11 @@ begin
if not Registro.REGISTRO_OK then if not Registro.REGISTRO_OK then
Continue; Continue;
ACommand := schEDISales.NewCommand(AConnection, 'Insert_RDX_LUGVEN'); AClave1 := Trim(Registro.CLAVE1);
if FClave1Cargados.IndexOf(AClave1) = -1 then
Continue;
ACommand := schEDISales.NewCommand(FConnection, 'Insert_RDX_LUGVEN');
with ACommand do with ACommand do
begin begin
ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1)); ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1));
@ -455,18 +491,15 @@ begin
end end
end; // with end; // with
AConnection.BeginTransaction;
try try
ACommand.Execute; ACommand.Execute;
AConnection.CommitTransaction; NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1;
Result := True; Result := True;
except except
on E : Exception do on E : Exception do
begin begin
AConnection.RollbackTransaction; InsertarLog(False, e.Message + '(InsertarLugares SLS)');
if Pos('PRIMARY KEY', E.Message) = 0 then raise E;
InsertarLog(False, e.Message + '(InsertarLugares SLS)');
end end
end; end;
end; //for end; //for

10
Source/Servidor/uDataModuleServer.dfm
View File

@ -37,16 +37,10 @@ object dmServer: TdmServer
item item
Name = 'GFT_VARELA' Name = 'GFT_VARELA'
ConnectionString = ConnectionString =
'SDAC?Server=roberto;Database=GFT_VARELA_NUEVA_QUE_FALLA;UserID=s' + 'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=GFT_VARELA;Us' +
'a;Password=123456;Schemas=1;' 'erID=sa;Password=12345;Schemas=1;'
ConnectionType = 'MSSQL' ConnectionType = 'MSSQL'
Default = True Default = True
end
item
Name = 'GFT_VARELA_ADO'
ConnectionString =
'ADO?AuxDriver=SQLOLEDB.1;Server=ROBERTO;Database=GFT_VARELA_NUEV' +
'A_QUE_FALLA;UserID=sa;Password=123456;'
end> end>
DriverManager = DriverManager DriverManager = DriverManager
PoolingEnabled = True PoolingEnabled = True

2
Source/Usuarios/Usuarios.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Varela_D2007\Source\Usuarios\uUsuarios.dfm */ /* C:\Varela_D2007\Source\Usuarios\uUsuarios.dfm */
/* C:\Varela_D2007\Source\Usuarios\uUsuario.dfm */ /* C:\Varela_D2007\Source\Usuarios\uUsuario.dfm */
/* C:\Varela_D2007\Source\Usuarios\Usuarios.res */ /* C:\Varela_D2007\Source\Usuarios\Usuarios.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf10.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf82.tmp */