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
/* 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\uEditorBase.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\uViewGrid.dfm */
/* 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.ProjectType>VCLApplication</Borland.ProjectType>
<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:\Varela_D2007\Source\CargaEDI\uCargaEDI.dfm */
/* 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"
1 VERSIONINFO
FILEVERSION 2,0,0,0
PRODUCTVERSION 2,0,0,0
FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,7 +12,7 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "2.0.0.0\0"
VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
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
else begin
JvAnimate1.Active := True;
AnadirMensaje('Cargando ficheros de ventas');
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
AnadirMensaje('Cargando ficheros de inventario');
TCargarInventarioThread.Create('CABINV.TXT', 'LININV.TXT',
'CANTINV.TXT', OnLoadSuccess, OnLoadError);
AnadirMensaje('Cargando ficheros de ventas');
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
end;
end;

4
Source/Cliente/AdminPV.dproj
View File

@ -42,9 +42,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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>
<VersionInfoKeys Name="CompileDate">viernes, 05 de octubre de 2007 17:13</VersionInfoKeys>
</VersionInfoKeys><Excluded_Packages>
<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>
<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>

2
Source/Cliente/AdminPV.drc
View File

@ -19,4 +19,4 @@ END
/* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */
/* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */
/* 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"
1 VERSIONINFO
FILEVERSION 2,1,0,0
PRODUCTVERSION 2,1,0,0
FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,11 +13,11 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "Administración de puntos de venta\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
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\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\uViewControlesBase.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\uViewParametrosControlGrid.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\uViewPeriodoFechas.dfm */
/* 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
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\uEditorListaDevoluciones.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\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
/* 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\uEditorHistorialCargasEDI.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.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
uDataModuleBase, cxControls;
{ TROThread }
const
TIME_OUT = 1000 * 60 * 45; // 45 MINUTOS
{ TROThread }
destructor TCargarFicherosThread.Destroy;
begin
@ -159,6 +161,7 @@ begin
fROChannel := TROWinInetHTTPChannel.Create(NIL);
fROChannel.OnFailure := OnChannelFailure;
fROChannel.TargetURL := dmBase.Channel.TargetURL;
fROChannel.Timeout := TIME_OUT;
end;
{ TCargarVentasThread }

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

@ -12,9 +12,9 @@ STRINGTABLE
BEGIN
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\uViewParametrosColeccion.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.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
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\uEditorListaRecepciones.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\uEditorAjustarRecepciones.dfm */
/* 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
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\uEditorListaReferenciaGenerica.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\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
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\uViewControGridStockPrendasCentros.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\uPluginControllerStock.dfm */
/* 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\uEditorAjustarTraspasos.dfm */
/* 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\uEditorControlVentaProceso.dfm */
/* 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\uEditorControlVentasTerminadas.dfm */
/* 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">
<PropertyGroup>
<ProjectGuid>{86364157-b301-43dd-bfad-250a58064559}</ProjectGuid>
<MainSource>AdminPV_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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>
<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></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="AdminPV_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Base\uDataTableUtils.pas" />
<DCCReference Include="..\Base\uDBSelectionList.pas" />
<DCCReference Include="..\Base\uIntegerList.pas" />
<DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas" />
<DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas" />
<DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas">
<Form>srvControles</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas">
<Form>srvDevoluciones</Form>
</DCCReference>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas" />
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas">
<Form>srvParametros</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas">
<Form>srvRecepciones</Form>
</DCCReference>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas">
<Form>srvReferenciaGenerica</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas" />
<DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas" />
<DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas">
<Form>srvStock</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas">
<Form>srvTraspasos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas" />
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas" />
<DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas">
<Form>srvVentasEnProceso</Form>
</DCCReference>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas" />
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas" />
<DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas">
<Form>srvVentasTerminadas</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfFicherosEDI.pas">
<Form>frConfFicherosEDI</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
</DCCReference>
<DCCReference Include="EDI\EDI_INVRPT.pas" />
<DCCReference Include="EDI\EDI_Reader.pas" />
<DCCReference Include="EDI\EDI_SLSRPT.pas" />
<DCCReference Include="EDI_Inventary_Impl.pas" />
<DCCReference Include="EDI_Log_Impl.pas" />
<DCCReference Include="EDI_Sales_Impl.pas" />
<DCCReference Include="EDI_Utils.pas" />
<DCCReference Include="fServerForm.pas">
<Form>ServerForm</Form>
</DCCReference>
<DCCReference Include="RegExpr.pas" />
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas" />
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas" />
<DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas" />
<DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas">
<Form>dmEDIInventary</Form>
</DCCReference>
<DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas" />
<DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas" />
<DCCReference Include="Services\EDI_Sales\uBizEDISales.pas" />
<DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas">
<Form>dmEDISales</Form>
</DCCReference>
<DCCReference Include="Services\Login\srvLogin_Impl.pas">
<Form>srvLogin</Form>
</DCCReference>
<DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas">
<Form>srvTransfereciaFicheros</Form>
</DCCReference>
<DCCReference Include="srvInformes_Impl.pas">
<Form>srvInformes</Form>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
</DCCReference>
<DCCReference Include="uSchemaUtilsServer.pas" />
<DCCReference Include="VARELA_Intf.pas" />
<DCCReference Include="VARELA_Invk.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{86364157-b301-43dd-bfad-250a58064559}</ProjectGuid>
<MainSource>AdminPV_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<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>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">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></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="AdminPV_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Base\uDataTableUtils.pas"/>
<DCCReference Include="..\Base\uDBSelectionList.pas"/>
<DCCReference Include="..\Base\uIntegerList.pas"/>
<DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas"/>
<DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas"/>
<DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas">
<Form>srvControles</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas">
<Form>srvDevoluciones</Form>
</DCCReference>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas"/>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas">
<Form>srvParametros</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas">
<Form>srvRecepciones</Form>
</DCCReference>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas">
<Form>srvReferenciaGenerica</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas">
<Form>srvStock</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas">
<Form>srvTraspasos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas">
<Form>srvVentasEnProceso</Form>
</DCCReference>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas">
<Form>srvVentasTerminadas</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfFicherosEDI.pas">
<Form>frConfFicherosEDI</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
</DCCReference>
<DCCReference Include="EDI\EDI_INVRPT.pas"/>
<DCCReference Include="EDI\EDI_Reader.pas"/>
<DCCReference Include="EDI\EDI_SLSRPT.pas"/>
<DCCReference Include="EDI_Inventary_Impl.pas"/>
<DCCReference Include="EDI_Log_Impl.pas"/>
<DCCReference Include="EDI_Sales_Impl.pas"/>
<DCCReference Include="EDI_Utils.pas"/>
<DCCReference Include="fServerForm.pas">
<Form>ServerForm</Form>
</DCCReference>
<DCCReference Include="RegExpr.pas"/>
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas"/>
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas"/>
<DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas"/>
<DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas">
<Form>dmEDIInventary</Form>
</DCCReference>
<DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas"/>
<DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas"/>
<DCCReference Include="Services\EDI_Sales\uBizEDISales.pas"/>
<DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas">
<Form>dmEDISales</Form>
</DCCReference>
<DCCReference Include="Services\Login\srvLogin_Impl.pas">
<Form>srvLogin</Form>
</DCCReference>
<DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas">
<Form>srvTransfereciaFicheros</Form>
</DCCReference>
<DCCReference Include="srvInformes_Impl.pas">
<Form>srvInformes</Form>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
</DCCReference>
<DCCReference Include="uSchemaUtilsServer.pas"/>
<DCCReference Include="VARELA_Intf.pas"/>
<DCCReference Include="VARELA_Invk.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[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"
1 VERSIONINFO
FILEVERSION 2,1,0,0
PRODUCTVERSION 2,1,0,0
FILEVERSION 2,1,1,0
PRODUCTVERSION 2,1,1,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "2.1.0.0\0"
VALUE "CompileDate", "jueves, 24 de enero de 2008 19:05\0"
VALUE "ProductVersion", "2.1.1.0\0"
VALUE "CompileDate", "martes, 11 de marzo de 2008 20:08\0"
END
END
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
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REPORT'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA'
DataType = datDateTime
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OK'
DataType = datBoolean
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ERROR_MSG'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
JoinDataTables = <>
UnionDataTables = <>
@ -125,7 +84,6 @@ object EDI_Log: TEDI_Log
item
Name = 'FECHA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
@ -133,14 +91,12 @@ object EDI_Log: TEDI_Log
Name = 'REPORT'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OK'
DataType = datBoolean
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
@ -148,7 +104,6 @@ object EDI_Log: TEDI_Log
Name = 'ERROR_MSG'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
@ -171,8 +126,6 @@ object EDI_Log: TEDI_Log
Top = 16
end
object DABINAdapter: TDABINAdapter
BufferSize = 262144
IsCompatibleV4 = True
Left = 48
Top = 80
end

3
Source/Servidor/EDI_Log_Impl.pas
View File

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

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

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

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

@ -12,6 +12,10 @@ type
TdmEDIInventary = class(TDataModule)
schEDIInventary: TDASchema;
private
FConnection : IDAConnection;
FNumDocCargados : TStringList;
function ExisteNumDoc(const ANumDoc : String): Boolean;
function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarLineas(const ALinData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarCantidades(const ACantData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
@ -47,71 +51,100 @@ var
NumRegNuevosCab : Integer;
NumRegNuevosLin : Integer;
NumRegNuevosCant : Integer;
bContinuar : Boolean;
begin
Result := True;
bContinuar := False;
FNumDocCargados := TStringList.Create;
FConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
FConnection.BeginTransaction;
Cab_Reader := TCABINV_Reader.Create;
Lin_Reader := TLININV_Reader.Create;
Cant_Reader := TCANTINV_Reader.Create;
try
Cab_Reader.Filename := FicheroCAB;
Cab_Reader.ReadFile;
Result := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
finally
FreeAndNIL(Cab_Reader);
end;
if Result then
begin
Lin_Reader := TLININV_Reader.Create;
Lin_Reader.Filename := FicheroLIN;
Lin_Reader.ReadFile;
Cant_Reader.Filename := FicheroCANT;
Cant_Reader.ReadFile;
try
Lin_Reader.Filename := FicheroLIN;
Lin_Reader.ReadFile;
Result := InsertarLineas (Lin_Reader.FileData, NumRegNuevosLin);
finally
FreeAndNIL(Lin_Reader);
end;
bContinuar := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
if Result then
begin
Cant_Reader := TCANTINV_Reader.Create;
try
Cant_Reader.Filename := FicheroCANT;
Cant_Reader.ReadFile;
Result := InsertarCantidades(Cant_Reader.FileData, NumRegNuevosCant);
finally
Cant_Reader.Free;
if bContinuar then
bContinuar := InsertarLineas (Lin_Reader.FileData, NumRegNuevosLin);
if bContinuar then
bContinuar := InsertarCantidades(Cant_Reader.FileData, NumRegNuevosCant);
if bContinuar then
begin
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;
finally
FreeAndNIL(Cab_Reader);
FreeAndNIL(Lin_Reader);
FreeAndNIL(Cant_Reader);
FConnection.Close;
FConnection := NIL;
FreeAndNIL(FNumDocCargados);
end;
Result := bContinuar;
end;
if Result then
begin
NumRegNuevos := NumRegNuevosCant;
Result := GenerarInventarioEDI;
if Result then
Result := MarcarRegistrosUltimoInventarioEDI;
function TdmEDIInventary.ExisteNumDoc(const ANumDoc: String): Boolean;
var
ds: IDADataset;
begin
try
ds := schEDIInventary.NewDataset(FConnection, 'ExisteNumDoc');
ds.ParamByName('NUMDOC').AsString := ANumDoc;
ds.Open;
Result := (not ds.IsEmpty);
ds.Close;
finally
ds := NIL;
end;
end;
function TdmEDIInventary.GenerarInventarioEDI: Boolean;
var
ACommand: IDASQLCommand;
AConnection : IDAConnection;
begin
Result := False;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
ACommand := schEDIInventary.NewCommand(AConnection, 'RDX_P_CARGAR_INVENTARIOEDI');
ACommand := schEDIInventary.NewCommand(FConnection, 'RDX_P_CARGAR_INVENTARIOEDI');
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (GenerarInventarioEDI)');
InsertarLog(False, e.Message + ' (GenerarInventarioEDI)');
raise E;
end
end;
end;
@ -122,11 +155,11 @@ var
i : integer;
Registro : PCABINV;
ACommand: IDASQLCommand;
AConnection : IDAConnection;
ANumDoc : String;
begin
Result := False;
NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ACabData.Count - 1 do
begin
@ -135,10 +168,14 @@ begin
if not Registro.REGISTRO_OK then
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
begin
ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC);
ParamByName('NUMDOC').AsString := ANumDoc;
ParamByName('TIPODOC').AsString := Trim(Registro.TIPODOC);
ParamByName('TIPOLIQ').AsString := Trim(Registro.TIPOLIQ);
ParamByName('FECHA').AsDateTime := EDIDateToDateF(Trim(Registro.FECHA));
@ -149,18 +186,16 @@ begin
ParamByName('CENTRO').AsString := Trim(Registro.CENTRO);
end;
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1;
FNumDocCargados.Add(ANumDoc);
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (InsertarCabecera INV)');
InsertarLog(False, e.Message + ' (InsertarCabecera INV)');
raise E;
end
end;
end; //for
@ -172,11 +207,10 @@ var
i : integer;
Registro : PCANTINV;
ACommand: IDASQLCommand;
AConnection : IDAConnection;
ANumDoc : String;
begin
Result := False;
NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ACantData.Count - 1 do
begin
@ -185,7 +219,11 @@ begin
if not Registro.REGISTRO_OK then
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
begin
ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC);
@ -200,18 +238,15 @@ begin
ParamByName('IDVEN').AsString := Trim(Registro.IDVEN);
end;
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1;
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (InsertarCantidades INV)');
InsertarLog(False, e.Message + ' (InsertarCantidades INV)');
raise E;
end
end;
end; //for
@ -223,11 +258,10 @@ var
i : integer;
Registro : PLININV;
ACommand: IDASQLCommand;
AConnection : IDAConnection;
ANumDoc : String;
begin
Result := False;
NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ALinData.Count - 1 do
begin
@ -236,7 +270,11 @@ begin
if not Registro.REGISTRO_OK then
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
begin
ParamByName('NUMDOC').AsString := Trim(Registro.NUMDOC);
@ -254,18 +292,15 @@ begin
ParamByName('DESCRIP').AsString := Trim(Registro.DESCRIP);
end;
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1;
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (InsertarLineas INV)');
InsertarLog(False, e.Message + ' (InsertarLineas INV)');
raise E;
end
end;
end; //for
@ -288,23 +323,18 @@ end;
function TdmEDIInventary.MarcarRegistrosUltimoInventarioEDI: Boolean;
var
ACommand: IDASQLCommand;
AConnection : IDAConnection;
begin
Result := False;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
ACommand := schEDIInventary.NewCommand(AConnection, 'RDX_P_SET_ULTIMOINVENTARIO');
ACommand := schEDIInventary.NewCommand(FConnection, 'RDX_P_SET_ULTIMOINVENTARIO');
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (MarcarRegistrosUltimoInventarioEDI)');
InsertarLog(False, e.Message + ' (MarcarRegistrosUltimoInventarioEDI)');
raise E;
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
SysUtils, Classes, uDAScriptingProvider, uDADataTable, uDACDSDataTable,
uBizEDISales, uDAEngine, uDAADODriver, uDABINAdapter,
uBizEDISales, uDAEngine, uDAADODriver, uDABINAdapter, uDAInterfaces,
uDABusinessProcessor, uDAClasses, EDI_Reader, JvComponentBase;
type
TdmEDISales = class(TDataModule)
schEDISales: TDASchema;
private
FConnection : IDAConnection;
FClave1Cargados : TStringList;
function ExisteClave1(const AClave1 : Float): Boolean;
function InsertarCabecera(const ACabData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarLugares(const ALugData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
function InsertarArticulos(const AArtData : TEDIFileData; var NumRegNuevos : integer) : Boolean;
@ -27,7 +31,7 @@ var
implementation
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,
VARELA_Intf, EDI_Log_Impl, DB;
@ -45,69 +49,97 @@ var
NumRegNuevosCab : Integer;
NumRegNuevosLug : Integer;
NumRegNuevosArt : Integer;
bContinuar : Boolean;
begin
Result := True;
bContinuar := False;
FClave1Cargados := TStringList.Create;
FConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
FConnection.BeginTransaction;
Cab_Reader := TCABVEN_Reader.Create;
Lug_Reader := TLUGVEN_Reader.Create;
Art_Reader := TARTVEN_Reader.Create;
try
Cab_Reader.Filename := FicheroCAB;
Cab_Reader.ReadFile;
Result := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
finally
FreeAndNIL(Cab_Reader);
end;
if Result then
begin
Lug_Reader := TLUGVEN_Reader.Create;
Lug_Reader.Filename := FicheroLUG;
Lug_Reader.ReadFile;
Art_Reader.Filename := FicheroART;
Art_Reader.ReadFile;
try
Lug_Reader.Filename := FicheroLUG;
Lug_Reader.ReadFile;
Result := InsertarLugares (Lug_Reader.FileData, NumRegNuevosLug);
finally
FreeAndNIL(Lug_Reader);
end;
bContinuar := InsertarCabecera (Cab_Reader.FileData, NumRegNuevosCab);
if Result then
begin
Art_Reader := TARTVEN_Reader.Create;
try
Art_Reader.Filename := FicheroART;
Art_Reader.ReadFile;
Result := InsertarArticulos(Art_Reader.FileData, NumRegNuevosArt);
finally
FreeAndNil(Art_Reader);
if bContinuar then
bContinuar := InsertarLugares (Lug_Reader.FileData, NumRegNuevosLug);
if bContinuar then
bContinuar := InsertarArticulos(Art_Reader.FileData, NumRegNuevosArt);
if bContinuar then
begin
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;
finally
FreeAndNIL(Cab_Reader);
FreeAndNIL(Lug_Reader);
FreeAndNil(Art_Reader);
FConnection.Close;
FConnection := NIL;
FreeAndNIL(FClave1Cargados);
end;
Result := bContinuar;
end;
if Result then
begin
NumRegNuevos := NumRegNuevosArt;
Result := GenerarVentasEDI;
function TdmEDISales.ExisteClave1(const AClave1: Float): Boolean;
var
ds: IDADataset;
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;
function TdmEDISales.GenerarVentasEDI: Boolean;
var
ACommand: IDASQLCommand;
AConnection : IDAConnection;
begin
Result := False;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
ACommand := schEDISales.NewCommand(AConnection, 'RDX_P_CARGAR_VENTASEDI');
ACommand := schEDISales.NewCommand(FConnection, 'RDX_P_CARGAR_VENTASEDI');
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (GenerarVentasEDI)');
InsertarLog(False, e.Message + ' (GenerarVentasEDI)');
raise E;
end
end;
end;
@ -121,11 +153,10 @@ var
AuxInt : Integer;
AuxNum : Double;
ACommand: IDASQLCommand;
AConnection : IDAConnection;
AClave1 : String;
begin
Result := False;
NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to AArtData.Count - 1 do
begin
@ -134,7 +165,11 @@ begin
if not Registro.REGISTRO_OK then
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
begin
ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1));
@ -280,18 +315,15 @@ begin
ParamByName('UMEDESP').AsString := Trim(Registro.UMEDESP);
end;
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1;
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (InsertarArticulos SLS)');
InsertarLog(False, e.Message + ' (InsertarArticulos SLS)');
raise E;
end
end;
end; //for
@ -305,11 +337,10 @@ var
AuxStr : String;
AuxNum : Double;
ACommand: IDASQLCommand;
AConnection : IDAConnection;
AClave1 : Float;
begin
Result := False;
NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ACabData.Count - 1 do
begin
@ -318,7 +349,11 @@ begin
if not Registro.REGISTRO_OK then
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
begin
ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1));
@ -384,18 +419,16 @@ begin
ParamByName('FECTAS').AsDateTime := EDIDateToDateF(Trim(Registro.FECTAS));
end; // with
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1;
FClave1Cargados.Add(Trim(Registro.CLAVE1));
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + ' (InsertarCabecera SLS)');
InsertarLog(False, e.Message + ' (InsertarCabecera SLS)');
raise E;
end
end;
@ -421,11 +454,10 @@ var
i : integer;
Registro : PLUGVEN;
ACommand: IDASQLCommand;
AConnection : IDAConnection;
AClave1 : String;
begin
Result := False;
NumRegNuevos := 0;
AConnection := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionName);
for i := 0 to ALugData.Count - 1 do
begin
@ -434,7 +466,11 @@ begin
if not Registro.REGISTRO_OK then
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
begin
ParamByName('CLAVE1').AsFloat := StrToFloat(Trim(Registro.CLAVE1));
@ -455,18 +491,15 @@ begin
end
end; // with
AConnection.BeginTransaction;
try
ACommand.Execute;
AConnection.CommitTransaction;
NumRegNuevos := NumRegNuevos + 1;
NumRegNuevos := NumRegNuevos + 1;
Result := True;
except
on E : Exception do
begin
AConnection.RollbackTransaction;
if Pos('PRIMARY KEY', E.Message) = 0 then
InsertarLog(False, e.Message + '(InsertarLugares SLS)');
InsertarLog(False, e.Message + '(InsertarLugares SLS)');
raise E;
end
end;
end; //for

10
Source/Servidor/uDataModuleServer.dfm
View File

@ -37,16 +37,10 @@ object dmServer: TdmServer
item
Name = 'GFT_VARELA'
ConnectionString =
'SDAC?Server=roberto;Database=GFT_VARELA_NUEVA_QUE_FALLA;UserID=s' +
'a;Password=123456;Schemas=1;'
'ADO?AuxDriver=SQLOLEDB.1;Server=localhost;Database=GFT_VARELA;Us' +
'erID=sa;Password=12345;Schemas=1;'
ConnectionType = 'MSSQL'
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>
DriverManager = DriverManager
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\uUsuario.dfm */
/* 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 */