Ticket #90 -> En los presupuestos, poder poner una persona de contacto y que sea modificable.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@549 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
7e437e3448
commit
063d4b09df
@ -1004,7 +1004,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
|
||||
ID_FORMA_PAGO TIPO_ID,
|
||||
REFERENCIA_CLIENTE VARCHAR(255),
|
||||
CLIENTE_FINAL VARCHAR(255),
|
||||
ID_FACTURA TIPO_ID
|
||||
ID_FACTURA TIPO_ID,
|
||||
PERSONA_CONTACTO VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
@ -2786,7 +2787,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
|
||||
IMPORTE_TOTAL,
|
||||
ID_FORMA_PAGO,
|
||||
ID_FACTURA,
|
||||
FACTURA)
|
||||
FACTURA,
|
||||
PERSONA_CONTACTO)
|
||||
AS
|
||||
SELECT
|
||||
PRESUPUESTOS_CLIENTE.ID,
|
||||
@ -2819,7 +2821,8 @@ SELECT
|
||||
PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,
|
||||
PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO,
|
||||
PRESUPUESTOS_CLIENTE.ID_FACTURA,
|
||||
FACTURAS_CLIENTE.REFERENCIA
|
||||
FACTURAS_CLIENTE.REFERENCIA,
|
||||
PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO
|
||||
FROM
|
||||
PRESUPUESTOS_CLIENTE
|
||||
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
|
||||
|
||||
@ -31,7 +31,14 @@ requires
|
||||
GUIBase,
|
||||
ApplicationBase,
|
||||
Contactos_model,
|
||||
Contactos_data;
|
||||
Contactos_data,
|
||||
GUISDK_D11,
|
||||
xmlrtl,
|
||||
cfpack_d11,
|
||||
vclx,
|
||||
vclactnband,
|
||||
designide,
|
||||
ccpackD11;
|
||||
|
||||
contains
|
||||
uContactosController in 'uContactosController.pas',
|
||||
@ -65,6 +72,7 @@ contains
|
||||
uDatosBancariosContactoController in 'uDatosBancariosContactoController.pas',
|
||||
uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas',
|
||||
uPersonalContactoController in 'uPersonalContactoController.pas',
|
||||
uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas';
|
||||
uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas',
|
||||
uIEditorElegirPersonaContactoCliente in 'View\uIEditorElegirPersonaContactoCliente.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -43,15 +43,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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>
|
||||
@ -62,13 +53,6 @@
|
||||
<DelphiCompile Include="Contactos_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<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_data.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="uClientesController.pas" />
|
||||
<DCCReference Include="uContactosController.pas" />
|
||||
<DCCReference Include="uDatosBancariosContactoController.pas" />
|
||||
@ -81,6 +65,16 @@
|
||||
<DCCReference Include="uGruposProveedorController.pas" />
|
||||
<DCCReference Include="uPersonalContactoController.pas" />
|
||||
<DCCReference Include="uProveedoresController.pas" />
|
||||
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||
<DCCReference Include="View\Base.dcp" />
|
||||
<DCCReference Include="View\ccpackD11.dcp" />
|
||||
<DCCReference Include="View\cfpack_d11.dcp" />
|
||||
<DCCReference Include="View\Contactos_data.dcp" />
|
||||
<DCCReference Include="View\Contactos_model.dcp" />
|
||||
<DCCReference Include="View\designide.dcp" />
|
||||
<DCCReference Include="View\GUIBase.dcp" />
|
||||
<DCCReference Include="View\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="View\rtl.dcp" />
|
||||
<DCCReference Include="View\uIEditorCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorContacto.pas" />
|
||||
@ -90,6 +84,7 @@
|
||||
<DCCReference Include="View\uIEditorElegirClientes.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirContactos.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirPersonaContactoCliente.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirProveedores.pas" />
|
||||
<DCCReference Include="View\uIEditorEmpleado.pas" />
|
||||
<DCCReference Include="View\uIEditorEmpleados.pas" />
|
||||
@ -101,6 +96,10 @@
|
||||
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
|
||||
<DCCReference Include="View\uIEditorProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorProveedores.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vclactnband.dcp" />
|
||||
<DCCReference Include="View\vclx.dcp" />
|
||||
<DCCReference Include="View\xmlrtl.dcp" />
|
||||
<None Include="ModelSupport_Contactos_controller\default.txaPackage" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
@ -0,0 +1,29 @@
|
||||
unit uIEditorElegirPersonaContactoCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizContactosPersonal, uGUIBase;
|
||||
|
||||
type
|
||||
IEditorElegirPersonaContactoCliente = interface
|
||||
['{40EBA9D9-EFE4-4A0E-B433-AD61E2EAF94F}']
|
||||
function GetPersonas: IBizContactoPersonal;
|
||||
procedure SetPersonas(const Value: IBizContactoPersonal);
|
||||
property Personas: IBizContactoPersonal read GetPersonas write SetPersonas;
|
||||
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
|
||||
function GetPersonaSeleccionada: IBizContactoPersonal;
|
||||
property PersonaSeleccionada: IBizContactoPersonal read GetPersonaSeleccionada;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -6,7 +6,7 @@ uses
|
||||
uCustomEditor,
|
||||
uContactosController, uBizContactos, uBizDireccionesContacto,
|
||||
uIEditorClientes, uIEditorCliente, uIDataModuleContactos, uIDataModuleClientes,
|
||||
uDireccionesContactoController;
|
||||
uDireccionesContactoController, uBizContactosPersonal;
|
||||
|
||||
type
|
||||
IClientesController = interface(IContactosController)
|
||||
@ -14,6 +14,7 @@ type
|
||||
function BuscarTodosTiendaWeb: IBizCliente;
|
||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto;
|
||||
function ElegirPersonaContacto(APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal;
|
||||
function EsEliminable(ACliente: IBizContacto): Boolean;
|
||||
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
|
||||
@ -41,6 +42,8 @@ type
|
||||
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
|
||||
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
|
||||
AMensaje: String): IBizDireccionesContacto;
|
||||
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
|
||||
AMensaje: String): IBizContactoPersonal;
|
||||
function EsEliminable(ACliente: IBizContacto): Boolean;
|
||||
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
|
||||
@ -53,7 +56,7 @@ uses
|
||||
Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||
uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase,
|
||||
Dialogs, uIntegerListUtils;
|
||||
Dialogs, uIntegerListUtils, uIEditorElegirPersonaContactoCliente;
|
||||
|
||||
{ TClientesController }
|
||||
|
||||
@ -128,17 +131,39 @@ begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirDireccionEntrega', IEditorElegirDireccionEntrega, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
Direccion := ADirecciones;
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := DireccionSeleccionada;
|
||||
Release;
|
||||
if Assigned(AEditor) then
|
||||
begin
|
||||
try
|
||||
AEditor.Direccion := ADirecciones;
|
||||
AEditor.Mensaje := AMensaje;
|
||||
if IsPositiveResult(AEditor.ShowModal) then
|
||||
Result := AEditor.DireccionSeleccionada;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TClientesController.ElegirPersonaContacto(
|
||||
APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal;
|
||||
var
|
||||
AEditor : IEditorElegirPersonaContactoCliente;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirPersonaContactoCliente', IEditorElegirPersonaContactoCliente, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
begin
|
||||
try
|
||||
AEditor.Personas := APersonal;
|
||||
AEditor.Mensaje := AMensaje;
|
||||
if IsPositiveResult(AEditor.ShowModal) then
|
||||
Result := AEditor.PersonaSeleccionada;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -82,7 +82,7 @@ contains
|
||||
uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
|
||||
uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
|
||||
uEditorDatoBancario in 'uEditorDatoBancario.pas' {fEditorDatoBancario},
|
||||
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega},
|
||||
uEditorElegirPersonaContactoCliente in 'uEditorElegirPersonaContactoCliente.pas' {fEditorElegirPersonaContactoCliente: TfEditorElegirDireccionEntrega},
|
||||
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
|
||||
uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
|
||||
uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame},
|
||||
|
||||
@ -49,38 +49,52 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_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="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Base.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\CJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\CoJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ConJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ContacJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ContactJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ContactoJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ContactosJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_vieJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_viewJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_viJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\Contactos_vJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ContaJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\ContJvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Controller\vclx.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
@ -109,8 +123,8 @@
|
||||
<Form>fEditorElegirClientes</Form>
|
||||
<DesignClass>TCustomEditor</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirDireccionEntrega.pas">
|
||||
<Form>fEditorElegirDireccionEntrega</Form>
|
||||
<DCCReference Include="uEditorElegirPersonaContactoCliente.pas">
|
||||
<Form>fEditorElegirPersonaContactoCliente</Form>
|
||||
<DesignClass>TfEditorElegirDireccionEntrega</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorElegirProveedores.pas">
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
|
||||
uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado,
|
||||
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport,
|
||||
uEditorDatoBancario, uEditorPersonal;
|
||||
uEditorDatoBancario, uEditorPersonal, uEditorElegirPersonaContactoCliente;
|
||||
|
||||
procedure RegisterViews;
|
||||
begin
|
||||
@ -43,6 +43,8 @@ begin
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorFichasEmpleadoPreview, 'EditorFichasEmpleadoPreview');
|
||||
EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
|
||||
|
||||
EditorRegistry.RegisterClass(TfEditorElegirPersonaContactoCliente, 'EditorElegirPersonaContactoCliente');
|
||||
end;
|
||||
|
||||
procedure UnregisterViews;
|
||||
@ -71,6 +73,8 @@ begin
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorFichasEmpleadoPreview);
|
||||
EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
|
||||
|
||||
EditorRegistry.UnRegisterClass(TfEditorElegirPersonaContactoCliente);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,247 @@
|
||||
object fEditorElegirPersonaContactoCliente: TfEditorElegirPersonaContactoCliente
|
||||
Left = 227
|
||||
Top = 108
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Elegir una direcciones de cliente'
|
||||
ClientHeight = 383
|
||||
ClientWidth = 599
|
||||
Color = clBtnFace
|
||||
ParentFont = True
|
||||
OldCreateOrder = True
|
||||
Position = poOwnerFormCenter
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvgWizardHeader1: TJvgWizardHeader
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 599
|
||||
Height = 60
|
||||
CaptionFont.Charset = DEFAULT_CHARSET
|
||||
CaptionFont.Color = clWindowText
|
||||
CaptionFont.Height = -11
|
||||
CaptionFont.Name = 'Tahoma'
|
||||
CaptionFont.Style = [fsBold]
|
||||
CommentFont.Charset = DEFAULT_CHARSET
|
||||
CommentFont.Color = clWindowText
|
||||
CommentFont.Height = -11
|
||||
CommentFont.Name = 'Tahoma'
|
||||
CommentFont.Style = []
|
||||
SymbolFont.Charset = DEFAULT_CHARSET
|
||||
SymbolFont.Color = clHighlightText
|
||||
SymbolFont.Height = -35
|
||||
SymbolFont.Name = 'Wingdings'
|
||||
SymbolFont.Style = [fsBold]
|
||||
Captions.Strings = (
|
||||
'Seleccione una persona de contacto')
|
||||
Comments.Strings = (
|
||||
|
||||
'El cliente dispone de personas de contacto dadas de alta en su f' +
|
||||
'icha. Seleccione la que quiere utilizar.')
|
||||
Gradient.FromColor = clHighlight
|
||||
Gradient.ToColor = clWindow
|
||||
Gradient.Active = False
|
||||
Gradient.Orientation = fgdVertical
|
||||
BufferedDraw = False
|
||||
ExplicitLeft = -57
|
||||
ExplicitTop = 27
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
inline frViewBarraSeleccion1: TfrViewBarraSeleccion
|
||||
Left = 0
|
||||
Top = 334
|
||||
Width = 599
|
||||
Height = 49
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitTop = 334
|
||||
ExplicitWidth = 599
|
||||
inherited JvFooter1: TJvFooter
|
||||
Width = 599
|
||||
ExplicitWidth = 599
|
||||
inherited bSeleccionar: TJvFooterBtn
|
||||
Left = 387
|
||||
ExplicitLeft = 387
|
||||
end
|
||||
inherited bCancelar: TJvFooterBtn
|
||||
Left = 491
|
||||
ExplicitLeft = 491
|
||||
end
|
||||
end
|
||||
inherited BarraSeleccionActionList: TActionList
|
||||
Top = 11
|
||||
inherited actSeleccionar: TAction
|
||||
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
|
||||
end
|
||||
inherited actCancelar: TAction
|
||||
OnExecute = frViewBarraSeleccion1actCancelarExecute
|
||||
end
|
||||
end
|
||||
end
|
||||
object DBCtrlGrid1: TDBCtrlGrid
|
||||
Left = 8
|
||||
Top = 66
|
||||
Width = 583
|
||||
Height = 261
|
||||
Margins.Left = 10
|
||||
Margins.Top = 10
|
||||
Margins.Right = 10
|
||||
Margins.Bottom = 0
|
||||
AllowDelete = False
|
||||
AllowInsert = False
|
||||
Color = clBtnFace
|
||||
DataSource = dsPersonas
|
||||
PanelHeight = 87
|
||||
PanelWidth = 566
|
||||
ParentColor = False
|
||||
TabOrder = 1
|
||||
SelectedColor = clHighlight
|
||||
OnDblClick = DBCtrlGrid1DblClick
|
||||
object ePuesto: TDBText
|
||||
Left = 58
|
||||
Top = 28
|
||||
Width = 502
|
||||
Height = 17
|
||||
DataField = 'PUESTO'
|
||||
DataSource = dsPersonas
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eTelefono: TDBText
|
||||
Left = 70
|
||||
Top = 47
|
||||
Width = 187
|
||||
Height = 17
|
||||
DataField = 'TELEFONO'
|
||||
DataSource = dsPersonas
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eNombre: TDBText
|
||||
Left = 8
|
||||
Top = 7
|
||||
Width = 537
|
||||
Height = 17
|
||||
DataField = 'NOMBRE'
|
||||
DataSource = dsPersonas
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 15
|
||||
Top = 28
|
||||
Width = 37
|
||||
Height = 13
|
||||
Caption = 'Puesto:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 15
|
||||
Top = 47
|
||||
Width = 46
|
||||
Height = 13
|
||||
Caption = 'Tel'#233'fono:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 281
|
||||
Top = 47
|
||||
Width = 47
|
||||
Height = 13
|
||||
Caption = 'Tlf. m'#243'vil:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eMovil: TDBText
|
||||
Left = 334
|
||||
Top = 47
|
||||
Width = 187
|
||||
Height = 17
|
||||
DataField = 'MOVIL'
|
||||
DataSource = dsPersonas
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 16
|
||||
Top = 66
|
||||
Width = 48
|
||||
Height = 13
|
||||
Caption = 'N'#250'm. fax:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eFax: TDBText
|
||||
Left = 70
|
||||
Top = 66
|
||||
Width = 187
|
||||
Height = 17
|
||||
DataField = 'FAX'
|
||||
DataSource = dsPersonas
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 281
|
||||
Top = 66
|
||||
Width = 32
|
||||
Height = 13
|
||||
Caption = 'E-mail:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eEMail: TDBText
|
||||
Left = 334
|
||||
Top = 66
|
||||
Width = 187
|
||||
Height = 17
|
||||
DataField = 'EMAIL'
|
||||
DataSource = dsPersonas
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
end
|
||||
object dsPersonas: TDADataSource
|
||||
Left = 24
|
||||
Top = 286
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,110 @@
|
||||
unit uEditorElegirPersonaContactoCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
||||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||
uIEditorElegirPersonaContactoCliente, uCustomView,
|
||||
uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
|
||||
DBCGrids, uBizContactosPersonal, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorElegirPersonaContactoCliente = class(TForm, IEditorElegirPersonaContactoCliente)
|
||||
dsPersonas: TDADataSource;
|
||||
frViewBarraSeleccion1: TfrViewBarraSeleccion;
|
||||
JvgWizardHeader1: TJvgWizardHeader;
|
||||
DBCtrlGrid1: TDBCtrlGrid;
|
||||
ePuesto: TDBText;
|
||||
eTelefono: TDBText;
|
||||
eNombre: TDBText;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
eMovil: TDBText;
|
||||
Label4: TLabel;
|
||||
eFax: TDBText;
|
||||
Label5: TLabel;
|
||||
eEMail: TDBText;
|
||||
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||||
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||||
procedure DBCtrlGrid1DblClick(Sender: TObject);
|
||||
procedure ComponenteDblClick(Sender: TObject);
|
||||
|
||||
protected
|
||||
FPersonas: IBizContactoPersonal;
|
||||
function GetPersonas: IBizContactoPersonal;
|
||||
procedure SetPersonas(const Value: IBizContactoPersonal);
|
||||
|
||||
function GetPersonaSeleccionada: IBizContactoPersonal;
|
||||
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
public
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
property Personas: IBizContactoPersonal read GetPersonas write SetPersonas;
|
||||
property PersonaSeleccionada: IBizContactoPersonal read GetPersonaSeleccionada;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDireccionesContactoController;
|
||||
|
||||
{ TfEditorDireccionEntrega }
|
||||
|
||||
procedure TfEditorElegirPersonaContactoCliente.DBCtrlGrid1DblClick(Sender: TObject);
|
||||
begin
|
||||
frViewBarraSeleccion1.actSeleccionar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirPersonaContactoCliente.ComponenteDblClick(Sender: TObject);
|
||||
begin
|
||||
DBCtrlGrid1DblClick(Sender);
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirPersonaContactoCliente.frViewBarraSeleccion1actCancelarExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
ModalResult := mrCancel;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirPersonaContactoCliente.frViewBarraSeleccion1actSeleccionarExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
ModalResult := mrOk;
|
||||
end;
|
||||
|
||||
function TfEditorElegirPersonaContactoCliente.GetPersonas: IBizContactoPersonal;
|
||||
begin
|
||||
Result := FPersonas;
|
||||
end;
|
||||
|
||||
function TfEditorElegirPersonaContactoCliente.GetPersonaSeleccionada: IBizContactoPersonal;
|
||||
begin
|
||||
// Devuelvo el mismo objeto que recibo pero con el punto de lectura
|
||||
// posicionado en la dirección elegida.
|
||||
Result := FPersonas;
|
||||
end;
|
||||
|
||||
function TfEditorElegirPersonaContactoCliente.GetMensaje: String;
|
||||
begin
|
||||
Result := JvgWizardHeader1.Comments.Text;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirPersonaContactoCliente.SetPersonas(const Value: IBizContactoPersonal);
|
||||
begin
|
||||
FPersonas := Value;
|
||||
if Assigned(FPersonas) then
|
||||
dsPersonas.DataTable := FPersonas.DataTable
|
||||
else
|
||||
dsPersonas.DataTable := NIL;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirPersonaContactoCliente.SetMensaje(const AValue: String);
|
||||
begin
|
||||
JvgWizardHeader1.Comments.Text := AValue;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -67,6 +67,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
ExplicitWidth = 923
|
||||
ExplicitHeight = 482
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 915
|
||||
ExplicitHeight = 454
|
||||
inline frViewEmpleado1: TfrViewEmpleado
|
||||
@ -111,18 +113,30 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 243
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 240
|
||||
Width = 240
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 297
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
@ -130,11 +144,19 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 397
|
||||
Top = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 397
|
||||
ExplicitTop = 270
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 375
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 375
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 63
|
||||
@ -143,18 +165,30 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
end
|
||||
inherited eFechaNacimiento: TcxDBDateEdit
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited eFechaAltaEmpresa: TcxDBDateEdit
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited cbCategoria: TcxDBComboBox
|
||||
Top = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
@ -162,6 +196,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited cbContrato: TcxDBComboBox
|
||||
Left = 585
|
||||
Top = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 308
|
||||
@ -170,6 +208,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eDuracionContrato: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 297
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 308
|
||||
@ -178,6 +220,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 308
|
||||
@ -186,6 +232,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 308
|
||||
@ -194,6 +244,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 308
|
||||
@ -202,6 +256,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 308
|
||||
@ -209,6 +267,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
@ -216,6 +278,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 259
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 259
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 203
|
||||
@ -225,6 +291,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
Left = 585
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 279
|
||||
@ -234,6 +304,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
Left = 585
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 279
|
||||
@ -242,12 +316,20 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited eFechaBaja: TcxDBDateEdit
|
||||
Top = 165
|
||||
Properties.ImmediatePost = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited eCausaBaja: TcxDBTextEdit
|
||||
Top = 192
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 192
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
@ -255,6 +337,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 585
|
||||
Top = 217
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 279
|
||||
@ -262,12 +348,20 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 105
|
||||
Width = 105
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 324
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 324
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
@ -347,6 +441,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
object pagFormacion: TTabSheet
|
||||
Caption = 'Formaci'#243'n'
|
||||
ImageIndex = 2
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -369,12 +467,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Height = 116
|
||||
Width = 871
|
||||
@ -390,12 +492,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 1
|
||||
Height = 116
|
||||
Width = 871
|
||||
@ -411,12 +517,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Height = 116
|
||||
Width = 871
|
||||
@ -465,6 +575,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
object pagExperiencia: TTabSheet
|
||||
Caption = 'Experiencia'
|
||||
ImageIndex = 3
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object dxLayoutControl2: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -488,12 +602,16 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Height = 408
|
||||
Width = 871
|
||||
|
||||
@ -86,13 +86,9 @@ end;
|
||||
|
||||
procedure TfEditorEmpleado.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AFichas: IBizEmpleado;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AFichas := Nil;
|
||||
AllItems := False;
|
||||
|
||||
AFichas := (Contacto as IBizEmpleado);
|
||||
|
||||
if Assigned(AFichas) then
|
||||
@ -116,13 +112,9 @@ end;
|
||||
|
||||
procedure TfEditorEmpleado.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AFichas: IBizEmpleado;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AFichas := Nil;
|
||||
AllItems := False;
|
||||
|
||||
AFichas := (Contacto as IBizEmpleado);
|
||||
|
||||
if Assigned(AFichas) then
|
||||
|
||||
@ -71,23 +71,23 @@ type
|
||||
procedure actVerContactoUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
FController : IClientesController;
|
||||
FCliente : IBizCliente;
|
||||
FOnClienteChanged : TNotifyEvent;
|
||||
FMsgElegirCliente: String;
|
||||
function GetMsgElegirCliente: String;
|
||||
procedure SetMsgElegirCliente(const Value: String);
|
||||
|
||||
protected
|
||||
FController : IClientesController;
|
||||
FCliente : IBizCliente;
|
||||
function GetController: IClientesController;
|
||||
procedure SetController(Value: IClientesController);
|
||||
function GetCliente: IBizCliente;
|
||||
procedure SetCliente(Value: IBizCliente);
|
||||
function GetCliente: IBizCliente; virtual;
|
||||
procedure SetCliente(Value: IBizCliente); virtual;
|
||||
function GetOnClienteChanged : TNotifyEvent;
|
||||
procedure SetOnClienteChanged (const Value : TNotifyEvent);
|
||||
procedure SetReadOnly(Value: Boolean); override;
|
||||
function GetID_Cliente: integer;
|
||||
procedure SetID_Cliente(const Value: integer);
|
||||
function GetID_Cliente: integer; virtual;
|
||||
procedure SetID_Cliente(const Value: integer); virtual;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf260.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf285.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf25E.tmp */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf283.tmp */
|
||||
|
||||
@ -221,6 +221,13 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
Name = 'FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -42,7 +42,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys 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><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
|
||||
@ -9,8 +9,8 @@ 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_PresupuestosCliente = '{89F89777-0F3D-4773-BCF7-D9EDC642EB9F}';
|
||||
RID_PresupuestosCliente_Detalles = '{F2B28DDF-AFEE-424B-AC4F-4BB35ED49C18}';
|
||||
RID_PresupuestosCliente = '{469001A1-C0ED-4AA1-AFA1-D87F447B92D3}';
|
||||
RID_PresupuestosCliente_Detalles = '{0C15349E-9BB9-437D-9152-BB070D344F3B}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PresupuestosCliente = 'PresupuestosCliente';
|
||||
@ -48,6 +48,7 @@ const
|
||||
fld_PresupuestosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
|
||||
fld_PresupuestosClienteID_FACTURA = 'ID_FACTURA';
|
||||
fld_PresupuestosClienteFACTURA = 'FACTURA';
|
||||
fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
|
||||
|
||||
{ PresupuestosCliente field indexes }
|
||||
idx_PresupuestosClienteID = 0;
|
||||
@ -81,6 +82,7 @@ const
|
||||
idx_PresupuestosClienteID_FORMA_PAGO = 28;
|
||||
idx_PresupuestosClienteID_FACTURA = 29;
|
||||
idx_PresupuestosClienteFACTURA = 30;
|
||||
idx_PresupuestosClientePERSONA_CONTACTO = 31;
|
||||
|
||||
{ PresupuestosCliente_Detalles fields }
|
||||
fld_PresupuestosCliente_DetallesID = 'ID';
|
||||
@ -119,7 +121,7 @@ const
|
||||
type
|
||||
{ IPresupuestosCliente }
|
||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{75476B18-14DA-4F77-9CCA-CBB84940A43C}']
|
||||
['{879349D0-AFB3-4D2C-8736-9C44B8F1C0E2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -241,6 +243,10 @@ type
|
||||
procedure SetFACTURAValue(const aValue: String);
|
||||
function GetFACTURAIsNull: Boolean;
|
||||
procedure SetFACTURAIsNull(const aValue: Boolean);
|
||||
function GetPERSONA_CONTACTOValue: String;
|
||||
procedure SetPERSONA_CONTACTOValue(const aValue: String);
|
||||
function GetPERSONA_CONTACTOIsNull: Boolean;
|
||||
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -306,6 +312,8 @@ type
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property FACTURA: String read GetFACTURAValue write SetFACTURAValue;
|
||||
property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
|
||||
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
|
||||
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||
end;
|
||||
|
||||
{ TPresupuestosClienteDataTableRules }
|
||||
@ -441,6 +449,10 @@ type
|
||||
procedure SetFACTURAValue(const aValue: String); virtual;
|
||||
function GetFACTURAIsNull: Boolean; virtual;
|
||||
procedure SetFACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetPERSONA_CONTACTOValue: String; virtual;
|
||||
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
|
||||
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
|
||||
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -505,6 +517,8 @@ type
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property FACTURA: String read GetFACTURAValue write SetFACTURAValue;
|
||||
property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
|
||||
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
|
||||
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -514,7 +528,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_Detalles }
|
||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{DD64698E-5579-4A4D-BA5F-6CADB7B70DCB}']
|
||||
['{4D852074-23F1-488D-9188-EE0A686AA6AC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1403,6 +1417,27 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosClienteFACTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPresupuestosCliente_DetallesDataTableRules }
|
||||
constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,13 +9,13 @@ 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_PresupuestosClienteDelta = '{41FB8E7F-7AF2-4249-9C75-76E6586FC80C}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{6B4F2438-4896-46C7-8D87-B21770DA9B2E}';
|
||||
RID_PresupuestosClienteDelta = '{8DECA7AC-12C3-4688-867C-EF1FBF18E4BC}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{AC56C197-1697-4E61-96A2-AAEC2E9F783D}';
|
||||
|
||||
type
|
||||
{ IPresupuestosClienteDelta }
|
||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||
['{41FB8E7F-7AF2-4249-9C75-76E6586FC80C}']
|
||||
['{8DECA7AC-12C3-4688-867C-EF1FBF18E4BC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -48,6 +48,7 @@ type
|
||||
function GetOldID_FORMA_PAGOValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
function GetOldFACTURAValue : String;
|
||||
function GetOldPERSONA_CONTACTOValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -81,6 +82,7 @@ type
|
||||
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
|
||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||
property OldFACTURA : String read GetOldFACTURAValue;
|
||||
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
||||
end;
|
||||
|
||||
{ TPresupuestosClienteBusinessProcessorRules }
|
||||
@ -278,6 +280,12 @@ type
|
||||
function GetOldFACTURAIsNull: Boolean; virtual;
|
||||
procedure SetFACTURAValue(const aValue: String); virtual;
|
||||
procedure SetFACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetPERSONA_CONTACTOValue: String; virtual;
|
||||
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
|
||||
function GetOldPERSONA_CONTACTOValue: String; virtual;
|
||||
function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
|
||||
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
|
||||
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -404,6 +412,10 @@ type
|
||||
property FACTURAIsNull : Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
|
||||
property OldFACTURA : String read GetOldFACTURAValue;
|
||||
property OldFACTURAIsNull : Boolean read GetOldFACTURAIsNull;
|
||||
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
|
||||
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
||||
property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -413,7 +425,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_DetallesDelta }
|
||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||
['{6B4F2438-4896-46C7-8D87-B21770DA9B2E}']
|
||||
['{AC56C197-1697-4E61-96A2-AAEC2E9F783D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
@ -1616,6 +1628,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO]);
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePERSONA_CONTACTO];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePERSONA_CONTACTO]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPresupuestosCliente_DetallesBusinessProcessorRules }
|
||||
constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -61,12 +61,12 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
'STOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' +
|
||||
'LIENTE,'#10' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10' V_CLIENTES' +
|
||||
'.NIF_CIF, V_CLIENTES.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
|
||||
'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CLIENTES.PERSON' +
|
||||
'A_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10' V_CLIENT' +
|
||||
'ES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10' V_PRESUPUESTOS_C' +
|
||||
'LIENTE INNER JOIN V_CLIENTES ON'#10' (V_PRESUPUESTOS_CLIENTE.' +
|
||||
'ID_CLIENTE = V_CLIENTES.ID)'#10' WHERE V_PRESUPUESTOS_CLIENTE.ID = ' +
|
||||
':ID'#10
|
||||
'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CLIENTES.CALLE,' +
|
||||
' V_CLIENTES.POBLACION,'#10' V_CLIENTES.PROVINCIA, V_CLIENTES.CODI' +
|
||||
'GO_POSTAL,'#10' V_PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO'#10'FROM'#10' ' +
|
||||
'V_PRESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'#10' (V_PRESU' +
|
||||
'PUESTOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'#10' WHERE V_PRESUPUEST' +
|
||||
'OS_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -259,11 +259,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -283,6 +278,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
ReadOnly = True
|
||||
end
|
||||
@ -618,7 +618,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39604.452998402800000000
|
||||
ReportOptions.LastChange = 39680.550162581000000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
''
|
||||
@ -721,10 +721,12 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
' if Engine.FinalPass then'
|
||||
' begin '
|
||||
' Set('#39'Capitulo'#39', (<Capitulo> + 1));'
|
||||
' if (<NumCapitulos> = 1) then'
|
||||
|
||||
' if ((<NumCapitulos> = 1) and (<frxDBCapitulos."CONCEPTO"> =' +
|
||||
' '#39'General'#39')) then'
|
||||
|
||||
' MasterData1.Visible := False; ' +
|
||||
' '
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1)); '
|
||||
@ -741,6 +743,17 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
' end '
|
||||
'end;'
|
||||
''
|
||||
'procedure Footer2OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if not ((<frxDBCabecera."DESCUENTO">) > 0) then'
|
||||
' begin'
|
||||
' mBonificacion.Visible := False;'
|
||||
|
||||
' mImporteFinal.Visible := False; ' +
|
||||
' '
|
||||
' end; '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
|
||||
@ -75,9 +75,9 @@ type
|
||||
tbl_Resumen: TDAMemDataTable;
|
||||
DAMemDataTable1: TDAMemDataTable;
|
||||
DAMemDataTable2: TDAMemDataTable;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
|
||||
@ -29,12 +29,12 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
||||
'STOS_CLIENTE.ID_CLIENTE,'#10' V_PRESUPUESTOS_CLIENTE.REFERENCIA_C' +
|
||||
'LIENTE,'#10' V_PRESUPUESTOS_CLIENTE.CLIENTE_FINAL,'#10' V_CLIENTES' +
|
||||
'.NIF_CIF, V_CLIENTES.NOMBRE,'#10' V_PRESUPUESTOS_CLIENTE.IMPORTE_' +
|
||||
'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' V_CLIENTES.PERSON' +
|
||||
'A_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10' V_CLIENT' +
|
||||
'ES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10' V_PRESUPUESTOS_C' +
|
||||
'LIENTE INNER JOIN V_CLIENTES ON'#10' (V_PRESUPUESTOS_CLIENTE.' +
|
||||
'ID_CLIENTE = V_CLIENTES.ID)'#10' WHERE V_PRESUPUESTOS_CLIENTE.ID = ' +
|
||||
':ID'#10
|
||||
'IVA, V_PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,'#10' V_PRESUPUESTOS_CL' +
|
||||
'IENTE.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLIENTES.POBLACION,'#10 +
|
||||
' V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTAL'#10'FROM'#10' V_PR' +
|
||||
'ESUPUESTOS_CLIENTE INNER JOIN V_CLIENTES ON'#10' (V_PRESUPUES' +
|
||||
'TOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)'#10' WHERE V_PRESUPUESTOS_C' +
|
||||
'LIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
|
||||
@ -19,9 +19,9 @@ type
|
||||
DABin2DataStreamer: TDABin2DataStreamer;
|
||||
tbl_Cabecera: TDAMemDataTable;
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
tbl_Empresa: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
tbl_Empresa: TDAMemDataTable;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
|
||||
@ -144,6 +144,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
DatasetField = 'FACTURA'
|
||||
TableField = 'FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PERSONA_CONTACTO'
|
||||
TableField = 'PERSONA_CONTACTO'
|
||||
end>
|
||||
end>
|
||||
Name = 'PresupuestosCliente'
|
||||
@ -314,6 +318,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Name = 'FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -497,8 +507,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -608,6 +616,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -621,15 +633,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
'DA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIV' +
|
||||
'AS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO,' +
|
||||
' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' +
|
||||
'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA)'#10 +
|
||||
' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECIS' +
|
||||
'ION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLIENTE,' +
|
||||
' :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :' +
|
||||
'OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_' +
|
||||
'ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :IMPORTE_NETO, :IMPOR' +
|
||||
'TE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE,' +
|
||||
' :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_F' +
|
||||
'ACTURA)'#10
|
||||
'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10 +
|
||||
' PERSONA_CONTACTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PR' +
|
||||
'ESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :' +
|
||||
'SITUACION, :ID_CLIENTE, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL' +
|
||||
', :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCID' +
|
||||
'ENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO' +
|
||||
', :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESC' +
|
||||
'UENTO, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL' +
|
||||
', :ID_FORMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -659,8 +671,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -771,6 +781,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Name = 'ID_FACTURA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -796,7 +810,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
'TO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
|
||||
#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' +
|
||||
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
|
||||
'ID_FACTURA = :ID_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'ID_FACTURA = :ID_FACTURA,'#10' PERSONA_CONTACTO = :PERSONA_CONTAC' +
|
||||
'TO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1137,6 +1152,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
end
|
||||
item
|
||||
Name = 'PresupuestosCliente_IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
|
||||
@ -43,7 +43,17 @@ requires
|
||||
cxDataD11,
|
||||
dbrtl,
|
||||
vcljpg,
|
||||
vcldb;
|
||||
vcldb,
|
||||
DataAbstract_Core_D11,
|
||||
dsnap,
|
||||
adortl,
|
||||
RemObjects_Core_D11,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
dxLayoutControlD11,
|
||||
dxComnD11;
|
||||
|
||||
contains
|
||||
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
|
||||
@ -58,6 +68,7 @@ contains
|
||||
uEditorPresupuestosClienteReport in 'uEditorPresupuestosClienteReport.pas' {fEditorPresupuestosClientePreview: TfEditorPedidosClientePreview},
|
||||
uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas' {frViewDireccionEntregaPresupuestoCliente: TFrame},
|
||||
uEditorFechaDecision in 'uEditorFechaDecision.pas' {fEditorFechaDecision},
|
||||
uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame};
|
||||
uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
|
||||
uViewDatosClientePresupuesto in 'uViewDatosClientePresupuesto.pas' {frViewDatosClientePresupuesto: TFrame};
|
||||
|
||||
end.
|
||||
|
||||
@ -49,19 +49,27 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="PreCli_AlbCli_relation.dcp" />
|
||||
<DCCReference Include="PreCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
@ -89,6 +97,10 @@
|
||||
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
|
||||
<DCCReference Include="uViewDatosClientePresupuesto.pas">
|
||||
<Form>frViewDatosClientePresupuesto</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDetallesPresupuestoCliente.pas">
|
||||
<Form>frViewDetallesPresupuestoCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
@ -114,8 +126,10 @@
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -166,7 +166,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 743
|
||||
Height = 414
|
||||
ActivePage = pagDocumentos
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 743
|
||||
@ -812,8 +811,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited ListView1: TListView
|
||||
Width = 735
|
||||
Height = 363
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 23
|
||||
ExplicitWidth = 735
|
||||
ExplicitHeight = 363
|
||||
end
|
||||
|
||||
@ -0,0 +1,122 @@
|
||||
inherited frViewDatosClientePresupuesto: TfrViewDatosClientePresupuesto
|
||||
Width = 508
|
||||
Height = 243
|
||||
ExplicitWidth = 508
|
||||
ExplicitHeight = 243
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 508
|
||||
Height = 243
|
||||
ExplicitWidth = 508
|
||||
ExplicitHeight = 243
|
||||
DesignSize = (
|
||||
508
|
||||
243)
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 416
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 416
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 306
|
||||
Top = 203
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 306
|
||||
ExplicitTop = 203
|
||||
end
|
||||
object edtPersonaContacto: TcxDBButtonEdit [9]
|
||||
Left = 64
|
||||
Top = 176
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = dsPresupuesto
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.ReadOnly = False
|
||||
Properties.OnButtonClick = edtPersonaContactoPropertiesButtonClick
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clWindow
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
Width = 494
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
object dxLayoutControl1Item10: TdxLayoutItem [6]
|
||||
Caption = 'Contacto:'
|
||||
Control = edtPersonaContacto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
Left = 168
|
||||
Top = 8
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Left = 208
|
||||
Top = 8
|
||||
object actElegirPersonaContacto: TAction
|
||||
Caption = 'Elegir persona de contacto...'
|
||||
OnExecute = actElegirPersonaContactoExecute
|
||||
end
|
||||
end
|
||||
inherited PngImageList: TPngImageList
|
||||
Left = 240
|
||||
Top = 8
|
||||
end
|
||||
object dsPresupuesto: TDADataSource
|
||||
Left = 280
|
||||
Top = 8
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,66 @@
|
||||
unit uViewDatosClientePresupuesto;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
|
||||
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
|
||||
cxEdit, cxTextEdit, cxDBEdit, cxControls, cxMaskEdit, cxButtonEdit,
|
||||
uBizContactos;
|
||||
|
||||
type
|
||||
TfrViewDatosClientePresupuesto = class(TfrViewDatosYSeleccionCliente)
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
edtPersonaContacto: TcxDBButtonEdit;
|
||||
dsPresupuesto: TDADataSource;
|
||||
actElegirPersonaContacto: TAction;
|
||||
procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure actElegirPersonaContactoExecute(Sender: TObject);
|
||||
protected
|
||||
procedure SetCliente(Value: IBizCliente); override;
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uBizContactosPersonal;
|
||||
|
||||
procedure TfrViewDatosClientePresupuesto.actElegirPersonaContactoExecute(
|
||||
Sender: TObject);
|
||||
var
|
||||
APersona : IBizContactoPersonal;
|
||||
begin
|
||||
inherited;
|
||||
APersona := FController.ElegirPersonaContacto(FCliente.Personal, 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.');
|
||||
if Assigned(APersona) then
|
||||
begin
|
||||
dsPresupuesto.DataTable.Edit;
|
||||
edtPersonaContacto.DataBinding.Field.AsString := APersona.NOMBRE;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosClientePresupuesto.edtPersonaContactoPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
actElegirPersonaContacto.Execute;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosClientePresupuesto.SetCliente(Value: IBizCliente);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(FCliente) and Assigned(FCliente.Personal) then
|
||||
begin
|
||||
FCliente.Personal.Open;
|
||||
edtPersonaContacto.Properties.Buttons[0].Visible := (FCliente.Personal.RecordCount > 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,24 +1,23 @@
|
||||
inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Width = 929
|
||||
Height = 513
|
||||
Height = 459
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 929
|
||||
ExplicitHeight = 513
|
||||
ExplicitHeight = 459
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 929
|
||||
Height = 513
|
||||
Height = 459
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 766
|
||||
DesignSize = (
|
||||
929
|
||||
513)
|
||||
459)
|
||||
object edtFechaPresupuesto: TcxDBDateEdit
|
||||
Left = 123
|
||||
Top = 82
|
||||
@ -102,75 +101,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
TabOrder = 0
|
||||
Width = 122
|
||||
end
|
||||
inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
|
||||
Left = 486
|
||||
Top = 28
|
||||
Width = 350
|
||||
Height = 212
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 486
|
||||
ExplicitTop = 28
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 329
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 329
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 219
|
||||
ExplicitLeft = 219
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
Top = 72
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Top = 72
|
||||
end
|
||||
inherited PngImageList: TPngImageList
|
||||
Top = 72
|
||||
end
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 123
|
||||
Top = 163
|
||||
@ -206,7 +136,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Width = 122
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 324
|
||||
Left = 251
|
||||
Top = 163
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -270,8 +200,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Width = 260
|
||||
end
|
||||
object cbClienteFinal: TcxDBButtonEdit
|
||||
Left = 486
|
||||
Top = 276
|
||||
Left = 413
|
||||
Top = 309
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'CLIENTE_FINAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -339,7 +269,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Width = 260
|
||||
end
|
||||
object eReferenciaAux: TcxDBTextEdit
|
||||
Left = 297
|
||||
Left = 251
|
||||
Top = 28
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_AUX'
|
||||
@ -367,6 +297,84 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
TabOrder = 1
|
||||
Width = 132
|
||||
end
|
||||
inline frViewDatosClientePresupuesto1: TfrViewDatosClientePresupuesto
|
||||
Left = 413
|
||||
Top = 28
|
||||
Width = 494
|
||||
Height = 245
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 413
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 494
|
||||
ExplicitHeight = 245
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 494
|
||||
Height = 245
|
||||
ExplicitWidth = 494
|
||||
ExplicitHeight = 117
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 402
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 402
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 292
|
||||
ExplicitLeft = 292
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBButtonEdit
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -462,11 +470,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos del cliente'
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
Control = frViewClientePresupuesto
|
||||
Caption = 'New Item'
|
||||
ShowCaption = False
|
||||
Control = frViewDatosClientePresupuesto1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -5,7 +5,7 @@ interface
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, uBizPresupuestosCliente, DB, uDADataTable, uCustomView,
|
||||
AppEvnts, StdCtrls, Mask, DBCtrls,
|
||||
AppEvnts, StdCtrls, Mask, DBCtrls, uViewDatosClientePresupuesto,
|
||||
uViewObservaciones, uViewDatosYSeleccionCliente,
|
||||
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
|
||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||
@ -38,8 +38,6 @@ type
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
eReferencia: TcxDBTextEdit;
|
||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
frViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
||||
ActionList1: TActionList;
|
||||
actElegirDireccion: TAction;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
@ -62,6 +60,8 @@ type
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Group6: TdxLayoutGroup;
|
||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||
frViewDatosClientePresupuesto1: TfrViewDatosClientePresupuesto;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
@ -174,7 +174,7 @@ begin
|
||||
inherited;
|
||||
FFormasPago := Nil;
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
FViewClientePresupuesto := frViewClientePresupuesto;
|
||||
FViewClientePresupuesto := frViewDatosClientePresupuesto1;
|
||||
FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
|
||||
end;
|
||||
|
||||
@ -194,7 +194,7 @@ begin
|
||||
if (Application.MessageBox('Los descuentos de los artículos del presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Exit;
|
||||
end;
|
||||
frViewClientePresupuesto.actElegirContacto.Execute;
|
||||
frViewDatosClientePresupuesto1.actElegirContacto.Execute;
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestoCliente.frViewClientePresupuestoButton2Click(Sender: TObject);
|
||||
@ -205,7 +205,7 @@ begin
|
||||
if (Application.MessageBox('Los descuentos de los artículos del presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Exit;
|
||||
end;
|
||||
frViewClientePresupuesto.actAnadirContacto.Execute;
|
||||
frViewDatosClientePresupuesto1.actAnadirContacto.Execute;
|
||||
end;
|
||||
|
||||
function TfrViewPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
|
||||
@ -229,12 +229,14 @@ begin
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
dsFormaPago.DataTable.Active := True;
|
||||
|
||||
frViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
|
||||
frViewDatosClientePresupuesto1.Cliente := FPresupuesto.Cliente;
|
||||
frViewDatosClientePresupuesto1.dsPresupuesto.DataTable := FPresupuesto.DataTable;
|
||||
end
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
frViewClientePresupuesto.Cliente := nil;
|
||||
frViewDatosClientePresupuesto1.Cliente := nil;
|
||||
frViewDatosClientePresupuesto1.dsPresupuesto.DataTable := nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
Binary file not shown.
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.2.4.0\0"
|
||||
VALUE "ProductVersion", "1.2.4.0\0"
|
||||
VALUE "CompileDate", "viernes, 29 de agosto de 2008 16:16\0"
|
||||
VALUE "CompileDate", "martes, 02 de septiembre de 2008 17:41\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user