Ticket #113 - En un presupuesto, al elegir una sucursal de un cliente luego no se refleja en el presupuesto.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@600 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
84c1d29a98
commit
21220f4485
@ -31,10 +31,12 @@ function CloneDataTable(const ASource : TDAMemDataTable;
|
|||||||
|
|
||||||
|
|
||||||
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable;
|
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable;
|
||||||
Const WithPKKey: Boolean = False; Const WithFKKey: Boolean = False);
|
const WithPKKey: Boolean = False; const WithFKKey: Boolean = False;
|
||||||
|
const Insertar: Boolean = True);
|
||||||
|
|
||||||
procedure DuplicarRegistros(ASource : TDADataTable; ATarget : TDADataTable;
|
procedure DuplicarRegistros(ASource : TDADataTable; ATarget : TDADataTable;
|
||||||
AModo : TModoDuplicarRegistros; APermitirRepetidos: Boolean = True;
|
AModo : TModoDuplicarRegistros; APermitirRepetidos: Boolean = True;
|
||||||
Const WithDeltas: Boolean = True; Const WithPKKey: Boolean = False; Const WithFKKey: Boolean = False);
|
const WithDeltas: Boolean = True; const WithPKKey: Boolean = False; const WithFKKey: Boolean = False);
|
||||||
|
|
||||||
procedure DeleteAllTable(const ADataTable : TDADataTable);
|
procedure DeleteAllTable(const ADataTable : TDADataTable);
|
||||||
|
|
||||||
@ -347,7 +349,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable; const WithPKKey: Boolean = False; const WithFKKey: Boolean = False);
|
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable; const WithPKKey: Boolean = False; const WithFKKey: Boolean = False; const Insertar: Boolean = True);
|
||||||
var
|
var
|
||||||
i, j: Integer;
|
i, j: Integer;
|
||||||
ATargetField: TDAField;
|
ATargetField: TDAField;
|
||||||
@ -380,7 +382,11 @@ begin
|
|||||||
else
|
else
|
||||||
ADetailFields := Nil;
|
ADetailFields := Nil;
|
||||||
|
|
||||||
ATarget.Insert;
|
if Insertar then
|
||||||
|
ATarget.Insert
|
||||||
|
else
|
||||||
|
ATarget.Edit;
|
||||||
|
|
||||||
{ Hay que desactivar los eventos para que dejan de funcionar
|
{ Hay que desactivar los eventos para que dejan de funcionar
|
||||||
las reglas de negocio y no nos interfieran en la copia
|
las reglas de negocio y no nos interfieran en la copia
|
||||||
de valores de los campos. }
|
de valores de los campos. }
|
||||||
|
|||||||
@ -107,19 +107,20 @@ begin
|
|||||||
Result := NIL;
|
Result := NIL;
|
||||||
|
|
||||||
CreateEditor('EditorElegirClientes', IEditorElegirClientes, AEditor);
|
CreateEditor('EditorElegirClientes', IEditorElegirClientes, AEditor);
|
||||||
try
|
if Assigned(AEditor) then
|
||||||
with AEditor do
|
begin
|
||||||
begin
|
try
|
||||||
Contactos := AContactos;
|
AEditor.Contactos := AContactos;
|
||||||
Controller := Self;
|
AEditor.Controller := Self;
|
||||||
MultiSelect := AMultiSelect;
|
AEditor.MultiSelect := AMultiSelect;
|
||||||
Mensaje := AMensaje;
|
AEditor.Mensaje := AMensaje;
|
||||||
if IsPositiveResult(ShowModal) then
|
if IsPositiveResult(AEditor.ShowModal) then
|
||||||
Result := ContactosSeleccionados;
|
Result := AEditor.ContactosSeleccionados;
|
||||||
Release;
|
finally
|
||||||
|
AEditor.Release;
|
||||||
|
AEditor := NIL;
|
||||||
|
Application.ProcessMessages;
|
||||||
end;
|
end;
|
||||||
finally
|
|
||||||
AEditor := NIL;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -141,6 +142,7 @@ begin
|
|||||||
finally
|
finally
|
||||||
AEditor.Release;
|
AEditor.Release;
|
||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
|
Application.ProcessMessages;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -163,6 +165,7 @@ begin
|
|||||||
finally
|
finally
|
||||||
AEditor.Release;
|
AEditor.Release;
|
||||||
AEditor := NIL;
|
AEditor := NIL;
|
||||||
|
Application.ProcessMessages;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -269,8 +269,6 @@ end;
|
|||||||
|
|
||||||
function TContactosController.ValidarContacto(AContacto: IBizContacto): Boolean;
|
function TContactosController.ValidarContacto(AContacto: IBizContacto): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := False;
|
|
||||||
|
|
||||||
if not Assigned(AContacto) then
|
if not Assigned(AContacto) then
|
||||||
raise Exception.Create ('Contacto no asignado');
|
raise Exception.Create ('Contacto no asignado');
|
||||||
|
|
||||||
|
|||||||
@ -11,6 +11,7 @@ type
|
|||||||
IDireccionesContactoController = interface(IControllerBase)
|
IDireccionesContactoController = interface(IControllerBase)
|
||||||
['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
|
['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
|
||||||
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
|
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||||
|
procedure CopiarDireccion(ADireccionOrigen: IBizDireccionesContacto; ADireccionDestino: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||||
procedure Ver(ADireccion : IBizDireccionesContacto);
|
procedure Ver(ADireccion : IBizDireccionesContacto);
|
||||||
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
|
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
|
||||||
function Nuevo : IBizDireccionesContacto;
|
function Nuevo : IBizDireccionesContacto;
|
||||||
@ -21,6 +22,7 @@ type
|
|||||||
FDataModule : IDataModuleContactos;
|
FDataModule : IDataModuleContactos;
|
||||||
public
|
public
|
||||||
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
|
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||||
|
procedure CopiarDireccion(ADireccionOrigen: IBizDireccionesContacto; ADireccionDestino: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||||
procedure Ver(ADireccion : IBizDireccionesContacto);
|
procedure Ver(ADireccion : IBizDireccionesContacto);
|
||||||
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
|
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
|
||||||
function Nuevo : IBizDireccionesContacto;
|
function Nuevo : IBizDireccionesContacto;
|
||||||
@ -34,9 +36,24 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
uDataModuleContactos, schContactosClient_Intf, uIEditorDireccionContacto,
|
uDataModuleContactos, schContactosClient_Intf, uIEditorDireccionContacto,
|
||||||
uEditorRegistryUtils, cxControls;
|
uEditorRegistryUtils, cxControls, uDataTableUtils;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TDireccionesContactoController.CopiarDireccion(ADireccionOrigen,
|
||||||
|
ADireccionDestino: IBizDireccionesContacto; AAnadir: Boolean);
|
||||||
|
begin
|
||||||
|
if not Assigned(ADireccionOrigen) then
|
||||||
|
raise Exception.Create ('Dirección de origen no asignada (CopiarDireccion)');
|
||||||
|
|
||||||
|
if not Assigned(ADireccionDestino) then
|
||||||
|
raise Exception.Create ('Dirección de destino no asignada (CopiarDireccion)');
|
||||||
|
|
||||||
|
ADireccionOrigen.Active := True;
|
||||||
|
ADireccionDestino.Active := True;
|
||||||
|
|
||||||
|
DuplicarRegistro(ADireccionOrigen.DataTable, ADireccionDestino.DataTable, True, True, AAnadir);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TDireccionesContactoController.CopiarDireccionFiscal(
|
procedure TDireccionesContactoController.CopiarDireccionFiscal(
|
||||||
AContacto: IBizContacto; ADireccion: IBizDireccionesContacto;
|
AContacto: IBizContacto; ADireccion: IBizDireccionesContacto;
|
||||||
AAnadir: Boolean);
|
AAnadir: Boolean);
|
||||||
@ -47,6 +64,9 @@ begin
|
|||||||
if not Assigned(ADireccion) then
|
if not Assigned(ADireccion) then
|
||||||
raise Exception.Create ('Dirección no asignada (CopiarDireccionFiscal)');
|
raise Exception.Create ('Dirección no asignada (CopiarDireccionFiscal)');
|
||||||
|
|
||||||
|
AContacto.Active := True;
|
||||||
|
ADireccion.Active := True;
|
||||||
|
|
||||||
if AAnadir then
|
if AAnadir then
|
||||||
ADireccion.DataTable.Insert
|
ADireccion.DataTable.Insert
|
||||||
else
|
else
|
||||||
@ -54,12 +74,13 @@ begin
|
|||||||
try
|
try
|
||||||
with ADireccion do
|
with ADireccion do
|
||||||
begin
|
begin
|
||||||
NOMBRE := 'Dirección de entrega';
|
NOMBRE := AContacto.NOMBRE;
|
||||||
CALLE := AContacto.CALLE;
|
CALLE := AContacto.CALLE;
|
||||||
POBLACION := AContacto.POBLACION;
|
POBLACION := AContacto.POBLACION;
|
||||||
PROVINCIA := AContacto.PROVINCIA;
|
PROVINCIA := AContacto.PROVINCIA;
|
||||||
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
|
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
|
||||||
TELEFONO := AContacto.TELEFONO_1;
|
TELEFONO := AContacto.TELEFONO_1;
|
||||||
|
MOVIL := AContacto.MOVIL_1;
|
||||||
EMAIL := AContacto.EMAIL_1;
|
EMAIL := AContacto.EMAIL_1;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
|
|||||||
@ -255,12 +255,9 @@ begin
|
|||||||
|
|
||||||
if Result then
|
if Result then
|
||||||
begin
|
begin
|
||||||
if not (AContacto as IBizEmpleado).FECHA_BAJAIsNull
|
if not (AContacto as IBizEmpleado).FECHA_BAJAIsNull and
|
||||||
and (Length((AContacto as IBizEmpleado).CAUSA_BAJA) = 0) then
|
(Length((AContacto as IBizEmpleado).CAUSA_BAJA) = 0) then
|
||||||
begin
|
|
||||||
Result := False;
|
|
||||||
raise Exception.Create('Debe indicar la causa de la baja del empleado.');
|
raise Exception.Create('Debe indicar la causa de la baja del empleado.');
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -53,6 +53,9 @@ type
|
|||||||
procedure actDirSocialExecute(Sender: TObject);
|
procedure actDirSocialExecute(Sender: TObject);
|
||||||
procedure actOtroExecute(Sender: TObject);
|
procedure actOtroExecute(Sender: TObject);
|
||||||
procedure actOtroUpdate(Sender: TObject);
|
procedure actOtroUpdate(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure ColorearTextoDirSocial(AColor : TColor);
|
||||||
|
procedure ColorearTextoDirOtra(AColor : TColor);
|
||||||
protected
|
protected
|
||||||
FDirecciones: IBizDireccionesContacto;
|
FDirecciones: IBizDireccionesContacto;
|
||||||
FContacto : IBizContacto;
|
FContacto : IBizContacto;
|
||||||
@ -77,7 +80,7 @@ implementation
|
|||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uStringsUtils;
|
uStringsUtils, Variants, uDialogUtils;
|
||||||
|
|
||||||
{ TfEditorDireccionEntrega }
|
{ TfEditorDireccionEntrega }
|
||||||
|
|
||||||
@ -162,6 +165,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
with Result do
|
with Result do
|
||||||
begin
|
begin
|
||||||
|
ID := FDirecciones.ID;
|
||||||
NOMBRE := FDirecciones.NOMBRE;
|
NOMBRE := FDirecciones.NOMBRE;
|
||||||
CALLE := FDirecciones.CALLE;
|
CALLE := FDirecciones.CALLE;
|
||||||
POBLACION := FDirecciones.POBLACION;
|
POBLACION := FDirecciones.POBLACION;
|
||||||
@ -177,6 +181,7 @@ begin
|
|||||||
else begin
|
else begin
|
||||||
with Result do
|
with Result do
|
||||||
begin
|
begin
|
||||||
|
DataTable.FieldByName('ID').AsVariant := Null;
|
||||||
NOMBRE := FContacto.NOMBRE;
|
NOMBRE := FContacto.NOMBRE;
|
||||||
CALLE := FContacto.CALLE;
|
CALLE := FContacto.CALLE;
|
||||||
POBLACION := FContacto.POBLACION;
|
POBLACION := FContacto.POBLACION;
|
||||||
@ -204,6 +209,9 @@ begin
|
|||||||
DBCtrlGrid1.Color := clWindow;
|
DBCtrlGrid1.Color := clWindow;
|
||||||
pnlDirSocial.Enabled := False;
|
pnlDirSocial.Enabled := False;
|
||||||
pnlDirSocial.Color := clBtnFace;
|
pnlDirSocial.Color := clBtnFace;
|
||||||
|
|
||||||
|
ColorearTextoDirOtra(clWindowText);
|
||||||
|
ColorearTextoDirSocial(clGray);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if (actDirSocial.Checked) then
|
if (actDirSocial.Checked) then
|
||||||
@ -212,9 +220,34 @@ begin
|
|||||||
DBCtrlGrid1.Color := clBtnFace;
|
DBCtrlGrid1.Color := clBtnFace;
|
||||||
pnlDirSocial.Enabled := True;
|
pnlDirSocial.Enabled := True;
|
||||||
pnlDirSocial.Color := clWindow;
|
pnlDirSocial.Color := clWindow;
|
||||||
|
|
||||||
|
ColorearTextoDirSocial(clWindowText);
|
||||||
|
ColorearTextoDirOtra(clGray);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirDireccionEntrega.ColorearTextoDirOtra(AColor: TColor);
|
||||||
|
begin
|
||||||
|
eNombre.Font.Color := AColor;
|
||||||
|
eCalle.Font.Color := AColor;
|
||||||
|
ePoblacion.Font.Color := AColor;
|
||||||
|
eProvincia.Font.Color := AColor;
|
||||||
|
eTelefono.Font.Color := AColor;
|
||||||
|
ePersonaContacto.Font.Color := AColor;
|
||||||
|
eCodigoPostal.Font.Color := AColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirDireccionEntrega.ColorearTextoDirSocial(AColor: TColor);
|
||||||
|
begin
|
||||||
|
DBText1.Font.Color := AColor;
|
||||||
|
DBText2.Font.Color := AColor;
|
||||||
|
DBText3.Font.Color := AColor;
|
||||||
|
DBText4.Font.Color := AColor;
|
||||||
|
DBText5.Font.Color := AColor;
|
||||||
|
DBText6.Font.Color := AColor;
|
||||||
|
DBText7.Font.Color := AColor;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorElegirDireccionEntrega.SetContacto(const Value: IBizContacto);
|
procedure TfEditorElegirDireccionEntrega.SetContacto(const Value: IBizContacto);
|
||||||
begin
|
begin
|
||||||
FContacto := Value;
|
FContacto := Value;
|
||||||
|
|||||||
@ -46,8 +46,6 @@ type
|
|||||||
function ExtraerSeleccionados(APresupuesto: IBizPresupuestoCliente) : IBizPresupuestoCliente;
|
function ExtraerSeleccionados(APresupuesto: IBizPresupuestoCliente) : IBizPresupuestoCliente;
|
||||||
function ElegirPresupuestos(APresupuesto: IBizPresupuestoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPresupuestoCliente;
|
function ElegirPresupuestos(APresupuesto: IBizPresupuestoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPresupuestoCliente;
|
||||||
|
|
||||||
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
|
|
||||||
APresupuesto: IBizPresupuestoCliente);
|
|
||||||
procedure QuitarDireccionEnvio(APresupuesto: IBizPresupuestoCliente);
|
procedure QuitarDireccionEnvio(APresupuesto: IBizPresupuestoCliente);
|
||||||
|
|
||||||
procedure RecalcularImportes(APresupuesto : IBizPresupuestoCliente);
|
procedure RecalcularImportes(APresupuesto : IBizPresupuestoCliente);
|
||||||
@ -113,8 +111,6 @@ type
|
|||||||
procedure VerTodos(APresupuestos: IBizPresupuestoCliente);
|
procedure VerTodos(APresupuestos: IBizPresupuestoCliente);
|
||||||
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
|
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
|
||||||
function Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente;
|
function Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente;
|
||||||
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
|
|
||||||
APresupuesto: IBizPresupuestoCliente);
|
|
||||||
|
|
||||||
procedure QuitarDireccionEnvio(APresupuesto: IBizPresupuestoCliente);
|
procedure QuitarDireccionEnvio(APresupuesto: IBizPresupuestoCliente);
|
||||||
function ExtraerSeleccionados(APresupuesto: IBizPresupuestoCliente) : IBizPresupuestoCliente;
|
function ExtraerSeleccionados(APresupuesto: IBizPresupuestoCliente) : IBizPresupuestoCliente;
|
||||||
@ -297,47 +293,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPresupuestosClienteController.CopiarDireccionEnvio(
|
|
||||||
const ADireccionEnvio: IBizDireccionesContacto; APresupuesto: IBizPresupuestoCliente);
|
|
||||||
{var
|
|
||||||
bEnEdicion : Boolean;}
|
|
||||||
begin
|
|
||||||
{
|
|
||||||
if not Assigned(APresupuesto) then
|
|
||||||
raise Exception.Create ('Presupuesto no asignado (CopiarDireccionEnvio)');
|
|
||||||
|
|
||||||
if not Assigned(ADireccionEnvio) then
|
|
||||||
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccionEnvio)');
|
|
||||||
|
|
||||||
if APresupuesto.DataTable.Active then
|
|
||||||
APresupuesto.DataTable.Active := True;
|
|
||||||
|
|
||||||
if ADireccionEnvio.DataTable.Active then
|
|
||||||
ADireccionEnvio.DataTable.Active := True;
|
|
||||||
|
|
||||||
|
|
||||||
bEnEdicion := (APresupuesto.DataTable.State in dsEditModes);
|
|
||||||
if not bEnEdicion then
|
|
||||||
APresupuesto.Edit;
|
|
||||||
|
|
||||||
ShowHourglassCursor;
|
|
||||||
APresupuesto.Edit;
|
|
||||||
try
|
|
||||||
APresupuesto.CALLE := ADireccionEnvio.CALLE;
|
|
||||||
APresupuesto.POBLACION := ADireccionEnvio.POBLACION;
|
|
||||||
APresupuesto.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
|
|
||||||
APresupuesto.PROVINCIA := ADireccionEnvio.PROVINCIA;
|
|
||||||
APresupuesto.TELEFONO := ADireccionEnvio.TELEFONO;
|
|
||||||
APresupuesto.PERSONA_CONTACTO := ADireccionEnvio.PERSONA_CONTACTO;
|
|
||||||
|
|
||||||
if not bEnEdicion then
|
|
||||||
APresupuesto.Post;
|
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
}
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TPresupuestosClienteController.Create;
|
constructor TPresupuestosClienteController.Create;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|||||||
@ -92,6 +92,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
|||||||
ServerAutoRefresh = True
|
ServerAutoRefresh = True
|
||||||
DictionaryEntry = 'PresupuestosCliente_NOMBRE'
|
DictionaryEntry = 'PresupuestosCliente_NOMBRE'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DIRECCION'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA_CLIENTE'
|
Name = 'REFERENCIA_CLIENTE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
|
|||||||
@ -9,8 +9,8 @@ const
|
|||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_PresupuestosCliente = '{1477AFCF-F38F-4C8E-B16A-F50F1C2169E4}';
|
RID_PresupuestosCliente = '{A0C46F24-09A9-4D39-B820-60B5E53322DC}';
|
||||||
RID_PresupuestosCliente_Detalles = '{750706FF-951F-4152-B683-2BC96C124A4C}';
|
RID_PresupuestosCliente_Detalles = '{6BDA3BE4-1300-42EA-B8C1-F26A414F492B}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_PresupuestosCliente = 'PresupuestosCliente';
|
nme_PresupuestosCliente = 'PresupuestosCliente';
|
||||||
@ -27,6 +27,7 @@ const
|
|||||||
fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
|
fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
|
||||||
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
|
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
|
||||||
fld_PresupuestosClienteNOMBRE = 'NOMBRE';
|
fld_PresupuestosClienteNOMBRE = 'NOMBRE';
|
||||||
|
fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION';
|
||||||
fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
fld_PresupuestosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||||
fld_PresupuestosClienteCLIENTE_FINAL = 'CLIENTE_FINAL';
|
fld_PresupuestosClienteCLIENTE_FINAL = 'CLIENTE_FINAL';
|
||||||
fld_PresupuestosClientePORTADA = 'PORTADA';
|
fld_PresupuestosClientePORTADA = 'PORTADA';
|
||||||
@ -61,28 +62,29 @@ const
|
|||||||
idx_PresupuestosClienteID_CLIENTE = 7;
|
idx_PresupuestosClienteID_CLIENTE = 7;
|
||||||
idx_PresupuestosClienteNIF_CIF = 8;
|
idx_PresupuestosClienteNIF_CIF = 8;
|
||||||
idx_PresupuestosClienteNOMBRE = 9;
|
idx_PresupuestosClienteNOMBRE = 9;
|
||||||
idx_PresupuestosClienteREFERENCIA_CLIENTE = 10;
|
idx_PresupuestosClienteID_DIRECCION = 10;
|
||||||
idx_PresupuestosClienteCLIENTE_FINAL = 11;
|
idx_PresupuestosClienteREFERENCIA_CLIENTE = 11;
|
||||||
idx_PresupuestosClientePORTADA = 12;
|
idx_PresupuestosClienteCLIENTE_FINAL = 12;
|
||||||
idx_PresupuestosClienteMEMORIA = 13;
|
idx_PresupuestosClientePORTADA = 13;
|
||||||
idx_PresupuestosClienteOBSERVACIONES = 14;
|
idx_PresupuestosClienteMEMORIA = 14;
|
||||||
idx_PresupuestosClienteINCIDENCIAS = 15;
|
idx_PresupuestosClienteOBSERVACIONES = 15;
|
||||||
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
|
idx_PresupuestosClienteINCIDENCIAS = 16;
|
||||||
idx_PresupuestosClienteFECHA_ALTA = 17;
|
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 17;
|
||||||
idx_PresupuestosClienteFECHA_MODIFICACION = 18;
|
idx_PresupuestosClienteFECHA_ALTA = 18;
|
||||||
idx_PresupuestosClienteUSUARIO = 19;
|
idx_PresupuestosClienteFECHA_MODIFICACION = 19;
|
||||||
idx_PresupuestosClienteIMPORTE_NETO = 20;
|
idx_PresupuestosClienteUSUARIO = 20;
|
||||||
idx_PresupuestosClienteIMPORTE_PORTE = 21;
|
idx_PresupuestosClienteIMPORTE_NETO = 21;
|
||||||
idx_PresupuestosClienteDESCUENTO = 22;
|
idx_PresupuestosClienteIMPORTE_PORTE = 22;
|
||||||
idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
|
idx_PresupuestosClienteDESCUENTO = 23;
|
||||||
idx_PresupuestosClienteBASE_IMPONIBLE = 24;
|
idx_PresupuestosClienteIMPORTE_DESCUENTO = 24;
|
||||||
idx_PresupuestosClienteIVA = 25;
|
idx_PresupuestosClienteBASE_IMPONIBLE = 25;
|
||||||
idx_PresupuestosClienteIMPORTE_IVA = 26;
|
idx_PresupuestosClienteIVA = 26;
|
||||||
idx_PresupuestosClienteIMPORTE_TOTAL = 27;
|
idx_PresupuestosClienteIMPORTE_IVA = 27;
|
||||||
idx_PresupuestosClienteID_FORMA_PAGO = 28;
|
idx_PresupuestosClienteIMPORTE_TOTAL = 28;
|
||||||
idx_PresupuestosClienteID_FACTURA = 29;
|
idx_PresupuestosClienteID_FORMA_PAGO = 29;
|
||||||
idx_PresupuestosClienteFACTURA = 30;
|
idx_PresupuestosClienteID_FACTURA = 30;
|
||||||
idx_PresupuestosClientePERSONA_CONTACTO = 31;
|
idx_PresupuestosClienteFACTURA = 31;
|
||||||
|
idx_PresupuestosClientePERSONA_CONTACTO = 32;
|
||||||
|
|
||||||
{ PresupuestosCliente_Detalles fields }
|
{ PresupuestosCliente_Detalles fields }
|
||||||
fld_PresupuestosCliente_DetallesID = 'ID';
|
fld_PresupuestosCliente_DetallesID = 'ID';
|
||||||
@ -121,7 +123,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IPresupuestosCliente }
|
{ IPresupuestosCliente }
|
||||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{FD0CFF42-2DC5-478D-BEC2-170BA3E2A992}']
|
['{BED574C7-BB23-4AF4-99E8-A57512A34442}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -163,6 +165,10 @@ type
|
|||||||
procedure SetNOMBREValue(const aValue: String);
|
procedure SetNOMBREValue(const aValue: String);
|
||||||
function GetNOMBREIsNull: Boolean;
|
function GetNOMBREIsNull: Boolean;
|
||||||
procedure SetNOMBREIsNull(const aValue: Boolean);
|
procedure SetNOMBREIsNull(const aValue: Boolean);
|
||||||
|
function GetID_DIRECCIONValue: Integer;
|
||||||
|
procedure SetID_DIRECCIONValue(const aValue: Integer);
|
||||||
|
function GetID_DIRECCIONIsNull: Boolean;
|
||||||
|
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||||
function GetREFERENCIA_CLIENTEValue: String;
|
function GetREFERENCIA_CLIENTEValue: String;
|
||||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
|
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||||
function GetREFERENCIA_CLIENTEIsNull: Boolean;
|
function GetREFERENCIA_CLIENTEIsNull: Boolean;
|
||||||
@ -270,6 +276,8 @@ type
|
|||||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||||
|
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||||
|
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||||
property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
|
property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
|
||||||
@ -369,6 +377,10 @@ type
|
|||||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||||
function GetNOMBREIsNull: Boolean; virtual;
|
function GetNOMBREIsNull: Boolean; virtual;
|
||||||
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetID_DIRECCIONValue: Integer; virtual;
|
||||||
|
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||||
|
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||||
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
|
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
|
||||||
@ -475,6 +487,8 @@ type
|
|||||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||||
|
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||||
|
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||||
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||||
property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
|
property CLIENTE_FINAL: String read GetCLIENTE_FINALValue write SetCLIENTE_FINALValue;
|
||||||
@ -528,7 +542,7 @@ type
|
|||||||
|
|
||||||
{ IPresupuestosCliente_Detalles }
|
{ IPresupuestosCliente_Detalles }
|
||||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||||
['{7EA81F15-BEA7-4E6A-9141-ED27C69439FE}']
|
['{9B9C28F6-E2A6-49BB-A539-82586ADEB234}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -992,6 +1006,27 @@ begin
|
|||||||
DataTable.Fields[idx_PresupuestosClienteNOMBRE].AsVariant := Null;
|
DataTable.Fields[idx_PresupuestosClienteNOMBRE].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TPresupuestosClienteDataTableRules.GetID_DIRECCIONValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPresupuestosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
|
function TPresupuestosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString;
|
result := DataTable.Fields[idx_PresupuestosClienteREFERENCIA_CLIENTE].AsString;
|
||||||
|
|||||||
@ -9,13 +9,13 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_PresupuestosClienteDelta = '{46A71D84-5EDC-4232-A77B-63A5AB0B0254}';
|
RID_PresupuestosClienteDelta = '{C9E347B5-FCED-413B-AD2F-A17871A5FF7C}';
|
||||||
RID_PresupuestosCliente_DetallesDelta = '{9E7172B6-B04C-45B7-B8E5-4D7EA47AF466}';
|
RID_PresupuestosCliente_DetallesDelta = '{10BCC39C-D3B8-4B20-85AF-78E1739C9BB7}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IPresupuestosClienteDelta }
|
{ IPresupuestosClienteDelta }
|
||||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||||
['{46A71D84-5EDC-4232-A77B-63A5AB0B0254}']
|
['{C9E347B5-FCED-413B-AD2F-A17871A5FF7C}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
@ -27,6 +27,7 @@ type
|
|||||||
function GetOldID_CLIENTEValue : Integer;
|
function GetOldID_CLIENTEValue : Integer;
|
||||||
function GetOldNIF_CIFValue : String;
|
function GetOldNIF_CIFValue : String;
|
||||||
function GetOldNOMBREValue : String;
|
function GetOldNOMBREValue : String;
|
||||||
|
function GetOldID_DIRECCIONValue : Integer;
|
||||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||||
function GetOldCLIENTE_FINALValue : String;
|
function GetOldCLIENTE_FINALValue : String;
|
||||||
function GetOldPORTADAValue : IROStrings;
|
function GetOldPORTADAValue : IROStrings;
|
||||||
@ -61,6 +62,7 @@ type
|
|||||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||||
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
||||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||||
|
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||||
property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue;
|
property OldCLIENTE_FINAL : String read GetOldCLIENTE_FINALValue;
|
||||||
property OldPORTADA : IROStrings read GetOldPORTADAValue;
|
property OldPORTADA : IROStrings read GetOldPORTADAValue;
|
||||||
@ -158,6 +160,12 @@ type
|
|||||||
function GetOldNOMBREIsNull: Boolean; virtual;
|
function GetOldNOMBREIsNull: Boolean; virtual;
|
||||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||||
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetID_DIRECCIONValue: Integer; virtual;
|
||||||
|
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||||
|
function GetOldID_DIRECCIONValue: Integer; virtual;
|
||||||
|
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||||
|
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||||
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
|
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
|
||||||
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
|
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
|
||||||
@ -328,6 +336,10 @@ type
|
|||||||
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||||
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
||||||
|
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||||
|
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||||
|
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||||
|
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
|
||||||
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||||
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
|
||||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||||
@ -425,7 +437,7 @@ type
|
|||||||
|
|
||||||
{ IPresupuestosCliente_DetallesDelta }
|
{ IPresupuestosCliente_DetallesDelta }
|
||||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||||
['{9E7172B6-B04C-45B7-B8E5-4D7EA47AF466}']
|
['{10BCC39C-D3B8-4B20-85AF-78E1739C9BB7}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_PRESUPUESTOValue : Integer;
|
function GetOldID_PRESUPUESTOValue : Integer;
|
||||||
@ -989,6 +1001,37 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE] := Null;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE] := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
|
function TPresupuestosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_CLIENTE];
|
||||||
|
|||||||
@ -148,6 +148,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
|||||||
item
|
item
|
||||||
DatasetField = 'PERSONA_CONTACTO'
|
DatasetField = 'PERSONA_CONTACTO'
|
||||||
TableField = 'PERSONA_CONTACTO'
|
TableField = 'PERSONA_CONTACTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_DIRECCION'
|
||||||
|
TableField = 'ID_DIRECCION'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'PresupuestosCliente'
|
Name = 'PresupuestosCliente'
|
||||||
@ -211,6 +215,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
|||||||
ServerAutoRefresh = True
|
ServerAutoRefresh = True
|
||||||
DictionaryEntry = 'PresupuestosCliente_NOMBRE'
|
DictionaryEntry = 'PresupuestosCliente_NOMBRE'
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DIRECCION'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA_CLIENTE'
|
Name = 'REFERENCIA_CLIENTE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
@ -631,19 +639,20 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
|||||||
SQL =
|
SQL =
|
||||||
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' +
|
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' +
|
||||||
'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' REFERENCIA_AUX, SITU' +
|
'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' REFERENCIA_AUX, SITU' +
|
||||||
'ACION, ID_CLIENTE, REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL, PORTA' +
|
'ACION, ID_CLIENTE, ID_DIRECCION, REFERENCIA_CLIENTE,'#10' CLIENT' +
|
||||||
'DA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIV' +
|
'E_FINAL, PORTADA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INC' +
|
||||||
'AS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO,' +
|
'IDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARIO,' +
|
||||||
' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' +
|
' IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' ' +
|
||||||
'LE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10 +
|
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO' +
|
||||||
' PERSONA_CONTACTO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PR' +
|
', ID_FACTURA,'#10' PERSONA_CONTACTO)'#10' VALUES'#10' (:ID, :ID_EMPR' +
|
||||||
'ESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :' +
|
'ESA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :REF' +
|
||||||
'SITUACION, :ID_CLIENTE, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL' +
|
'ERENCIA_AUX, :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA' +
|
||||||
', :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCID' +
|
'_CLIENTE,'#10' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONE' +
|
||||||
'ENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO' +
|
'S, '#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
|
||||||
', :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESC' +
|
'_MODIFICACION, '#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :D' +
|
||||||
'UENTO, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL' +
|
'ESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPO' +
|
||||||
', :ID_FORMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO)'#10
|
'RTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_FACTURA, :PER' +
|
||||||
|
'SONA_CONTACTO)'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
@ -801,19 +810,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
|||||||
'= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' +
|
'= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' +
|
||||||
' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFERENCIA' +
|
' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFERENCIA' +
|
||||||
', '#10' REFERENCIA_AUX = :REFERENCIA_AUX,'#10' SITUACION = :SITUAC' +
|
', '#10' REFERENCIA_AUX = :REFERENCIA_AUX,'#10' SITUACION = :SITUAC' +
|
||||||
'ION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA_CLIENTE = :R' +
|
'ION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_DIRECCION = :ID_DIRE' +
|
||||||
'EFERENCIA_CLIENTE,'#10' CLIENTE_FINAL = :CLIENTE_FINAL, '#10' PORT' +
|
'CCION,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' CLIENTE' +
|
||||||
'ADA = :PORTADA, '#10' MEMORIA = :MEMORIA, '#10' OBSERVACIONES = :O' +
|
'_FINAL = :CLIENTE_FINAL, '#10' PORTADA = :PORTADA, '#10' MEMORIA =' +
|
||||||
'BSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_' +
|
' :MEMORIA, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS' +
|
||||||
'ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10 +
|
' = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS' +
|
||||||
' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :US' +
|
', '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECH' +
|
||||||
'UARIO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :' +
|
'A_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO = :IM' +
|
||||||
'IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUEN' +
|
'PORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO ' +
|
||||||
'TO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
|
'= :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' +
|
||||||
#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' +
|
'BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_' +
|
||||||
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
|
'IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ID' +
|
||||||
'ID_FACTURA = :ID_FACTURA,'#10' PERSONA_CONTACTO = :PERSONA_CONTAC' +
|
'_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' +
|
||||||
'TO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
'PERSONA_CONTACTO = :PERSONA_CONTACTO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
|
|||||||
@ -53,7 +53,19 @@ requires
|
|||||||
vclactnband,
|
vclactnband,
|
||||||
vclx,
|
vclx,
|
||||||
dxLayoutControlD11,
|
dxLayoutControlD11,
|
||||||
dxComnD11;
|
dxComnD11,
|
||||||
|
JvStdCtrlsD11R,
|
||||||
|
JclVcl,
|
||||||
|
Jcl,
|
||||||
|
JvCoreD11R,
|
||||||
|
JvSystemD11R,
|
||||||
|
JvCtrlsD11R,
|
||||||
|
GUISDK_D11,
|
||||||
|
xmlrtl,
|
||||||
|
cfpack_d11,
|
||||||
|
designide,
|
||||||
|
ccpackD11,
|
||||||
|
cxExtEditorsD11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
|
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
|
||||||
@ -67,8 +79,8 @@ contains
|
|||||||
uEditorElegirArticulosPresupuestoCliente in 'uEditorElegirArticulosPresupuestoCliente.pas' {fEditorElegirArticulosPresupuestoCliente: TfEditorElegirArticulosPedidoCliente},
|
uEditorElegirArticulosPresupuestoCliente in 'uEditorElegirArticulosPresupuestoCliente.pas' {fEditorElegirArticulosPresupuestoCliente: TfEditorElegirArticulosPedidoCliente},
|
||||||
uEditorPresupuestosClienteReport in 'uEditorPresupuestosClienteReport.pas' {fEditorPresupuestosClientePreview: TfEditorPedidosClientePreview},
|
uEditorPresupuestosClienteReport in 'uEditorPresupuestosClienteReport.pas' {fEditorPresupuestosClientePreview: TfEditorPedidosClientePreview},
|
||||||
uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas' {frViewDireccionEntregaPresupuestoCliente: TFrame},
|
uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas' {frViewDireccionEntregaPresupuestoCliente: TFrame},
|
||||||
uEditorFechaDecision in 'uEditorFechaDecision.pas' {fEditorFechaDecision},
|
uEditorFechaDecision in 'uEditorFechaDecision.pas' {fEditorFechaDecision: T},
|
||||||
uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
|
uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
|
||||||
uViewDatosClientePresupuesto in 'uViewDatosClientePresupuesto.pas' {frViewDatosClientePresupuesto: TFrame};
|
uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -49,30 +49,47 @@
|
|||||||
<DelphiCompile Include="PresupuestosCliente_view.dpk">
|
<DelphiCompile Include="PresupuestosCliente_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="adortl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||||
<DCCReference Include="Articulos_view.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
|
||||||
<DCCReference Include="Base.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||||
<DCCReference Include="cxDataD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
|
||||||
<DCCReference Include="cxEditorsD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
|
||||||
<DCCReference Include="cxLibraryD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="dbrtl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="dsnap.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="dxComnD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||||
<DCCReference Include="dxThemeD11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||||
<DCCReference Include="GUIBase.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||||
<DCCReference Include="PngComponentsD10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="PNG_D10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="PreCli_AlbCli_relation.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="PreCli_FacCli_relation.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||||
<DCCReference Include="PresupuestosCliente_controller.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
||||||
<DCCReference Include="PresupuestosCliente_model.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||||
<DCCReference Include="rtl.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="tb2k_d10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="tbx_d10.dcp" />
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PreCli_AlbCli_relation.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PreCli_FacCli_relation.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||||
|
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||||
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
|
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
|
||||||
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
|
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
|
||||||
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
||||||
@ -83,6 +100,7 @@
|
|||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorFechaDecision.pas">
|
<DCCReference Include="uEditorFechaDecision.pas">
|
||||||
<Form>fEditorFechaDecision</Form>
|
<Form>fEditorFechaDecision</Form>
|
||||||
|
<DesignClass>T</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorPresupuestoCliente.pas">
|
<DCCReference Include="uEditorPresupuestoCliente.pas">
|
||||||
<Form>fEditorPresupuestoCliente</Form>
|
<Form>fEditorPresupuestoCliente</Form>
|
||||||
@ -97,8 +115,8 @@
|
|||||||
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
|
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
|
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
|
||||||
<DCCReference Include="uViewDatosClientePresupuesto.pas">
|
<DCCReference Include="uViewDatosYSeleccionClientePresupuesto.pas">
|
||||||
<Form>frViewDatosClientePresupuesto</Form>
|
<Form>frViewDatosYSeleccionClientePresupuesto</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uViewDetallesPresupuestoCliente.pas">
|
<DCCReference Include="uViewDetallesPresupuestoCliente.pas">
|
||||||
@ -125,11 +143,6 @@
|
|||||||
<Form>frViewPresupuestosCliente</Form>
|
<Form>frViewPresupuestosCliente</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="vcl.dcp" />
|
|
||||||
<DCCReference Include="vclactnband.dcp" />
|
|
||||||
<DCCReference Include="vcldb.dcp" />
|
|
||||||
<DCCReference Include="vcljpg.dcp" />
|
|
||||||
<DCCReference Include="vclx.dcp" />
|
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -166,7 +166,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
|||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 758
|
Width = 758
|
||||||
Height = 414
|
Height = 414
|
||||||
ActivePage = pagDocumentos
|
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
OnChanging = pgPaginasChanging
|
OnChanging = pgPaginasChanging
|
||||||
ExplicitWidth = 758
|
ExplicitWidth = 758
|
||||||
@ -200,25 +199,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
|||||||
ExplicitHeight = 386
|
ExplicitHeight = 386
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 750
|
Width = 750
|
||||||
Height = 73
|
Height = 46
|
||||||
ExplicitWidth = 750
|
ExplicitWidth = 750
|
||||||
ExplicitHeight = 73
|
ExplicitHeight = 46
|
||||||
inherited ToolButton3: TToolButton
|
inherited ToolButton3: TToolButton
|
||||||
Wrap = False
|
Wrap = False
|
||||||
end
|
end
|
||||||
inherited ToolButton4: TToolButton
|
inherited ToolButton4: TToolButton
|
||||||
Left = 278
|
Left = 278
|
||||||
Top = 0
|
Top = 0
|
||||||
|
Wrap = True
|
||||||
ExplicitLeft = 278
|
ExplicitLeft = 278
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton
|
inherited ToolButton14: TToolButton
|
||||||
Left = 334
|
Left = 0
|
||||||
Top = 0
|
Wrap = False
|
||||||
ExplicitLeft = 334
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 0
|
|
||||||
end
|
end
|
||||||
inherited FontName: TJvFontComboBox
|
inherited FontName: TJvFontComboBox
|
||||||
|
Left = 65
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
@ -229,33 +229,33 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
|||||||
ExplicitWidth = 200
|
ExplicitWidth = 200
|
||||||
end
|
end
|
||||||
inherited UpDown1: TUpDown
|
inherited UpDown1: TUpDown
|
||||||
Left = 361
|
Left = 345
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 361
|
ExplicitLeft = 345
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton13: TToolButton
|
inherited ToolButton13: TToolButton
|
||||||
Left = 378
|
Left = 362
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 378
|
ExplicitLeft = 362
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton
|
inherited ToolButton6: TToolButton
|
||||||
Left = 386
|
Left = 370
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 386
|
ExplicitLeft = 370
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton
|
inherited ToolButton7: TToolButton
|
||||||
Left = 452
|
Left = 436
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 452
|
ExplicitLeft = 436
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton8: TToolButton
|
inherited ToolButton8: TToolButton
|
||||||
Left = 519
|
Left = 503
|
||||||
Top = 22
|
Top = 22
|
||||||
ExplicitLeft = 519
|
ExplicitLeft = 503
|
||||||
ExplicitTop = 22
|
ExplicitTop = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton12: TToolButton
|
inherited ToolButton12: TToolButton
|
||||||
@ -803,12 +803,17 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 750
|
||||||
|
ExplicitHeight = 386
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 750
|
Width = 750
|
||||||
|
ExplicitWidth = 750
|
||||||
end
|
end
|
||||||
inherited ListView1: TListView
|
inherited ListView1: TListView
|
||||||
Width = 750
|
Width = 750
|
||||||
Height = 363
|
Height = 363
|
||||||
|
ExplicitWidth = 750
|
||||||
|
ExplicitHeight = 363
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -18,7 +18,7 @@ uses
|
|||||||
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
|
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
|
||||||
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC,
|
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC,
|
||||||
uViewDetallesArticulosParaVenta, uViewDocumentos,
|
uViewDetallesArticulosParaVenta, uViewDocumentos,
|
||||||
uViewDocumentosPresupuestoCliente;
|
uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
|
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
|
||||||
@ -64,6 +64,7 @@ type
|
|||||||
protected
|
protected
|
||||||
FPresupuesto: IBizPresupuestoCliente;
|
FPresupuesto: IBizPresupuestoCliente;
|
||||||
FViewPresupuesto: IViewPresupuestoCliente;
|
FViewPresupuesto: IViewPresupuestoCliente;
|
||||||
|
FViewClientePresupuesto :IViewDatosYSeleccionClientePresupuesto;
|
||||||
FController : IPresupuestosClienteController;
|
FController : IPresupuestosClienteController;
|
||||||
|
|
||||||
function GetController : IPresupuestosClienteController;
|
function GetController : IPresupuestosClienteController;
|
||||||
@ -176,6 +177,7 @@ begin
|
|||||||
//Este método eliminará el directorio temporal si se ha creado
|
//Este método eliminará el directorio temporal si se ha creado
|
||||||
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
|
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
|
||||||
FViewPresupuesto := NIL;
|
FViewPresupuesto := NIL;
|
||||||
|
FViewClientePresupuesto := NIL;
|
||||||
FPresupuesto := NIL;
|
FPresupuesto := NIL;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -202,10 +204,10 @@ begin
|
|||||||
raise Exception.Create('No hay ninguna vista asignada');
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
if not Assigned(Presupuesto) then
|
if not Assigned(Presupuesto) then
|
||||||
raise Exception.Create('No hay ningún Presupuesto asignado');
|
raise Exception.Create('No hay ningún presupuesto asignado');
|
||||||
|
|
||||||
Presupuesto.DataTable.Active := True;
|
|
||||||
pgPaginas.ActivePage := pagGeneral;
|
pgPaginas.ActivePage := pagGeneral;
|
||||||
|
Presupuesto.DataTable.Active := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorPresupuestoCliente.frViewTotales1ePortePropertiesValidate(
|
procedure TfEditorPresupuestoCliente.frViewTotales1ePortePropertiesValidate(
|
||||||
@ -294,25 +296,12 @@ begin
|
|||||||
|
|
||||||
case FPresupuesto.Cliente.Direcciones.RecordCount of
|
case FPresupuesto.Cliente.Direcciones.RecordCount of
|
||||||
0 : begin
|
0 : begin
|
||||||
FController.QuitarDireccionEnvio(FPresupuesto);
|
FViewClientePresupuesto.RefrescarDireccion;
|
||||||
//MessageBox(0, '¡Atención! Este cliente no tiene ninguna dirección en su ficha', 'Atención', MB_ICONWARNING or MB_OK);
|
|
||||||
FPresupuesto.Edit;
|
FPresupuesto.Edit;
|
||||||
FPresupuesto.IMPORTE_PORTE := 0;
|
FPresupuesto.IMPORTE_PORTE := 0;
|
||||||
end;
|
end;
|
||||||
else begin
|
else begin
|
||||||
ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente, '');
|
FViewClientePresupuesto.ElegirDireccionCliente;
|
||||||
ShowHourglassCursor;
|
|
||||||
try
|
|
||||||
if Assigned(ADireccion) then
|
|
||||||
begin
|
|
||||||
FController.CopiarDireccionEnvio(ADireccion, FPresupuesto);
|
|
||||||
FPresupuesto.Edit;
|
|
||||||
FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
ADireccion := NIL;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -381,7 +370,7 @@ begin
|
|||||||
|
|
||||||
if Assigned(FController) then
|
if Assigned(FController) then
|
||||||
begin
|
begin
|
||||||
ViewPresupuesto.ViewClientePresupuesto.Controller := Controller.ClienteController;
|
// ViewPresupuesto.ViewClientePresupuesto.Controller := Controller.ClienteController;
|
||||||
frViewDetallesPresupuestoCliente1.Controller := Controller.DetallesController;
|
frViewDetallesPresupuestoCliente1.Controller := Controller.DetallesController;
|
||||||
|
|
||||||
//GESTION_DOCUMENTOS
|
//GESTION_DOCUMENTOS
|
||||||
@ -406,15 +395,17 @@ begin
|
|||||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||||
if Assigned(FViewPresupuesto) then
|
if Assigned(FViewPresupuesto) then
|
||||||
begin
|
begin
|
||||||
FViewPresupuesto.Presupuesto := FPresupuesto;
|
|
||||||
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
|
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
|
||||||
ViewPresupuesto.ViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
|
try
|
||||||
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
|
FViewPresupuesto.Presupuesto := FPresupuesto;
|
||||||
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;
|
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;
|
||||||
frViewDetallesPresupuestoCliente1.Presupuesto := FPresupuesto; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
frViewDetallesPresupuestoCliente1.Presupuesto := FPresupuesto; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||||
|
|
||||||
//GESTION_DOCUMENTOS
|
//GESTION_DOCUMENTOS
|
||||||
frViewDocumentosPresupuestoCliente1.Presupuesto := FPresupuesto;
|
frViewDocumentosPresupuestoCliente1.Presupuesto := FPresupuesto;
|
||||||
|
finally
|
||||||
|
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -423,8 +414,13 @@ procedure TfEditorPresupuestoCliente.SetViewPresupuesto(const Value: IViewPresup
|
|||||||
begin
|
begin
|
||||||
FViewPresupuesto := Value;
|
FViewPresupuesto := Value;
|
||||||
|
|
||||||
if Assigned(FViewPresupuesto) and Assigned(Presupuesto) then
|
if Assigned(FViewPresupuesto) then
|
||||||
FViewPresupuesto.Presupuesto := Presupuesto;
|
begin
|
||||||
|
FViewClientePresupuesto := FViewPresupuesto.ViewClientePresupuesto;
|
||||||
|
|
||||||
|
if Assigned(Presupuesto) then
|
||||||
|
FViewPresupuesto.Presupuesto := Presupuesto;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -1,122 +0,0 @@
|
|||||||
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
|
|
||||||
@ -1,66 +0,0 @@
|
|||||||
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.
|
|
||||||
@ -0,0 +1,493 @@
|
|||||||
|
inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionClientePresupuesto
|
||||||
|
Width = 505
|
||||||
|
Height = 165
|
||||||
|
ExplicitWidth = 505
|
||||||
|
ExplicitHeight = 165
|
||||||
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 505
|
||||||
|
Height = 165
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Align = alClient
|
||||||
|
ParentBackground = True
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
|
DesignSize = (
|
||||||
|
505
|
||||||
|
165)
|
||||||
|
object edtlNombre: TcxDBTextEdit
|
||||||
|
Left = 63
|
||||||
|
Top = 41
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
DataBinding.DataField = 'NOMBRE'
|
||||||
|
DataBinding.DataSource = dsCliente
|
||||||
|
Enabled = False
|
||||||
|
ParentFont = False
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.UseLeftAlignmentOnEditing = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 2
|
||||||
|
Height = 21
|
||||||
|
Width = 224
|
||||||
|
end
|
||||||
|
object edtNIFCIF: TcxDBTextEdit
|
||||||
|
Left = 392
|
||||||
|
Top = 41
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
DataBinding.DataField = 'NIF_CIF'
|
||||||
|
DataBinding.DataSource = dsCliente
|
||||||
|
Enabled = False
|
||||||
|
ParentFont = False
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.UseLeftAlignmentOnEditing = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 3
|
||||||
|
Height = 21
|
||||||
|
Width = 103
|
||||||
|
end
|
||||||
|
object Button1: TBitBtn
|
||||||
|
Left = 10
|
||||||
|
Top = 10
|
||||||
|
Width = 115
|
||||||
|
Height = 25
|
||||||
|
Action = actElegirContacto
|
||||||
|
Caption = 'Elegir un cliente'
|
||||||
|
TabOrder = 0
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||||
|
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
||||||
|
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
||||||
|
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
||||||
|
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
||||||
|
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
||||||
|
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
||||||
|
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||||
|
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||||
|
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||||
|
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||||
|
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||||
|
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||||
|
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||||
|
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||||
|
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||||
|
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object Button2: TBitBtn
|
||||||
|
Left = 131
|
||||||
|
Top = 10
|
||||||
|
Width = 143
|
||||||
|
Height = 25
|
||||||
|
Action = actAnadirContacto
|
||||||
|
Caption = 'Dar de alta un cliente'
|
||||||
|
TabOrder = 1
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
|
||||||
|
3100694731006947310069473100694731006947310069473100694731006947
|
||||||
|
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
|
||||||
|
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||||
|
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
|
||||||
|
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
|
||||||
|
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
|
||||||
|
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
|
||||||
|
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
|
||||||
|
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
|
||||||
|
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
|
||||||
|
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
|
||||||
|
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
|
||||||
|
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
|
||||||
|
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
|
||||||
|
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
|
||||||
|
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
|
||||||
|
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
|
||||||
|
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
|
||||||
|
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
|
||||||
|
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
|
||||||
|
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
|
||||||
|
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
|
||||||
|
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
|
||||||
|
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
|
||||||
|
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
|
||||||
|
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
|
||||||
|
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
|
||||||
|
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object Button3: TBitBtn
|
||||||
|
Left = 303
|
||||||
|
Top = 130
|
||||||
|
Width = 192
|
||||||
|
Height = 25
|
||||||
|
Action = actVerContacto
|
||||||
|
Caption = 'Ver ficha completa del cliente...'
|
||||||
|
TabOrder = 8
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
|
||||||
|
3100694731006947310069473100694731006947310069473100694731006947
|
||||||
|
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
|
||||||
|
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||||
|
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
|
||||||
|
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
|
||||||
|
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
|
||||||
|
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
|
||||||
|
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
|
||||||
|
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
|
||||||
|
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
|
||||||
|
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
|
||||||
|
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
|
||||||
|
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
|
||||||
|
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
|
||||||
|
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
|
||||||
|
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
|
||||||
|
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
|
||||||
|
ED00F2ECE800EFE8E300EDE4DF00EAE0DA00B7A2930069473100D5BFB100E9F6
|
||||||
|
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
|
||||||
|
F100F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100F4FA
|
||||||
|
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB00FAF8
|
||||||
|
F600F7F4F100F5F0ED00F2ECE800EFE8E300B7A2930069473100D5BFB100FFFF
|
||||||
|
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF00FDFC
|
||||||
|
FB00F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100FFFF
|
||||||
|
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FEFEFD00FCFAF900F9F6F400F6F2EF00F3EEEA0069473100D5BFB100D5BF
|
||||||
|
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
|
||||||
|
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object edtPersonaContacto: TcxDBTextEdit
|
||||||
|
Left = 63
|
||||||
|
Top = 101
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||||
|
DataBinding.DataSource = dsPresupuesto
|
||||||
|
ParentFont = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 6
|
||||||
|
Height = 21
|
||||||
|
Width = 283
|
||||||
|
end
|
||||||
|
object edtDireccion: TcxTextEdit
|
||||||
|
Left = 63
|
||||||
|
Top = 70
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
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 = ''
|
||||||
|
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 = 4
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
object Button4: TButton
|
||||||
|
Left = 472
|
||||||
|
Top = 68
|
||||||
|
Width = 23
|
||||||
|
Height = 25
|
||||||
|
Action = actElegirDireccion
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Button5: TButton
|
||||||
|
Left = 472
|
||||||
|
Top = 99
|
||||||
|
Width = 23
|
||||||
|
Height = 25
|
||||||
|
Action = actElegirPersonaContacto
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item7: TdxLayoutItem
|
||||||
|
Caption = 'Button1'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = Button1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
|
Caption = 'Button2'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = Button2
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Nombre:'
|
||||||
|
Control = edtlNombre
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
Caption = 'NIF/CIF:'
|
||||||
|
Control = edtNIFCIF
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
AutoAligns = []
|
||||||
|
AlignHorz = ahClient
|
||||||
|
AlignVert = avCenter
|
||||||
|
Caption = 'Direcci'#243'n'
|
||||||
|
Control = edtDireccion
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
Caption = 'Button4'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = Button4
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
AutoAligns = []
|
||||||
|
AlignHorz = ahClient
|
||||||
|
AlignVert = avCenter
|
||||||
|
Caption = 'Contacto:'
|
||||||
|
Control = edtPersonaContacto
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item6: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
ShowCaption = False
|
||||||
|
Control = Button5
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item9: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
Caption = 'Button3'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = Button3
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsCliente: TDADataSource
|
||||||
|
Left = 400
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
object ActionList1: TActionList
|
||||||
|
Images = PngImageList
|
||||||
|
Left = 368
|
||||||
|
Top = 8
|
||||||
|
object actElegirContacto: TAction
|
||||||
|
Caption = 'Elegir un cliente'
|
||||||
|
ImageIndex = 1
|
||||||
|
OnExecute = actElegirContactoExecute
|
||||||
|
end
|
||||||
|
object actAnadirContacto: TAction
|
||||||
|
Caption = 'Dar de alta un cliente'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = actAnadirContactoExecute
|
||||||
|
end
|
||||||
|
object actVerContacto: TAction
|
||||||
|
Caption = 'Ver ficha completa del cliente...'
|
||||||
|
ImageIndex = 2
|
||||||
|
OnExecute = actVerContactoExecute
|
||||||
|
OnUpdate = actVerContactoUpdate
|
||||||
|
end
|
||||||
|
object actElegirDireccion: TAction
|
||||||
|
Caption = '...'
|
||||||
|
OnExecute = actElegirDireccionExecute
|
||||||
|
OnUpdate = actElegirDireccionUpdate
|
||||||
|
end
|
||||||
|
object actElegirPersonaContacto: TAction
|
||||||
|
Caption = '...'
|
||||||
|
OnExecute = actElegirPersonaContactoExecute
|
||||||
|
OnUpdate = actElegirPersonaContactoUpdate
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object PngImageList: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000002224944415478DA
|
||||||
|
95935D48936114C77FCB36584A6064161515DEA441108B240293E8A682246805
|
||||||
|
DEA45020F40196505D081242DE94512B8C20169937056914D52E726B6083B114
|
||||||
|
D44CD3D51A216BB6656B5FEF677B5FF31D23033DF070CE03CFFFF73F1CCE6362
|
||||||
|
29D1806AD44E4C5A32F5F58FAA8BD5D73DD8465757034D4D4EFA4E8C62000ED7
|
||||||
|
56E997647490DFE131BD2ED9584971D98EB9478D2603D279B39EE6733DC6DD00
|
||||||
|
68E2EF7E07E95F2291688C48629ABDC71DACABD8AD0334E7B420104D24F4A3D5
|
||||||
|
DDD707E60087F66C2234D0CECF2F41643987556566676799C9C4387AD18FF964
|
||||||
|
91E178EA522DF73ADC851D1CA85ECD27D77948995861B552844C2A9962303441
|
||||||
|
DD051FA22473E5095C735B3972DAC6D3DB016EED7BC9FD47CFE601E57CF3B661
|
||||||
|
C966D1E62C880299549A696915B6639D4892A243D6B6AC349C0B00DA0C22EF7B
|
||||||
|
484EBDCA015424512491125036D751B1CBAE8BB5330F12459937EF860A01DEA0
|
||||||
|
8BA0FB0E5B154BAE832C810CACDF594F4DD5C17FC45AF6FA87F3800D95022DFD
|
||||||
|
ADC47E84682CDF8F222A3C9CF1303915E6C3E5495DDC7AE379C14E546F5F9307
|
||||||
|
F8E4C7BC187F4BA6344E49D24C6E8A24AD12E65809A1895102CD6386B3F8B793
|
||||||
|
C0F0C73CC0196927188E2297651096A7D096D4922D6659DCC2E7AF43F8CE8C70
|
||||||
|
F5AEEBFF1D9CF5D889C7230BAE6F696939BDF6D7BAABACA87A567279647C320F
|
||||||
|
A8B16DA1BBD7B3A47FA5850168EB702C596C6CA2AA2EFA332E187F0080F1503E
|
||||||
|
182A98A90000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000000097048597300000AC400000AC401666D82D4000002A94944415478DA
|
||||||
|
7D925D48536118C79FF3B5AF36DD66B639CB924243225010BC49BA914004CDE8
|
||||||
|
E32228B482EA4689A22289C8CBA28B32B1061688902912D28D16991F6062B2DC
|
||||||
|
45921FB954669BF39C9D6DE7EC9CF3EEBC9D2D8C2CB7079E9BF779FEBFF7F922
|
||||||
|
30C69034822060D3665F5F3A0B90B8C672FCAEC07AD8E35DF0DFBFE3F64EC05F
|
||||||
|
F647F72FC0DB75AED1E1B43D138438C9B26108B11C0443BC30ECF959D731303F
|
||||||
|
9411D0D35C612C2ADBEF3319F5B992AC402412037F9003A4C8E05F17679BDA3E
|
||||||
|
976BA9D1F4807B95552E877D90222910250556023170E66481D900F0CD17C0AD
|
||||||
|
5DDE63F3CBFC505AC0685B6DE34654762B88009B350B8AF658815011C8521C04
|
||||||
|
518487DD530D9D83BECEB480C98EDA13F9798E5E9A61526F098440D1CA572409
|
||||||
|
24298EEFBA271B7BC756D203FA5A8FE49516EDF3313A5D8AA0AAAAD6BF929A01
|
||||||
|
CFC7505DCBBBAAD590349C710BD3EEFA57D916D3A954920648249255283031B3
|
||||||
|
3A7BE1D164A5F61CCC0878D15C917FA8C43165D6334E558B25DBD80847E51BCF
|
||||||
|
A79B3E7D65DB33AEF1E04D570EE5723DB513C4C966E9006101ED0662043C6697
|
||||||
|
30B7DB3021CE6D5C5EEA58FAB22DE0F0ADBD36D25E38A6E6E2126413E00CAA81
|
||||||
|
FAE27AE85FEB876EF10D30DC0E2083542432F3E3F8E2CBC5F7FF01CA5A8E3E21
|
||||||
|
6CC6AB8A264636110C7A80EADC2AE88B0E004474C0B026A035C76BF2B2A7ED43
|
||||||
|
29E671680BA0FC76B50F5BC902641501658B90304BA0EA11100A05544C0774D8
|
||||||
|
0834A7396B04DFE8C8E9B58FC19EAD80EB358B84852E44D9F1DF62930C9856B5
|
||||||
|
6320801419A0A27AA079430AB4303E722530EE6FDF3A838B15E729B3E50195C3
|
||||||
|
D855B34A247F074A8BA91A40A2808C91803955E6E70233F36F3D0D58C6DEEDD6
|
||||||
|
B8D35040179B9DA602305266AC028925A4A0B822A090C20BAB09BF96F35D736E
|
||||||
|
53F70B90E997F07974AFDF0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage1'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000001EC4944415478DA
|
||||||
|
A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
|
||||||
|
A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
|
||||||
|
5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
|
||||||
|
3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
|
||||||
|
9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
|
||||||
|
44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
|
||||||
|
43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
|
||||||
|
3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
|
||||||
|
28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
|
||||||
|
9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
|
||||||
|
BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
|
||||||
|
4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
|
||||||
|
22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
|
||||||
|
5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
|
||||||
|
0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
|
||||||
|
C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage2'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 304
|
||||||
|
Top = 8
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
object dsPresupuesto: TDADataSource
|
||||||
|
Left = 336
|
||||||
|
Top = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,418 @@
|
|||||||
|
unit uViewDatosYSeleccionClientePresupuesto;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel,
|
||||||
|
cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos,
|
||||||
|
ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit,
|
||||||
|
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
|
||||||
|
DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces,
|
||||||
|
cxMaskEdit, cxButtonEdit, uBizPresupuestosCliente, uBizDireccionesContacto,
|
||||||
|
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewDatosYSeleccionClientePresupuesto = interface(IViewBase)
|
||||||
|
['{0BD8B1D7-A992-448A-A9EE-ECE8CBA30A24}']
|
||||||
|
function GetPresupuesto: IBizPresupuestoCliente;
|
||||||
|
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||||
|
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||||
|
|
||||||
|
function GetCliente: IBizCliente;
|
||||||
|
procedure SetCliente(Value: IBizCliente);
|
||||||
|
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||||
|
|
||||||
|
function GetID_Cliente: integer;
|
||||||
|
procedure SetID_Cliente(const Value: integer);
|
||||||
|
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
|
||||||
|
|
||||||
|
function GetOnClienteChanged : TNotifyEvent;
|
||||||
|
procedure SetOnClienteChanged (const Value : TNotifyEvent);
|
||||||
|
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged
|
||||||
|
write SetOnClienteChanged;
|
||||||
|
|
||||||
|
procedure ElegirPersonaContacto;
|
||||||
|
procedure ElegirDireccionCliente;
|
||||||
|
procedure ElegirCliente;
|
||||||
|
procedure VerFichaCliente;
|
||||||
|
procedure AnadirNuevoCliente;
|
||||||
|
procedure RefrescarDireccion;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewDatosYSeleccionClientePresupuesto = class(TfrViewBase, IViewDatosYSeleccionClientePresupuesto)
|
||||||
|
dsCliente: TDADataSource;
|
||||||
|
ActionList1: TActionList;
|
||||||
|
actElegirContacto: TAction;
|
||||||
|
actAnadirContacto: TAction;
|
||||||
|
actVerContacto: TAction;
|
||||||
|
PngImageList: TPngImageList;
|
||||||
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
edtlNombre: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
edtNIFCIF: TcxDBTextEdit;
|
||||||
|
Button1: TBitBtn;
|
||||||
|
dxLayoutControl1Item7: TdxLayoutItem;
|
||||||
|
Button2: TBitBtn;
|
||||||
|
dxLayoutControl1Item8: TdxLayoutItem;
|
||||||
|
Button3: TBitBtn;
|
||||||
|
dxLayoutControl1Item9: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||||
|
dsPresupuesto: TDADataSource;
|
||||||
|
actElegirDireccion: TAction;
|
||||||
|
actElegirPersonaContacto: TAction;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
|
edtPersonaContacto: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
edtDireccion: TcxTextEdit;
|
||||||
|
Button4: TButton;
|
||||||
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Item6: TdxLayoutItem;
|
||||||
|
Button5: TButton;
|
||||||
|
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||||
|
procedure actElegirContactoExecute(Sender: TObject);
|
||||||
|
procedure actAnadirContactoExecute(Sender: TObject);
|
||||||
|
procedure actVerContactoUpdate(Sender: TObject);
|
||||||
|
procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject;
|
||||||
|
AButtonIndex: Integer);
|
||||||
|
procedure edtDireccionPropertiesButtonClick(Sender: TObject;
|
||||||
|
AButtonIndex: Integer);
|
||||||
|
procedure actVerContactoExecute(Sender: TObject);
|
||||||
|
procedure actElegirDireccionUpdate(Sender: TObject);
|
||||||
|
procedure actElegirDireccionExecute(Sender: TObject);
|
||||||
|
procedure actElegirPersonaContactoExecute(Sender: TObject);
|
||||||
|
procedure actElegirPersonaContactoUpdate(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FOnClienteChanged : TNotifyEvent;
|
||||||
|
FMsgElegirCliente: String;
|
||||||
|
function GetMsgElegirCliente: String;
|
||||||
|
procedure SetMsgElegirCliente(const Value: String);
|
||||||
|
|
||||||
|
protected
|
||||||
|
FClientesController : IClientesController;
|
||||||
|
FDireccionesController : IDireccionesContactoController;
|
||||||
|
FPresupuesto : IBizPresupuestoCliente;
|
||||||
|
FCliente : IBizCliente;
|
||||||
|
FDireccion : IBizDireccionesContacto;
|
||||||
|
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; virtual;
|
||||||
|
procedure SetID_Cliente(const Value: integer); virtual;
|
||||||
|
function GetPresupuesto: IBizPresupuestoCliente;
|
||||||
|
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||||
|
procedure EscribirTextoDireccion;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure ElegirPersonaContacto;
|
||||||
|
procedure ElegirDireccionCliente;
|
||||||
|
procedure ElegirCliente;
|
||||||
|
procedure VerFichaCliente;
|
||||||
|
procedure AnadirNuevoCliente;
|
||||||
|
procedure RefrescarDireccion;
|
||||||
|
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||||
|
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||||
|
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
|
||||||
|
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirContactoExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ElegirCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirDireccionExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ElegirDireccionCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirDireccionUpdate(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
|
||||||
|
(FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirPersonaContactoExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ElegirPersonaContacto;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirPersonaContactoUpdate(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := Assigned(FCliente.Personal) and
|
||||||
|
(FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actAnadirContactoExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
AnadirNuevoCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actVerContactoExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
VerFichaCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.actVerContactoUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.AnadirNuevoCliente;
|
||||||
|
var
|
||||||
|
ACliente : IBizCliente;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ACliente := (FClientesController.Nuevo as IBizCliente);
|
||||||
|
FClientesController.Ver(ACliente);
|
||||||
|
Self.Cliente := ACliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewDatosYSeleccionClientePresupuesto.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FMsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
|
||||||
|
FClientesController := TClientesController.Create;
|
||||||
|
FDireccionesController := TDireccionesContactoController.Create;
|
||||||
|
|
||||||
|
edtlNombre.Enabled := False;
|
||||||
|
edtNIFCIF.Enabled := False;
|
||||||
|
edtDireccion.Enabled := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewDatosYSeleccionClientePresupuesto.Destroy;
|
||||||
|
begin
|
||||||
|
FClientesController := NIL;
|
||||||
|
FDireccionesController := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.edtDireccionPropertiesButtonClick(
|
||||||
|
Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ElegirDireccionCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.edtPersonaContactoPropertiesButtonClick(
|
||||||
|
Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ElegirPersonaContacto;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.ElegirCliente;
|
||||||
|
var
|
||||||
|
ACliente : IBizCliente;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, FMsgElegirCliente, False) as IBizCliente);
|
||||||
|
|
||||||
|
if Assigned(ACliente) then
|
||||||
|
Self.Cliente := ACliente;
|
||||||
|
ACliente := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.ElegirDireccionCliente;
|
||||||
|
var
|
||||||
|
ADireccion : IBizDireccionesContacto;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'dssdsdds');
|
||||||
|
|
||||||
|
if Assigned(ADireccion) then
|
||||||
|
begin
|
||||||
|
FDireccion := ADireccion;
|
||||||
|
FPresupuesto.Edit;
|
||||||
|
|
||||||
|
if FDireccion.IDIsNull then
|
||||||
|
begin
|
||||||
|
FPresupuesto.ClearField('ID_DIRECCION');
|
||||||
|
FPresupuesto.ClearField('IMPORTE_PORTE');
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
FPresupuesto.ID_DIRECCION := FDireccion.ID;
|
||||||
|
FPresupuesto.IMPORTE_PORTE := FDireccion.PORTE;
|
||||||
|
FPresupuesto.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
|
||||||
|
end;
|
||||||
|
EscribirTextoDireccion;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.ElegirPersonaContacto;
|
||||||
|
var
|
||||||
|
APersona : IBizContactoPersonal;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
APersona := FClientesController.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
|
||||||
|
FPresupuesto.Edit;
|
||||||
|
FPresupuesto.PERSONA_CONTACTO := APersona.NOMBRE;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.EscribirTextoDireccion;
|
||||||
|
var
|
||||||
|
ACadena : String;
|
||||||
|
begin
|
||||||
|
ACadena := '';
|
||||||
|
|
||||||
|
if Assigned(FDireccion) then
|
||||||
|
ACadena := Format('%s %s %s %s',
|
||||||
|
[FDireccion.CALLE, FDireccion.POBLACION,
|
||||||
|
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
|
||||||
|
|
||||||
|
edtDireccion.Text := ACadena;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewDatosYSeleccionClientePresupuesto.GetCliente: IBizCliente;
|
||||||
|
begin
|
||||||
|
Result := FCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewDatosYSeleccionClientePresupuesto.GetID_Cliente: integer;
|
||||||
|
begin
|
||||||
|
Result := -1;
|
||||||
|
if Assigned(FCliente) then
|
||||||
|
Result := FCliente.ID;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewDatosYSeleccionClientePresupuesto.GetMsgElegirCliente: String;
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.SetCliente(Value: IBizCliente);
|
||||||
|
begin
|
||||||
|
FCliente := Value;
|
||||||
|
if Assigned(FCliente) then
|
||||||
|
begin
|
||||||
|
dsCliente.DataTable := FCliente.DataTable;
|
||||||
|
|
||||||
|
if not FCliente.DataTable.Active then
|
||||||
|
FCliente.DataTable.Active := True;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
dsCliente.DataTable := NIL;
|
||||||
|
FCliente := NIL;
|
||||||
|
FDireccion := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(FOnClienteChanged) then
|
||||||
|
FOnClienteChanged(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.SetID_Cliente(const Value: integer);
|
||||||
|
begin
|
||||||
|
Self.Cliente := IBizCliente(FClientesController.Buscar(Value));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.SetMsgElegirCliente(
|
||||||
|
const Value: String);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewDatosYSeleccionClientePresupuesto.GetOnClienteChanged: TNotifyEvent;
|
||||||
|
begin
|
||||||
|
Result := FOnClienteChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewDatosYSeleccionClientePresupuesto.GetPresupuesto: IBizPresupuestoCliente;
|
||||||
|
begin
|
||||||
|
Result := FPresupuesto;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.RefrescarDireccion;
|
||||||
|
begin
|
||||||
|
FDireccion := FDireccionesController.Nuevo;
|
||||||
|
|
||||||
|
if (not FPresupuesto.ID_DIRECCIONIsNull) and
|
||||||
|
(FDireccionesController.Localizar(FCliente.Direcciones, FPresupuesto.ID_DIRECCION)) then
|
||||||
|
FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
|
||||||
|
else
|
||||||
|
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||||
|
|
||||||
|
EscribirTextoDireccion;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.SetOnClienteChanged(
|
||||||
|
const Value: TNotifyEvent);
|
||||||
|
begin
|
||||||
|
FOnClienteChanged := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.SetPresupuesto(
|
||||||
|
const Value: IBizPresupuestoCliente);
|
||||||
|
begin
|
||||||
|
FPresupuesto := Value;
|
||||||
|
if Assigned(FPresupuesto) then
|
||||||
|
begin
|
||||||
|
dsPresupuesto.DataTable := FPresupuesto.DataTable;
|
||||||
|
|
||||||
|
FCliente := FPresupuesto.Cliente;
|
||||||
|
dsCliente.DataTable := FCliente.DataTable;
|
||||||
|
|
||||||
|
if not FCliente.DataTable.Active then
|
||||||
|
FCliente.DataTable.Active := True;
|
||||||
|
|
||||||
|
RefrescarDireccion;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
dsPresupuesto.DataTable := NIL;
|
||||||
|
FCliente := NIL;
|
||||||
|
FDireccion := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.SetReadOnly(Value: Boolean);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if ReadOnly then
|
||||||
|
begin
|
||||||
|
actAnadirContacto.Enabled := False;
|
||||||
|
actElegirContacto.Enabled := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDatosYSeleccionClientePresupuesto.VerFichaCliente;
|
||||||
|
begin
|
||||||
|
if not Assigned(Cliente) then
|
||||||
|
ShowErrorMessage('No se ha indicado un cliente', 'El presupuesto no tiene ningún cliente asociado a mostrar.')
|
||||||
|
else begin
|
||||||
|
FClientesController.Ver(Cliente);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -18,6 +18,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
DesignSize = (
|
DesignSize = (
|
||||||
929
|
929
|
||||||
459)
|
459)
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 480
|
||||||
|
Top = 229
|
||||||
|
Width = 383
|
||||||
|
Height = 26
|
||||||
|
Caption =
|
||||||
|
'Opcionalmente, puede escribir el nombre del cliente final de est' +
|
||||||
|
'e presupuesto o elegirlo de la lista de clientes.'
|
||||||
|
WordWrap = True
|
||||||
|
end
|
||||||
object edtFechaPresupuesto: TcxDBDateEdit
|
object edtFechaPresupuesto: TcxDBDateEdit
|
||||||
Left = 123
|
Left = 123
|
||||||
Top = 82
|
Top = 82
|
||||||
@ -68,8 +78,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
Height = 254
|
Height = 217
|
||||||
Width = 361
|
Width = 507
|
||||||
end
|
end
|
||||||
object eReferencia: TcxDBTextEdit
|
object eReferencia: TcxDBTextEdit
|
||||||
Left = 123
|
Left = 123
|
||||||
@ -136,7 +146,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
Width = 122
|
Width = 122
|
||||||
end
|
end
|
||||||
object bFormasPago: TButton
|
object bFormasPago: TButton
|
||||||
Left = 251
|
Left = 318
|
||||||
Top = 163
|
Top = 163
|
||||||
Width = 132
|
Width = 132
|
||||||
Height = 21
|
Height = 21
|
||||||
@ -199,19 +209,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Width = 260
|
Width = 260
|
||||||
end
|
end
|
||||||
object cbClienteFinal: TcxDBButtonEdit
|
object cbClienteFinal: TcxDBTextEdit
|
||||||
Left = 413
|
Left = 480
|
||||||
Top = 309
|
Top = 263
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'CLIENTE_FINAL'
|
DataBinding.DataField = 'CLIENTE_FINAL'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Properties.Buttons = <
|
|
||||||
item
|
|
||||||
Default = True
|
|
||||||
Kind = bkEllipsis
|
|
||||||
end>
|
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = cbClienteFinalPropertiesButtonClick
|
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.Color = clWindow
|
Style.Color = clWindow
|
||||||
@ -219,7 +223,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
StyleDisabled.Color = clMenuBar
|
StyleDisabled.Color = clMenuBar
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
@ -269,7 +272,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
Width = 260
|
Width = 260
|
||||||
end
|
end
|
||||||
object eReferenciaAux: TcxDBTextEdit
|
object eReferenciaAux: TcxDBTextEdit
|
||||||
Left = 251
|
Left = 293
|
||||||
Top = 28
|
Top = 28
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'REFERENCIA_AUX'
|
DataBinding.DataField = 'REFERENCIA_AUX'
|
||||||
@ -297,11 +300,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 132
|
Width = 132
|
||||||
end
|
end
|
||||||
inline frViewDatosClientePresupuesto1: TfrViewDatosClientePresupuesto
|
inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
|
||||||
Left = 413
|
Left = 480
|
||||||
Top = 28
|
Top = 28
|
||||||
Width = 494
|
Width = 505
|
||||||
Height = 245
|
Height = 165
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -11
|
Font.Height = -11
|
||||||
@ -310,15 +313,9 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 413
|
ExplicitLeft = 480
|
||||||
ExplicitTop = 28
|
ExplicitTop = 28
|
||||||
ExplicitWidth = 494
|
|
||||||
ExplicitHeight = 245
|
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 494
|
|
||||||
Height = 245
|
|
||||||
ExplicitWidth = 494
|
|
||||||
ExplicitHeight = 245
|
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
@ -328,59 +325,51 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
Width = 224
|
Width = 224
|
||||||
end
|
end
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
|
Left = 314
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 562
|
ExplicitLeft = 314
|
||||||
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
|
end
|
||||||
inherited Button3: TBitBtn
|
inherited Button3: TBitBtn
|
||||||
Left = 292
|
Left = 225
|
||||||
ExplicitLeft = 292
|
ExplicitLeft = 225
|
||||||
end
|
end
|
||||||
inherited edtPersonaContacto: TcxDBButtonEdit
|
inherited edtPersonaContacto: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 494
|
ExplicitWidth = 283
|
||||||
Width = 494
|
Width = 283
|
||||||
|
end
|
||||||
|
inherited edtDireccion: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
inherited Button4: TButton
|
||||||
|
Left = 394
|
||||||
|
ExplicitLeft = 394
|
||||||
|
end
|
||||||
|
inherited Button5: TButton
|
||||||
|
Left = 394
|
||||||
|
ExplicitLeft = 394
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object bElegirClienteFinal: TButton
|
||||||
|
Left = 884
|
||||||
|
Top = 261
|
||||||
|
Width = 23
|
||||||
|
Height = 25
|
||||||
|
Action = actElegirClienteFinal
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
@ -480,34 +469,56 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
|||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
Caption = 'New Item'
|
Caption = 'New Item'
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Control = frViewDatosClientePresupuesto1
|
Control = frViewDatosYSeleccionClientePresupuesto1
|
||||||
ControlOptions.AutoColor = True
|
ControlOptions.AutoColor = True
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||||
Caption = 'Cliente final'
|
Caption = 'Cliente final'
|
||||||
object dxLayoutControl1Item8: TdxLayoutItem
|
object dxLayoutControl1Item12: TdxLayoutItem
|
||||||
Caption = 'Cliente final:'
|
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Control = cbClienteFinal
|
Control = Label1
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
object dxLayoutControl1Group9: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
|
AutoAligns = []
|
||||||
|
AlignHorz = ahClient
|
||||||
|
AlignVert = avCenter
|
||||||
|
Caption = 'Cliente final:'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = cbClienteFinal
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item11: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
ShowCaption = False
|
||||||
|
Control = bElegirClienteFinal
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object DADataSource: TDADataSource
|
object DADataSource: TDADataSource
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 8
|
Top = 48
|
||||||
end
|
end
|
||||||
object ActionList1: TActionList
|
object ActionList1: TActionList
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 40
|
Top = 24
|
||||||
object actElegirDireccion: TAction
|
object actElegirClienteFinal: TAction
|
||||||
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
Caption = '...'
|
||||||
OnExecute = actElegirDireccionExecute
|
OnExecute = actElegirClienteFinalExecute
|
||||||
OnUpdate = actElegirDireccionUpdate
|
OnUpdate = actElegirClienteFinalUpdate
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dsFormaPago: TDADataSource
|
object dsFormaPago: TDADataSource
|
||||||
|
|||||||
@ -5,24 +5,23 @@ interface
|
|||||||
uses
|
uses
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewBase, uBizPresupuestosCliente, DB, uDADataTable, uCustomView,
|
Dialogs, uViewBase, uBizPresupuestosCliente, DB, uDADataTable, uCustomView,
|
||||||
AppEvnts, StdCtrls, Mask, DBCtrls, uViewDatosClientePresupuesto,
|
AppEvnts, StdCtrls, Mask, DBCtrls,
|
||||||
uViewObservaciones, uViewDatosYSeleccionCliente,
|
uViewObservaciones, uViewDatosYSeleccionCliente,
|
||||||
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
|
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
|
||||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||||
uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
|
uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
|
||||||
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
|
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
|
||||||
uBizFormasPago, cxButtonEdit;
|
uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClientePresupuesto;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewPresupuestoCliente = interface(IViewBase)
|
IViewPresupuestoCliente = interface(IViewBase)
|
||||||
['{C5385699-C1A4-4AEB-B3D0-EE3BDB322FE2}']
|
['{A970B43E-E542-40F5-B265-41B7EFA613F9}']
|
||||||
function GetPresupuesto: IBizPresupuestoCliente;
|
function GetPresupuesto: IBizPresupuestoCliente;
|
||||||
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||||
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||||
|
|
||||||
function GetViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
function GetViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto;
|
||||||
procedure SetViewClientePresupuesto(const Value: TfrViewDatosYSeleccionCliente);
|
property ViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto read GetViewClientePresupuesto;
|
||||||
property ViewClientePresupuesto: TfrViewDatosYSeleccionCliente read GetViewClientePresupuesto write SetViewClientePresupuesto;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewPresupuestoCliente = class(TfrViewBase, IViewPresupuestoCliente)
|
TfrViewPresupuestoCliente = class(TfrViewBase, IViewPresupuestoCliente)
|
||||||
@ -39,7 +38,6 @@ type
|
|||||||
eReferencia: TcxDBTextEdit;
|
eReferencia: TcxDBTextEdit;
|
||||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||||
ActionList1: TActionList;
|
ActionList1: TActionList;
|
||||||
actElegirDireccion: TAction;
|
|
||||||
dxLayoutControl1Item4: TdxLayoutItem;
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
cbFormaPago: TcxDBLookupComboBox;
|
cbFormaPago: TcxDBLookupComboBox;
|
||||||
dxLayoutControl1Item5: TdxLayoutItem;
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
@ -51,7 +49,7 @@ type
|
|||||||
dxLayoutControl1Item15: TdxLayoutItem;
|
dxLayoutControl1Item15: TdxLayoutItem;
|
||||||
eRefCliente: TcxDBTextEdit;
|
eRefCliente: TcxDBTextEdit;
|
||||||
dxLayoutControl1Item8: TdxLayoutItem;
|
dxLayoutControl1Item8: TdxLayoutItem;
|
||||||
cbClienteFinal: TcxDBButtonEdit;
|
cbClienteFinal: TcxDBTextEdit;
|
||||||
cbSituacion: TcxDBImageComboBox;
|
cbSituacion: TcxDBImageComboBox;
|
||||||
dxLayoutControl1Item10: TdxLayoutItem;
|
dxLayoutControl1Item10: TdxLayoutItem;
|
||||||
dxLayoutControl1Item9: TdxLayoutItem;
|
dxLayoutControl1Item9: TdxLayoutItem;
|
||||||
@ -60,30 +58,35 @@ type
|
|||||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||||
dxLayoutControl1Group6: TdxLayoutGroup;
|
dxLayoutControl1Group6: TdxLayoutGroup;
|
||||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||||
frViewDatosClientePresupuesto1: TfrViewDatosClientePresupuesto;
|
frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto;
|
||||||
dxLayoutControl1Item1: TdxLayoutItem;
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Item11: TdxLayoutItem;
|
||||||
|
bElegirClienteFinal: TButton;
|
||||||
|
actElegirClienteFinal: TAction;
|
||||||
|
dxLayoutControl1Item12: TdxLayoutItem;
|
||||||
|
Label1: TLabel;
|
||||||
|
dxLayoutControl1Group9: TdxLayoutGroup;
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
procedure CustomViewDestroy(Sender: TObject);
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
procedure actElegirDireccionExecute(Sender: TObject);
|
|
||||||
procedure actElegirDireccionUpdate(Sender: TObject);
|
|
||||||
procedure bFormasPagoClick(Sender: TObject);
|
procedure bFormasPagoClick(Sender: TObject);
|
||||||
procedure frViewClientePresupuestoButton1Click(Sender: TObject);
|
procedure frViewClientePresupuestoButton1Click(Sender: TObject);
|
||||||
procedure frViewClientePresupuestoButton2Click(Sender: TObject);
|
procedure frViewClientePresupuestoButton2Click(Sender: TObject);
|
||||||
procedure cbClienteFinalPropertiesButtonClick(Sender: TObject;
|
procedure cbClienteFinalPropertiesButtonClick(Sender: TObject;
|
||||||
AButtonIndex: Integer);
|
AButtonIndex: Integer);
|
||||||
|
procedure actElegirClienteFinalExecute(Sender: TObject);
|
||||||
|
procedure actElegirClienteFinalUpdate(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
FPresupuesto : IBizPresupuestoCliente;
|
FPresupuesto : IBizPresupuestoCliente;
|
||||||
FFormasPago : IBizFormaPago;
|
FFormasPago : IBizFormaPago;
|
||||||
FFormasPagoController : IFormasPagoController;
|
FFormasPagoController : IFormasPagoController;
|
||||||
FViewClientePresupuesto : TfrViewDatosYSeleccionCliente;
|
FViewClientePresupuesto : IViewDatosYSeleccionClientePresupuesto;
|
||||||
|
|
||||||
function GetPresupuesto: IBizPresupuestoCliente;
|
function GetPresupuesto: IBizPresupuestoCliente;
|
||||||
procedure SetPresupuesto(const Value: IBizPresupuestoCliente); virtual;
|
procedure SetPresupuesto(const Value: IBizPresupuestoCliente); virtual;
|
||||||
function GetViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
function GetViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto;
|
||||||
procedure SetViewClientePresupuesto(const Value: TfrViewDatosYSeleccionCliente);
|
|
||||||
public
|
public
|
||||||
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||||
property ViewClientePresupuesto: TfrViewDatosYSeleccionCliente read GetViewClientePresupuesto;
|
property ViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto read GetViewClientePresupuesto;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -97,43 +100,38 @@ uses
|
|||||||
uPresupuestosClienteController;
|
uPresupuestosClienteController;
|
||||||
|
|
||||||
|
|
||||||
procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject);
|
procedure TfrViewPresupuestoCliente.actElegirClienteFinalExecute(
|
||||||
|
Sender: TObject);
|
||||||
var
|
var
|
||||||
AClientesController : IClientesController;
|
ACliente : IBizCliente;
|
||||||
APresupuestoController : IPresupuestosClienteController;
|
AClienteController : IClientesController;
|
||||||
ADireccion : IBizDireccionesContacto;
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
AClientesController := TClientesController.Create;
|
AClienteController := TClientesController.Create;
|
||||||
APresupuestoController := TPresupuestosClienteController.Create;
|
|
||||||
try
|
try
|
||||||
ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente,
|
ACliente := (AClienteController.ElegirContacto(AClienteController.BuscarTodos,
|
||||||
'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este presupuesto.');
|
'Elija el cliente final de este presupuesto', False) as IBizCliente);
|
||||||
if Assigned(ADireccion) then
|
if Assigned(ACliente) then
|
||||||
begin
|
begin
|
||||||
APresupuestoController.CopiarDireccionEnvio(ADireccion, FPresupuesto);
|
ShowHourglassCursor;
|
||||||
FPresupuesto.Edit;
|
try
|
||||||
FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE;
|
Presupuesto.Edit;
|
||||||
|
Presupuesto.CLIENTE_FINAL := ACliente.NOMBRE;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
ADireccion := NIL;
|
ACliente := NIL;
|
||||||
AClientesController := NIL;
|
AClienteController := NIL;
|
||||||
APresupuestoController := NIL;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPresupuestoCliente.actElegirDireccionUpdate(Sender: TObject);
|
procedure TfrViewPresupuestoCliente.actElegirClienteFinalUpdate(
|
||||||
|
Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
(Sender as TAction).Enabled := (not ReadOnly) and
|
(Sender as TAction).Enabled := (not ReadOnly);
|
||||||
Assigned(FPresupuesto) and
|
|
||||||
Assigned(FViewClientePresupuesto) and
|
|
||||||
FPresupuesto.DataTable.Active and
|
|
||||||
Assigned(FPresupuesto.Cliente) and
|
|
||||||
Assigned(FPresupuesto.Cliente) and
|
|
||||||
Assigned(FPresupuesto.Cliente.Direcciones) and
|
|
||||||
FPresupuesto.Cliente.Direcciones.DataTable.Active and
|
|
||||||
(FPresupuesto.Cliente.Direcciones.DataTable.RecordCount > 0);
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPresupuestoCliente.bFormasPagoClick(Sender: TObject);
|
procedure TfrViewPresupuestoCliente.bFormasPagoClick(Sender: TObject);
|
||||||
@ -175,8 +173,7 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
FFormasPago := Nil;
|
FFormasPago := Nil;
|
||||||
FFormasPagoController := TFormasPagoController.Create;
|
FFormasPagoController := TFormasPagoController.Create;
|
||||||
FViewClientePresupuesto := frViewDatosClientePresupuesto1;
|
FViewClientePresupuesto := frViewDatosYSeleccionClientePresupuesto1;
|
||||||
FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);
|
procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);
|
||||||
@ -195,7 +192,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
|
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;
|
Exit;
|
||||||
end;
|
end;
|
||||||
frViewDatosClientePresupuesto1.actElegirContacto.Execute;
|
frViewDatosYSeleccionClientePresupuesto1.actElegirContacto.Execute;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPresupuestoCliente.frViewClientePresupuestoButton2Click(Sender: TObject);
|
procedure TfrViewPresupuestoCliente.frViewClientePresupuestoButton2Click(Sender: TObject);
|
||||||
@ -206,7 +203,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
|
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;
|
Exit;
|
||||||
end;
|
end;
|
||||||
frViewDatosClientePresupuesto1.actAnadirContacto.Execute;
|
frViewDatosYSeleccionClientePresupuesto1.actAnadirContacto.Execute;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
|
function TfrViewPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
|
||||||
@ -214,7 +211,7 @@ begin
|
|||||||
Result := FPresupuesto;
|
Result := FPresupuesto;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewPresupuestoCliente.GetViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
function TfrViewPresupuestoCliente.GetViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto;
|
||||||
begin
|
begin
|
||||||
Result := FViewClientePresupuesto;
|
Result := FViewClientePresupuesto;
|
||||||
end;
|
end;
|
||||||
@ -230,20 +227,13 @@ begin
|
|||||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||||
dsFormaPago.DataTable.Active := True;
|
dsFormaPago.DataTable.Active := True;
|
||||||
|
|
||||||
frViewDatosClientePresupuesto1.Cliente := FPresupuesto.Cliente;
|
frViewDatosYSeleccionClientePresupuesto1.Presupuesto := FPresupuesto;
|
||||||
frViewDatosClientePresupuesto1.dsPresupuesto.DataTable := FPresupuesto.DataTable;
|
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
DADataSource.DataTable := NIL;
|
DADataSource.DataTable := NIL;
|
||||||
dsFormaPago.DataTable := NIL;
|
dsFormaPago.DataTable := NIL;
|
||||||
frViewDatosClientePresupuesto1.Cliente := nil;
|
frViewDatosYSeleccionClientePresupuesto1.Presupuesto := Nil;
|
||||||
frViewDatosClientePresupuesto1.dsPresupuesto.DataTable := nil;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPresupuestoCliente.SetViewClientePresupuesto(const Value: TfrViewDatosYSeleccionCliente);
|
|
||||||
begin
|
|
||||||
FViewClientePresupuesto := Value;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
Binary file not shown.
@ -1,294 +1,294 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
<Version>7.0</Version>
|
<Version>7.0</Version>
|
||||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
<DCC_MapFile>3</DCC_MapFile>
|
<DCC_MapFile>3</DCC_MapFile>
|
||||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||||
<DCC_Define>RELEASE</DCC_Define>
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
<Version>7.0</Version>
|
<Version>7.0</Version>
|
||||||
<DCC_MapFile>3</DCC_MapFile>
|
<DCC_MapFile>3</DCC_MapFile>
|
||||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||||
<DCC_Define>DEBUG;</DCC_Define>
|
<DCC_Define>DEBUG;</DCC_Define>
|
||||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||||
<DCC_DebugVN>True</DCC_DebugVN>
|
<DCC_DebugVN>True</DCC_DebugVN>
|
||||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ProjectExtensions>
|
<ProjectExtensions>
|
||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType />
|
<Borland.ProjectType/>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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.3.2.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.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 15 de septiembre de 2008 17:04</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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.3.2.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.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 15 de septiembre de 2008 17:04</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||||
<Form>srvEmpresas</Form>
|
<Form>srvEmpresas</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
|
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||||
<Form>RptAlbaranesCliente</Form>
|
<Form>RptAlbaranesCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||||
<Form>RptWordAlbaranCliente</Form>
|
<Form>RptWordAlbaranCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||||
<Form>srvAlbaranesCliente</Form>
|
<Form>srvAlbaranesCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||||
<Form>srvAlbaranesProveedor</Form>
|
<Form>srvAlbaranesProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||||
<Form>srvAlmacenes</Form>
|
<Form>srvAlmacenes</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||||
<Form>srvArticulos</Form>
|
<Form>srvArticulos</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||||
<Form>RptEtiquetasContacto</Form>
|
<Form>RptEtiquetasContacto</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||||
<Form>RptFichasEmpleado</Form>
|
<Form>RptFichasEmpleado</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||||
<Form>srvContactos</Form>
|
<Form>srvContactos</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||||
<Form>srvFabricantes</Form>
|
<Form>srvFabricantes</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||||
<Form>RptFacturasCliente</Form>
|
<Form>RptFacturasCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||||
<Form>RptWordFacturaCliente</Form>
|
<Form>RptWordFacturaCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||||
<Form>srvFacturasCliente</Form>
|
<Form>srvFacturasCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||||
<Form>srvFacturasProveedor</Form>
|
<Form>srvFacturasProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
|
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||||
<Form>srvGestorDocumentos</Form>
|
<Form>srvGestorDocumentos</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||||
<Form>srvHistoricoMovimientos</Form>
|
<Form>srvHistoricoMovimientos</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||||
<Form>srvInventario</Form>
|
<Form>srvInventario</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
|
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||||
<Form>RptPedidosProveedor</Form>
|
<Form>RptPedidosProveedor</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||||
<Form>RptWordPedidoProveedor</Form>
|
<Form>RptWordPedidoProveedor</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||||
<Form>srvPedidosProveedor</Form>
|
<Form>srvPedidosProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||||
<Form>RptPresupuestosCliente</Form>
|
<Form>RptPresupuestosCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||||
<Form>RptWordCertificadoTrabajo</Form>
|
<Form>RptWordCertificadoTrabajo</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||||
<Form>RptWordPresupuestoCliente</Form>
|
<Form>RptWordPresupuestoCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||||
<Form>srvPresupuestosCliente</Form>
|
<Form>srvPresupuestosCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||||
<Form>RptRecibosCliente</Form>
|
<Form>RptRecibosCliente</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||||
<Form>srvRecibosCliente</Form>
|
<Form>srvRecibosCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||||
<Form>srvRecibosProveedor</Form>
|
<Form>srvRecibosProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||||
<Form>srvReferencias</Form>
|
<Form>srvReferencias</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||||
<Form>srvRemesasCliente</Form>
|
<Form>srvRemesasCliente</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||||
<Form>srvRemesasProveedor</Form>
|
<Form>srvRemesasProveedor</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||||
<Form>srvUnidadesMedida</Form>
|
<Form>srvUnidadesMedida</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||||
<Form>srvConfiguracion</Form>
|
<Form>srvConfiguracion</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||||
<Form>frConexionBD</Form>
|
<Form>frConexionBD</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||||
<Form>frConfGeneral</Form>
|
<Form>frConfGeneral</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||||
<Form>fConfiguracion</Form>
|
<Form>fConfiguracion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||||
<Form>FrameConfiguracion</Form>
|
<Form>FrameConfiguracion</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="srvLogin_Impl.pas">
|
<DCCReference Include="srvLogin_Impl.pas">
|
||||||
<Form>srvLogin</Form>
|
<Form>srvLogin</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uAcercaDe.pas">
|
<DCCReference Include="uAcercaDe.pas">
|
||||||
<Form>fAcercaDe</Form>
|
<Form>fAcercaDe</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uDataModuleServer.pas">
|
<DCCReference Include="uDataModuleServer.pas">
|
||||||
<Form>dmServer</Form>
|
<Form>dmServer</Form>
|
||||||
<DesignClass>TDataModule</DesignClass>
|
<DesignClass>TDataModule</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uServerMainForm.pas">
|
<DCCReference Include="uServerMainForm.pas">
|
||||||
<Form>fServerForm</Form>
|
<Form>fServerForm</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
|
|||||||
@ -14,7 +14,7 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "1.3.2.0\0"
|
VALUE "FileVersion", "1.3.2.0\0"
|
||||||
VALUE "ProductVersion", "1.3.2.0\0"
|
VALUE "ProductVersion", "1.3.2.0\0"
|
||||||
VALUE "CompileDate", "jueves, 18 de septiembre de 2008 10:28\0"
|
VALUE "CompileDate", "viernes, 19 de septiembre de 2008 12:02\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
@ -39,8 +39,8 @@ object dmServer: TdmServer
|
|||||||
Name = 'IBX'
|
Name = 'IBX'
|
||||||
ConnectionString =
|
ConnectionString =
|
||||||
'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
|
'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
|
||||||
'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
|
'tabase\FACTUGES_PRODUCCION.FDB;UserID=sysdba;Password=masterkey;' +
|
||||||
'harset=ISO8859_1;'
|
'Dialect=3;Charset=ISO8859_1;'
|
||||||
ConnectionType = 'Interbase'
|
ConnectionType = 'Interbase'
|
||||||
Default = True
|
Default = True
|
||||||
end>
|
end>
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user