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

Cambios en las cargas de ficheros EDI para controlar si se han movido o no correctamente los ficheros

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@97 1c943782-d109-9647-9548-93b3ac332352
This commit is contained in:
David Arranz 2007-10-18 12:24:19 +00:00
parent ed0eb64c3c
commit 79b5320470
4 changed files with 827 additions and 777 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

324
Source/Servidor/AdminPV_Server.dproj
View File

@ -1,166 +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">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="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\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>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 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\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="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="AdminPV_Server.dpr"> <DelphiCompile Include="AdminPV_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Base\uDataTableUtils.pas"/> <DCCReference Include="..\Base\uDataTableUtils.pas" />
<DCCReference Include="..\Base\uDBSelectionList.pas"/> <DCCReference Include="..\Base\uDBSelectionList.pas" />
<DCCReference Include="..\Base\uIntegerList.pas"/> <DCCReference Include="..\Base\uIntegerList.pas" />
<DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas"/> <DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas" />
<DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas"/> <DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas" />
<DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas"> <DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas">
<Form>srvControles</Form> <Form>srvControles</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas"> <DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas">
<Form>srvDevoluciones</Form> <Form>srvDevoluciones</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas"/> <DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas" />
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas"/> <DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas"> <DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas">
<Form>srvParametros</Form> <Form>srvParametros</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas"> <DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas">
<Form>srvRecepciones</Form> <Form>srvRecepciones</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas"/> <DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas"/> <DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas"/> <DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas"> <DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas">
<Form>srvReferenciaGenerica</Form> <Form>srvReferenciaGenerica</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas"/> <DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas" />
<DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas"/> <DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas" />
<DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas"> <DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas">
<Form>srvStock</Form> <Form>srvStock</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas"> <DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas">
<Form>srvTraspasos</Form> <Form>srvTraspasos</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas"/> <DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas" />
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas"/> <DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas" />
<DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas"> <DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas">
<Form>srvVentasEnProceso</Form> <Form>srvVentasEnProceso</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas"/> <DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas" />
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas"/> <DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas" />
<DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas"> <DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas">
<Form>srvVentasTerminadas</Form> <Form>srvVentasTerminadas</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfFicherosEDI.pas"> <DCCReference Include="Configuracion\uConfFicherosEDI.pas">
<Form>frConfFicherosEDI</Form> <Form>frConfFicherosEDI</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
</DCCReference> </DCCReference>
<DCCReference Include="EDI\EDI_INVRPT.pas"/> <DCCReference Include="EDI\EDI_INVRPT.pas" />
<DCCReference Include="EDI\EDI_Reader.pas"/> <DCCReference Include="EDI\EDI_Reader.pas" />
<DCCReference Include="EDI\EDI_SLSRPT.pas"/> <DCCReference Include="EDI\EDI_SLSRPT.pas" />
<DCCReference Include="EDI_Inventary_Impl.pas"/> <DCCReference Include="EDI_Inventary_Impl.pas" />
<DCCReference Include="EDI_Log_Impl.pas"/> <DCCReference Include="EDI_Log_Impl.pas" />
<DCCReference Include="EDI_Sales_Impl.pas"/> <DCCReference Include="EDI_Sales_Impl.pas" />
<DCCReference Include="EDI_Utils.pas"/> <DCCReference Include="EDI_Utils.pas" />
<DCCReference Include="fServerForm.pas"> <DCCReference Include="fServerForm.pas">
<Form>ServerForm</Form> <Form>ServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="RegExpr.pas"/> <DCCReference Include="RegExpr.pas" />
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas"/> <DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas" />
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas"/> <DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas" />
<DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas"/> <DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas" />
<DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas"> <DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas">
<Form>dmEDIInventary</Form> <Form>dmEDIInventary</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas"/> <DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas" />
<DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas"/> <DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas" />
<DCCReference Include="Services\EDI_Sales\uBizEDISales.pas"/> <DCCReference Include="Services\EDI_Sales\uBizEDISales.pas" />
<DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas"> <DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas">
<Form>dmEDISales</Form> <Form>dmEDISales</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Services\Login\srvLogin_Impl.pas"> <DCCReference Include="Services\Login\srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas"> <DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas">
<Form>srvTransfereciaFicheros</Form> <Form>srvTransfereciaFicheros</Form>
</DCCReference> </DCCReference>
<DCCReference Include="srvInformes_Impl.pas"> <DCCReference Include="srvInformes_Impl.pas">
<Form>srvInformes</Form> <Form>srvInformes</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uSchemaUtilsServer.pas"/> <DCCReference Include="uSchemaUtilsServer.pas" />
<DCCReference Include="VARELA_Intf.pas"/> <DCCReference Include="VARELA_Intf.pas" />
<DCCReference Include="VARELA_Invk.pas"/> <DCCReference Include="VARELA_Invk.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

1168
Source/Servidor/AdminPV_Server.drc
View File

File diff suppressed because it is too large Load Diff

50
Source/Servidor/EDI_Inventary_Impl.pas
View File

@ -47,6 +47,7 @@ var
ADirEntrada : String; ADirEntrada : String;
ADirTemp : String; ADirTemp : String;
NumRegNuevos : Integer; NumRegNuevos : Integer;
bCargarFicheros: Boolean;
procedure GuardarFicheros; procedure GuardarFicheros;
var var
@ -84,9 +85,25 @@ begin
try try
if not DirectoryExists(ADirTemp) then if not DirectoryExists(ADirTemp) then
ForceDirectories(ADirTemp); ForceDirectories(ADirTemp);
FileMove(ADirEntrada + FicheroCAB, ADirTemp + FicheroCAB);
FileMove(ADirEntrada + FicheroLIN, ADirTemp + FicheroLIN); if not FileMove(ADirEntrada + FicheroCAB, ADirTemp + FicheroCAB) then
FileMove(ADirEntrada + FicheroCANT, ADirTemp + FicheroCANT); begin
MsgError := 'No se ha podido mover FicheroCAB';
bCargarFicheros := False;
end;
if not FileMove(ADirEntrada + FicheroLIN, ADirTemp + FicheroLIN) then
begin
MsgError := 'No se ha podido mover FicheroLIN';
bCargarFicheros := False;
end;
if not FileMove(ADirEntrada + FicheroCANT, ADirTemp + FicheroCANT) then
begin
MsgError := 'No se ha podido mover FicheroCANT';
bCargarFicheros := False;
end;
except except
on E: Exception do on E: Exception do
begin begin
@ -97,17 +114,22 @@ begin
end; end;
try try
try if bCargarFicheros then
dmEDIInventary.CargarFicheros (ADirTemp + FicheroCAB, ADirTemp + FicheroLIN, ADirTemp + FicheroCANT, NumRegNuevos); begin
if NumRegNuevos > 0 then try
InsertarLog(True, Format('Se han cargado %d registros de inventario nuevos', [NumRegNuevos])) dmEDIInventary.CargarFicheros (ADirTemp + FicheroCAB, ADirTemp + FicheroLIN, ADirTemp + FicheroCANT, NumRegNuevos);
else if NumRegNuevos > 0 then
InsertarLog(True, 'El fichero se ha cargado pero no hay registros de inventario nuevos'); InsertarLog(True, Format('Se han cargado %d registros de inventario nuevos', [NumRegNuevos]))
Result := True; else
finally InsertarLog(True, 'El fichero se ha cargado pero no hay registros de inventario nuevos');
GuardarFicheros; Result := True;
dmServer.BorrarFicherosDeCargaAntiguos; finally
end; GuardarFicheros;
dmServer.BorrarFicherosDeCargaAntiguos;
end;
end
else
InsertarLog(False, MsgError + ' (CargarFicheroEDI3 INV)');
except except
on E: Exception do on E: Exception do
begin begin

58
Source/Servidor/EDI_Sales_Impl.pas
View File

@ -47,6 +47,7 @@ var
ADirEntrada : String; ADirEntrada : String;
ADirTemp : String; ADirTemp : String;
NumRegNuevos : Integer; NumRegNuevos : Integer;
bCargarFicheros: Boolean;
procedure GuardarFicheros; procedure GuardarFicheros;
var var
@ -86,10 +87,32 @@ begin
try try
if not DirectoryExists(ADirTemp) then if not DirectoryExists(ADirTemp) then
ForceDirectories(ADirTemp); ForceDirectories(ADirTemp);
FileMove(ADirEntrada + FicheroCAB, ADirTemp + FicheroCAB);
FileMove(ADirEntrada + FicheroLUG, ADirTemp + FicheroLUG); bCargarFicheros := True;
FileMove(ADirEntrada + FicheroART, ADirTemp + FicheroART); if not FileMove(ADirEntrada + FicheroCAB, ADirTemp + FicheroCAB) then
FileMove(ADirEntrada + FicheroART, ADirTemp + 'CONVEN.TXT'); begin
MsgError := 'No se ha podido mover FicheroCAB';
bCargarFicheros := False;
end;
if not FileMove(ADirEntrada + FicheroLUG, ADirTemp + FicheroLUG) then
begin
MsgError := 'No se ha podido mover FicheroLUG';
bCargarFicheros := False;
end;
if not FileMove(ADirEntrada + FicheroART, ADirTemp + FicheroART) then
begin
MsgError := 'No se ha podido mover FicheroART';
bCargarFicheros := False;
end;
// if not FileMove(ADirEntrada + FicheroART, ADirTemp + 'CONVEN.TXT') then
// begin
// MsgError := 'No se ha podido mover FicheroCONVEN';
// bCargarFicheros := False;
// end;
except except
on E: Exception do on E: Exception do
begin begin
@ -100,17 +123,22 @@ begin
end; end;
try try
try if bCargarFicheros then
dmEDISales.CargarFicheros (ADirTemp + FicheroCAB, ADirTemp + FicheroLUG, ADirTemp + FicheroART, NumRegNuevos); begin
if NumRegNuevos > 0 then try
InsertarLog(True, Format('Se han cargado %d registros de ventas nuevos', [NumRegNuevos])) dmEDISales.CargarFicheros (ADirTemp + FicheroCAB, ADirTemp + FicheroLUG, ADirTemp + FicheroART, NumRegNuevos);
else if NumRegNuevos > 0 then
InsertarLog(True, 'El fichero se ha cargado pero no hay registros de ventas nuevos'); InsertarLog(True, Format('Se han cargado %d registros de ventas nuevos', [NumRegNuevos]))
Result := True; else
finally InsertarLog(True, 'El fichero se ha cargado pero no hay registros de ventas nuevos');
GuardarFicheros; Result := True;
dmServer.BorrarFicherosDeCargaAntiguos; finally
end; GuardarFicheros;
dmServer.BorrarFicherosDeCargaAntiguos;
end;
end
else
InsertarLog(False, MsgError + ' (CargarFicheroEDI3 SLS)');
except except
on E: Exception do on E: Exception do
begin begin