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> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <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> <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\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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,54 +65,54 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

1
Source/Cliente/FactuGES.dpr
View File

@ -1,6 +1,7 @@
program FactuGES; program FactuGES;
uses uses
ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, 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_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_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_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_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_MapFile>3</DCC_MapFile>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
@ -80,24 +89,24 @@
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006
Activate=0 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1
Foreground Tab=0 Foreground Tab=0
Freeze Activate=0 Freeze Activate=0
Freeze Timeout=60 Freeze Timeout=60
SMTP From=eurekalog@email.com SMTP From=info@rodax%2Dsoftware.com
SMTP Host= SMTP Host=mail.rodax%2Dsoftware.com
SMTP Port=25 SMTP Port=587
SMTP UserID= SMTP UserID=info@rodax%2Dsoftware.com
SMTP Password= SMTP Password=*Golondrinas2020+1
Append to Log=0 Append to Log=0
TerminateBtn Operation=2 TerminateBtn Operation=2
Errors Number=32 Errors Number=8
Errors Terminate=3 Errors Terminate=3
Email Address= Email Address=soporte@rodax%2Dsoftware.com
Email Object= Email Object=Uecko Factuges Client
Email Send Options=0 Email Send Options=2
Output Path= Output Path=
Encrypt Password= Encrypt Password=
AutoCloseDialogSecs=0 AutoCloseDialogSecs=0
@ -141,15 +150,15 @@ ZipPassword=
PreBuildEvent= PreBuildEvent=
PostSuccessfulBuildEvent= PostSuccessfulBuildEvent=
PostFailureBuildEvent= PostFailureBuildEvent=
ExceptionDialogType=2 ExceptionDialogType=3
Count=0 Count=0
EMail Message Line Count=0 EMail Message Line Count=1
loNoDuplicateErrors=0 loNoDuplicateErrors=0
loAppendReproduceText=0 loAppendReproduceText=0
loDeleteLogAtVersionChange=0 loDeleteLogAtVersionChange=1
loAddComputerNameInLogFileName=0 loAddComputerNameInLogFileName=1
loSaveModulesAndProcessesSections=1 loSaveModulesAndProcessesSections=0
loSaveAssemblerAndCPUSections=1 loSaveAssemblerAndCPUSections=0
soAppStartDate=1 soAppStartDate=1
soAppName=1 soAppName=1
soAppVersionNumber=1 soAppVersionNumber=1
@ -168,9 +177,9 @@ soExcStatus=1
soExcNote=1 soExcNote=1
soUserID=1 soUserID=1
soUserName=1 soUserName=1
soUserEmail=1 soUserEmail=0
soUserPrivileges=1 soUserPrivileges=0
soUserCompany=1 soUserCompany=0
soActCtlsFormClass=1 soActCtlsFormClass=1
soActCtlsFormText=1 soActCtlsFormText=1
soActCtlsControlClass=1 soActCtlsControlClass=1
@ -182,10 +191,10 @@ soCmpTotalDisk=1
soCmpFreeDisk=1 soCmpFreeDisk=1
soCmpSysUpTime=1 soCmpSysUpTime=1
soCmpProcessor=1 soCmpProcessor=1
soCmpDisplayMode=1 soCmpDisplayMode=0
soCmpDisplayDPI=1 soCmpDisplayDPI=0
soCmpVideoCard=1 soCmpVideoCard=0
soCmpPrinter=1 soCmpPrinter=0
soOSType=1 soOSType=1
soOSBuildN=1 soOSBuildN=1
soOSUpdate=1 soOSUpdate=1
@ -198,16 +207,16 @@ soNetDNS1=1
soNetDNS2=1 soNetDNS2=1
soNetDHCP=1 soNetDHCP=1
soCustomData=1 soCustomData=1
sndShowSendDialog=1 sndShowSendDialog=0
sndShowSuccessFailureMsg=0 sndShowSuccessFailureMsg=0
sndSendEntireLog=0 sndSendEntireLog=1
sndSendXMLLogCopy=0 sndSendXMLLogCopy=0
sndSendScreenshot=1 sndSendScreenshot=1
sndUseOnlyActiveWindow=0 sndUseOnlyActiveWindow=1
sndSendLastHTMLPage=1 sndSendLastHTMLPage=1
sndSendInSeparatedThread=0 sndSendInSeparatedThread=1
sndAddDateInFileName=0 sndAddDateInFileName=1
sndAddComputerNameInFileName=0 sndAddComputerNameInFileName=1
edoSendErrorReportChecked=1 edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1 edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1 edoShowCopyToClipOption=1
@ -232,7 +241,7 @@ boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1 boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0 boCallRTLExceptionEvent=0
boCatchHandledExceptions=0 boCatchHandledExceptions=0
loCatchLeaks=0 loCatchLeaks=1
loGroupsSonLeaks=1 loGroupsSonLeaks=1
loHideBorlandLeaks=1 loHideBorlandLeaks=1
loFreeAllLeaks=1 loFreeAllLeaks=1
@ -559,4 +568,5 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection= TextsCollection=
Line0="Error FactuGES en %%ComputerName%% con usuario %%UserName%%"
EurekaLog Last Line --> 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"> <DelphiCompile Include="Articulos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_data.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_data.dcp" />
<DCCReference Include="..\..\Lib\Articulos_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\Tarifas_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Tarifas_controller.dcp" />
<DCCReference Include="uArticulosController.pas" /> <DCCReference Include="uArticulosController.pas" />
<DCCReference Include="uControllerDetallesArticulos.pas" /> <DCCReference Include="uControllerDetallesArticulos.pas" />
<DCCReference Include="View\uIEditorArticulo.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"> <DelphiCompile Include="Articulos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_model.dcp" />
<DCCReference Include="uDataModuleArticulos.pas"> <DCCReference Include="uDataModuleArticulos.pas">
<Form>DataModuleArticulos</Form> <Form>DataModuleArticulos</Form>
</DCCReference> </DCCReference>

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

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

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

@ -53,19 +53,19 @@
<DelphiCompile Include="Contactos_controller.dpk"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_data.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\designide.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\xmlrtl.dcp" />
<DCCReference Include="uClientesController.pas" /> <DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" /> <DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.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 Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean); procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean); procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
function darClienteGraden(const ID: Integer): IBizContacto;
end; end;
TClientesController = class(TContactosController, IClientesController) TClientesController = class(TContactosController, IClientesController)
@ -51,6 +53,8 @@ type
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false); procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean); procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean); procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
function darClienteGraden(const ID: Integer): IBizContacto;
end; end;
implementation implementation
@ -101,6 +105,11 @@ begin
FDireccionesController := TDireccionesContactoController.Create; FDireccionesController := TDireccionesContactoController.Create;
end; end;
function TClientesController.darClienteGraden(const ID: Integer): IBizContacto;
begin
Result := (FDataModule as IDataModuleClientes).GetItem(ID);
end;
destructor TClientesController.Destroy; destructor TClientesController.Destroy;
begin begin
FDireccionesController := NIL; FDireccionesController := NIL;

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

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

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

@ -49,27 +49,29 @@
<DelphiCompile Include="Contactos_model.dpk"> <DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </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="..\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\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" /> <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" /> <DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="Data\uIDataModuleVendedores.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="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" /> <DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="uBizClientesDescuentos.pas" /> <DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizContactos.pas" /> <DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" /> <DCCReference Include="uBizContactosDatosBancarios.pas" />
@ -80,8 +82,6 @@
<DCCReference Include="uBizGruposProveedor.pas" /> <DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizProcedenciasCliente.pas" /> <DCCReference Include="uBizProcedenciasCliente.pas" />
<DCCReference Include="uBizSubCuentasContacto.pas" /> <DCCReference Include="uBizSubCuentasContacto.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -47,41 +47,41 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\bdertl.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxEditorsD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\cxLibraryD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_model.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GestorInformes_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JclVcl.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JvCoreD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JvGlobusD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\JvSystemD11R.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <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="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.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 cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" /> <Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.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\Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" /> <Projects Include="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.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 cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_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" /> <Projects Include="..\Relaciones\Contratos de cliente - Albaranes de cliente\ConCli_AlbCli_relation.dproj" />
@ -341,14 +343,32 @@
<Target Name="AlbProv_FacProv_relation:Make"> <Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" /> <MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

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

72
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 FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente); procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
function MandarFabrica(AContrato: IBizContratoCliente): Boolean;
end; end;
TContratosClienteController = class(TControllerBase, IContratosClienteController) TContratosClienteController = class(TControllerBase, IContratosClienteController)
@ -154,6 +156,8 @@ type
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
procedure VerListadoBeneficios; procedure VerListadoBeneficios;
procedure VerDireccionEntrega(AContrato : IBizContratoCliente); procedure VerDireccionEntrega(AContrato : IBizContratoCliente);
function MandarFabrica(AContrato: IBizContratoCliente): Boolean;
end; end;
implementation implementation
@ -980,7 +984,7 @@ begin
if not Assigned(AContrato) then if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado: EsEliminable'); raise Exception.Create ('Contrato no asignado: EsEliminable');
Result := True; Result := (AContrato.SITUACION = SITUACION_CONTRATO_PENDIENTE) AND (AContrato.ENVIADA_REVISADA = CONST_CONTRATO_DEFAULT);
end; end;
function TContratosClienteController.EsModificable(AContrato: IBizContratoCliente): Boolean; function TContratosClienteController.EsModificable(AContrato: IBizContratoCliente): Boolean;
@ -988,7 +992,7 @@ begin
if not Assigned(AContrato) then if not Assigned(AContrato) then
raise Exception.Create ('Contrato no asignado (EsModificable)'); raise Exception.Create ('Contrato no asignado (EsModificable)');
Result := True; Result := (AContrato.SITUACION = SITUACION_CONTRATO_PENDIENTE) AND (AContrato.ENVIADA_REVISADA <> CONST_CONTRATO_ENVIADO_UECKO);
end; end;
procedure TContratosClienteController.EtiquetasPreview(AContrato: IBizContratoCliente; const AAgencia, AReferencia: String; procedure TContratosClienteController.EtiquetasPreview(AContrato: IBizContratoCliente; const AAgencia, AReferencia: String;
@ -1305,6 +1309,70 @@ begin
end; end;
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; function TContratosClienteController.Nuevo(WithInsert: Boolean): IBizContratoCliente;
var var
AContrato : IBizContratoCliente; AContrato : IBizContratoCliente;

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

@ -81,8 +81,10 @@ begin
try try
// AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo); // AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
// ActualizarDetalles(ADetalles, AArticulos); // ActualizarDetalles(ADetalles, AArticulos);
RecalcularPrecioPuntoDetalles(ACliente.PRECIO_PUNTO, ADetalles);
ActualizarDetalles(ADetalles, ACliente.DESCUENTO_LINEA); 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 finally
AArticulos := Nil; AArticulos := Nil;
end; end;

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

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

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

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{1EA3F60D-DF1C-4BFB-9030-AA56BB46C139}'; RID_Valores = '{D5E5E35F-2DA7-48D2-A379-56EB76852FBC}';
RID_Propiedades = '{BE2F2498-4AD6-4661-A01E-39EC65DBE0ED}'; RID_Propiedades = '{57E36EAD-2E69-4822-8D20-27E700CDA02A}';
RID_ListaAnosContratos = '{F3F8D4BD-B18A-4A3E-8CD8-7098AB7354F4}'; RID_ListaAnosContratos = '{332766CB-3910-4BF6-8FE4-A4FC2C9401AD}';
RID_ContratosClienteBeneficios = '{EE87669A-8D95-4B73-8490-DB3D437830CE}'; RID_ContratosClienteBeneficios = '{7661D161-1EC2-47AE-B690-531646C455D7}';
RID_ContratosCliente = '{1B049A44-386A-4448-9DEE-0D64E9FE675B}'; RID_ContratosCliente = '{7BF6D9BC-9390-4F1D-BF55-65ABF0C0E538}';
RID_TiposCapitulos = '{4879DEBF-3F00-4E6B-8ECD-F280C6C7CE97}'; RID_TiposCapitulos = '{30C7D945-8123-4220-80A8-053F36943EF7}';
RID_ContratosCliente_Detalles = '{EB73FF58-25E7-4EE4-A300-5A680E643BEF}'; RID_ContratosCliente_Detalles = '{12571A19-998F-484D-BB5E-EDF3F13F424C}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -145,6 +145,8 @@ const
fld_ContratosClientePERS_CONTACTO_ENVIO = 'PERS_CONTACTO_ENVIO'; fld_ContratosClientePERS_CONTACTO_ENVIO = 'PERS_CONTACTO_ENVIO';
fld_ContratosClienteTLFS_ENVIO = 'TLFS_ENVIO'; fld_ContratosClienteTLFS_ENVIO = 'TLFS_ENVIO';
fld_ContratosClienteNOTAS_ENVIO = 'NOTAS_ENVIO'; fld_ContratosClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
fld_ContratosClienteENVIADA_REVISADA = 'ENVIADA_REVISADA';
fld_ContratosClienteID_CONTRATO_ASOCIADO = 'ID_CONTRATO_ASOCIADO';
{ ContratosCliente field indexes } { ContratosCliente field indexes }
idx_ContratosClienteID = 0; idx_ContratosClienteID = 0;
@ -205,6 +207,8 @@ const
idx_ContratosClientePERS_CONTACTO_ENVIO = 55; idx_ContratosClientePERS_CONTACTO_ENVIO = 55;
idx_ContratosClienteTLFS_ENVIO = 56; idx_ContratosClienteTLFS_ENVIO = 56;
idx_ContratosClienteNOTAS_ENVIO = 57; idx_ContratosClienteNOTAS_ENVIO = 57;
idx_ContratosClienteENVIADA_REVISADA = 58;
idx_ContratosClienteID_CONTRATO_ASOCIADO = 59;
{ TiposCapitulos fields } { TiposCapitulos fields }
fld_TiposCapitulosID = 'ID'; fld_TiposCapitulosID = 'ID';
@ -267,7 +271,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{EF43DE60-2A6D-4967-B2E0-4312B10A9C9F}'] ['{DC31F047-82DF-4D1E-9D34-58E8185C7777}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -293,7 +297,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) TValoresDataTableRules = class(TDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -326,7 +330,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{F11E1B40-AFF4-47E8-A1F7-CAD3A0E4A6AB}'] ['{AF55E67B-6949-47CD-941C-28EA29930113}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -352,7 +356,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -385,7 +389,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{46349C5B-F71D-431C-A735-F11E7A3C1350}'] ['{A5F01DD2-681C-46B7-B1A5-F537E7A9C576}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -399,7 +403,7 @@ type
end; end;
{ TListaAnosContratosDataTableRules } { TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos) TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -420,7 +424,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{0A68189A-8072-48D6-BA23-067F376769C1}'] ['{039CC4EF-AF47-47D9-BCD9-FD711CC078BD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -518,7 +522,7 @@ type
end; end;
{ TContratosClienteBeneficiosDataTableRules } { TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios) TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -623,7 +627,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{6A549924-8B4F-4B1D-81CA-DA317943A00E}'] ['{F3FEC1BB-9BE8-4AAD-8E45-7F8FBDF849C7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -853,6 +857,14 @@ type
procedure SetNOTAS_ENVIOValue(const aValue: String); procedure SetNOTAS_ENVIOValue(const aValue: String);
function GetNOTAS_ENVIOIsNull: Boolean; function GetNOTAS_ENVIOIsNull: Boolean;
procedure SetNOTAS_ENVIOIsNull(const aValue: 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 } { Properties }
@ -972,10 +984,14 @@ type
property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull; property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue; property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull; 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; end;
{ TContratosClienteDataTableRules } { TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente) TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private private
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
@ -1215,6 +1231,14 @@ type
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual; procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
function GetNOTAS_ENVIOIsNull: Boolean; virtual; function GetNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1333,6 +1357,10 @@ type
property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull; property TLFS_ENVIOIsNull: Boolean read GetTLFS_ENVIOIsNull write SetTLFS_ENVIOIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue; property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1345,7 +1373,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{F761F3C2-9B31-4A02-A5C3-1D334EE69BBD}'] ['{55353FAD-BDD3-4139-8528-B14F80FA3250}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1389,7 +1417,7 @@ type
end; end;
{ TTiposCapitulosDataTableRules } { TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos) TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1440,7 +1468,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{F1CD06CF-FB34-40BF-BC97-A3E83ADDE130}'] ['{58973079-33E4-4FD7-9D90-5022EB5FE0E1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1562,7 +1590,7 @@ type
end; end;
{ TContratosCliente_DetallesDataTableRules } { TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles) TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3454,6 +3482,48 @@ begin
DataTable.Fields[idx_ContratosClienteNOTAS_ENVIO].AsVariant := Null; DataTable.Fields[idx_ContratosClienteNOTAS_ENVIO].AsVariant := Null;
end; 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 } { TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{B9DAA5B8-1322-4CEB-B741-70F7BC6E9A8E}'; RID_ValoresDelta = '{AB534F6D-5CB4-42AE-99A6-DB32A159786A}';
RID_PropiedadesDelta = '{1F284F33-34DF-4E13-A45F-713BCDDF8164}'; RID_PropiedadesDelta = '{0A5AD994-2440-429C-ABFF-1A05AF5DC3BD}';
RID_ListaAnosContratosDelta = '{8F0DCEC5-2B14-45A5-A450-A24B93BDD01D}'; RID_ListaAnosContratosDelta = '{C4285284-A679-4D2C-951A-917136D03E11}';
RID_ContratosClienteBeneficiosDelta = '{AAB9547B-E7A6-480B-9348-FDC3F1003F16}'; RID_ContratosClienteBeneficiosDelta = '{22C5CA7A-0598-4FF2-83F9-20D7A73F174B}';
RID_ContratosClienteDelta = '{04D252BD-9E7C-4F91-943C-2626B89E0A14}'; RID_ContratosClienteDelta = '{540F2A27-DE58-4367-92D9-9033464DF39E}';
RID_TiposCapitulosDelta = '{2878780D-74AD-452B-BC02-7536026055D3}'; RID_TiposCapitulosDelta = '{46EF310E-1A4F-4C79-B660-A75D73C0ECF8}';
RID_ContratosCliente_DetallesDelta = '{933F5E19-A12C-46C9-A3FA-5ED86FAFBD6A}'; RID_ContratosCliente_DetallesDelta = '{83816E0E-FC42-447E-BEFB-CC135039BF11}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{B9DAA5B8-1322-4CEB-B741-70F7BC6E9A8E}'] ['{AB534F6D-5CB4-42AE-99A6-DB32A159786A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{1F284F33-34DF-4E13-A45F-713BCDDF8164}'] ['{0A5AD994-2440-429C-ABFF-1A05AF5DC3BD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{8F0DCEC5-2B14-45A5-A450-A24B93BDD01D}'] ['{C4285284-A679-4D2C-951A-917136D03E11}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{AAB9547B-E7A6-480B-9348-FDC3F1003F16}'] ['{22C5CA7A-0598-4FF2-83F9-20D7A73F174B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{04D252BD-9E7C-4F91-943C-2626B89E0A14}'] ['{540F2A27-DE58-4367-92D9-9033464DF39E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -432,6 +432,8 @@ type
function GetOldPERS_CONTACTO_ENVIOValue : String; function GetOldPERS_CONTACTO_ENVIOValue : String;
function GetOldTLFS_ENVIOValue : String; function GetOldTLFS_ENVIOValue : String;
function GetOldNOTAS_ENVIOValue : String; function GetOldNOTAS_ENVIOValue : String;
function GetOldENVIADA_REVISADAValue : SmallInt;
function GetOldID_CONTRATO_ASOCIADOValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -492,6 +494,8 @@ type
property OldPERS_CONTACTO_ENVIO : String read GetOldPERS_CONTACTO_ENVIOValue; property OldPERS_CONTACTO_ENVIO : String read GetOldPERS_CONTACTO_ENVIOValue;
property OldTLFS_ENVIO : String read GetOldTLFS_ENVIOValue; property OldTLFS_ENVIO : String read GetOldTLFS_ENVIOValue;
property OldNOTAS_ENVIO : String read GetOldNOTAS_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; end;
{ TContratosClienteBusinessProcessorRules } { TContratosClienteBusinessProcessorRules }
@ -851,6 +855,18 @@ type
function GetOldNOTAS_ENVIOIsNull: Boolean; virtual; function GetOldNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual; procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1085,6 +1101,14 @@ type
property NOTAS_ENVIOIsNull : Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull; property NOTAS_ENVIOIsNull : Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue; property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
property OldNOTAS_ENVIOIsNull : Boolean read GetOldNOTAS_ENVIOIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1094,7 +1118,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{2878780D-74AD-452B-BC02-7536026055D3}'] ['{46EF310E-1A4F-4C79-B660-A75D73C0ECF8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1188,7 +1212,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{933F5E19-A12C-46C9-A3FA-5ED86FAFBD6A}'] ['{83816E0E-FC42-447E-BEFB-CC135039BF11}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -4006,6 +4030,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOTAS_ENVIO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOTAS_ENVIO] := Null;
end; 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 } { TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); 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_CONTRATO_CLIENTE = 'Client.ContratoCliente';
BIZ_CLIENT_CONTRATOS_CLIENTE_BENEFICIOS = 'Client.ContratosClienteBeneficios'; 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_PENDIENTE = 'PENDIENTE';
SITUACION_CONTRATO_TERMINADO = 'TERMINADO'; SITUACION_CONTRATO_TERMINADO = 'TERMINADO';
@ -275,7 +282,7 @@ begin
ID_TIENDA := AppFactuGES.TiendaActiva.ID; ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
ENVIADA_REVISADA := 0;
// Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; // Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
// Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; // 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 item
DatasetField = 'BASE_IMPONIBLE_FACTURAS' DatasetField = 'BASE_IMPONIBLE_FACTURAS'
TableField = '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>
end> end>
Name = 'ContratosCliente' Name = 'ContratosCliente'
@ -829,6 +837,15 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'NOTAS_ENVIO' Name = 'NOTAS_ENVIO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ENVIADA_REVISADA'
DataType = datSmallInt
ServerAutoRefresh = True
end
item
Name = 'ID_CONTRATO_ASOCIADO'
DataType = datInteger
end> end>
end end
item item
@ -1358,6 +1375,16 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end
item
Name = 'ENVIADA_REVISADA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_CONTRATO_ASOCIADO'
DataType = datInteger
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1376,19 +1403,20 @@ object srvContratosCliente: TsrvContratosCliente
'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' + 'VALENCIA, TELEFONO, MOVIL, TIPO_CONTRATO,'#10' REFERENCIA_CLIENT' +
'E, PRECIO_PUNTO,'#10' ID_DIRECCION_ENVIO, CALLE_ENVIO, POBLACION' + 'E, PRECIO_PUNTO,'#10' ID_DIRECCION_ENVIO, CALLE_ENVIO, POBLACION' +
'_ENVIO, PROVINCIA_ENVIO, CODIGO_POSTAL_ENVIO,'#10' PERS_CONTACTO' + '_ENVIO, PROVINCIA_ENVIO, CODIGO_POSTAL_ENVIO,'#10' PERS_CONTACTO' +
'_ENVIO, TLFS_ENVIO, NOTAS_ENVIO'#10' )'#10' VALUES'#10' (:ID, :ID_EM' + '_ENVIO, TLFS_ENVIO, NOTAS_ENVIO, ENVIADA_REVISADA, ID_CONTRATO_A' +
'PRESA, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :P' + 'SOCIADO'#10' )'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF' +
'OBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_C' + '_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10' ' +
'ONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVAC' + ' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FO' +
'IONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' ' + 'RMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :IN' +
' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE' + 'CIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NE' +
'_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_I' + 'TO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_I' +
'VA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDO' + 'MPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_' +
'R, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' ' + 'FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :R' +
' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRE' + 'E, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :' +
'CIO_PUNTO,'#10' :ID_DIRECCION_ENVIO, :CALLE_ENVIO, :POBLACION_EN' + 'TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO,'#10' :ID_DIRE' +
'VIO, :PROVINCIA_ENVIO, :CODIGO_POSTAL_ENVIO,'#10' :PERS_CONTACTO' + 'CCION_ENVIO, :CALLE_ENVIO, :POBLACION_ENVIO, :PROVINCIA_ENVIO, :' +
'_ENVIO, :TLFS_ENVIO, :NOTAS_ENVIO'#10' )'#10#10 'CODIGO_POSTAL_ENVIO,'#10' :PERS_CONTACTO_ENVIO, :TLFS_ENVIO, :NO' +
'TAS_ENVIO, :ENVIADA_REVISADA, :ID_CONTRATO_ASOCIADO'#10' )'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1697,6 +1725,16 @@ object srvContratosCliente: TsrvContratosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'ENVIADA_REVISADA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_CONTRATO_ASOCIADO'
DataType = datInteger
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1731,8 +1769,9 @@ object srvContratosCliente: TsrvContratosCliente
'IO,'#10' POBLACION_ENVIO = :POBLACION_ENVIO,'#10' PROVINCIA_ENVIO ' + 'IO,'#10' POBLACION_ENVIO = :POBLACION_ENVIO,'#10' PROVINCIA_ENVIO ' +
'= :PROVINCIA_ENVIO,'#10' CODIGO_POSTAL_ENVIO = :CODIGO_POSTAL_ENV' + '= :PROVINCIA_ENVIO,'#10' CODIGO_POSTAL_ENVIO = :CODIGO_POSTAL_ENV' +
'IO,'#10' PERS_CONTACTO_ENVIO = :PERS_CONTACTO_ENVIO,'#10' TLFS_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' + 'IO = :TLFS_ENVIO,'#10' NOTAS_ENVIO = :NOTAS_ENVIO,'#10' ENVIADA_RE' +
'D = :OLD_ID)'#10#10 'VISADA = :ENVIADA_REVISADA,'#10' ID_CONTRATO_ASOCIADO = :ID_CONTR' +
'ATO_ASOCIADO'#10#10' WHERE'#10' (ID = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

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

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

@ -214,6 +214,8 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Action = actGenerarAlbaranCli Action = actGenerarAlbaranCli
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSeparatorItem19: TTBXSeparatorItem
end
object TBXItem46: TTBXItem object TBXItem46: TTBXItem
Action = actInformes Action = actInformes
end end
@ -225,6 +227,18 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Action = actGenerarEtiquetas Action = actGenerarEtiquetas
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end 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
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -283,6 +297,19 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
OnExecute = actGenerarEtiquetasExecute OnExecute = actGenerarEtiquetasExecute
OnUpdate = actGenerarEtiquetasUpdate OnUpdate = actGenerarEtiquetasUpdate
end 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 end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <

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

@ -47,6 +47,13 @@ type
JsNuevoContratoDialog: TJSDialog; JsNuevoContratoDialog: TJSDialog;
actGenerarEtiquetas: TAction; actGenerarEtiquetas: TAction;
TBXItem44: TTBXItem; TBXItem44: TTBXItem;
actMandarFabrica: TAction;
TBXItem48: TTBXItem;
TBXSeparatorItem19: TTBXSeparatorItem;
TBXSeparatorItem20: TTBXSeparatorItem;
actTerminar: TAction;
TBXItem49: TTBXItem;
TBXSeparatorItem21: TTBXSeparatorItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
@ -70,6 +77,10 @@ type
procedure bVariosClick(Sender: TObject); procedure bVariosClick(Sender: TObject);
procedure actGenerarEtiquetasExecute(Sender: TObject); procedure actGenerarEtiquetasExecute(Sender: TObject);
procedure actGenerarEtiquetasUpdate(Sender: TObject); procedure actGenerarEtiquetasUpdate(Sender: TObject);
procedure actMandarFabricaExecute(Sender: TObject);
procedure actMandarFabricaUpdate(Sender: TObject);
procedure actTerminarExecute(Sender: TObject);
procedure actTerminarUpdate(Sender: TObject);
protected protected
FContratos: IBizContratoCliente; FContratos: IBizContratoCliente;
@ -170,9 +181,10 @@ end;
procedure TfEditorContratosCliente.actAceptarUpdate(Sender: TObject); procedure TfEditorContratosCliente.actAceptarUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := HayDatos { (Sender as TAction).Enabled := HayDatos
and ViewGrid.esSeleccionCeldaDatos and ViewGrid.esSeleccionCeldaDatos
and (FContratos.SITUACION <> SITUACION_CONTRATO_PENDIENTE); and (FContratos.SITUACION <> SITUACION_CONTRATO_PENDIENTE);
}
end; end;
procedure TfEditorContratosCliente.actAnularExecute(Sender: TObject); procedure TfEditorContratosCliente.actAnularExecute(Sender: TObject);
@ -359,6 +371,72 @@ begin
FController.VerListadoBeneficios; FController.VerListadoBeneficios;
end; 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; procedure TfEditorContratosCliente.AsignarVista;
begin begin
ViewGrid := CreateView(TfrViewContratosCliente) as IViewContratosCliente; ViewGrid := CreateView(TfrViewContratosCliente) as IViewContratosCliente;
@ -495,6 +573,15 @@ begin
if not Assigned(Contratos) then if not Assigned(Contratos) then
raise Exception.Create('No hay ningún Presupuesto asignado'); 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; Contratos.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
end; end;

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

@ -1,6 +1,7 @@
inherited frViewContratosCliente: TfrViewContratosCliente inherited frViewContratosCliente: TfrViewContratosCliente
Width = 903 Width = 903
Height = 525 Height = 525
OnShow = CustomViewShow
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 525 ExplicitHeight = 525
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -61,6 +62,31 @@ inherited frViewContratosCliente: TfrViewContratosCliente
VisibleForCustomization = False VisibleForCustomization = False
Width = 20 Width = 20
end 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 object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
@ -81,7 +107,9 @@ inherited frViewContratosCliente: TfrViewContratosCliente
end end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO' DataBinding.FieldName = 'TIPO_CONTRATO'
Visible = False
BestFitMaxWidth = 25 BestFitMaxWidth = 25
VisibleForCustomization = False
Width = 55 Width = 55
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
@ -159,6 +187,9 @@ inherited frViewContratosCliente: TfrViewContratosCliente
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
end end
object cxGridLevelPendientesRevisar: TcxGridLevel
Caption = 'Pendientes Revisi'#243'n - Graden'
end
object cxGridLevelPendientes: TcxGridLevel object cxGridLevelPendientes: TcxGridLevel
Caption = 'Pendientes' Caption = 'Pendientes'
end end
@ -528,6 +559,29 @@ inherited frViewContratosCliente: TfrViewContratosCliente
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow 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> end>
Bitmap = {} Bitmap = {}
end end
@ -550,5 +604,9 @@ inherited frViewContratosCliente: TfrViewContratosCliente
AssignedValues = [svTextColor] AssignedValues = [svTextColor]
TextColor = clBlack TextColor = clBlack
end end
object cxStylePENDIENTESREVISION: TcxStyle
AssignedValues = [svTextColor]
TextColor = clMaroon
end
end end
end end

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

@ -54,6 +54,9 @@ type
cxGridViewBASE_IMPONIBLE_FACTURAS: TcxGridDBColumn; cxGridViewBASE_IMPONIBLE_FACTURAS: TcxGridDBColumn;
cxStylePENDIENTESYFACTURADASOK: TcxStyle; cxStylePENDIENTESYFACTURADASOK: TcxStyle;
cxGridViewTIENDA: TcxGridDBColumn; cxGridViewTIENDA: TcxGridDBColumn;
cxGridLevelPendientesRevisar: TcxGridLevel;
cxStylePENDIENTESREVISION: TcxStyle;
cxGridViewENVIADA_REVISADA: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@ -74,6 +77,7 @@ type
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
procedure actProcedenciaExecute(Sender: TObject); procedure actProcedenciaExecute(Sender: TObject);
procedure actProcedenciaUpdate(Sender: TObject); procedure actProcedenciaUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -167,8 +171,9 @@ begin
FFiltro := AddFilterGrid(fboAnd); FFiltro := AddFilterGrid(fboAnd);
case cxGrid.ActiveLevel.Index of case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE); 1 : FFiltro.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '2', '2');
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO); 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO);
end; end;
end; end;
@ -197,6 +202,20 @@ begin
cxGridViewTIENDA.Visible := False; cxGridViewTIENDA.Visible := False;
end; 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); procedure TfrViewContratosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
begin begin
inherited; inherited;
@ -270,6 +289,8 @@ begin
IndiceCol4 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE).Index; IndiceCol4 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]); AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]);
AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor;
if ASituacion = SITUACION_CONTRATO_PENDIENTE then if ASituacion = SITUACION_CONTRATO_PENDIENTE then
begin begin
if (AFacturas = '') then if (AFacturas = '') then

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

@ -49,12 +49,12 @@
<DelphiCompile Include="PresupuestosCliente_controller.dpk"> <DelphiCompile Include="PresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorDocumentos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GestorDocumentos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_data.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\PresupuestosCliente_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosPresupuestoClienteController.pas" /> <DCCReference Include="uArticulosPresupuestoClienteController.pas" />
<DCCReference Include="uDetallesPresupuestoClienteController.pas" /> <DCCReference Include="uDetallesPresupuestoClienteController.pas" />
<DCCReference Include="uPresupuestosClienteController.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"> <DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="schPresupuestosClienteClient_Intf.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', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_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}, 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', schTiposOperacionCompraClient_Intf in '..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraClient_Intf.pas',
schTiposOperacionCompraServer_Intf in '..\Modulos\Tipos de operacion compra\Model\schTiposOperacionCompraServer_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', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

22
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -28,7 +28,12 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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> <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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -342,11 +347,11 @@ Save Log File=1
Foreground Tab=0 Foreground Tab=0
Freeze Activate=1 Freeze Activate=1
Freeze Timeout=10 Freeze Timeout=10
SMTP From=info@uecko.com SMTP From=info@rodax%2Dsoftware.com
SMTP Host=mail.uecko.com SMTP Host=mail.rodax%2Dsoftware.com
SMTP Port=587 SMTP Port=587
SMTP UserID=info@uecko.com SMTP UserID=info@rodax%2Dsoftware.com
SMTP Password=SECret13 SMTP Password=*Golondrinas2020+1
Append to Log=0 Append to Log=0
TerminateBtn Operation=1 TerminateBtn Operation=1
Errors Number=32 Errors Number=32
@ -399,7 +404,7 @@ PostSuccessfulBuildEvent=
PostFailureBuildEvent= PostFailureBuildEvent=
ExceptionDialogType=0 ExceptionDialogType=0
Count=0 Count=0
EMail Message Line Count=0 EMail Message Line Count=1
loNoDuplicateErrors=1 loNoDuplicateErrors=1
loAppendReproduceText=1 loAppendReproduceText=1
loDeleteLogAtVersionChange=1 loDeleteLogAtVersionChange=1
@ -456,7 +461,7 @@ soNetDHCP=1
soCustomData=1 soCustomData=1
sndShowSendDialog=0 sndShowSendDialog=0
sndShowSuccessFailureMsg=0 sndShowSuccessFailureMsg=0
sndSendEntireLog=0 sndSendEntireLog=1
sndSendXMLLogCopy=0 sndSendXMLLogCopy=0
sndSendScreenshot=1 sndSendScreenshot=1
sndUseOnlyActiveWindow=1 sndUseOnlyActiveWindow=1
@ -815,4 +820,5 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection= TextsCollection=
Line0="Servidor error"
EurekaLog Last Line --> EurekaLog Last Line -->

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.