Compare commits
No commits in common. "267014df42355651b493bb49d049e1f2f1d0c80a" and "723b21b31a8673d4b21c22b95b52d62661e402b4" have entirely different histories.
267014df42
...
723b21b31a
@ -1,6 +1,6 @@
|
||||
<project ServerProjectName="">
|
||||
<watches/>
|
||||
<collapsedNodes>{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{282C2736-74F5-49C2-95D0-C1C4D359AEB2},{331AC851-CE2F-4986-9381-A257AB26B1AD},{68D393D0-7234-4D5A-9D3A-A3FDC1593E55},{789902B1-5E64-4FD9-80BF-6113B13BFE12},{816E4470-A0A2-4675-A270-7721426D4FD2},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61}</collapsedNodes>
|
||||
<collapsedNodes></collapsedNodes>
|
||||
<breakpoints></breakpoints>
|
||||
<actions/>
|
||||
<propertysets/>
|
||||
@ -14,8 +14,8 @@
|
||||
<Notes>
|
||||
<![CDATA[]]>
|
||||
</Notes>
|
||||
<LastBuildRun>00:00:00</LastBuildRun>
|
||||
<LastBuildStart>25/11/2024 16:36:32</LastBuildStart>
|
||||
<LastBuildRun>00:03:22</LastBuildRun>
|
||||
<LastBuildStart>09/09/2016 18:07:38</LastBuildStart>
|
||||
<LastBuildState>False</LastBuildState>
|
||||
</properties>
|
||||
</project>
|
||||
|
||||
BIN
Build/Build.fbz6
BIN
Build/Build.fbz6
Binary file not shown.
@ -52,7 +52,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</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">5.0.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">5.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 5,0,0,0
|
||||
PRODUCTVERSION 5,0,0,0
|
||||
FILEVERSION 4,0,0,0
|
||||
PRODUCTVERSION 4,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "5.0.0.0\0"
|
||||
VALUE "FileVersion", "4.0.0.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "5.0.0.0\0"
|
||||
VALUE "ProductVersion", "4.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -58,34 +58,34 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ccpackD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\frx11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\frxe11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\fs11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -10,7 +10,7 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 650
|
||||
ExplicitTop = 51
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 650
|
||||
inherited Image1: TImage
|
||||
Left = 623
|
||||
@ -54,7 +54,7 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
Width = 650
|
||||
ExplicitWidth = 650
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 647
|
||||
ExplicitWidth = 605
|
||||
inherited TBXItem26: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -110,14 +110,12 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
object pgPaginas: TPageControl [3]
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 111
|
||||
Top = 109
|
||||
Width = 644
|
||||
Height = 326
|
||||
Height = 328
|
||||
ActivePage = pagGeneral
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 109
|
||||
ExplicitHeight = 328
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
ExplicitLeft = 0
|
||||
@ -128,7 +126,7 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
end
|
||||
object PnlComentario: TPanel [4]
|
||||
Left = 0
|
||||
Top = 78
|
||||
Top = 76
|
||||
Width = 650
|
||||
Height = 30
|
||||
Align = alTop
|
||||
@ -138,7 +136,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
ParentBackground = False
|
||||
TabOrder = 4
|
||||
VerticalAlignment = taAlignTop
|
||||
ExplicitTop = 76
|
||||
object lbComentario: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 6
|
||||
|
||||
@ -5,8 +5,8 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
ClientHeight = 444
|
||||
ClientWidth = 543
|
||||
OnDestroy = CustomEditorDestroy
|
||||
ExplicitWidth = 559
|
||||
ExplicitHeight = 482
|
||||
ExplicitWidth = 551
|
||||
ExplicitHeight = 478
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -22,10 +22,10 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 27
|
||||
Width = 543
|
||||
Height = 78
|
||||
Height = 75
|
||||
ExplicitTop = 27
|
||||
ExplicitWidth = 543
|
||||
ExplicitHeight = 78
|
||||
ExplicitHeight = 75
|
||||
inherited tbxMain: TTBXToolbar
|
||||
DockPos = 0
|
||||
DragHandleStyle = dhDouble
|
||||
@ -76,7 +76,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
end
|
||||
object tbxFiltro: TTBXToolbar [1]
|
||||
Left = 0
|
||||
Top = 51
|
||||
Top = 49
|
||||
Align = alRight
|
||||
CloseButton = False
|
||||
DefaultDock = TBXDock
|
||||
@ -180,7 +180,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
end
|
||||
object TBXTMain2: TTBXToolbar
|
||||
Left = 334
|
||||
Top = 51
|
||||
Top = 49
|
||||
Caption = 'tbxMain'
|
||||
ChevronHint = 'M'#225's botones|'
|
||||
DockMode = dmCannotFloatOrChangeDocks
|
||||
|
||||
@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
||||
DroppedDownWidth = 145
|
||||
MaxMRUCount = 0
|
||||
FontName = 'Tahoma'
|
||||
ItemIndex = 43
|
||||
ItemIndex = 35
|
||||
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
|
||||
Sorted = True
|
||||
TabOrder = 2
|
||||
@ -839,9 +839,5 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
||||
Font.Name = 'Lucida Console'
|
||||
Font.Style = []
|
||||
end
|
||||
object cxStyleEdicion: TcxStyle
|
||||
AssignedValues = [svColor]
|
||||
Color = 13303807
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -112,7 +112,6 @@ type
|
||||
cxStyle_DESCUENTO: TcxStyle;
|
||||
cxStyleDesactivado: TcxStyle;
|
||||
cxGridViewVISIBLE2: TcxGridDBColumn;
|
||||
cxStyleEdicion: TcxStyle;
|
||||
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
@ -451,10 +450,6 @@ begin
|
||||
else
|
||||
if Length(AEditValue) = 0 then
|
||||
CurEdit.DefAttributes.Assign(FuentePorDefecto);
|
||||
|
||||
//Establecemos un color de edición único para evitar el fallo de color verde en conceptos
|
||||
CurEdit.Style.Color := cxStyleEdicion.Color;
|
||||
|
||||
finally
|
||||
FreeAndNil(FuentePorDefecto);
|
||||
end;
|
||||
|
||||
Binary file not shown.
@ -46,9 +46,6 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
|
||||
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
|
||||
@ -59,40 +56,28 @@
|
||||
<DelphiCompile Include="Contactos_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_data.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\designide.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="Contactos_data.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uClientesController.pas" />
|
||||
<DCCReference Include="uContactosController.pas" />
|
||||
<DCCReference Include="uDireccionesContactoController.pas" />
|
||||
<DCCReference Include="uGruposClienteController.pas" />
|
||||
<DCCReference Include="uGruposProveedorController.pas" />
|
||||
<DCCReference Include="uInstaladoresController.pas" />
|
||||
<DCCReference Include="uListadosContactosReportController.pas" />
|
||||
<DCCReference Include="uPersonalContactoController.pas" />
|
||||
<DCCReference Include="uProcedenciasClienteController.pas" />
|
||||
<DCCReference Include="uProveedoresController.pas" />
|
||||
<DCCReference Include="uVendedoresController.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="View\uIEditorCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorContacto.pas" />
|
||||
@ -101,14 +86,11 @@
|
||||
<DCCReference Include="View\uIEditorElegirClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirContactos.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirInstaladores.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirPersonaContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirProveedores.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirVendedores.pas" />
|
||||
<DCCReference Include="View\uIEditorGruposCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorGruposProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorInstalador.pas" />
|
||||
<DCCReference Include="View\uIEditorInstaladores.pas" />
|
||||
<DCCReference Include="View\uIEditorListadosContactosPreview.pas" />
|
||||
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
|
||||
@ -116,6 +98,7 @@
|
||||
<DCCReference Include="View\uIEditorProveedores.pas" />
|
||||
<DCCReference Include="View\uIEditorVendedor.pas" />
|
||||
<DCCReference Include="View\uIEditorVendedores.pas" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
<None Include="ModelSupport_Contactos_controller\default.txaPackage" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
@ -30,24 +30,12 @@ requires
|
||||
Base,
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Contactos_model,
|
||||
dbrtl,
|
||||
DataAbstract_Core_D11,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
cxLibraryD11,
|
||||
dxThemeD11,
|
||||
dxGDIPlusD11,
|
||||
dxCoreD11,
|
||||
vclx;
|
||||
Contactos_model;
|
||||
|
||||
contains
|
||||
uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
|
||||
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule},
|
||||
uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule},
|
||||
uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule},
|
||||
uDataModuleInstaladores in 'uDataModuleInstaladores.pas' {DataModuleInstaladores: TDAClientDataModule};
|
||||
uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule};
|
||||
|
||||
end.
|
||||
|
||||
@ -49,23 +49,12 @@
|
||||
<DelphiCompile Include="Contactos_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="uDataModuleClientes.pas">
|
||||
<Form>DataModuleClientes</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
@ -74,10 +63,6 @@
|
||||
<Form>DataModuleContactos</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleInstaladores.pas">
|
||||
<Form>DataModuleInstaladore</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleProveedores.pas">
|
||||
<Form>DataModuleProveedores</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -49,25 +49,24 @@
|
||||
<DelphiCompile Include="Contactos_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleClientes.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleContactos.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleInstaladores.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleListadosContactosReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleVendedores.pas" />
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -12,7 +12,6 @@ const
|
||||
BIZ_CLIENT_CLIENTE = 'Client.Cliente';
|
||||
BIZ_CLIENT_PROVEEDOR = 'Client.Proveedor';
|
||||
BIZ_CLIENT_VENDEDOR = 'Client.Vendedor';
|
||||
BIZ_CLIENT_INSTALADOR = 'Client.Instalador';
|
||||
|
||||
CATEGORIA_CLIENTE = 1;
|
||||
CATEGORIA_PROVEEDOR = 2;
|
||||
@ -205,10 +204,6 @@ type
|
||||
property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
|
||||
end;
|
||||
|
||||
IBizInstalador = interface (IBizContacto)
|
||||
['{3E3121B9-FE13-4A3D-B767-2890FB31E38A}']
|
||||
end;
|
||||
|
||||
TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable)
|
||||
protected
|
||||
FDatosBancarios : IBizContactosDatosBancarios;
|
||||
@ -418,10 +413,6 @@ type
|
||||
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
||||
end;
|
||||
|
||||
TBizInstalador = class(TBizContacto, IBizInstalador)
|
||||
public
|
||||
procedure IniciarValoresContactoNuevo; override;
|
||||
end;
|
||||
|
||||
TBizVendedor = class(TBizContacto, IBizVendedor)
|
||||
protected
|
||||
@ -1010,20 +1001,11 @@ begin
|
||||
DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
{ TBizInstalador }
|
||||
|
||||
procedure TBizInstalador.IniciarValoresContactoNuevo;
|
||||
begin
|
||||
inherited;
|
||||
ID_CATEGORIA := CATEGORIA_INSTALADOR;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_CONTACTO, TBizContacto);
|
||||
RegisterDataTableRules(BIZ_CLIENT_CLIENTE, TBizCliente);
|
||||
RegisterDataTableRules(BIZ_CLIENT_PROVEEDOR, TBizProveedor);
|
||||
RegisterDataTableRules(BIZ_CLIENT_VENDEDOR, TBizVendedor);
|
||||
RegisterDataTableRules(BIZ_CLIENT_INSTALADOR, TBizInstalador);
|
||||
|
||||
finalization
|
||||
|
||||
|
||||
@ -299,12 +299,6 @@ object PluginContactos: TPluginContactos
|
||||
ImageIndex = 6
|
||||
OnExecute = actProcedenciasClienteExecute
|
||||
end
|
||||
object actInstaladores: TAction
|
||||
Category = 'Empresa'
|
||||
Caption = 'Alba'#241'iles / Instaladores'
|
||||
ImageIndex = 4
|
||||
OnExecute = actInstaladoresExecute
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = SmallImages
|
||||
@ -317,10 +311,6 @@ object PluginContactos: TPluginContactos
|
||||
Action = actVendedores
|
||||
SubMenuImages = SmallImages
|
||||
end
|
||||
object Instaladores1: TMenuItem
|
||||
Tag = 103
|
||||
Action = actInstaladores
|
||||
end
|
||||
end
|
||||
object Da1: TMenuItem
|
||||
Caption = 'Datos'
|
||||
|
||||
@ -32,8 +32,6 @@ type
|
||||
actProcedenciasCliente: TAction;
|
||||
Procedenciasdecliente1: TMenuItem;
|
||||
Empresas1: TMenuItem;
|
||||
actInstaladores: TAction;
|
||||
Instaladores1: TMenuItem;
|
||||
procedure actClientesExecute(Sender: TObject);
|
||||
procedure actProveedoresExecute(Sender: TObject);
|
||||
procedure actVendedoresExecute(Sender: TObject);
|
||||
@ -43,7 +41,6 @@ type
|
||||
function GetVistaConfiguracion : TClass;
|
||||
function GetEtiquetaConfiguracion : String;
|
||||
procedure actVendedoresUpdate(Sender: TObject);
|
||||
procedure actInstaladoresExecute(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -59,7 +56,7 @@ uses
|
||||
uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente,
|
||||
uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente,
|
||||
uContactosViewRegister, uBizContactos, uViewConfiguracionContactos,
|
||||
uFactuGES_App, uInstaladoresController;
|
||||
uFactuGES_App;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
@ -107,16 +104,6 @@ begin
|
||||
AGruposProveedorController.VerTodos(AGruposProveedor);
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actInstaladoresExecute(Sender: TObject);
|
||||
var
|
||||
AInstaladoresController : IInstaladoresController;
|
||||
AInstaladores : IBizInstalador;
|
||||
begin
|
||||
AInstaladoresController := TInstaladoresController.Create;
|
||||
AInstaladores := (AInstaladoresController.BuscarTodos as IBizInstalador);
|
||||
AInstaladoresController.VerTodos(AInstaladores);
|
||||
end;
|
||||
|
||||
procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject);
|
||||
var
|
||||
AProcedenciasClienteController : IProcedenciasClienteController;
|
||||
|
||||
@ -523,266 +523,6 @@ object srvContactos: TsrvContactos
|
||||
DictionaryEntry = 'Contactos_TIENDA'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'V_INSTALADORES'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CATEGORIA'
|
||||
TableField = 'ID_CATEGORIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = 'NIF_CIF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PERSONA_CONTACTO'
|
||||
TableField = 'PERSONA_CONTACTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALLE'
|
||||
TableField = 'CALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POBLACION'
|
||||
TableField = 'POBLACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PROVINCIA'
|
||||
TableField = 'PROVINCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CODIGO_POSTAL'
|
||||
TableField = 'CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TELEFONO_1'
|
||||
TableField = 'TELEFONO_1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TELEFONO_2'
|
||||
TableField = 'TELEFONO_2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MOVIL_1'
|
||||
TableField = 'MOVIL_1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MOVIL_2'
|
||||
TableField = 'MOVIL_2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FAX'
|
||||
TableField = 'FAX'
|
||||
end
|
||||
item
|
||||
DatasetField = 'EMAIL_1'
|
||||
TableField = 'EMAIL_1'
|
||||
end
|
||||
item
|
||||
DatasetField = 'EMAIL_2'
|
||||
TableField = 'EMAIL_2'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAGINA_WEB'
|
||||
TableField = 'PAGINA_WEB'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOTAS'
|
||||
TableField = 'NOTAS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_ALTA'
|
||||
TableField = 'FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_MODIFICACION'
|
||||
TableField = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'USUARIO'
|
||||
TableField = 'USUARIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_TIENDA'
|
||||
TableField = 'ID_TIENDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIENDA'
|
||||
TableField = 'TIENDA'
|
||||
end>
|
||||
end>
|
||||
Name = 'Instaladores'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTACTOS_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Instaladores_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_CATEGORIA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Instaladores_ID_CATEGORIA'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'Instaladores_NIF_CIF'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_PERSONA_CONTACTO'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_POBLACION'
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_PROVINCIA'
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DictionaryEntry = 'Instaladores_CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'Instaladores_TELEFONO_1'
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'Instaladores_TELEFONO_2'
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'Instaladores_MOVIL_1'
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'Instaladores_MOVIL_2'
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DictionaryEntry = 'Instaladores_FAX'
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL_1'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_EMAIL_1'
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL_2'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_EMAIL_2'
|
||||
end
|
||||
item
|
||||
Name = 'PAGINA_WEB'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_PAGINA_WEB'
|
||||
end
|
||||
item
|
||||
Name = 'NOTAS'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'Instaladores_NOTAS'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'Instaladores_FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'Instaladores_FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
DictionaryEntry = 'Instaladores_USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Instaladores_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Instaladores_ID_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Instaladores_TIENDA'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -5319,127 +5059,6 @@ object srvContactos: TsrvContactos
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTACTOS_ID'
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_ID_CATEGORIA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_TELEFONO_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_TELEFONO_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_MOVIL_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_MOVIL_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_EMAIL_1'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_EMAIL_2'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_PAGINA_WEB'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_NOTAS'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_ID_TIENDA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Instaladores_TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Left = 126
|
||||
Top = 14
|
||||
@ -5557,16 +5176,4 @@ object srvContactos: TsrvContactos
|
||||
Left = 224
|
||||
Top = 143
|
||||
end
|
||||
object bpInstaladores: TDABusinessProcessor
|
||||
Schema = schContactos
|
||||
InsertCommandName = 'Insert_Contactos'
|
||||
DeleteCommandName = 'Delete_Contactos'
|
||||
UpdateCommandName = 'Update_Contactos'
|
||||
RefreshDatasetName = 'Contactos_Refresh'
|
||||
ReferencedDataset = 'Instaladores'
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 88
|
||||
Top = 287
|
||||
end
|
||||
end
|
||||
|
||||
@ -34,7 +34,6 @@ type
|
||||
bpSubCuentasContacto: TDABusinessProcessor;
|
||||
schContactos: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
bpInstaladores: TDABusinessProcessor;
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
@ -54,7 +53,7 @@ uses
|
||||
uDataModuleServer, uDatabaseUtils, uUsersManager,
|
||||
schContactosClient_Intf, uBizVendedoresServer,
|
||||
uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils,
|
||||
uBizInstaladoresServer, uRptListadosContactos_Server;
|
||||
uRptListadosContactos_Server;
|
||||
|
||||
procedure Create_srvContactos(out anInstance : IUnknown);
|
||||
begin
|
||||
@ -84,7 +83,6 @@ begin
|
||||
bpVendedores.BusinessRulesID := BIZ_SERVER_VENDEDOR;
|
||||
bpClientes.BusinessRulesID := BIZ_SERVER_CLIENTE;
|
||||
bpProveedores.BusinessRulesID := BIZ_SERVER_PROVEEDOR;
|
||||
bpInstaladores.BusinessRulesID := BIZ_SERVER_INSTALADOR;
|
||||
end;
|
||||
|
||||
function TsrvContactos.DarTiendaDeUsuario(const ID_Empresa: Integer;
|
||||
|
||||
543
Source/Modulos/Contactos/Views/Contactos_view.bdsproj
Normal file
543
Source/Modulos/Contactos/Views/Contactos_view.bdsproj
Normal file
@ -0,0 +1,543 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{3A12FF5E-75C6-4E1E-BC5C-B6B9010BA595}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">Contactos_view.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">3</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription"></Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">.\</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
|
||||
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
|
||||
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<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 Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys> <Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxComnD10.bpl">ExpressCommonLibrary by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxLibraryD10.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxThemeD10.bpl">Express XP Theme Manager by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxEditorsD10.bpl">ExpressEditors Library 5 by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxDataD10.bpl">ExpressDataController by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxExtEditorsD10.bpl">ExpressExtendedEditors Library 5 by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxGridD10.bpl">ExpressQuantumGrid 5 by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxPageControlD10.bpl">Express Cross Platform PageControl by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxExportD10.bpl">Express Cross Platform Export Library by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxSchedulerD10.bpl">ExpressScheduler 2 by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxTreeListD10.bpl">ExpressQuantumTreeList 4 by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxVerticalGridD10.bpl">ExpressVerticalGrid by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxDockingD10.bpl">ExpressDocking Library by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxLayoutControlD10.bpl">ExpressLayout Control by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxNavBarD10.bpl">ExpressNavBar by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvAppFrmD10R.bpl">JVCL Application and Form Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvCoreD10R.bpl">JVCL Core Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\Jcl100.bpl">JEDI Code Library RTL package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JclVcl100.bpl">JEDI Code Library VCL package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvSystemD10R.bpl">JVCL System Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvStdCtrlsD10R.bpl">JVCL Standard Controls Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvBandsD10R.bpl">JVCL Band Objects Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvBDED10R.bpl">JVCL BDE Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvCtrlsD10R.bpl">JVCL Controls Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvCmpD10R.bpl">JVCL Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvDotNetCtrlsD10R.bpl">JVCL DotNet Controls Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvEDID10R.bpl">JVCL EDI Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvGlobusD10R.bpl">JVCL Globus Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvHMID10R.bpl">JVCL HMI Controls runtime package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvInterpreterD10R.bpl">JVCL Interpreter Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvJansD10R.bpl">JVCL Jans Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvManagedThreadsD10R.bpl">JVCL Managed Threads - runtime package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvMMD10R.bpl">JVCL Multimedia and Image Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvNetD10R.bpl">JVCL Network Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvPageCompsD10R.bpl">JVCL Page Style Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvPluginD10R.bpl">JVCL Plugin Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvPrintPreviewD10R.bpl">JVCL Print Preview Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvRuntimeDesignD10R.bpl">JVCL Runtime Design Components Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvTimeFrameworkD10R.bpl">JVCL Time Framework</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvValidatorsD10R.bpl">JVCL Validators and Error Indicator Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvWizardD10R.bpl">JVCL Wizard Run Time Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\JvXPCtrlsD10R.bpl">JVCL XP Controls Runtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\PluginSDK_D10R.bpl">(untitled)</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=0
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=1
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
EurekaLog Last Line -->
|
||||
</BorlandProject>
|
||||
@ -59,29 +59,7 @@ requires
|
||||
designide,
|
||||
xmlrtl,
|
||||
vclactnband,
|
||||
GestorInformes_controller,
|
||||
dxCoreD11,
|
||||
cxGridD11,
|
||||
cxPageControlD11,
|
||||
cxExtEditorsD11,
|
||||
cxExportD11,
|
||||
dxPSCoreD11,
|
||||
dxComnD11,
|
||||
dxPScxCommonD11,
|
||||
dxPSLnksD11,
|
||||
vclshlctrls,
|
||||
dxPScxGrid6LnkD11,
|
||||
dclcxLibraryD11,
|
||||
dcldxCoreD11,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
tb2k_d10,
|
||||
tbx_d10,
|
||||
dxLayoutControlD11,
|
||||
JSDialog100,
|
||||
JvStdCtrlsD11R,
|
||||
JvPageCompsD11R,
|
||||
JvCtrlsD11R;
|
||||
GestorInformes_controller;
|
||||
|
||||
contains
|
||||
uContactosViewRegister in 'uContactosViewRegister.pas',
|
||||
@ -121,12 +99,6 @@ contains
|
||||
uViewConfiguracionContactos in 'uViewConfiguracionContactos.pas' {frViewConfiguracionContactos},
|
||||
uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor},
|
||||
uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TCustomEditor},
|
||||
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor},
|
||||
uViewInstaladores in 'uViewInstaladores.pas' {frViewInstaladores: TFrame},
|
||||
uViewInstalador in 'uViewInstalador.pas' {frViewInstalador: TFrame},
|
||||
uEditorInstaladores in 'uEditorInstaladores.pas' {fEditorInstaladores: TCustomEditor},
|
||||
uEditorInstalador in 'uEditorInstalador.pas' {fEditorInstalador: TCustomEditor},
|
||||
uEditorElegirInstaladores in 'uEditorElegirInstaladores.pas' {fEditorElegirInstaladores: TCustomEditor},
|
||||
uViewDatosYSeleccionInstalador in 'uViewDatosYSeleccionInstalador.pas' {frViewDatosYSeleccionInstalador: TFrame};
|
||||
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor};
|
||||
|
||||
end.
|
||||
|
||||
@ -47,63 +47,41 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ApplicationBase.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\bdertl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Contactos_controller.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Contactos_model.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxComnD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxCoreD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\FormasPago_model.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\GUIBase.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JSDialog100.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclshlctrls.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\bdertl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Contratos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
@ -132,10 +110,6 @@
|
||||
<Form>fEditorElegirDireccionEntrega</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirInstaladores.pas">
|
||||
<Form>fEditorElegirInstaladores</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirPersonaContacto.pas">
|
||||
<Form>fEditorElegirPersonaContacto</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
@ -156,14 +130,6 @@
|
||||
<Form>fEditorGruposProveedor</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInstalador.pas">
|
||||
<Form>fEditorInstalador</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorInstaladores.pas">
|
||||
<Form>fEditorInstaladores</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorListadosContactosReport.pas">
|
||||
<Form>fEditorListadosContactosPreview</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
@ -227,10 +193,6 @@
|
||||
<Form>frViewDatosYSeleccionCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDatosYSeleccionInstalador.pas">
|
||||
<Form>frViewInstalador</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDatosYSeleccionProveedor.pas">
|
||||
<Form>frViewDatosYSeleccionProveedor</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -239,14 +201,6 @@
|
||||
<Form>frViewDireccionesEntrega</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewInstalador.pas">
|
||||
<Form>frViewInstalador</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewInstaladores.pas">
|
||||
<Form>frViewInstaladores</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewPersonalContacto.pas">
|
||||
<Form>frViewPersonalContacto</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
|
||||
@ -16,24 +16,21 @@ uses
|
||||
uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente,
|
||||
uEditorGruposProveedor, uEditorListadosContactosReport,
|
||||
uViewConfiguracionContactos, uEditorPersonal, uEditorElegirPersonaContacto,
|
||||
uEditorElegirDireccionEntrega, uEditorInstaladores, uEditorInstalador, uEditorElegirInstaladores;
|
||||
uEditorElegirDireccionEntrega;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes');
|
||||
EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores');
|
||||
EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores');
|
||||
EditorRegistry.RegisterClass(TfEditorInstaladores, 'EditorInstaladores');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente');
|
||||
EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor');
|
||||
EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor');
|
||||
EditorRegistry.RegisterClass(TfEditorInstalador, 'EditorInstalador');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirInstaladores, 'EditorElegirInstaladores');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
|
||||
EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');
|
||||
|
||||
@ -19,18 +19,12 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Left = 922
|
||||
ExplicitLeft = 607
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 824
|
||||
ExplicitLeft = 824
|
||||
AnchorX = 869
|
||||
AnchorY = 14
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 949
|
||||
ExplicitWidth = 949
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 347
|
||||
ExplicitWidth = 423
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -92,17 +86,17 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 943
|
||||
Height = 606
|
||||
Height = 599
|
||||
ExplicitWidth = 943
|
||||
ExplicitHeight = 599
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 935
|
||||
ExplicitHeight = 578
|
||||
ExplicitHeight = 571
|
||||
inline frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Left = 0
|
||||
Top = 375
|
||||
Top = 368
|
||||
Width = 935
|
||||
Height = 203
|
||||
Align = alBottom
|
||||
@ -114,7 +108,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitTop = 375
|
||||
ExplicitTop = 368
|
||||
ExplicitWidth = 935
|
||||
ExplicitHeight = 203
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -126,18 +120,6 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 935
|
||||
ExplicitWidth = 935
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -148,7 +130,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 935
|
||||
Height = 578
|
||||
Height = 571
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -159,7 +141,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 935
|
||||
ExplicitHeight = 578
|
||||
ExplicitHeight = 571
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 935
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
@ -200,10 +182,6 @@ inherited fEditorContacto: TfEditorContacto
|
||||
object pagPersonal: TTabSheet
|
||||
Caption = 'Observaciones'
|
||||
ImageIndex = 2
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object memObservaciones22: TcxDBMemo
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -216,7 +194,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Height = 578
|
||||
Height = 571
|
||||
Width = 935
|
||||
end
|
||||
end
|
||||
@ -224,6 +202,10 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 949
|
||||
ExplicitWidth = 949
|
||||
inherited lbComentario: TLabel
|
||||
Width = 939
|
||||
Height = 25
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource [5]
|
||||
Left = 168
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
|
||||
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
|
||||
uDAInterfaces, uViewPersonalContacto, uViewDetallesGenerico, cxControls,
|
||||
cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxLabel;
|
||||
cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit;
|
||||
|
||||
type
|
||||
TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
|
||||
|
||||
@ -10,8 +10,11 @@ inherited fEditorContactos: TfEditorContactos
|
||||
Caption = 'Lista de contactos'
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 543
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 195
|
||||
ExplicitWidth = 194
|
||||
inherited tbxEditFiltro: TTBXEditItem
|
||||
EditOptions = [tboUseEditWhenVertical]
|
||||
end
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
uControllerBase, uIDataModuleContratosCliente, uClientesController,
|
||||
uDetallesContratoClienteController, uGestorDocumentosController,
|
||||
uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente,
|
||||
uIntegerListUtils, uBizContactos;
|
||||
uIntegerListUtils;
|
||||
|
||||
type
|
||||
TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios);
|
||||
@ -63,7 +63,6 @@ type
|
||||
|
||||
function DarListaAnosContratos: TStringList;
|
||||
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
|
||||
procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
|
||||
procedure VerListadoBeneficios;
|
||||
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
|
||||
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
|
||||
@ -71,7 +70,6 @@ type
|
||||
|
||||
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
|
||||
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
|
||||
function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
|
||||
end;
|
||||
|
||||
TContratosClienteController = class(TControllerBase, IContratosClienteController)
|
||||
@ -145,7 +143,6 @@ type
|
||||
|
||||
function DarListaAnosContratos: TStringList;
|
||||
procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String);
|
||||
procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
|
||||
procedure VerListadoBeneficios;
|
||||
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
|
||||
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
|
||||
@ -153,8 +150,6 @@ type
|
||||
|
||||
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
|
||||
procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente);
|
||||
|
||||
function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -162,7 +157,7 @@ implementation
|
||||
uses
|
||||
Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
|
||||
uIEditorContratosCliente, uDataModuleContratosCliente, Variants,
|
||||
uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
|
||||
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
|
||||
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
|
||||
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
|
||||
schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf,
|
||||
@ -259,32 +254,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TContratosClienteController.CambiarInstalador(AContrato: IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
|
||||
begin
|
||||
if not Assigned(AContrato) then
|
||||
raise Exception.Create ('AContrato no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AContrato.Edit;
|
||||
|
||||
AContrato.DataTable.Edit;
|
||||
AContrato.ID_INSTALADOR := AInstalador.ID;
|
||||
AContrato.NOMBRE_INSTALADOR := AInstalador.NOMBRE;
|
||||
|
||||
if not bEnEdicion then
|
||||
AContrato.Post;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TContratosClienteController.CambiarSituacion(AContrato: IBizContratoCliente;
|
||||
Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean;
|
||||
// En el caso de cambiar almenos un elemento del conjunto se devuelve true
|
||||
@ -462,8 +431,6 @@ begin
|
||||
// ID_FACTURAIsNull := True;
|
||||
REFERENCIA := '';
|
||||
SITUACION := SITUACION_CONTRATO_PENDIENTE;
|
||||
ID_INSTALADORIsNull := True;
|
||||
NOMBRE_INSTALADORIsNull := True;
|
||||
end;
|
||||
Result.AsignarVendedor;
|
||||
Result.Post;
|
||||
@ -1082,35 +1049,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteController.FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
FechaIni: String;
|
||||
FechaFin: String;
|
||||
|
||||
begin
|
||||
AContrato.DataTable.DynamicWhere.Clear;
|
||||
AContrato.DataTable.DynamicWhere.Xml := ADynWhereDataTable;
|
||||
|
||||
if (Ano <> 'Todos') then
|
||||
begin
|
||||
// Filtrar las facturas actuales por empresa
|
||||
FechaIni := '01/01/' + Ano;
|
||||
FechaFin := '31/12/' + Ano;
|
||||
with AContrato.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ContratosClienteFECHA_CONTRATO), NewConstant(FechaIni, datString), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_ContratosClienteFECHA_CONTRATO), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteController.FiltrarEmpresa(AContrato: IBizContratoCliente);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
|
||||
@ -350,15 +350,6 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Valores = '{20F4DF5F-38DB-4AA6-B17F-5192ED36BC0D}';
|
||||
RID_Propiedades = '{10A019F3-E795-413B-AE1A-8075665936C4}';
|
||||
RID_ListaAnosContratos = '{B706B31A-572A-44D7-815A-11028E17F3F0}';
|
||||
RID_ContratosClienteBeneficios = '{F9036DB4-7264-4B53-B7B7-A33F1FA4F72C}';
|
||||
RID_ContratosCliente = '{210D5B45-17D3-4EA9-82CC-FD40936C848C}';
|
||||
RID_TiposCapitulos = '{6781118D-1743-4A35-AD55-9C426656C662}';
|
||||
RID_ContratosCliente_Detalles = '{DC6E8B1B-AEEE-4CBC-A18D-5B7AB6B693FC}';
|
||||
RID_ContratoClienteFacturasProv = '{9F92B050-F8CB-4D0B-8C98-53D93B2F93D3}';
|
||||
RID_Valores = '{07040A27-DD19-4D93-B5DA-C9C49C1822CA}';
|
||||
RID_Propiedades = '{3006A5CE-2DB4-46FD-97B3-65E9CBA7AD2A}';
|
||||
RID_ListaAnosContratos = '{09600C3F-3F5A-4DB6-87A9-12C67B9AC2F1}';
|
||||
RID_ContratosClienteBeneficios = '{B58A588F-6D51-43FB-B318-5F9ABE371CBE}';
|
||||
RID_ContratosCliente = '{AFEF7F44-F9AD-4DCC-82CE-A441F94C7B6E}';
|
||||
RID_TiposCapitulos = '{C4F51BD4-AB1F-4564-8370-E83BDA635D61}';
|
||||
RID_ContratosCliente_Detalles = '{E45B94F9-C284-41CE-A73F-69E835616CBC}';
|
||||
RID_ContratoClienteFacturasProv = '{4884E75F-7CFE-4300-B53A-7F8F87745F99}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Valores = 'Valores';
|
||||
@ -141,8 +141,6 @@ const
|
||||
fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
|
||||
fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE';
|
||||
fld_ContratosClienteID_INSTALADOR = 'ID_INSTALADOR';
|
||||
fld_ContratosClienteNOMBRE_INSTALADOR = 'NOMBRE_INSTALADOR';
|
||||
|
||||
{ ContratosCliente field indexes }
|
||||
idx_ContratosClienteID = 0;
|
||||
@ -195,8 +193,6 @@ const
|
||||
idx_ContratosClienteREFERENCIA_CLIENTE = 47;
|
||||
idx_ContratosClienteLISTA_NOMBRES = 48;
|
||||
idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 49;
|
||||
idx_ContratosClienteID_INSTALADOR = 50;
|
||||
idx_ContratosClienteNOMBRE_INSTALADOR = 51;
|
||||
|
||||
{ TiposCapitulos fields }
|
||||
fld_TiposCapitulosID = 'ID';
|
||||
@ -273,7 +269,7 @@ const
|
||||
type
|
||||
{ IValores }
|
||||
IValores = interface(IDAStronglyTypedDataTable)
|
||||
['{90B6AEAB-CA86-415A-9867-AE6DDF147292}']
|
||||
['{72662564-0D03-463E-94DA-D8D703FC7FFD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -332,7 +328,7 @@ type
|
||||
|
||||
{ IPropiedades }
|
||||
IPropiedades = interface(IDAStronglyTypedDataTable)
|
||||
['{D75A4B85-BBF5-495B-81BD-D8423BEB8878}']
|
||||
['{F1B345B8-6699-4700-8097-BFC5BDFD8537}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -391,7 +387,7 @@ type
|
||||
|
||||
{ IListaAnosContratos }
|
||||
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
|
||||
['{A58F3174-AAB8-42A5-9F76-CD538099B39D}']
|
||||
['{36FADA3D-628F-480A-B077-EA8D6676A7C1}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -426,7 +422,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficios }
|
||||
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
|
||||
['{443426BE-76C1-459F-B040-945933103153}']
|
||||
['{BBC61983-3B64-4845-A47B-F8511BBF7A73}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -641,7 +637,7 @@ type
|
||||
|
||||
{ IContratosCliente }
|
||||
IContratosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{E5FEBD8B-4FA0-4E95-B596-969808CA3467}']
|
||||
['{5ECD7363-96C7-4393-AADE-B82526538C1E}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -837,14 +833,6 @@ type
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime);
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetID_INSTALADORValue: Integer;
|
||||
procedure SetID_INSTALADORValue(const aValue: Integer);
|
||||
function GetID_INSTALADORIsNull: Boolean;
|
||||
procedure SetID_INSTALADORIsNull(const aValue: Boolean);
|
||||
function GetNOMBRE_INSTALADORValue: String;
|
||||
procedure SetNOMBRE_INSTALADORValue(const aValue: String);
|
||||
function GetNOMBRE_INSTALADORIsNull: Boolean;
|
||||
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -948,10 +936,6 @@ type
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
|
||||
property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
|
||||
property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
|
||||
property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
|
||||
end;
|
||||
|
||||
{ TContratosClienteDataTableRules }
|
||||
@ -1165,14 +1149,6 @@ type
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_INSTALADORValue: Integer; virtual;
|
||||
procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
|
||||
function GetID_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_INSTALADORValue: String; virtual;
|
||||
procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -1275,10 +1251,6 @@ type
|
||||
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
|
||||
property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
|
||||
property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
|
||||
property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -1291,7 +1263,7 @@ type
|
||||
}
|
||||
{ ITiposCapitulos }
|
||||
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
|
||||
['{42253827-AA15-492F-AFAC-257EB0C0F6D7}']
|
||||
['{9303AF23-576A-4218-A01D-460C960EE4B3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1386,7 +1358,7 @@ type
|
||||
|
||||
{ IContratosCliente_Detalles }
|
||||
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{4654E368-8185-40CF-AAD9-9233379440E5}']
|
||||
['{7DA1AFC7-EB2B-4195-8CC5-0AB9E9B72906}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1637,7 +1609,7 @@ type
|
||||
|
||||
{ IContratoClienteFacturasProv }
|
||||
IContratoClienteFacturasProv = interface(IDAStronglyTypedDataTable)
|
||||
['{B6845872-92DB-4F81-8768-8FD56B3FD473}']
|
||||
['{92725D42-6696-45DF-9DB5-D9606DF194DD}']
|
||||
{ Property getters and setters }
|
||||
function GetID_CONTRATOValue: Integer;
|
||||
procedure SetID_CONTRATOValue(const aValue: Integer);
|
||||
@ -3346,48 +3318,6 @@ begin
|
||||
DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetID_INSTALADORValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetID_INSTALADORValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetID_INSTALADORIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetID_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].IsNull;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosDataTableRules }
|
||||
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,19 +9,19 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ValoresDelta = '{3B7D377E-AB81-4975-8494-9821E0FC6AA4}';
|
||||
RID_PropiedadesDelta = '{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}';
|
||||
RID_ListaAnosContratosDelta = '{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{703EB6BB-27C5-4E04-AB28-7253E5724A2F}';
|
||||
RID_ContratosClienteDelta = '{9DE64986-EE28-44BE-BE23-11127CD3AFB0}';
|
||||
RID_TiposCapitulosDelta = '{7D66353C-5A18-40C0-8523-6DEB3A54899C}';
|
||||
RID_ContratosCliente_DetallesDelta = '{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}';
|
||||
RID_ContratoClienteFacturasProvDelta = '{95667A5A-0FA5-4E92-A851-F3D3E7C98260}';
|
||||
RID_ValoresDelta = '{D65A1140-B47F-4E5C-9F78-5E23024E699F}';
|
||||
RID_PropiedadesDelta = '{6F61B397-916F-47F9-8B1F-143BBE4D8761}';
|
||||
RID_ListaAnosContratosDelta = '{E49B48FF-2E1A-4370-9CA7-31E903528445}';
|
||||
RID_ContratosClienteBeneficiosDelta = '{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}';
|
||||
RID_ContratosClienteDelta = '{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}';
|
||||
RID_TiposCapitulosDelta = '{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}';
|
||||
RID_ContratosCliente_DetallesDelta = '{8CE89C32-E498-4B5A-9083-8C056ABE340F}';
|
||||
RID_ContratoClienteFacturasProvDelta = '{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}';
|
||||
|
||||
type
|
||||
{ IValoresDelta }
|
||||
IValoresDelta = interface(IValores)
|
||||
['{3B7D377E-AB81-4975-8494-9821E0FC6AA4}']
|
||||
['{D65A1140-B47F-4E5C-9F78-5E23024E699F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PROPIEDADValue : Integer;
|
||||
@ -79,7 +79,7 @@ type
|
||||
|
||||
{ IPropiedadesDelta }
|
||||
IPropiedadesDelta = interface(IPropiedades)
|
||||
['{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}']
|
||||
['{6F61B397-916F-47F9-8B1F-143BBE4D8761}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -137,7 +137,7 @@ type
|
||||
|
||||
{ IListaAnosContratosDelta }
|
||||
IListaAnosContratosDelta = interface(IListaAnosContratos)
|
||||
['{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}']
|
||||
['{E49B48FF-2E1A-4370-9CA7-31E903528445}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -171,7 +171,7 @@ type
|
||||
|
||||
{ IContratosClienteBeneficiosDelta }
|
||||
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
|
||||
['{703EB6BB-27C5-4E04-AB28-7253E5724A2F}']
|
||||
['{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -385,7 +385,7 @@ type
|
||||
|
||||
{ IContratosClienteDelta }
|
||||
IContratosClienteDelta = interface(IContratosCliente)
|
||||
['{9DE64986-EE28-44BE-BE23-11127CD3AFB0}']
|
||||
['{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -437,8 +437,6 @@ type
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldLISTA_NOMBRESValue : String;
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime;
|
||||
function GetOldID_INSTALADORValue : Integer;
|
||||
function GetOldNOMBRE_INSTALADORValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -491,8 +489,6 @@ type
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
|
||||
property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
|
||||
end;
|
||||
|
||||
{ TContratosClienteBusinessProcessorRules }
|
||||
@ -806,18 +802,6 @@ type
|
||||
function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual;
|
||||
procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_INSTALADORValue: Integer; virtual;
|
||||
function GetID_INSTALADORIsNull: Boolean; virtual;
|
||||
function GetOldID_INSTALADORValue: Integer; virtual;
|
||||
function GetOldID_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
|
||||
procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBRE_INSTALADORValue: String; virtual;
|
||||
function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
|
||||
function GetOldNOMBRE_INSTALADORValue: String; virtual;
|
||||
function GetOldNOMBRE_INSTALADORIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
|
||||
procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1020,14 +1004,6 @@ type
|
||||
property FECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue;
|
||||
property OldFECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull;
|
||||
property ID_INSTALADOR : Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
|
||||
property ID_INSTALADORIsNull : Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
|
||||
property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
|
||||
property OldID_INSTALADORIsNull : Boolean read GetOldID_INSTALADORIsNull;
|
||||
property NOMBRE_INSTALADOR : String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
|
||||
property NOMBRE_INSTALADORIsNull : Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
|
||||
property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
|
||||
property OldNOMBRE_INSTALADORIsNull : Boolean read GetOldNOMBRE_INSTALADORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1037,7 +1013,7 @@ type
|
||||
|
||||
{ ITiposCapitulosDelta }
|
||||
ITiposCapitulosDelta = interface(ITiposCapitulos)
|
||||
['{7D66353C-5A18-40C0-8523-6DEB3A54899C}']
|
||||
['{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -1131,7 +1107,7 @@ type
|
||||
|
||||
{ IContratosCliente_DetallesDelta }
|
||||
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
|
||||
['{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}']
|
||||
['{8CE89C32-E498-4B5A-9083-8C056ABE340F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
@ -1381,7 +1357,7 @@ type
|
||||
|
||||
{ IContratoClienteFacturasProvDelta }
|
||||
IContratoClienteFacturasProvDelta = interface(IContratoClienteFacturasProv)
|
||||
['{95667A5A-0FA5-4E92-A851-F3D3E7C98260}']
|
||||
['{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_CONTRATOValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -3826,68 +3802,6 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetID_INSTALADORValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetID_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := Null;
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
|
||||
end;
|
||||
|
||||
function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := aValue;
|
||||
end;
|
||||
|
||||
procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TTiposCapitulosBusinessProcessorRules }
|
||||
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -491,14 +491,6 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
TableField = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_INSTALADOR'
|
||||
TableField = 'ID_INSTALADOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_INSTALADOR'
|
||||
TableField = 'NOMBRE_INSTALADOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'ContratosCliente'
|
||||
@ -777,15 +769,6 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
item
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1338,17 +1321,6 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1365,19 +1337,18 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
|
||||
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
|
||||
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
|
||||
'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE,'#10' ' +
|
||||
'ID_INSTALADOR, NOMBRE_INSTALADOR)'#10' VALUES'#10' (:ID, :ID_CLIENTE' +
|
||||
', :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINC' +
|
||||
'IA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACIO' +
|
||||
'N, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIA' +
|
||||
'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPO' +
|
||||
'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :' +
|
||||
'BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL' +
|
||||
', :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTAC' +
|
||||
'TO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MO' +
|
||||
'VIL, :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIEN' +
|
||||
'TE, :ID_EMPRESA, :FECHA_ULT_PRESENTACION_CLIENTE,'#10' :ID_INSTA' +
|
||||
'LADOR, :NOMBRE_INSTALADOR)'#10#10
|
||||
'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE)'#10' VAL' +
|
||||
'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' +
|
||||
'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' +
|
||||
'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' +
|
||||
'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' +
|
||||
'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' +
|
||||
'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' +
|
||||
'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' +
|
||||
'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' +
|
||||
'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' +
|
||||
'IDADES, :REFERENCIA_CLIENTE, :ID_EMPRESA, :FECHA_ULT_PRESENTACIO' +
|
||||
'N_CLIENTE)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1627,17 +1598,6 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_INSTALADOR'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_INSTALADOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1669,9 +1629,7 @@ object srvContratosCliente: TsrvContratosCliente
|
||||
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
|
||||
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ID_EMPRESA' +
|
||||
' = :ID_EMPRESA,'#10' FECHA_ULT_PRESENTACION_CLIENTE = :FECHA_ULT_' +
|
||||
'PRESENTACION_CLIENTE,'#10' ID_INSTALADOR = :ID_INSTALADOR,'#10' NO' +
|
||||
'MBRE_INSTALADOR = :NOMBRE_INSTALADOR'#10' WHERE'#10' (ID = :OLD_ID)'#10 +
|
||||
#10
|
||||
'PRESENTACION_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -49,68 +49,61 @@
|
||||
<DelphiCompile Include="ContratosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Articulos_view.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ConCli_PedProv_relation.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxComnD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxCoreD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\GUIBase.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvMMD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PreCli_ConCli_relation.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclshlctrls.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="ConCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="ConCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="ConCli_PedProv_relation.dcp" />
|
||||
<DCCReference Include="ContratosCliente_controller.dcp" />
|
||||
<DCCReference Include="ContratosCliente_model.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="cxGridD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dclcxLibraryD11.dcp" />
|
||||
<DCCReference Include="dcldxCoreD11.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxCoreD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="dxPSLnksD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvMMD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="PreCli_ConCli_relation.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="uContratosClienteViewRegister.pas" />
|
||||
<DCCReference Include="uEditorContratoCliente.pas">
|
||||
<Form>fEditorPresupuestoCliente</Form>
|
||||
<DesignClass>TfEditorPedidoCliente</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorContratoClienteBeneficio.pas">
|
||||
<Form>fEditorContratoClienteBeneficio</Form>
|
||||
<Form>fEditorContratoClienteBeneficios</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorContratosCliente.pas">
|
||||
@ -169,6 +162,13 @@
|
||||
<Form>frViewElegirArticulosContratosCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclshlctrls.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -2,19 +2,20 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 332
|
||||
Top = 147
|
||||
Caption = 'Nuevo contrato de cliente'
|
||||
ClientHeight = 949
|
||||
ClientWidth = 993
|
||||
ClientHeight = 798
|
||||
ClientWidth = 872
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 1009
|
||||
ExplicitHeight = 987
|
||||
ExplicitWidth = 880
|
||||
ExplicitHeight = 832
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 993
|
||||
Width = 872
|
||||
Caption = 'Nuevo contrato de cliente'
|
||||
ExplicitWidth = 993
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 872
|
||||
inherited Image1: TImage
|
||||
Left = 966
|
||||
Left = 845
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -124,18 +125,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
960000000049454E44AE426082}
|
||||
ExplicitLeft = 735
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 868
|
||||
ExplicitLeft = 868
|
||||
AnchorX = 913
|
||||
AnchorY = 14
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 993
|
||||
ExplicitWidth = 993
|
||||
Width = 872
|
||||
ExplicitWidth = 872
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 518
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -153,7 +148,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 993
|
||||
ExplicitWidth = 872
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
||||
Caption = 'A&cciones'
|
||||
object TBXItem34: TTBXItem
|
||||
@ -168,126 +163,124 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 930
|
||||
Width = 993
|
||||
Top = 779
|
||||
Width = 872
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 930
|
||||
ExplicitWidth = 993
|
||||
ExplicitTop = 779
|
||||
ExplicitWidth = 872
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 987
|
||||
Height = 622
|
||||
Width = 866
|
||||
Height = 473
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 987
|
||||
ExplicitHeight = 622
|
||||
ExplicitWidth = 866
|
||||
ExplicitHeight = 473
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 594
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 445
|
||||
inline frViewContratoCliente1: TfrViewContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 979
|
||||
Height = 594
|
||||
Width = 858
|
||||
Height = 445
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 594
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 445
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 979
|
||||
Height = 594
|
||||
Width = 858
|
||||
Height = 445
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 594
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 445
|
||||
inherited edtFechaContrato: TcxDBDateEdit
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 108
|
||||
Width = 108
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
end
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Left = 531
|
||||
Top = 340
|
||||
ExplicitLeft = 531
|
||||
ExplicitTop = 340
|
||||
ExplicitWidth = 351
|
||||
ExplicitHeight = 135
|
||||
Height = 135
|
||||
Width = 351
|
||||
Left = 465
|
||||
Top = 330
|
||||
ExplicitLeft = 465
|
||||
ExplicitTop = 330
|
||||
ExplicitWidth = 404
|
||||
ExplicitHeight = 139
|
||||
Height = 139
|
||||
Width = 404
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
ExplicitWidth = 122
|
||||
Width = 122
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 145
|
||||
Width = 145
|
||||
ExplicitWidth = 122
|
||||
Width = 122
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 371
|
||||
Left = 305
|
||||
Top = 165
|
||||
ExplicitLeft = 371
|
||||
ExplicitLeft = 305
|
||||
ExplicitTop = 165
|
||||
end
|
||||
inherited cbSituacion: TcxDBImageComboBox
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited memFormaPago: TcxDBMemo
|
||||
Top = 449
|
||||
ExplicitTop = 449
|
||||
ExplicitWidth = 392
|
||||
ExplicitHeight = 55
|
||||
Height = 55
|
||||
Width = 392
|
||||
Top = 314
|
||||
ExplicitTop = 314
|
||||
ExplicitWidth = 396
|
||||
ExplicitHeight = 100
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
inherited memPlazoEntrega: TcxDBMemo
|
||||
Top = 529
|
||||
ExplicitTop = 529
|
||||
ExplicitWidth = 392
|
||||
ExplicitHeight = 55
|
||||
Height = 55
|
||||
Width = 392
|
||||
Top = 387
|
||||
ExplicitTop = 387
|
||||
ExplicitWidth = 396
|
||||
ExplicitHeight = 100
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
inherited cbVendedor: TcxDBLookupComboBox
|
||||
Top = 192
|
||||
ExplicitTop = 192
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
ExplicitWidth = 27
|
||||
Width = 27
|
||||
end
|
||||
inherited cbTipoContrato: TcxDBComboBox
|
||||
Left = 368
|
||||
Left = 331
|
||||
Top = 84
|
||||
ExplicitLeft = 368
|
||||
ExplicitLeft = 331
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 96
|
||||
Width = 96
|
||||
ExplicitWidth = 113
|
||||
Width = 113
|
||||
end
|
||||
inherited edtlREF_CLIENTE: TcxDBTextEdit
|
||||
Top = 57
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
ExplicitWidth = 335
|
||||
Width = 335
|
||||
end
|
||||
inherited frViewClienteContrato1: TfrViewClienteContrato
|
||||
Left = 531
|
||||
Left = 465
|
||||
Top = 30
|
||||
Width = 357
|
||||
ExplicitLeft = 531
|
||||
ExplicitLeft = 465
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 357
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -297,10 +290,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
inherited Bevel1: TBevel
|
||||
Left = 82
|
||||
Top = 72
|
||||
Width = 260
|
||||
Width = 266
|
||||
ExplicitLeft = 82
|
||||
ExplicitTop = 72
|
||||
ExplicitWidth = 260
|
||||
ExplicitWidth = 266
|
||||
end
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Left = 82
|
||||
@ -310,8 +303,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Properties.OnEditValueChanged = frViewClienteContrato1edtlNombrePropertiesEditValueChanged
|
||||
ExplicitLeft = 82
|
||||
ExplicitTop = 95
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 707
|
||||
Width = 707
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 82
|
||||
@ -319,8 +312,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitLeft = 82
|
||||
ExplicitTop = 122
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 707
|
||||
Width = 707
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
Left = 82
|
||||
@ -328,8 +321,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitLeft = 82
|
||||
ExplicitTop = 149
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 707
|
||||
Width = 707
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
Left = 82
|
||||
@ -337,8 +330,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitLeft = 82
|
||||
ExplicitTop = 176
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
ExplicitWidth = 589
|
||||
Width = 589
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
Left = 82
|
||||
@ -346,14 +339,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitLeft = 82
|
||||
ExplicitTop = 203
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 707
|
||||
Width = 707
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 333
|
||||
Left = 278
|
||||
Top = 176
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitLeft = 333
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 176
|
||||
end
|
||||
inherited Button1: TBitBtn
|
||||
@ -369,9 +362,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ExplicitTop = 11
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 223
|
||||
Left = 168
|
||||
Top = 230
|
||||
ExplicitLeft = 223
|
||||
ExplicitLeft = 168
|
||||
ExplicitTop = 230
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
@ -379,51 +372,29 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Top = 42
|
||||
ExplicitLeft = 82
|
||||
ExplicitTop = 42
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Top = 359
|
||||
Width = 392
|
||||
ExplicitTop = 359
|
||||
ExplicitWidth = 392
|
||||
Top = 243
|
||||
Width = 451
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 451
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 392
|
||||
ExplicitWidth = 392
|
||||
Width = 451
|
||||
inherited cbTienda: TcxComboBox
|
||||
ExplicitWidth = 331
|
||||
Width = 331
|
||||
ExplicitWidth = 390
|
||||
Width = 390
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited edtFechaUltRevision: TcxDBDateEdit
|
||||
Top = 111
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador
|
||||
Left = 11
|
||||
Top = 224
|
||||
Width = 425
|
||||
ExplicitLeft = 11
|
||||
ExplicitTop = 224
|
||||
ExplicitWidth = 425
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 425
|
||||
ExplicitWidth = 425
|
||||
inherited edtlNombreInstalador: TcxDBTextEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 233
|
||||
ExplicitLeft = 233
|
||||
end
|
||||
end
|
||||
ExplicitWidth = 123
|
||||
Width = 123
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -434,8 +405,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 979
|
||||
Height = 594
|
||||
Width = 858
|
||||
Height = 445
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -447,106 +418,79 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 594
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 445
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 979
|
||||
Height = 24
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 24
|
||||
Width = 858
|
||||
ExplicitWidth = 858
|
||||
inherited ToolButton4: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 368
|
||||
Top = 0
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 0
|
||||
inherited FontSize: TEdit [5]
|
||||
Left = 0
|
||||
Width = 110
|
||||
ExplicitLeft = 0
|
||||
ExplicitWidth = 110
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Left = 513
|
||||
Top = 0
|
||||
Width = 126
|
||||
ExplicitLeft = 513
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 126
|
||||
inherited UpDown1: TUpDown [6]
|
||||
Left = 110
|
||||
ExplicitLeft = 110
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 639
|
||||
Top = 0
|
||||
ExplicitLeft = 639
|
||||
ExplicitTop = 0
|
||||
inherited FontName: TJvFontComboBox [7]
|
||||
Left = 127
|
||||
ExplicitLeft = 127
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 656
|
||||
Top = 0
|
||||
ExplicitLeft = 656
|
||||
ExplicitTop = 0
|
||||
Left = 272
|
||||
ExplicitLeft = 272
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 664
|
||||
Top = 0
|
||||
ExplicitLeft = 664
|
||||
ExplicitTop = 0
|
||||
Left = 280
|
||||
ExplicitLeft = 280
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 698
|
||||
Top = 0
|
||||
ExplicitLeft = 698
|
||||
ExplicitTop = 0
|
||||
Left = 314
|
||||
ExplicitLeft = 314
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 732
|
||||
Top = 0
|
||||
ExplicitLeft = 732
|
||||
ExplicitTop = 0
|
||||
Left = 348
|
||||
ExplicitLeft = 348
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 766
|
||||
Top = 0
|
||||
ExplicitLeft = 766
|
||||
ExplicitTop = 0
|
||||
Left = 382
|
||||
ExplicitLeft = 382
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 774
|
||||
Top = 0
|
||||
ExplicitLeft = 774
|
||||
ExplicitTop = 0
|
||||
Left = 390
|
||||
ExplicitLeft = 390
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 808
|
||||
Top = 0
|
||||
ExplicitLeft = 808
|
||||
ExplicitTop = 0
|
||||
Left = 424
|
||||
ExplicitLeft = 424
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 842
|
||||
Top = 0
|
||||
ExplicitLeft = 842
|
||||
ExplicitTop = 0
|
||||
Left = 458
|
||||
ExplicitLeft = 458
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 50
|
||||
Width = 979
|
||||
Height = 544
|
||||
ExplicitTop = 50
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 544
|
||||
Width = 858
|
||||
Height = 373
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 373
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 24
|
||||
Width = 979
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 979
|
||||
Width = 858
|
||||
ExplicitWidth = 858
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 718
|
||||
ExplicitWidth = 665
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox1: TcxLookupComboBox
|
||||
@ -566,8 +510,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
object dxLayoutControl2: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 979
|
||||
Height = 594
|
||||
Width = 858
|
||||
Height = 445
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
@ -613,8 +557,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 979
|
||||
Height = 594
|
||||
Width = 858
|
||||
Height = 445
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
@ -660,8 +604,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
inline frViewIncidenciasCli: TfrViewIncidencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 979
|
||||
Height = 594
|
||||
Width = 858
|
||||
Height = 445
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -671,25 +615,25 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 594
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 445
|
||||
inherited pnlSup: TPanel
|
||||
Width = 979
|
||||
ExplicitWidth = 979
|
||||
Width = 858
|
||||
ExplicitWidth = 858
|
||||
inherited eIncidenciaActiva: TcxDBCheckBox
|
||||
ExplicitHeight = 21
|
||||
end
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 979
|
||||
Height = 566
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 566
|
||||
Width = 858
|
||||
Height = 417
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 417
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 975
|
||||
ExplicitHeight = 549
|
||||
Height = 549
|
||||
Width = 975
|
||||
ExplicitWidth = 854
|
||||
ExplicitHeight = 400
|
||||
Height = 400
|
||||
Width = 854
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -701,8 +645,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
inline frViewDocumentosContratoCliente1: TfrViewDocumentosContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 979
|
||||
Height = 594
|
||||
Width = 858
|
||||
Height = 445
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -712,18 +656,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 594
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 445
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 979
|
||||
ExplicitWidth = 979
|
||||
Width = 858
|
||||
ExplicitWidth = 858
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 979
|
||||
Height = 569
|
||||
ExplicitTop = 25
|
||||
ExplicitWidth = 979
|
||||
ExplicitHeight = 569
|
||||
Width = 858
|
||||
Height = 422
|
||||
ExplicitTop = 29
|
||||
ExplicitWidth = 858
|
||||
ExplicitHeight = 407
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Left = 8
|
||||
@ -733,18 +677,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
end
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 993
|
||||
ExplicitTop = 78
|
||||
ExplicitWidth = 993
|
||||
Width = 872
|
||||
ExplicitWidth = 872
|
||||
inherited lbComentario: TLabel
|
||||
Width = 983
|
||||
Width = 862
|
||||
Height = 25
|
||||
end
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [5]
|
||||
Left = 0
|
||||
Top = 736
|
||||
Width = 993
|
||||
Top = 585
|
||||
Width = 872
|
||||
Height = 194
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -755,22 +698,22 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
ReadOnly = False
|
||||
ExplicitTop = 736
|
||||
ExplicitWidth = 993
|
||||
ExplicitTop = 585
|
||||
ExplicitWidth = 872
|
||||
ExplicitHeight = 194
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 993
|
||||
ExplicitWidth = 993
|
||||
Width = 872
|
||||
ExplicitWidth = 872
|
||||
inherited Bevel3: TBevel
|
||||
Left = 486
|
||||
Left = 429
|
||||
Height = 122
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 429
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 598
|
||||
Left = 541
|
||||
Width = 210
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 210
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
@ -779,16 +722,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 669
|
||||
Left = 612
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 669
|
||||
ExplicitLeft = 612
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 599
|
||||
Left = 542
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 599
|
||||
ExplicitLeft = 542
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
@ -796,26 +739,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 598
|
||||
Left = 541
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 541
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 598
|
||||
Left = 541
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 598
|
||||
Left = 541
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 541
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 669
|
||||
Left = 612
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 669
|
||||
ExplicitLeft = 612
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
@ -836,9 +779,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Width = 81
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 338
|
||||
Left = 281
|
||||
OnClick = frViewTotales1bTiposIVAClick
|
||||
ExplicitLeft = 338
|
||||
ExplicitLeft = 281
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
ExplicitWidth = 219
|
||||
|
||||
@ -2,8 +2,8 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
|
||||
Caption = 'fEditorContratosClienteBeneficios'
|
||||
ClientHeight = 560
|
||||
ClientWidth = 771
|
||||
ExplicitWidth = 787
|
||||
ExplicitHeight = 598
|
||||
ExplicitWidth = 779
|
||||
ExplicitHeight = 594
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -19,28 +19,14 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
|
||||
Width = 771
|
||||
ExplicitWidth = 771
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 456
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 362
|
||||
inherited lblAno: TTBXLabelItem
|
||||
Visible = True
|
||||
end
|
||||
inherited cbxListaAnos: TTBXComboBoxItem
|
||||
Visible = True
|
||||
end
|
||||
inherited sepAno: TTBXSeparatorItem
|
||||
Visible = True
|
||||
end
|
||||
ExplicitWidth = 427
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 771
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 362
|
||||
Visible = True
|
||||
ExplicitLeft = 362
|
||||
ExplicitWidth = 94
|
||||
ExplicitWidth = 87
|
||||
object TBItem1: TTBItem
|
||||
Action = actVerBeneficio
|
||||
end
|
||||
@ -54,9 +40,9 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
|
||||
end
|
||||
inline frViewContratosClienteBeneficios1: TfrViewContratosClienteBeneficios [3]
|
||||
Left = 0
|
||||
Top = 105
|
||||
Top = 102
|
||||
Width = 771
|
||||
Height = 436
|
||||
Height = 439
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -66,14 +52,14 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 105
|
||||
ExplicitTop = 102
|
||||
ExplicitWidth = 771
|
||||
ExplicitHeight = 436
|
||||
ExplicitHeight = 439
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 771
|
||||
Height = 308
|
||||
Height = 311
|
||||
ExplicitWidth = 771
|
||||
ExplicitHeight = 308
|
||||
ExplicitHeight = 311
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -121,36 +107,20 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 441
|
||||
Left = 474
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
end
|
||||
inherited txtFiltroTodo2: TcxTextEdit
|
||||
Left = 441
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 441
|
||||
ExplicitWidth = 250
|
||||
Width = 250
|
||||
ExplicitLeft = 474
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -164,8 +134,8 @@ inherited fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 410
|
||||
ExplicitTop = 410
|
||||
Top = 413
|
||||
ExplicitTop = 413
|
||||
ExplicitWidth = 771
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 771
|
||||
|
||||
@ -19,8 +19,6 @@ type
|
||||
TBItem1: TTBItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actVerBeneficioExecute(Sender: TObject);
|
||||
procedure OnListaAnosChange(Sender: TObject; const Text: string);
|
||||
|
||||
private
|
||||
FContratos: IBizContratosClienteBeneficios;
|
||||
FController : IContratosClienteController;
|
||||
@ -35,7 +33,6 @@ type
|
||||
protected
|
||||
procedure ImprimirInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure RefrescarInterno; override;
|
||||
|
||||
public
|
||||
property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos;
|
||||
@ -49,10 +46,8 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorContratosClienteBeneficios }
|
||||
|
||||
procedure TfEditorContratosClienteBeneficios.actVerBeneficioExecute(
|
||||
@ -76,8 +71,6 @@ end;
|
||||
|
||||
procedure TfEditorContratosClienteBeneficios.FormShow(Sender: TObject);
|
||||
begin
|
||||
cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED
|
||||
|
||||
inherited;
|
||||
ViewGrid := frViewContratosClienteBeneficios1;
|
||||
FContratos.Active := True;
|
||||
@ -100,64 +93,26 @@ begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosClienteBeneficios.OnListaAnosChange(Sender: TObject; const Text: string);
|
||||
begin
|
||||
Controller.FiltrarAnoBeneficios(Contratos, DynWhereDataTable, Text);
|
||||
if Contratos.DataTable.Active then
|
||||
RefrescarInterno;
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosClienteBeneficios.PrevisualizarInterno;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosClienteBeneficios.RefrescarInterno;
|
||||
begin
|
||||
//Volvemos a cargar los años de los Contratos
|
||||
if Assigned(FController) then
|
||||
ListaAnos := FController.DarListaAnosContratos;
|
||||
|
||||
//Pasamos del padre ya que refresh da error
|
||||
// inherited;
|
||||
ShowHourglassCursor;
|
||||
ViewGrid.SaveGridStatus;
|
||||
ViewGrid._FocusedView.BeginUpdate;
|
||||
|
||||
try
|
||||
Contratos.DataTable.Active := False;
|
||||
Contratos.DataTable.Active := True;
|
||||
|
||||
finally
|
||||
ViewGrid._FocusedView.EndUpdate;
|
||||
ViewGrid.RestoreGridStatus;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosClienteBeneficios.SetContratos(const Value: IBizContratosClienteBeneficios);
|
||||
begin
|
||||
FContratos := Value;
|
||||
|
||||
if Assigned(FContratos) then
|
||||
begin
|
||||
//Se guarda el where de la sentencia origen, por si el editor tiene filtros que
|
||||
//afecten a este where y en un futuro se desea volver al where origen (filtro de año))
|
||||
DynWhereDataTable := FContratos.DataTable.DynamicWhere.Xml;
|
||||
frViewContratosClienteBeneficios1.Contratos := FContratos;
|
||||
end;
|
||||
frViewContratosClienteBeneficios1.Contratos := FContratos;
|
||||
end;
|
||||
|
||||
procedure TfEditorContratosClienteBeneficios.SetController(const Value: IContratosClienteController);
|
||||
procedure TfEditorContratosClienteBeneficios.SetController(
|
||||
const Value: IContratosClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController) then
|
||||
ListaAnos := FController.DarListaAnosContratos;
|
||||
// if Assigned(FController) then
|
||||
// ListaAnos := FController.DarListaAnosContratos;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,23 +1,23 @@
|
||||
inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 1027
|
||||
Height = 801
|
||||
Width = 817
|
||||
Height = 491
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 1027
|
||||
ExplicitHeight = 801
|
||||
ExplicitWidth = 817
|
||||
ExplicitHeight = 491
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1027
|
||||
Height = 801
|
||||
Width = 817
|
||||
Height = 491
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
1027
|
||||
801)
|
||||
817
|
||||
491)
|
||||
object edtFechaContrato: TcxDBDateEdit
|
||||
Left = 131
|
||||
Top = 82
|
||||
@ -42,8 +42,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 129
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 529
|
||||
Top = 344
|
||||
Left = 444
|
||||
Top = 334
|
||||
Align = alClient
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -59,7 +59,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 14
|
||||
TabOrder = 13
|
||||
Height = 139
|
||||
Width = 404
|
||||
end
|
||||
@ -119,7 +119,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 122
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 367
|
||||
Left = 282
|
||||
Top = 163
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -159,7 +159,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
object memFormaPago: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 459
|
||||
Top = 324
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -175,13 +175,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 10
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
object memPlazoEntrega: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 637
|
||||
Top = 415
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'PLAZO_ENTREGA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -197,7 +197,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 11
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
@ -232,7 +232,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 27
|
||||
end
|
||||
object cbTipoContrato: TcxDBComboBox
|
||||
Left = 365
|
||||
Left = 318
|
||||
Top = 82
|
||||
DataBinding.DataField = 'TIPO_CONTRATO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -280,21 +280,21 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 335
|
||||
end
|
||||
inline frViewClienteContrato1: TfrViewClienteContrato
|
||||
Left = 529
|
||||
Left = 444
|
||||
Top = 28
|
||||
Width = 476
|
||||
Height = 280
|
||||
TabOrder = 13
|
||||
Width = 366
|
||||
Height = 270
|
||||
TabOrder = 12
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 529
|
||||
ExplicitLeft = 444
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 476
|
||||
ExplicitHeight = 280
|
||||
ExplicitWidth = 366
|
||||
ExplicitHeight = 270
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 476
|
||||
Height = 280
|
||||
ExplicitWidth = 478
|
||||
ExplicitHeight = 280
|
||||
Width = 366
|
||||
Height = 270
|
||||
ExplicitWidth = 366
|
||||
ExplicitHeight = 270
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 707
|
||||
Width = 707
|
||||
@ -316,12 +316,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
Width = 707
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 385
|
||||
ExplicitLeft = 385
|
||||
Left = 259
|
||||
ExplicitLeft = 259
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 275
|
||||
ExplicitLeft = 275
|
||||
Left = 149
|
||||
ExplicitLeft = 149
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
@ -331,20 +331,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
Left = 22
|
||||
Top = 363
|
||||
Width = 476
|
||||
Height = 60
|
||||
Align = alClient
|
||||
TabOrder = 10
|
||||
Top = 247
|
||||
Width = 451
|
||||
Height = 41
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 22
|
||||
ExplicitTop = 363
|
||||
ExplicitWidth = 476
|
||||
ExplicitHeight = 60
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 476
|
||||
ExplicitWidth = 475
|
||||
end
|
||||
ExplicitTop = 247
|
||||
end
|
||||
object edtFechaUltRevision: TcxDBDateEdit
|
||||
Left = 131
|
||||
@ -369,65 +362,6 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
TabOrder = 4
|
||||
Width = 123
|
||||
end
|
||||
inline frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador
|
||||
Left = 10
|
||||
Top = 229
|
||||
Width = 488
|
||||
Height = 110
|
||||
Align = alClient
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 10
|
||||
ExplicitTop = 229
|
||||
ExplicitWidth = 488
|
||||
ExplicitHeight = 110
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 488
|
||||
Height = 110
|
||||
ExplicitWidth = 499
|
||||
ExplicitHeight = 110
|
||||
inherited edtlNombreInstalador: TcxDBTextEdit
|
||||
Left = 109
|
||||
DataBinding.DataSource = DADataSource
|
||||
ExplicitLeft = 109
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited Button1: TBitBtn
|
||||
Width = 175
|
||||
Caption = 'Elegir un alba'#241'il / instalador'
|
||||
ExplicitWidth = 175
|
||||
end
|
||||
inherited Button2: TBitBtn
|
||||
Left = 191
|
||||
Width = 190
|
||||
Caption = 'Dar de alta un alba'#241'il / instalador'
|
||||
ExplicitLeft = 191
|
||||
ExplicitWidth = 190
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 231
|
||||
Width = 260
|
||||
Caption = 'Ver ficha completa del alba'#241'il / instalador...'
|
||||
ExplicitLeft = 231
|
||||
ExplicitWidth = 260
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item1: TdxLayoutItem
|
||||
Caption = 'Alba'#241'il / Instalador:'
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
Left = 424
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Left = 456
|
||||
end
|
||||
inherited PngImageList: TPngImageList
|
||||
Left = 488
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -519,13 +453,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item15: TdxLayoutItem
|
||||
Control = frViewDatosYSeleccionInstalador1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||
Caption = 'El contrato pertenece a la tienda'
|
||||
Caption = 'La factura pertenece a la tienda'
|
||||
object dxLayoutControl1Item13: TdxLayoutItem
|
||||
Control = frViewTienda1
|
||||
ControlOptions.AutoColor = True
|
||||
|
||||
@ -12,8 +12,7 @@ uses
|
||||
uViewDireccionEntregaContratoCliente, Buttons, ActnList, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
|
||||
uBizFormasPago, cxButtonEdit, uBizContactos, uContratosClienteController,
|
||||
uVendedoresController, uViewClienteContrato, uViewTienda,
|
||||
uViewDatosYSeleccionInstalador;
|
||||
uVendedoresController, uViewClienteContrato, uViewTienda;
|
||||
|
||||
type
|
||||
IViewContratoCliente = interface(IViewBase)
|
||||
@ -73,8 +72,6 @@ type
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
dxLayoutControl1Item14: TdxLayoutItem;
|
||||
edtFechaUltRevision: TcxDBDateEdit;
|
||||
dxLayoutControl1Item15: TdxLayoutItem;
|
||||
frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
@ -93,9 +90,6 @@ type
|
||||
|
||||
function GetController : IContratosClienteController;
|
||||
procedure SetController (const Value : IContratosClienteController);
|
||||
|
||||
procedure OnInstaladorChanged(Sender : TObject);
|
||||
|
||||
public
|
||||
property Controller : IContratosClienteController read GetController write SetController;
|
||||
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
|
||||
@ -108,7 +102,7 @@ implementation
|
||||
{ TfrViewContratoCliente }
|
||||
|
||||
uses
|
||||
uFactuGES_App, uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
|
||||
uClientesController, uBizDireccionesContacto, uPresupuestosClienteController;
|
||||
|
||||
|
||||
procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
|
||||
@ -137,32 +131,10 @@ begin
|
||||
cbTipoContrato.Properties.Items.Add(CTE_OBRA);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_VARIOS);
|
||||
|
||||
cbTipoContrato.Properties.Items.Add(CTE_MAMPARAS);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_PUERTAS);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_CERAMICA);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_TARIMAS);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_PAPEL);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_VENTANAS);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_CERRAJERIA);
|
||||
cbTipoContrato.Properties.Items.Add(CTE_VARIOSEXT);
|
||||
|
||||
//Victor nos solicita que quitemos el cambio de fecha porque van a empezar a dar las comisiones cuando se acepta un contrato
|
||||
//El usuario administrador y gerencia verán todo
|
||||
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR)
|
||||
OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA_COMUN)
|
||||
OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA_ACANA)
|
||||
OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA_CRISTINA)
|
||||
) then
|
||||
dxLayoutControl1Item2.Enabled := True
|
||||
//todos los demás serán restringidos
|
||||
else
|
||||
dxLayoutControl1Item2.Enabled := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
frViewDatosYSeleccionInstalador1.OnInstaladorChanged := Nil;
|
||||
FFormasPago := Nil;
|
||||
FFormasPagoController := NIL;
|
||||
FVendedor := Nil;
|
||||
@ -203,14 +175,6 @@ begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.OnInstaladorChanged(Sender: TObject);
|
||||
begin
|
||||
if Assigned(FContrato) then
|
||||
begin
|
||||
FController.CambiarInstalador(FContrato, frViewDatosYSeleccionInstalador1.Instalador);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente);
|
||||
begin
|
||||
FContrato := Value;
|
||||
@ -227,9 +191,6 @@ begin
|
||||
dsVendedor.DataTable := FVendedor.DataTable;
|
||||
dsVendedor.DataTable.Active := True;
|
||||
|
||||
frViewDatosYSeleccionInstalador1.ID_Instalador := FContrato.ID_INSTALADOR;
|
||||
frViewDatosYSeleccionInstalador1.OnInstaladorChanged := OnInstaladorChanged;
|
||||
|
||||
frViewClienteContrato1.MsgElegirCliente := 'Elija el cliente al que se le realizará el contrato.';
|
||||
end
|
||||
else begin
|
||||
|
||||
@ -190,10 +190,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
|
||||
Caption = 'Tienda'
|
||||
DataBinding.FieldName = 'TIENDA'
|
||||
end
|
||||
object cxGridViewInstalador: TcxGridDBColumn
|
||||
Caption = 'Alba'#241'il / Instalador'
|
||||
DataBinding.FieldName = 'NOMBRE_INSTALADOR'
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Caption = 'Todos'
|
||||
|
||||
@ -57,7 +57,6 @@ type
|
||||
actVendedor: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXItem4: TTBXItem;
|
||||
cxGridViewInstalador: TcxGridDBColumn;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
|
||||
@ -1,30 +1,28 @@
|
||||
inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
Width = 1042
|
||||
Height = 619
|
||||
Width = 934
|
||||
Height = 594
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 1042
|
||||
ExplicitHeight = 619
|
||||
ExplicitWidth = 934
|
||||
ExplicitHeight = 594
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1042
|
||||
Height = 619
|
||||
Width = 934
|
||||
Height = 594
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 934
|
||||
ExplicitHeight = 594
|
||||
DesignSize = (
|
||||
1042
|
||||
619)
|
||||
934
|
||||
594)
|
||||
inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
|
||||
Left = 642
|
||||
Left = 577
|
||||
Top = 28
|
||||
Width = 350
|
||||
Height = 225
|
||||
Width = 357
|
||||
Height = 215
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -33,11 +31,13 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 15
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 642
|
||||
ExplicitLeft = 577
|
||||
ExplicitTop = 28
|
||||
ExplicitHeight = 225
|
||||
ExplicitWidth = 357
|
||||
ExplicitHeight = 215
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Height = 225
|
||||
Width = 357
|
||||
Height = 215
|
||||
Align = alClient
|
||||
ExplicitWidth = 357
|
||||
ExplicitHeight = 215
|
||||
@ -62,14 +62,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
Width = 283
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 297
|
||||
ExplicitLeft = 297
|
||||
Left = 254
|
||||
ExplicitLeft = 254
|
||||
ExplicitWidth = 71
|
||||
Width = 71
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 170
|
||||
ExplicitLeft = 170
|
||||
Left = 127
|
||||
ExplicitLeft = 127
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -180,41 +180,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
Height = 166
|
||||
ExplicitWidth = 273
|
||||
ExplicitHeight = 166
|
||||
inherited rdxDestino1: TRadioButton
|
||||
Width = 255
|
||||
ExplicitWidth = 255
|
||||
end
|
||||
inherited rdxDestino2: TRadioButton
|
||||
Width = 287
|
||||
ExplicitWidth = 287
|
||||
end
|
||||
inherited bModificar: TBitBtn
|
||||
Left = 529
|
||||
Top = 159
|
||||
ExplicitLeft = 529
|
||||
ExplicitTop = 159
|
||||
end
|
||||
inherited txtDireccion: TStaticText
|
||||
Width = 551
|
||||
Height = 177
|
||||
ExplicitWidth = 551
|
||||
ExplicitHeight = 177
|
||||
end
|
||||
inherited rdxDestinoCliente: TRadioButton
|
||||
Width = 566
|
||||
ExplicitWidth = 566
|
||||
end
|
||||
inherited cbListaDireccionesCliente: TcxDBLookupComboBox
|
||||
ExplicitWidth = 551
|
||||
Width = 551
|
||||
end
|
||||
inherited cbUbicacion: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 183
|
||||
Width = 183
|
||||
end
|
||||
inherited eNumBultos: TcxDBSpinEdit
|
||||
Left = 588
|
||||
@ -262,7 +238,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
Width = 20
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 480
|
||||
Left = 415
|
||||
Top = 163
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -316,7 +292,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
Width = 20
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 512
|
||||
Left = 447
|
||||
Top = 190
|
||||
Width = 100
|
||||
Height = 23
|
||||
@ -324,8 +300,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
TabOrder = 9
|
||||
end
|
||||
inline frViewTienda1: TfrViewTienda
|
||||
Left = 642
|
||||
Top = 289
|
||||
Left = 577
|
||||
Top = 279
|
||||
Width = 357
|
||||
Height = 46
|
||||
Align = alBottom
|
||||
@ -338,8 +314,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 16
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 642
|
||||
ExplicitTop = 289
|
||||
ExplicitLeft = 577
|
||||
ExplicitTop = 279
|
||||
ExplicitWidth = 357
|
||||
ExplicitHeight = 46
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -451,7 +427,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
Width = 250
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 406
|
||||
Left = 341
|
||||
Top = 190
|
||||
Width = 100
|
||||
Height = 23
|
||||
|
||||
@ -19,15 +19,7 @@ const
|
||||
CTE_VARIOS = 'Varios';
|
||||
CTE_SALON = 'Salón';
|
||||
CTE_DORMITORIO = 'Dormitorio';
|
||||
CTE_JARDIN = 'Hogar y jardín';
|
||||
CTE_MAMPARAS = 'Mamparas y grifería';
|
||||
CTE_PUERTAS = 'Puertas y rodapie';
|
||||
CTE_CERAMICA = 'Cerámica';
|
||||
CTE_TARIMAS = 'Tarimas';
|
||||
CTE_PAPEL = 'Papel pintado y moduras';
|
||||
CTE_VENTANAS = 'Ventanas';
|
||||
CTE_CERRAJERIA = 'Cerrajeria';
|
||||
CTE_VARIOSEXT = 'Varios externos';
|
||||
CTE_JARDIN = 'Terraza y jardín';
|
||||
|
||||
CTE_FORMA_PAGO_COCINA = 'FORMA_PAGO_COCINA';
|
||||
CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
|
||||
@ -567,10 +559,7 @@ begin
|
||||
if not EsModificable(APresupuesto) then
|
||||
begin
|
||||
SetDataTableReadOnly(APresupuesto.DataTable, True);
|
||||
//En el caso de las plantilla dejamos mover el cursor del grid pero sin poder modificar nada
|
||||
//activamos el grid para que puedan consultar contenido.
|
||||
if not (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PLANTILLA) then
|
||||
AEditor.ReadOnly := True;
|
||||
AEditor.ReadOnly := True;
|
||||
end;
|
||||
|
||||
AEditor.ShowModal;
|
||||
|
||||
@ -5,8 +5,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ClientHeight = 801
|
||||
ClientWidth = 848
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 864
|
||||
ExplicitHeight = 839
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 835
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -137,7 +137,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Width = 848
|
||||
ExplicitWidth = 848
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 518
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -184,46 +184,32 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 842
|
||||
Height = 440
|
||||
Height = 442
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 842
|
||||
ExplicitHeight = 440
|
||||
ExplicitHeight = 442
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 412
|
||||
ExplicitHeight = 414
|
||||
inline frViewPresupuestoCliente1: TfrViewPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 412
|
||||
Height = 414
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 412
|
||||
ExplicitHeight = 414
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 834
|
||||
Height = 412
|
||||
Height = 414
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 412
|
||||
inherited edtFechaPresupuesto: TcxDBDateEdit
|
||||
ExplicitWidth = 187
|
||||
Width = 187
|
||||
end
|
||||
ExplicitHeight = 414
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Left = 403
|
||||
ExplicitLeft = 403
|
||||
ExplicitWidth = 793
|
||||
Width = 793
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
ExplicitWidth = 122
|
||||
Width = 122
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
ExplicitWidth = 122
|
||||
Width = 122
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 241
|
||||
@ -232,28 +218,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited edtFechaDecision: TcxDBDateEdit
|
||||
Left = 287
|
||||
ExplicitLeft = 287
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited edtFechaVigencia: TcxDBDateEdit
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited cbSituacion: TcxDBImageComboBox
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
|
||||
Left = 403
|
||||
Width = 320
|
||||
ExplicitLeft = 403
|
||||
ExplicitWidth = 320
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 320
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 279
|
||||
ExplicitLeft = 279
|
||||
@ -262,14 +231,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 190
|
||||
ExplicitLeft = 190
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 359
|
||||
ExplicitLeft = 359
|
||||
@ -278,54 +239,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 359
|
||||
ExplicitLeft = 359
|
||||
end
|
||||
inherited edtTelefonos: TcxTextEdit
|
||||
ExplicitWidth = 363
|
||||
Width = 363
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited memFormaPago: TcxDBMemo
|
||||
ExplicitWidth = 475
|
||||
ExplicitHeight = 44
|
||||
Height = 44
|
||||
Width = 475
|
||||
end
|
||||
inherited memPlazoEntrega: TcxDBMemo
|
||||
Top = 407
|
||||
ExplicitTop = 407
|
||||
ExplicitWidth = 396
|
||||
ExplicitHeight = 100
|
||||
Height = 100
|
||||
Width = 396
|
||||
end
|
||||
inherited cbVendedor: TcxDBLookupComboBox
|
||||
ExplicitWidth = 27
|
||||
Width = 27
|
||||
end
|
||||
inherited cbTipoPresupuesto: TcxDBComboBox
|
||||
Left = 282
|
||||
ExplicitLeft = 282
|
||||
ExplicitWidth = 186
|
||||
Width = 186
|
||||
end
|
||||
inherited edtRef_cliente: TcxDBTextEdit
|
||||
ExplicitWidth = 204
|
||||
Width = 204
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
Width = 451
|
||||
ExplicitWidth = 451
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 451
|
||||
inherited cbTienda: TcxComboBox
|
||||
ExplicitWidth = 390
|
||||
Width = 390
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited edtFechaUltRevision: TcxDBDateEdit
|
||||
ExplicitWidth = 111
|
||||
Width = 111
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -337,7 +259,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 412
|
||||
Height = 414
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -350,11 +272,24 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 412
|
||||
ExplicitHeight = 414
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 834
|
||||
Height = 24
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 24
|
||||
inherited ToolButton4: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 368
|
||||
Top = 0
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 0
|
||||
end
|
||||
@ -424,7 +359,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 50
|
||||
Width = 834
|
||||
Height = 362
|
||||
Height = 364
|
||||
ExplicitTop = 50
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 364
|
||||
@ -435,7 +370,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 834
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 718
|
||||
ExplicitWidth = 665
|
||||
end
|
||||
end
|
||||
inherited cxLookupComboBox1: TcxLookupComboBox
|
||||
@ -456,7 +391,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 412
|
||||
Height = 414
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
@ -503,7 +438,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 412
|
||||
Height = 414
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -514,7 +449,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 412
|
||||
ExplicitHeight = 414
|
||||
inherited pnlSup: TPanel
|
||||
Width = 834
|
||||
ExplicitWidth = 834
|
||||
@ -524,13 +459,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 834
|
||||
Height = 384
|
||||
Height = 386
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 386
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 830
|
||||
ExplicitHeight = 367
|
||||
Height = 367
|
||||
ExplicitHeight = 369
|
||||
Height = 369
|
||||
Width = 830
|
||||
end
|
||||
end
|
||||
@ -544,7 +479,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 834
|
||||
Height = 412
|
||||
Height = 414
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -555,14 +490,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 412
|
||||
ExplicitHeight = 414
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 834
|
||||
ExplicitWidth = 834
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 834
|
||||
Height = 387
|
||||
Height = 391
|
||||
ExplicitWidth = 834
|
||||
ExplicitHeight = 391
|
||||
end
|
||||
@ -578,7 +513,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitWidth = 848
|
||||
inherited lbComentario: TLabel
|
||||
Width = 838
|
||||
Height = 25
|
||||
end
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotalesPresupuesto [5]
|
||||
@ -603,18 +537,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 848
|
||||
inherited Bevel3: TBevel
|
||||
Left = 352
|
||||
Left = 310
|
||||
Top = 57
|
||||
Height = 122
|
||||
ExplicitLeft = 352
|
||||
ExplicitLeft = 310
|
||||
ExplicitTop = 57
|
||||
ExplicitHeight = 122
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 464
|
||||
Left = 422
|
||||
Top = 88
|
||||
Width = 342
|
||||
ExplicitLeft = 464
|
||||
ExplicitLeft = 422
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 342
|
||||
end
|
||||
@ -622,26 +554,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Top = 84
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 93
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 535
|
||||
Left = 493
|
||||
Top = 108
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 535
|
||||
ExplicitLeft = 493
|
||||
ExplicitTop = 108
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 465
|
||||
Left = 423
|
||||
Top = 162
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 465
|
||||
ExplicitLeft = 423
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Top = 84
|
||||
@ -649,69 +575,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 464
|
||||
Left = 422
|
||||
Top = 108
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 464
|
||||
ExplicitLeft = 422
|
||||
ExplicitTop = 108
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 464
|
||||
Left = 422
|
||||
Top = 57
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 464
|
||||
ExplicitLeft = 422
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 464
|
||||
Left = 422
|
||||
Top = 135
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 464
|
||||
ExplicitLeft = 422
|
||||
ExplicitTop = 135
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 535
|
||||
Left = 493
|
||||
Top = 135
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 535
|
||||
ExplicitLeft = 493
|
||||
ExplicitTop = 135
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Top = 57
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Top = 111
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 147
|
||||
Width = 147
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 81
|
||||
Width = 81
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 204
|
||||
Left = 162
|
||||
Top = 138
|
||||
OnClick = frViewTotales1bTiposIVAClick
|
||||
ExplicitLeft = 204
|
||||
ExplicitLeft = 162
|
||||
ExplicitTop = 138
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 219
|
||||
Width = 219
|
||||
end
|
||||
inherited cbValorado: TcxDBCheckBox
|
||||
Left = 11
|
||||
|
||||
@ -282,7 +282,6 @@ begin
|
||||
try
|
||||
bEsNuevo := FPresupuesto.EsNuevo;
|
||||
|
||||
//Victor nos solicita que quitemos el cambio de fecha porque van a empezar a dar las comisiones cuando se acepta un contrato
|
||||
if not bEsNuevo then
|
||||
if (FPresupuesto.FECHA_ULT_PRESENTACION_CLIENTE < Date) then
|
||||
if ShowConfirmMessage('Cambio fecha actualización', '¿Desea cambiar la fecha de última actualización del presupuesto por la de hoy?') = IDYES then
|
||||
|
||||
@ -232,10 +232,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Height = 224
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 224
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 320
|
||||
ExplicitLeft = 320
|
||||
@ -244,10 +240,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Left = 231
|
||||
ExplicitLeft = 231
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
@ -260,10 +252,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Left = 400
|
||||
ExplicitLeft = 400
|
||||
end
|
||||
inherited edtTelefonos: TcxTextEdit
|
||||
ExplicitWidth = 363
|
||||
Width = 363
|
||||
end
|
||||
end
|
||||
end
|
||||
object memFormaPago: TcxDBMemo
|
||||
|
||||
@ -136,15 +136,6 @@ begin
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_OBRA);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOS);
|
||||
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_MAMPARAS);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_PUERTAS);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_CERAMICA);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_TARIMAS);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_PAPEL);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_VENTANAS);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_CERRAJERIA);
|
||||
cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOSEXT);
|
||||
|
||||
//FILTRO DE EMPRESAS
|
||||
{ if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_CRISTINA) then
|
||||
begin
|
||||
|
||||
@ -80,7 +80,7 @@ begin
|
||||
// APedido.IMPORTE_IVA := AContrato.IMPORTE_IVA;
|
||||
// APedido.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
|
||||
APedido.ID_TIENDA := AContrato.ID_TIENDA;
|
||||
APedido.ID_VENDEDOR := AContrato.ID_VENDEDOR;
|
||||
// APedido.ID_VENDEDOR := AContrato.ID_VENDEDOR;
|
||||
// APedido.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA;
|
||||
// APedido.RE := AContrato.RE;
|
||||
// APedido.IMPORTE_RE := AContrato.IMPORTE_RE;
|
||||
|
||||
@ -1,22 +0,0 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -110,6 +110,8 @@ uses
|
||||
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
|
||||
uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: TDataModule},
|
||||
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
|
||||
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
|
||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
||||
@ -133,13 +135,10 @@ uses
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
|
||||
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
uBizInstaladoresServer in '..\Modulos\Contactos\Model\uBizInstaladoresServer.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
|
||||
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
|
||||
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</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">5.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">5.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de febrero de 2025 17:26</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">jueves, 01 de agosto de 2024 15:42</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -106,7 +106,6 @@
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizInstaladoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas">
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 5,0,0,0
|
||||
PRODUCTVERSION 5,0,0,0
|
||||
FILEVERSION 4,0,0,0
|
||||
PRODUCTVERSION 4,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "5.0.0.0\0"
|
||||
VALUE "FileVersion", "4.0.0.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "5.0.0.0\0"
|
||||
VALUE "CompileDate", "martes, 25 de febrero de 2025 18:22\0"
|
||||
VALUE "ProductVersion", "4.0.0.0\0"
|
||||
VALUE "CompileDate", "jueves, 19 de septiembre de 2024 18:07\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user