Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Copia de contratos de graden a uecko

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@168 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2022-07-07 17:14:25 +00:00
parent 3f9985a6d3
commit 618479b3bc
33 changed files with 1188 additions and 682 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</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">1.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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</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>
@ -58,54 +65,54 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

1
Source/Cliente/FactuGES.dpr
View File

@ -1,6 +1,7 @@
program FactuGES;
uses
ExceptionLog,
Forms,
Windows,
SysUtils,

74
Source/Cliente/FactuGES.dproj
View File

@ -43,15 +43,24 @@
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_MapFile>3</DCC_MapFile>
</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">3</VersionInfo><VersionInfo Name="MinorVer">9</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">3.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.9.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">4</VersionInfo><VersionInfo Name="MinorVer">0</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">4.0.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
@ -80,24 +89,24 @@
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
SMTP From=info@rodax%2Dsoftware.com
SMTP Host=mail.rodax%2Dsoftware.com
SMTP Port=587
SMTP UserID=info@rodax%2Dsoftware.com
SMTP Password=*Golondrinas2020+1
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Number=8
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Email Address=soporte@rodax%2Dsoftware.com
Email Object=Uecko Factuges Client
Email Send Options=2
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
@ -141,15 +150,15 @@ ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
ExceptionDialogType=3
Count=0
EMail Message Line Count=0
EMail Message Line Count=1
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
loDeleteLogAtVersionChange=1
loAddComputerNameInLogFileName=1
loSaveModulesAndProcessesSections=0
loSaveAssemblerAndCPUSections=0
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
@ -168,9 +177,9 @@ soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soUserEmail=0
soUserPrivileges=0
soUserCompany=0
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
@ -182,10 +191,10 @@ soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soCmpDisplayMode=0
soCmpDisplayDPI=0
soCmpVideoCard=0
soCmpPrinter=0
soOSType=1
soOSBuildN=1
soOSUpdate=1
@ -198,16 +207,16 @@ soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSendDialog=0
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendEntireLog=1
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndUseOnlyActiveWindow=1
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
sndSendInSeparatedThread=1
sndAddDateInFileName=1
sndAddComputerNameInFileName=1
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
@ -232,7 +241,7 @@ boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loCatchLeaks=1
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
@ -559,4 +568,5 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=
Line0="Error FactuGES en %%ComputerName%% con usuario %%UserName%%"
EurekaLog Last Line -->

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

18
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

12
Source/Modulos/Articulos/Controller/Articulos_controller.dproj
View File

@ -55,12 +55,12 @@
<DelphiCompile Include="Articulos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_data.dcp" />
<DCCReference Include="..\..\Lib\Articulos_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\Tarifas_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_data.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Tarifas_controller.dcp" />
<DCCReference Include="uArticulosController.pas" />
<DCCReference Include="uControllerDetallesArticulos.pas" />
<DCCReference Include="View\uIEditorArticulo.pas" />

2
Source/Modulos/Articulos/Data/Articulos_data.dproj
View File

@ -54,7 +54,7 @@
<DelphiCompile Include="Articulos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_model.dcp" />
<DCCReference Include="uDataModuleArticulos.pas">
<Form>DataModuleArticulos</Form>
</DCCReference>

62
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -55,37 +55,37 @@
<DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\SubFamilias_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Tarifas_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\UnidadesMedida_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_view.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxDataD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxEditorsD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxExportD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxGridD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxPageControlD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dxCoreD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Familias_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\PngComponentsD10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\PNG_D10.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\SubFamilias_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Tarifas_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\UnidadesMedida_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclactnband.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcljpg.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclx.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form>

26
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -53,19 +53,19 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_data.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\designide.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclactnband.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclx.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\xmlrtl.dcp" />
<DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" />

9
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -20,6 +20,8 @@ type
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
function darClienteGraden(const ID: Integer): IBizContacto;
end;
TClientesController = class(TContactosController, IClientesController)
@ -51,6 +53,8 @@ type
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
function darClienteGraden(const ID: Integer): IBizContacto;
end;
implementation
@ -101,6 +105,11 @@ begin
FDireccionesController := TDireccionesContactoController.Create;
end;
function TClientesController.darClienteGraden(const ID: Integer): IBizContacto;
begin
Result := (FDataModule as IDataModuleClientes).GetItem(ID);
end;
destructor TClientesController.Destroy;
begin
FDireccionesController := NIL;

12
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,12 +49,12 @@
<DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass>

30
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,27 +49,29 @@
<DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\uIDataModuleVendedores.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" />
@ -80,8 +82,6 @@
<DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizProcedenciasCliente.pas" />
<DCCReference Include="uBizSubCuentasContacto.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

70
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -47,41 +47,41 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\bdertl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxDataD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxEditorsD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\designide.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GestorInformes_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Jcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JclVcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JvCoreD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JvSystemD11R.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclactnband.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcljpg.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclx.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>

26
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
@ -26,6 +27,7 @@
<Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" />
@ -341,14 +343,32 @@
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_controller">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_controller:Clean">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="..\Albaranes de cliente\Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosCliente_controller">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_controller:Clean">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_controller:Make">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_controller;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;FacturasCliente_controller;ConCli_FacCli_relation;ConCli_AlbCli_relation;PreCli_ConCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;FacturasCliente_view;AlbCli_FacCli_relation;AlbaranesProveedor_view;PedidosProveedor_model;PedidosProveedor_view;PedProv_AlbProv_relation;AlbaranesProveedor_controller;AlbaranesCliente_view;AlbProv_FacProv_relation" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_controller;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;FacturasCliente_controller;ConCli_FacCli_relation;ConCli_AlbCli_relation;PreCli_ConCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;FacturasCliente_view;AlbCli_FacCli_relation;AlbaranesProveedor_view;PedidosProveedor_model;PedidosProveedor_view;PedProv_AlbProv_relation;AlbaranesProveedor_controller;AlbaranesCliente_view;AlbProv_FacProv_relation;AlbaranesCliente_controller;RecibosCliente_controller" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;FacturasCliente_controller:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean;PreCli_ConCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;AlbCli_FacCli_relation:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_view:Clean;PedProv_AlbProv_relation:Clean;AlbaranesProveedor_controller:Clean;AlbaranesCliente_view:Clean;AlbProv_FacProv_relation:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_controller:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;FacturasCliente_controller:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean;PreCli_ConCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;AlbCli_FacCli_relation:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_view:Clean;PedProv_AlbProv_relation:Clean;AlbaranesProveedor_controller:Clean;AlbaranesCliente_view:Clean;AlbProv_FacProv_relation:Clean;AlbaranesCliente_controller:Clean;RecibosCliente_controller:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_controller:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;FacturasCliente_controller:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make;PreCli_ConCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;AlbCli_FacCli_relation:Make;AlbaranesProveedor_view:Make;PedidosProveedor_model:Make;PedidosProveedor_view:Make;PedProv_AlbProv_relation:Make;AlbaranesProveedor_controller:Make;AlbaranesCliente_view:Make;AlbProv_FacProv_relation:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_controller:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;FacturasCliente_controller:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make;PreCli_ConCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;AlbCli_FacCli_relation:Make;AlbaranesProveedor_view:Make;PedidosProveedor_model:Make;PedidosProveedor_view:Make;PedProv_AlbProv_relation:Make;AlbaranesProveedor_controller:Make;AlbaranesCliente_view:Make;AlbProv_FacProv_relation:Make;AlbaranesCliente_controller:Make;RecibosCliente_controller:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

16
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj
View File

@ -49,14 +49,14 @@
<DelphiCompile Include="ContratosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorDocumentos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\ContratosCliente_data.dcp" />
<DCCReference Include="..\ContratosCliente_model.dcp" />
<DCCReference Include="..\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosContratoClienteController.pas" />
<DCCReference Include="uContratosClienteController.pas" />
<DCCReference Include="uContratosClienteReportController.pas" />

78
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -72,6 +72,8 @@ type
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
function MandarFabrica(AContrato: IBizContratoCliente): Boolean;
end;
TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -149,11 +151,13 @@ type
procedure EtiquetasPreview(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
procedure EtiquetasPrint(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
function DarListaAnosContratos: TStringList;
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
function MandarFabrica(AContrato: IBizContratoCliente): Boolean;
end;
implementation
@ -662,7 +666,7 @@ begin
with Result do
begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_CONTRATO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
@ -670,7 +674,7 @@ begin
// ID_FACTURAIsNull := True;
REFERENCIA := '';
SITUACION := SITUACION_CONTRATO_PENDIENTE;
// PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
// PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
end;
Result.Post;
finally
@ -980,7 +984,7 @@ begin
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado: EsEliminable');
Result := True;
Result := (AContrato.SITUACION = SITUACION_CONTRATO_PENDIENTE) AND (AContrato.ENVIADA_REVISADA = CONST_CONTRATO_DEFAULT);
end;
function TContratosClienteController.EsModificable(AContrato: IBizContratoCliente): Boolean;
@ -988,7 +992,7 @@ begin
if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (EsModificable)');
Result := True;
Result := (AContrato.SITUACION = SITUACION_CONTRATO_PENDIENTE) AND (AContrato.ENVIADA_REVISADA <> CONST_CONTRATO_ENVIADO_UECKO);
end;
procedure TContratosClienteController.EtiquetasPreview(AContrato: IBizContratoCliente; const AAgencia, AReferencia: String;
@ -1305,6 +1309,70 @@ begin
end;
end;
function TContratosClienteController.MandarFabrica(AContrato: IBizContratoCliente): Boolean;
var
AContratoFabrica : IBizContratoCliente;
begin
Result := false;
ShowHourglassCursor;
try
AContratoFabrica := Duplicar(AContrato);
// Hay que dejar algunos campos como si fuera un contrato nuevo
AContratoFabrica.Edit;
with AContratoFabrica do
begin
ID_EMPRESA := CTE_EMPRESA_FABRICA;
ID_TIENDA := CTE_EMPRESA_FABRICA;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_CONTRATO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
INCIDENCIASIsNull := True;
REFERENCIA_CLIENTE := AContrato.REFERENCIA + ' - ' + AContrato.NOMBRE_CLIENTE;
SITUACION := SITUACION_CONTRATO_PENDIENTE;
ENVIADA_REVISADA := CONST_CONTRATO_RECIBIDO_UECKO;
AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_PARA_FABRICA) as IBizCliente);
AContratoFabrica.Cliente.DataTable.Active := True;
NOMBRE := AContratoFabrica.Cliente.NOMBRE;
NIF_CIF := AContratoFabrica.Cliente.NIF_CIF;
CALLE := AContratoFabrica.Cliente.CALLE;
CODIGO_POSTAL := AContratoFabrica.Cliente.CODIGO_POSTAL;
PROVINCIA := AContratoFabrica.Cliente.PROVINCIA;
POBLACION := AContratoFabrica.Cliente.POBLACION;
TELEFONO := AContratoFabrica.Cliente.TELEFONO_1;
MOVIL := AContratoFabrica.Cliente.MOVIL_1;
//LA DIRECCIÖN DE ENVIO SE MANTIENE LA COPIADA DEL CLIENTE FINAL
AContratoFabrica.ID_FORMA_PAGO := AContratoFabrica.Cliente.ID_FORMA_PAGO;
AContratoFabrica.ID_TIPO_IVA := AContratoFabrica.Cliente.ID_TIPO_IVA;
DetallesController.PrecioPunto := AContratoFabrica.Cliente.PRECIO_PUNTO;
DetallesController.ActualizarDetalles(AContratoFabrica.Detalles, AContratoFabrica.Cliente);
end;
AContratoFabrica.Post;
if Guardar(AContratoFabrica) then
begin
AContrato.Edit;
AContrato.ID_CONTRATO_ASOCIADO := AContratoFabrica.ID;
AContrato.ENVIADA_REVISADA := CONST_CONTRATO_ENVIADO_UECKO;
AContrato.Post;
AContrato.DataTable.ApplyUpdates;
Result := True;
end;
finally
HideHourglassCursor;
end;
end;
function TContratosClienteController.Nuevo(WithInsert: Boolean): IBizContratoCliente;
var
AContrato : IBizContratoCliente;

6
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -81,8 +81,10 @@ begin
try
// AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
// ActualizarDetalles(ADetalles, AArticulos);
RecalcularPrecioPuntoDetalles(ACliente.PRECIO_PUNTO, ADetalles);
ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA);
ShowInfoMessage('Se ha actualizado el descuento para el cliente seleccionado');
// ShowInfoMessage('Se ha actualizado el descuento para el cliente seleccionado');
finally
AArticulos := Nil;
end;
@ -136,7 +138,7 @@ begin
inherited;
FDataModule := TDataModuleContratosCliente.Create(Nil);
FDetallesPresupuestoCliente:= TDetallesPresupuestoClienteController.Create;
FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
FPrecioPunto:= AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
end;
function TDetallesContratoClienteController.DarPropiedades: IBizPropiedades;

8
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -384,6 +384,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'ENVIADA_REVISADA'
DataType = datSmallInt
end
item
Name = 'ID_CONTRATO_ASOCIADO'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

114
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{1EA3F60D-DF1C-4BFB-9030-AA56BB46C139}';
RID_Propiedades = '{BE2F2498-4AD6-4661-A01E-39EC65DBE0ED}';
RID_ListaAnosContratos = '{F3F8D4BD-B18A-4A3E-8CD8-7098AB7354F4}';
RID_ContratosClienteBeneficios = '{EE87669A-8D95-4B73-8490-DB3D437830CE}';
RID_ContratosCliente = '{1B049A44-386A-4448-9DEE-0D64E9FE675B}';
RID_TiposCapitulos = '{4879DEBF-3F00-4E6B-8ECD-F280C6C7CE97}';
RID_ContratosCliente_Detalles = '{EB73FF58-25E7-4EE4-A300-5A680E643BEF}';
RID_Valores = '{D5E5E35F-2DA7-48D2-A379-56EB76852FBC}';
RID_Propiedades = '{57E36EAD-2E69-4822-8D20-27E700CDA02A}';
RID_ListaAnosContratos = '{332766CB-3910-4BF6-8FE4-A4FC2C9401AD}';
RID_ContratosClienteBeneficios = '{7661D161-1EC2-47AE-B690-531646C455D7}';
RID_ContratosCliente = '{7BF6D9BC-9390-4F1D-BF55-65ABF0C0E538}';
RID_TiposCapitulos = '{30C7D945-8123-4220-80A8-053F36943EF7}';
RID_ContratosCliente_Detalles = '{12571A19-998F-484D-BB5E-EDF3F13F424C}';
{ Data table names }
nme_Valores = 'Valores';
@ -145,6 +145,8 @@ const
fld_ContratosClientePERS_CONTACTO_ENVIO = 'PERS_CONTACTO_ENVIO';
fld_ContratosClienteTLFS_ENVIO = 'TLFS_ENVIO';
fld_ContratosClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
fld_ContratosClienteENVIADA_REVISADA = 'ENVIADA_REVISADA';
fld_ContratosClienteID_CONTRATO_ASOCIADO = 'ID_CONTRATO_ASOCIADO';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -205,6 +207,8 @@ const
idx_ContratosClientePERS_CONTACTO_ENVIO = 55;
idx_ContratosClienteTLFS_ENVIO = 56;
idx_ContratosClienteNOTAS_ENVIO = 57;
idx_ContratosClienteENVIADA_REVISADA = 58;
idx_ContratosClienteID_CONTRATO_ASOCIADO = 59;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -267,7 +271,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{EF43DE60-2A6D-4967-B2E0-4312B10A9C9F}']
['{DC31F047-82DF-4D1E-9D34-58E8185C7777}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -293,7 +297,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -326,7 +330,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{F11E1B40-AFF4-47E8-A1F7-CAD3A0E4A6AB}']
['{AF55E67B-6949-47CD-941C-28EA29930113}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -352,7 +356,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -385,7 +389,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{46349C5B-F71D-431C-A735-F11E7A3C1350}']
['{A5F01DD2-681C-46B7-B1A5-F537E7A9C576}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -399,7 +403,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -420,7 +424,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{0A68189A-8072-48D6-BA23-067F376769C1}']
['{039CC4EF-AF47-47D9-BCD9-FD711CC078BD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -518,7 +522,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@ -623,7 +627,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{6A549924-8B4F-4B1D-81CA-DA317943A00E}']
['{F3FEC1BB-9BE8-4AAD-8E45-7F8FBDF849C7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -853,6 +857,14 @@ type
procedure SetNOTAS_ENVIOValue(const aValue: String);
function GetNOTAS_ENVIOIsNull: Boolean;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean);
function GetENVIADA_REVISADAValue: SmallInt;
procedure SetENVIADA_REVISADAValue(const aValue: SmallInt);
function GetENVIADA_REVISADAIsNull: Boolean;
procedure SetENVIADA_REVISADAIsNull(const aValue: Boolean);
function GetID_CONTRATO_ASOCIADOValue: Integer;
procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer);
function GetID_CONTRATO_ASOCIADOIsNull: Boolean;
procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean);
{ Properties }
@ -972,10 +984,14 @@ type
property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
property ENVIADA_REVISADA: SmallInt read GetENVIADA_REVISADAValue write SetENVIADA_REVISADAValue;
property ENVIADA_REVISADAIsNull: Boolean read GetENVIADA_REVISADAIsNull write SetENVIADA_REVISADAIsNull;
property ID_CONTRATO_ASOCIADO: Integer read GetID_CONTRATO_ASOCIADOValue write SetID_CONTRATO_ASOCIADOValue;
property ID_CONTRATO_ASOCIADOIsNull: Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -1215,6 +1231,14 @@ type
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
function GetNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
function GetENVIADA_REVISADAValue: SmallInt; virtual;
procedure SetENVIADA_REVISADAValue(const aValue: SmallInt); virtual;
function GetENVIADA_REVISADAIsNull: Boolean; virtual;
procedure SetENVIADA_REVISADAIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATO_ASOCIADOValue: Integer; virtual;
procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer); virtual;
function GetID_CONTRATO_ASOCIADOIsNull: Boolean; virtual;
procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1333,6 +1357,10 @@ type
property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
property ENVIADA_REVISADA: SmallInt read GetENVIADA_REVISADAValue write SetENVIADA_REVISADAValue;
property ENVIADA_REVISADAIsNull: Boolean read GetENVIADA_REVISADAIsNull write SetENVIADA_REVISADAIsNull;
property ID_CONTRATO_ASOCIADO: Integer read GetID_CONTRATO_ASOCIADOValue write SetID_CONTRATO_ASOCIADOValue;
property ID_CONTRATO_ASOCIADOIsNull: Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1345,7 +1373,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{F761F3C2-9B31-4A02-A5C3-1D334EE69BBD}']
['{55353FAD-BDD3-4139-8528-B14F80FA3250}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1389,7 +1417,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1440,7 +1468,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{F1CD06CF-FB34-40BF-BC97-A3E83ADDE130}']
['{58973079-33E4-4FD7-9D90-5022EB5FE0E1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1562,7 +1590,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -3454,6 +3482,48 @@ begin
DataTable.Fields[idx_ContratosClienteNOTAS_ENVIO].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetENVIADA_REVISADAValue: SmallInt;
begin
result := DataTable.Fields[idx_ContratosClienteENVIADA_REVISADA].AsSmallInt;
end;
procedure TContratosClienteDataTableRules.SetENVIADA_REVISADAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ContratosClienteENVIADA_REVISADA].AsSmallInt := aValue;
end;
function TContratosClienteDataTableRules.GetENVIADA_REVISADAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteENVIADA_REVISADA].IsNull;
end;
procedure TContratosClienteDataTableRules.SetENVIADA_REVISADAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteENVIADA_REVISADA].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetID_CONTRATO_ASOCIADOValue: Integer;
begin
result := DataTable.Fields[idx_ContratosClienteID_CONTRATO_ASOCIADO].AsInteger;
end;
procedure TContratosClienteDataTableRules.SetID_CONTRATO_ASOCIADOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContratosClienteID_CONTRATO_ASOCIADO].AsInteger := aValue;
end;
function TContratosClienteDataTableRules.GetID_CONTRATO_ASOCIADOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteID_CONTRATO_ASOCIADO].IsNull;
end;
procedure TContratosClienteDataTableRules.SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteID_CONTRATO_ASOCIADO].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

114
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{B9DAA5B8-1322-4CEB-B741-70F7BC6E9A8E}';
RID_PropiedadesDelta = '{1F284F33-34DF-4E13-A45F-713BCDDF8164}';
RID_ListaAnosContratosDelta = '{8F0DCEC5-2B14-45A5-A450-A24B93BDD01D}';
RID_ContratosClienteBeneficiosDelta = '{AAB9547B-E7A6-480B-9348-FDC3F1003F16}';
RID_ContratosClienteDelta = '{04D252BD-9E7C-4F91-943C-2626B89E0A14}';
RID_TiposCapitulosDelta = '{2878780D-74AD-452B-BC02-7536026055D3}';
RID_ContratosCliente_DetallesDelta = '{933F5E19-A12C-46C9-A3FA-5ED86FAFBD6A}';
RID_ValoresDelta = '{AB534F6D-5CB4-42AE-99A6-DB32A159786A}';
RID_PropiedadesDelta = '{0A5AD994-2440-429C-ABFF-1A05AF5DC3BD}';
RID_ListaAnosContratosDelta = '{C4285284-A679-4D2C-951A-917136D03E11}';
RID_ContratosClienteBeneficiosDelta = '{22C5CA7A-0598-4FF2-83F9-20D7A73F174B}';
RID_ContratosClienteDelta = '{540F2A27-DE58-4367-92D9-9033464DF39E}';
RID_TiposCapitulosDelta = '{46EF310E-1A4F-4C79-B660-A75D73C0ECF8}';
RID_ContratosCliente_DetallesDelta = '{83816E0E-FC42-447E-BEFB-CC135039BF11}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{B9DAA5B8-1322-4CEB-B741-70F7BC6E9A8E}']
['{AB534F6D-5CB4-42AE-99A6-DB32A159786A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{1F284F33-34DF-4E13-A45F-713BCDDF8164}']
['{0A5AD994-2440-429C-ABFF-1A05AF5DC3BD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{8F0DCEC5-2B14-45A5-A450-A24B93BDD01D}']
['{C4285284-A679-4D2C-951A-917136D03E11}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{AAB9547B-E7A6-480B-9348-FDC3F1003F16}']
['{22C5CA7A-0598-4FF2-83F9-20D7A73F174B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{04D252BD-9E7C-4F91-943C-2626B89E0A14}']
['{540F2A27-DE58-4367-92D9-9033464DF39E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -432,6 +432,8 @@ type
function GetOldPERS_CONTACTO_ENVIOValue : String;
function GetOldTLFS_ENVIOValue : String;
function GetOldNOTAS_ENVIOValue : String;
function GetOldENVIADA_REVISADAValue : SmallInt;
function GetOldID_CONTRATO_ASOCIADOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -492,6 +494,8 @@ type
property OldPERS_CONTACTO_ENVIO : String read GetOldPERS_CONTACTO_ENVIOValue;
property OldTLFS_ENVIO : String read GetOldTLFS_ENVIOValue;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
property OldENVIADA_REVISADA : SmallInt read GetOldENVIADA_REVISADAValue;
property OldID_CONTRATO_ASOCIADO : Integer read GetOldID_CONTRATO_ASOCIADOValue;
end;
{ TContratosClienteBusinessProcessorRules }
@ -851,6 +855,18 @@ type
function GetOldNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
function GetENVIADA_REVISADAValue: SmallInt; virtual;
function GetENVIADA_REVISADAIsNull: Boolean; virtual;
function GetOldENVIADA_REVISADAValue: SmallInt; virtual;
function GetOldENVIADA_REVISADAIsNull: Boolean; virtual;
procedure SetENVIADA_REVISADAValue(const aValue: SmallInt); virtual;
procedure SetENVIADA_REVISADAIsNull(const aValue: Boolean); virtual;
function GetID_CONTRATO_ASOCIADOValue: Integer; virtual;
function GetID_CONTRATO_ASOCIADOIsNull: Boolean; virtual;
function GetOldID_CONTRATO_ASOCIADOValue: Integer; virtual;
function GetOldID_CONTRATO_ASOCIADOIsNull: Boolean; virtual;
procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer); virtual;
procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1085,6 +1101,14 @@ type
property NOTAS_ENVIOIsNull : Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
property OldNOTAS_ENVIOIsNull : Boolean read GetOldNOTAS_ENVIOIsNull;
property ENVIADA_REVISADA : SmallInt read GetENVIADA_REVISADAValue write SetENVIADA_REVISADAValue;
property ENVIADA_REVISADAIsNull : Boolean read GetENVIADA_REVISADAIsNull write SetENVIADA_REVISADAIsNull;
property OldENVIADA_REVISADA : SmallInt read GetOldENVIADA_REVISADAValue;
property OldENVIADA_REVISADAIsNull : Boolean read GetOldENVIADA_REVISADAIsNull;
property ID_CONTRATO_ASOCIADO : Integer read GetID_CONTRATO_ASOCIADOValue write SetID_CONTRATO_ASOCIADOValue;
property ID_CONTRATO_ASOCIADOIsNull : Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
property OldID_CONTRATO_ASOCIADO : Integer read GetOldID_CONTRATO_ASOCIADOValue;
property OldID_CONTRATO_ASOCIADOIsNull : Boolean read GetOldID_CONTRATO_ASOCIADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1094,7 +1118,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{2878780D-74AD-452B-BC02-7536026055D3}']
['{46EF310E-1A4F-4C79-B660-A75D73C0ECF8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1188,7 +1212,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{933F5E19-A12C-46C9-A3FA-5ED86FAFBD6A}']
['{83816E0E-FC42-447E-BEFB-CC135039BF11}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -4006,6 +4030,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOTAS_ENVIO] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetENVIADA_REVISADAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteENVIADA_REVISADA];
end;
function TContratosClienteBusinessProcessorRules.GetENVIADA_REVISADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteENVIADA_REVISADA]);
end;
function TContratosClienteBusinessProcessorRules.GetOldENVIADA_REVISADAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteENVIADA_REVISADA];
end;
function TContratosClienteBusinessProcessorRules.GetOldENVIADA_REVISADAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteENVIADA_REVISADA]);
end;
procedure TContratosClienteBusinessProcessorRules.SetENVIADA_REVISADAValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteENVIADA_REVISADA] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetENVIADA_REVISADAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteENVIADA_REVISADA] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetID_CONTRATO_ASOCIADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO];
end;
function TContratosClienteBusinessProcessorRules.GetID_CONTRATO_ASOCIADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO]);
end;
function TContratosClienteBusinessProcessorRules.GetOldID_CONTRATO_ASOCIADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO];
end;
function TContratosClienteBusinessProcessorRules.GetOldID_CONTRATO_ASOCIADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO]);
end;
procedure TContratosClienteBusinessProcessorRules.SetID_CONTRATO_ASOCIADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

9
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -11,6 +11,13 @@ const
BIZ_CLIENT_CONTRATO_CLIENTE = 'Client.ContratoCliente';
BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS = 'Client.ContratosClienteBeneficios';
CONST_CONTRATO_DEFAULT = 0;
CONST_CONTRATO_ENVIADO_UECKO = 1;
CONST_CONTRATO_RECIBIDO_UECKO = 2;
CONST_CONTRATO_ACEPTADO_UECKO = 3;
CTE_EMPRESA_FABRICA = 1;
CTE_CLIENTE_PARA_FABRICA = 2000000005;
SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE';
SITUACION_CONTRATO_TERMINADO = 'TERMINADO';
@ -275,7 +282,7 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
ENVIADA_REVISADA := 0;
// Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
// Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;

69
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -513,6 +513,14 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'BASE_IMPONIBLE_FACTURAS'
TableField = 'BASE_IMPONIBLE_FACTURAS'
end
item
DatasetField = 'ENVIADA_REVISADA'
TableField = 'ENVIADA_REVISADA'
end
item
DatasetField = 'ID_CONTRATO_ASOCIADO'
TableField = 'ID_CONTRATO_ASOCIADO'
end>
end>
Name = 'ContratosCliente'
@ -829,6 +837,15 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'ENVIADA_REVISADA'
DataType = datSmallInt
ServerAutoRefresh = True
end
item
Name = 'ID_CONTRATO_ASOCIADO'
DataType = datInteger
end>
end
item
@ -1358,6 +1375,16 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ENVIADA_REVISADA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_CONTRATO_ASOCIADO'
DataType = datInteger
Value = ''
end>
Statements = <
item
@ -1376,19 +1403,20 @@ object srvContratosCliente: TsrvContratosCliente
'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' +
'E, PRECIO_PUNTO,'#10' ID_DIRECCION_ENVIO, CALLE_ENVIO, POBLACION' +
'_ENVIO, PROVINCIA_ENVIO, CODIGO_POSTAL_ENVIO,'#10' PERS_CONTACTO' +
'_ENVIO, TLFS_ENVIO, NOTAS_ENVIO'#10' )'#10' VALUES'#10' (:ID, :ID_EM' +
'PRESA, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :P' +
'OBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_C' +
'ONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVAC' +
'IONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' ' +
' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE' +
'_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_I' +
'VA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDO' +
'R, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' ' +
' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRE' +
'CIO_PUNTO,'#10' :ID_DIRECCION_ENVIO, :CALLE_ENVIO, :POBLACION_EN' +
'VIO, :PROVINCIA_ENVIO, :CODIGO_POSTAL_ENVIO,'#10' :PERS_CONTACTO' +
'_ENVIO, :TLFS_ENVIO, :NOTAS_ENVIO'#10' )'#10#10
'_ENVIO, TLFS_ENVIO, NOTAS_ENVIO, ENVIADA_REVISADA, ID_CONTRATO_A' +
'SOCIADO'#10' )'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF' +
'_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' ' +
' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FO' +
'RMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :IN' +
'CIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NE' +
'TO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_I' +
'MPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_' +
'FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :R' +
'E, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :' +
'TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO,'#10' :ID_DIRE' +
'CCION_ENVIO, :CALLE_ENVIO, :POBLACION_ENVIO, :PROVINCIA_ENVIO, :' +
'CODIGO_POSTAL_ENVIO,'#10' :PERS_CONTACTO_ENVIO, :TLFS_ENVIO, :NO' +
'TAS_ENVIO, :ENVIADA_REVISADA, :ID_CONTRATO_ASOCIADO'#10' )'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1697,6 +1725,16 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255
Value = ''
end
item
Name = 'ENVIADA_REVISADA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_CONTRATO_ASOCIADO'
DataType = datInteger
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1731,8 +1769,9 @@ object srvContratosCliente: TsrvContratosCliente
'IO,'#10' POBLACION_ENVIO = :POBLACION_ENVIO,'#10' PROVINCIA_ENVIO ' +
'= :PROVINCIA_ENVIO,'#10' CODIGO_POSTAL_ENVIO = :CODIGO_POSTAL_ENV' +
'IO,'#10' PERS_CONTACTO_ENVIO = :PERS_CONTACTO_ENVIO,'#10' TLFS_ENV' +
'IO = :TLFS_ENVIO,'#10' NOTAS_ENVIO = :NOTAS_ENVIO'#10#10' WHERE'#10' (I' +
'D = :OLD_ID)'#10#10
'IO = :TLFS_ENVIO,'#10' NOTAS_ENVIO = :NOTAS_ENVIO,'#10' ENVIADA_RE' +
'VISADA = :ENVIADA_REVISADA,'#10' ID_CONTRATO_ASOCIADO = :ID_CONTR' +
'ATO_ASOCIADO'#10#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

92
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -443,129 +443,93 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 1104
ExplicitWidth = 1104
inherited Bevel3: TBevel
Left = 515
Height = 122
ExplicitLeft = 515
ExplicitHeight = 122
Left = 624
ExplicitLeft = 624
end
inherited Bevel4: TBevel
Left = 627
Width = 210
ExplicitLeft = 627
ExplicitWidth = 210
end
inherited Bevel2: TBevel
Width = 333
ExplicitWidth = 333
Left = 736
ExplicitLeft = 736
end
inherited Bevel1: TBevel
Left = 534
Width = 332
ExplicitLeft = 534
ExplicitWidth = 332
Left = 643
ExplicitLeft = 643
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 698
Left = 807
Style.IsFontAssigned = True
ExplicitLeft = 698
ExplicitWidth = 137
Width = 137
ExplicitLeft = 807
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 628
Left = 737
Style.IsFontAssigned = True
ExplicitLeft = 628
ExplicitWidth = 137
Width = 137
ExplicitLeft = 737
end
inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
Left = 627
Left = 736
Style.IsFontAssigned = True
ExplicitLeft = 627
ExplicitLeft = 736
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 627
Left = 736
Style.IsFontAssigned = True
ExplicitLeft = 627
ExplicitWidth = 92
Width = 92
ExplicitLeft = 736
end
inherited edtRE: TcxDBSpinEdit
Left = 627
Left = 736
Style.IsFontAssigned = True
ExplicitLeft = 627
ExplicitLeft = 736
end
inherited edtIRPF: TcxDBSpinEdit
Left = 627
Left = 736
Style.IsFontAssigned = True
ExplicitLeft = 627
ExplicitLeft = 736
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 698
Left = 807
Style.IsFontAssigned = True
ExplicitLeft = 698
ExplicitWidth = 56
Width = 56
ExplicitLeft = 807
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 698
Left = 807
Style.IsFontAssigned = True
ExplicitLeft = 698
ExplicitWidth = 56
Width = 56
ExplicitLeft = 807
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 367
Left = 476
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 367
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
ExplicitLeft = 476
end
inherited edtRetencion: TcxDBSpinEdit
Left = 627
Left = 736
Style.IsFontAssigned = True
ExplicitLeft = 627
ExplicitLeft = 736
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 698
Left = 807
Style.IsFontAssigned = True
ExplicitLeft = 698
ExplicitWidth = 342
Width = 342
ExplicitLeft = 807
end
inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 333
Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup

27
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

@ -214,6 +214,8 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Action = actGenerarAlbaranCli
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem19: TTBXSeparatorItem
end
object TBXItem46: TTBXItem
Action = actInformes
end
@ -225,6 +227,18 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Action = actGenerarEtiquetas
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem20: TTBXSeparatorItem
end
object TBXItem48: TTBXItem
Action = actMandarFabrica
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem21: TTBXSeparatorItem
end
object TBXItem49: TTBXItem
Action = actTerminar
DisplayMode = nbdmImageAndText
end
end
end
inherited StatusBar: TJvStatusBar
@ -283,6 +297,19 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
OnExecute = actGenerarEtiquetasExecute
OnUpdate = actGenerarEtiquetasUpdate
end
object actMandarFabrica: TAction
Category = 'Acciones'
Caption = 'Mandar a Uecko'
ImageIndex = 26
OnExecute = actMandarFabricaExecute
OnUpdate = actMandarFabricaUpdate
end
object actTerminar: TAction
Caption = 'Terminar'
ImageIndex = 26
OnExecute = actTerminarExecute
OnUpdate = actTerminarUpdate
end
end
inherited SmallImages: TPngImageList
PngImages = <

89
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -47,6 +47,13 @@ type
JsNuevoContratoDialog: TJSDialog;
actGenerarEtiquetas: TAction;
TBXItem44: TTBXItem;
actMandarFabrica: TAction;
TBXItem48: TTBXItem;
TBXSeparatorItem19: TTBXSeparatorItem;
TBXSeparatorItem20: TTBXSeparatorItem;
actTerminar: TAction;
TBXItem49: TTBXItem;
TBXSeparatorItem21: TTBXSeparatorItem;
procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
@ -70,6 +77,10 @@ type
procedure bVariosClick(Sender: TObject);
procedure actGenerarEtiquetasExecute(Sender: TObject);
procedure actGenerarEtiquetasUpdate(Sender: TObject);
procedure actMandarFabricaExecute(Sender: TObject);
procedure actMandarFabricaUpdate(Sender: TObject);
procedure actTerminarExecute(Sender: TObject);
procedure actTerminarUpdate(Sender: TObject);
protected
FContratos: IBizContratoCliente;
@ -170,9 +181,10 @@ end;
procedure TfEditorContratosCliente.actAceptarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
{ (Sender as TAction).Enabled := HayDatos
and ViewGrid.esSeleccionCeldaDatos
and (FContratos.SITUACION <> SITUACION_CONTRATO_PENDIENTE);
}
end;
procedure TfEditorContratosCliente.actAnularExecute(Sender: TObject);
@ -359,6 +371,72 @@ begin
FController.VerListadoBeneficios;
end;
procedure TfEditorContratosCliente.actMandarFabricaExecute(Sender: TObject);
var
AContrato: IBizContratoCliente;
begin
inherited;
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contratos as ISeleccionable).SelectedRecords);
AContrato := (Controller as IContratosClienteController).ExtraerSeleccionados(Contratos) as IBizContratoCliente;
if (ShowConfirmMessage(Format('Mandar contrato %s a UECKO', [AContrato.REFERENCIA]), Format('Una vez enviado, no podrar realizar cambios sobre el documento ya que no se verían en fábrica, ¿desea continuar?', [])) = IDYES) then
if FController.MandarFabrica(AContrato) then
begin
actRefrescar.Execute;
ShowInfoMessage('El contrato ha sido enviado correctamente');
end;
end;
procedure TfEditorContratosCliente.actMandarFabricaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and ViewGrid.esSeleccionCeldaDatos
and (FContratos.ENVIADA_REVISADA = CONST_CONTRATO_DEFAULT );
end;
procedure TfEditorContratosCliente.actTerminarExecute(Sender: TObject);
var
AContratos: IBizContratoCliente;
AllItems: Boolean;
begin
inherited;
AContratos := Nil;
AllItems := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contratos as ISeleccionable).SelectedRecords);
AContratos := (Controller as IContratosClienteController).ExtraerSeleccionados(Contratos) as IBizContratoCliente;
end
else begin
AContratos := Contratos;
end;
ViewGrid._Grid.BeginUpdate;
if Assigned(AContratos) then
begin
FController.CambiarSituacion(AContratos, SITUACION_CONTRATO_TERMINADO, now, AllItems);
actRefrescar.Execute;
end;
ViewGrid._Grid.EndUpdate;
end;
procedure TfEditorContratosCliente.actTerminarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := HayDatos
and ViewGrid.esSeleccionCeldaDatos
and (FContratos.SITUACION <> SITUACION_CONTRATO_TERMINADO);
end;
procedure TfEditorContratosCliente.AsignarVista;
begin
ViewGrid := CreateView(TfrViewContratosCliente) as IViewContratosCliente;
@ -495,6 +573,15 @@ begin
if not Assigned(Contratos) then
raise Exception.Create('No hay ningún Presupuesto asignado');
//En el caso de fabrica se verá una nueva pestaña y en el caso de graden se verá un botón de envio a fabrica.
if (AppFactuGES.EmpresaActiva.ID = 1) then
begin
actMandarFabrica.Visible := False;
end
else begin
actMandarFabrica.Visible := True;
end;
Contratos.DataTable.Active := True;
ViewGrid.GotoFirst;
end;

58
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -1,6 +1,7 @@
inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903
Height = 525
OnShow = CustomViewShow
ExplicitWidth = 903
ExplicitHeight = 525
inherited cxGrid: TcxGrid
@ -61,6 +62,31 @@ inherited frViewContratosCliente: TfrViewContratosCliente
VisibleForCustomization = False
Width = 20
end
object cxGridViewENVIADA_REVISADA: TcxGridDBColumn
DataBinding.FieldName = 'ENVIADA_REVISADA'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Value = 0
end
item
Description = 'Enviado'
ImageIndex = 4
Value = 1
end
item
Description = 'Recibido'
ImageIndex = 2
Value = 2
end
item
Description = 'Aprobado'
ImageIndex = 4
Value = 3
end>
IsCaptionAssigned = True
end
object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA'
@ -81,7 +107,9 @@ inherited frViewContratosCliente: TfrViewContratosCliente
end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO'
Visible = False
BestFitMaxWidth = 25
VisibleForCustomization = False
Width = 55
end
object cxGridViewSITUACION: TcxGridDBColumn
@ -159,6 +187,9 @@ inherited frViewContratosCliente: TfrViewContratosCliente
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
end
object cxGridLevelPendientesRevisar: TcxGridLevel
Caption = 'Pendientes Revisi'#243'n - Graden'
end
object cxGridLevelPendientes: TcxGridLevel
Caption = 'Pendientes'
end
@ -528,6 +559,29 @@ inherited frViewContratosCliente: TfrViewContratosCliente
CF0000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
49454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end>
Bitmap = {}
end
@ -550,5 +604,9 @@ inherited frViewContratosCliente: TfrViewContratosCliente
AssignedValues = [svTextColor]
TextColor = clBlack
end
object cxStylePENDIENTESREVISION: TcxStyle
AssignedValues = [svTextColor]
TextColor = clMaroon
end
end
end

25
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -54,6 +54,9 @@ type
cxGridViewBASE_IMPONIBLE_FACTURAS: TcxGridDBColumn;
cxStylePENDIENTESYFACTURADASOK: TcxStyle;
cxGridViewTIENDA: TcxGridDBColumn;
cxGridLevelPendientesRevisar: TcxGridLevel;
cxStylePENDIENTESREVISION: TcxStyle;
cxGridViewENVIADA_REVISADA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -74,6 +77,7 @@ type
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
private
//Filtros relativos a la vista
@ -167,8 +171,9 @@ begin
FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO);
1 : FFiltro.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '2', '2');
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO);
end;
end;
@ -197,6 +202,20 @@ begin
cxGridViewTIENDA.Visible := False;
end;
procedure TfrViewContratosCliente.CustomViewShow(Sender: TObject);
begin
inherited;
//En el caso de fabrica se verá una nueva pestaña y en el caso de graden se verá un botón de envio a fabrica.
if (AppFactuGES.EmpresaActiva.ID = 1) then
begin
cxGridLevelPendientesRevisar.Visible := True;
end
else begin
cxGridLevelPendientesRevisar.Visible := False;
end;
end;
procedure TfrViewContratosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
begin
inherited;
@ -270,6 +289,8 @@ begin
IndiceCol4 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]);
AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor;
if ASituacion = SITUACION_CONTRATO_PENDIENTE then
begin
if (AFacturas = '') then

12
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
View File

@ -49,12 +49,12 @@
<DelphiCompile Include="PresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorDocumentos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\PresupuestosCliente_data.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosPresupuestoClienteController.pas" />
<DCCReference Include="uDetallesPresupuestoClienteController.pas" />
<DCCReference Include="uPresupuestosClienteController.pas" />

18
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -52,15 +52,15 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -138,8 +138,6 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
srvTiposOperacionCompra_Impl in '..\Modulos\Tipos de operacion compra\Servidor\srvTiposOperacionCompra_Impl.pas' {srvTiposOperacionCompra: TDataAbstractService},
schTiposOperacionCompraClient_Intf in '..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraClient_Intf.pas',
schTiposOperacionCompraServer_Intf in '..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraServer_Intf.pas',
@ -155,7 +153,9 @@ uses
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

684
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,337 +1,342 @@
<?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>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<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">3</VersionInfo><VersionInfo Name="MinorVer">9</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">3.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.9.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 20 de mayo de 2022 18:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\Configuracion\uTypesConstConfiguration.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uNumUtils.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\uBizReferenciasServer.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
<Form>srvSubfamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas">
<Form>srvTarifas</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de operacion compra\Servidor\srvTiposOperacionCompra_Impl.pas">
<Form>srvTiposOperacionCompra</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de operacion venta\Servidor\srvTiposOperacionVenta_Impl.pas">
<Form>srvTiposOperacionVenta</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<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">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 24 de junio de 2022 11:31</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\Configuracion\uTypesConstConfiguration.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uNumUtils.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
<Form>RptAlbaranesProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\uBizReferenciasServer.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
<Form>RptRemesasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
<Form>RptRemesasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Subfamilias\Servidor\srvSubfamilias_Impl.pas">
<Form>srvSubfamilias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas">
<Form>srvTarifas</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de operacion compra\Servidor\srvTiposOperacionCompra_Impl.pas">
<Form>srvTiposOperacionCompra</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de operacion venta\Model\schTiposOperacionVentaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de operacion venta\Servidor\srvTiposOperacionVenta_Impl.pas">
<Form>srvTiposOperacionVenta</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
@ -342,11 +347,11 @@ Save Log File=1
Foreground Tab=0
Freeze Activate=1
Freeze Timeout=10
SMTP From=info@uecko.com
SMTP Host=mail.uecko.com
SMTP From=info@rodax%2Dsoftware.com
SMTP Host=mail.rodax%2Dsoftware.com
SMTP Port=587
SMTP UserID=info@uecko.com
SMTP Password=SECret13
SMTP UserID=info@rodax%2Dsoftware.com
SMTP Password=*Golondrinas2020+1
Append to Log=0
TerminateBtn Operation=1
Errors Number=32
@ -399,7 +404,7 @@ PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=0
Count=0
EMail Message Line Count=0
EMail Message Line Count=1
loNoDuplicateErrors=1
loAppendReproduceText=1
loDeleteLogAtVersionChange=1
@ -456,7 +461,7 @@ soNetDHCP=1
soCustomData=1
sndShowSendDialog=0
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendEntireLog=1
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=1
@ -815,4 +820,5 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=
Line0="Servidor error"
EurekaLog Last Line -->

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.