Ticket #79 -> (repaso) Imprimir en el albarán el nº de teléfono del cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@478 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
3f4cca37f3
commit
4ec4f3d61d
@ -437,19 +437,20 @@ CREATE TABLE ALBARANES_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
ID_CLIENTE TIPO_ID,
|
||||
ID_DIRECCION TIPO_ID,
|
||||
FECHA_ALBARAN DATE,
|
||||
ID_ALMACEN TIPO_ID,
|
||||
ID_PEDIDO TIPO_ID,
|
||||
ID_FACTURA TIPO_ID,
|
||||
TIPO VARCHAR(1),
|
||||
REFERENCIA VARCHAR(255),
|
||||
ID_DIRECCION TIPO_ID,
|
||||
CALLE VARCHAR(255),
|
||||
CODIGO_POSTAL VARCHAR(10),
|
||||
POBLACION VARCHAR(255),
|
||||
PROVINCIA VARCHAR(255),
|
||||
PERSONA_CONTACTO VARCHAR(255),
|
||||
TELEFONO VARCHAR(25),
|
||||
MOVIL VARCHAR(25),
|
||||
IMPORTE_NETO TIPO_IMPORTE,
|
||||
IMPORTE_PORTE TIPO_IMPORTE,
|
||||
DESCUENTO TIPO_PORCENTAJE,
|
||||
@ -1244,8 +1245,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
|
||||
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
|
||||
RE TIPO_PORCENTAJE,
|
||||
IMPORTE_RE TIPO_IMPORTE,
|
||||
ID_CONTRATO TIPO_ID ,
|
||||
NO_VALORADO TIPO_BOOLEANO
|
||||
ID_CONTRATO TIPO_ID
|
||||
);
|
||||
|
||||
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
|
||||
@ -1629,6 +1629,7 @@ CREATE VIEW V_ALBARANES_CLIENTE(
|
||||
PROVINCIA,
|
||||
PERSONA_CONTACTO,
|
||||
TELEFONO,
|
||||
MOVIL,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
DESCUENTO,
|
||||
@ -1674,6 +1675,7 @@ SELECT
|
||||
ALBARANES_CLIENTE.PROVINCIA,
|
||||
ALBARANES_CLIENTE.PERSONA_CONTACTO,
|
||||
ALBARANES_CLIENTE.TELEFONO,
|
||||
ALBARANES_CLIENTE.MOVIL,
|
||||
ALBARANES_CLIENTE.IMPORTE_NETO,
|
||||
ALBARANES_CLIENTE.IMPORTE_PORTE,
|
||||
ALBARANES_CLIENTE.DESCUENTO,
|
||||
@ -3637,8 +3639,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
|
||||
ID_VENDEDOR,
|
||||
VENDEDOR,
|
||||
ID_CONTRATO,
|
||||
REF_CONTRATO,
|
||||
NO_VALORADO)
|
||||
REF_CONTRATO)
|
||||
AS
|
||||
SELECT
|
||||
PRESUPUESTOS_CLIENTE.ID,
|
||||
@ -3680,8 +3681,7 @@ SELECT
|
||||
PRESUPUESTOS_CLIENTE.ID_VENDEDOR,
|
||||
CONTACTOS2.NOMBRE AS VENDEDOR,
|
||||
PRESUPUESTOS_CLIENTE.ID_CONTRATO,
|
||||
CONTRATOS_CLIENTE.REFERENCIA,
|
||||
PRESUPUESTOS_CLIENTE.NO_VALORADO
|
||||
CONTRATOS_CLIENTE.REFERENCIA
|
||||
|
||||
FROM
|
||||
PRESUPUESTOS_CLIENTE
|
||||
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -53,7 +53,7 @@ begin
|
||||
try
|
||||
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
|
||||
ActualizarDetalles(ADetalles, AArticulos);
|
||||
ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado');
|
||||
//ShowInfoMessage('Se han actualizado los descuentos para el cliente seleccionado'); <- No sacarlo en Acana
|
||||
finally
|
||||
AArticulos := Nil;
|
||||
end;
|
||||
|
||||
@ -178,6 +178,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesCliente_TELEFONO'
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranes = '{FBACF002-BE59-43F3-8DC7-83B20BA59AE5}';
|
||||
RID_AlbaranesCliente = '{95819234-E133-4ACC-AFDC-E1CF177752DB}';
|
||||
RID_AlbaranesCliente_Detalles = '{4BF60CD0-658B-4D08-A94D-E1B925D0B17B}';
|
||||
RID_ListaAnosAlbaranes = '{044E6A10-20B4-4D17-A1E1-02F2B0EE6BC2}';
|
||||
RID_AlbaranesCliente = '{EC8EEA50-0133-413D-8D31-F53D6C4D0221}';
|
||||
RID_AlbaranesCliente_Detalles = '{120E6BFE-ADED-4194-B4FC-E56B648E47DB}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||
@ -47,6 +47,7 @@ const
|
||||
fld_AlbaranesClientePROVINCIA = 'PROVINCIA';
|
||||
fld_AlbaranesClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
|
||||
fld_AlbaranesClienteTELEFONO = 'TELEFONO';
|
||||
fld_AlbaranesClienteMOVIL = 'MOVIL';
|
||||
fld_AlbaranesClienteIMPORTE_NETO = 'IMPORTE_NETO';
|
||||
fld_AlbaranesClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
|
||||
fld_AlbaranesClienteDESCUENTO = 'DESCUENTO';
|
||||
@ -92,27 +93,28 @@ const
|
||||
idx_AlbaranesClientePROVINCIA = 19;
|
||||
idx_AlbaranesClientePERSONA_CONTACTO = 20;
|
||||
idx_AlbaranesClienteTELEFONO = 21;
|
||||
idx_AlbaranesClienteIMPORTE_NETO = 22;
|
||||
idx_AlbaranesClienteIMPORTE_PORTE = 23;
|
||||
idx_AlbaranesClienteDESCUENTO = 24;
|
||||
idx_AlbaranesClienteIMPORTE_DESCUENTO = 25;
|
||||
idx_AlbaranesClienteBASE_IMPONIBLE = 26;
|
||||
idx_AlbaranesClienteID_TIPO_IVA = 27;
|
||||
idx_AlbaranesClienteIVA = 28;
|
||||
idx_AlbaranesClienteIMPORTE_IVA = 29;
|
||||
idx_AlbaranesClienteIMPORTE_TOTAL = 30;
|
||||
idx_AlbaranesClienteOBSERVACIONES = 31;
|
||||
idx_AlbaranesClienteINCIDENCIAS = 32;
|
||||
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 33;
|
||||
idx_AlbaranesClienteFECHA_ALTA = 34;
|
||||
idx_AlbaranesClienteFECHA_MODIFICACION = 35;
|
||||
idx_AlbaranesClienteUSUARIO = 36;
|
||||
idx_AlbaranesClienteID_FORMA_PAGO = 37;
|
||||
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 38;
|
||||
idx_AlbaranesClienteFECHA_ENVIO = 39;
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 40;
|
||||
idx_AlbaranesClienteID_TIENDA = 41;
|
||||
idx_AlbaranesClienteTIENDA = 42;
|
||||
idx_AlbaranesClienteMOVIL = 22;
|
||||
idx_AlbaranesClienteIMPORTE_NETO = 23;
|
||||
idx_AlbaranesClienteIMPORTE_PORTE = 24;
|
||||
idx_AlbaranesClienteDESCUENTO = 25;
|
||||
idx_AlbaranesClienteIMPORTE_DESCUENTO = 26;
|
||||
idx_AlbaranesClienteBASE_IMPONIBLE = 27;
|
||||
idx_AlbaranesClienteID_TIPO_IVA = 28;
|
||||
idx_AlbaranesClienteIVA = 29;
|
||||
idx_AlbaranesClienteIMPORTE_IVA = 30;
|
||||
idx_AlbaranesClienteIMPORTE_TOTAL = 31;
|
||||
idx_AlbaranesClienteOBSERVACIONES = 32;
|
||||
idx_AlbaranesClienteINCIDENCIAS = 33;
|
||||
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 34;
|
||||
idx_AlbaranesClienteFECHA_ALTA = 35;
|
||||
idx_AlbaranesClienteFECHA_MODIFICACION = 36;
|
||||
idx_AlbaranesClienteUSUARIO = 37;
|
||||
idx_AlbaranesClienteID_FORMA_PAGO = 38;
|
||||
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 39;
|
||||
idx_AlbaranesClienteFECHA_ENVIO = 40;
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 41;
|
||||
idx_AlbaranesClienteID_TIENDA = 42;
|
||||
idx_AlbaranesClienteTIENDA = 43;
|
||||
|
||||
{ AlbaranesCliente_Detalles fields }
|
||||
fld_AlbaranesCliente_DetallesID = 'ID';
|
||||
@ -149,7 +151,7 @@ const
|
||||
type
|
||||
{ IListaAnosAlbaranes }
|
||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||
['{52486665-7EE5-43C3-9331-B2B8B9887AA7}']
|
||||
['{5576961E-EB12-4940-ACEB-B1E3B948677A}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -184,7 +186,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{27BCD1FA-4808-4856-896B-98038826A03D}']
|
||||
['{FD1EA076-A49C-4F7E-96BE-E2B555D55575}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -274,6 +276,10 @@ type
|
||||
procedure SetTELEFONOValue(const aValue: String);
|
||||
function GetTELEFONOIsNull: Boolean;
|
||||
procedure SetTELEFONOIsNull(const aValue: Boolean);
|
||||
function GetMOVILValue: String;
|
||||
procedure SetMOVILValue(const aValue: String);
|
||||
function GetMOVILIsNull: Boolean;
|
||||
procedure SetMOVILIsNull(const aValue: Boolean);
|
||||
function GetIMPORTE_NETOValue: Currency;
|
||||
procedure SetIMPORTE_NETOValue(const aValue: Currency);
|
||||
function GetIMPORTE_NETOIsNull: Boolean;
|
||||
@ -403,6 +409,8 @@ type
|
||||
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
|
||||
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
|
||||
property MOVIL: String read GetMOVILValue write SetMOVILValue;
|
||||
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
|
||||
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
|
||||
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
|
||||
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
|
||||
@ -544,6 +552,10 @@ type
|
||||
procedure SetTELEFONOValue(const aValue: String); virtual;
|
||||
function GetTELEFONOIsNull: Boolean; virtual;
|
||||
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
|
||||
function GetMOVILValue: String; virtual;
|
||||
procedure SetMOVILValue(const aValue: String); virtual;
|
||||
function GetMOVILIsNull: Boolean; virtual;
|
||||
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_NETOValue: Currency; virtual;
|
||||
procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_NETOIsNull: Boolean; virtual;
|
||||
@ -672,6 +684,8 @@ type
|
||||
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
|
||||
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
|
||||
property MOVIL: String read GetMOVILValue write SetMOVILValue;
|
||||
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
|
||||
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
|
||||
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
|
||||
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
|
||||
@ -723,7 +737,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{373285B0-AE90-4D61-A806-C5D1BC0A22D1}']
|
||||
['{0AE85DFD-D8E8-49EF-909C-D17307156A43}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1442,6 +1456,27 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteTELEFONO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetMOVILValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteMOVIL].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetMOVILValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteMOVIL].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetMOVILIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteMOVIL].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetMOVILIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AlbaranesClienteMOVIL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetIMPORTE_NETOValue: Currency;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteIMPORTE_NETO].AsCurrency;
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranesDelta = '{553286C5-F68E-452F-BDC7-F913EF4EBA35}';
|
||||
RID_AlbaranesClienteDelta = '{E469B866-0CF0-4BA1-AB7E-08A4849D4441}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{81D7FBA7-E7B3-45C0-94DC-5D22E2EB2E8C}';
|
||||
RID_ListaAnosAlbaranesDelta = '{C01E5E50-A195-4FF2-B07F-334991224E65}';
|
||||
RID_AlbaranesClienteDelta = '{D4863959-1602-45A1-8240-BC85DBF9E3B6}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{651FD911-3E25-4911-AC35-58F2B7AEF391}';
|
||||
|
||||
type
|
||||
{ IListaAnosAlbaranesDelta }
|
||||
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
|
||||
['{553286C5-F68E-452F-BDC7-F913EF4EBA35}']
|
||||
['{C01E5E50-A195-4FF2-B07F-334991224E65}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{E469B866-0CF0-4BA1-AB7E-08A4849D4441}']
|
||||
['{D4863959-1602-45A1-8240-BC85DBF9E3B6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -74,6 +74,7 @@ type
|
||||
function GetOldPROVINCIAValue : String;
|
||||
function GetOldPERSONA_CONTACTOValue : String;
|
||||
function GetOldTELEFONOValue : String;
|
||||
function GetOldMOVILValue : String;
|
||||
function GetOldIMPORTE_NETOValue : Currency;
|
||||
function GetOldIMPORTE_PORTEValue : Currency;
|
||||
function GetOldDESCUENTOValue : Float;
|
||||
@ -119,6 +120,7 @@ type
|
||||
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
||||
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
||||
property OldTELEFONO : String read GetOldTELEFONOValue;
|
||||
property OldMOVIL : String read GetOldMOVILValue;
|
||||
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
|
||||
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
|
||||
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
||||
@ -283,6 +285,12 @@ type
|
||||
function GetOldTELEFONOIsNull: Boolean; virtual;
|
||||
procedure SetTELEFONOValue(const aValue: String); virtual;
|
||||
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
|
||||
function GetMOVILValue: String; virtual;
|
||||
function GetMOVILIsNull: Boolean; virtual;
|
||||
function GetOldMOVILValue: String; virtual;
|
||||
function GetOldMOVILIsNull: Boolean; virtual;
|
||||
procedure SetMOVILValue(const aValue: String); virtual;
|
||||
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_NETOValue: Currency; virtual;
|
||||
function GetIMPORTE_NETOIsNull: Boolean; virtual;
|
||||
function GetOldIMPORTE_NETOValue: Currency; virtual;
|
||||
@ -497,6 +505,10 @@ type
|
||||
property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
|
||||
property OldTELEFONO : String read GetOldTELEFONOValue;
|
||||
property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
|
||||
property MOVIL : String read GetMOVILValue write SetMOVILValue;
|
||||
property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
|
||||
property OldMOVIL : String read GetOldMOVILValue;
|
||||
property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
|
||||
property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
|
||||
property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
|
||||
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
|
||||
@ -590,7 +602,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{81D7FBA7-E7B3-45C0-94DC-5D22E2EB2E8C}']
|
||||
['{651FD911-3E25-4911-AC35-58F2B7AEF391}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -1539,6 +1551,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTELEFONO] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetMOVILValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetMOVILIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL]);
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldMOVILValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteMOVIL];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteMOVIL]);
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetMOVILValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL] := aValue;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteMOVIL] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_NETO];
|
||||
|
||||
@ -83,6 +83,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -303,22 +308,23 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
|
||||
'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
|
||||
') AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.TELEFONO, C' +
|
||||
'ONTACTOS.TELEFONO_1) AS TELEFONO,'#10' ALBARANES_CLIENTE.PERSONA_CO' +
|
||||
'NTACTO,'#10' ALBARANES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIENTE.I' +
|
||||
'MPORTE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRES' +
|
||||
'AS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRE' +
|
||||
'SA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.' +
|
||||
'CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTA' +
|
||||
'L_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRESAS' +
|
||||
'.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFO' +
|
||||
'NO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 ' +
|
||||
'AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMP' +
|
||||
'RESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10 +
|
||||
' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMP' +
|
||||
'RESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENT' +
|
||||
'E.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTAC' +
|
||||
'TOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBAR' +
|
||||
'ANES_CLIENTE.ID = :ID'#10
|
||||
'ONTACTOS.TELEFONO_1) AS TELEFONO,'#10' COALESCE(CONTACTOS_DIRECCION' +
|
||||
'ES.MOVIL, CONTACTOS.MOVIL_1) AS MOVIL,'#10' ALBARANES_CLIENTE.PERSO' +
|
||||
'NA_CONTACTO,'#10' ALBARANES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIE' +
|
||||
'NTE.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' E' +
|
||||
'MPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
|
||||
'EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPR' +
|
||||
'ESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_' +
|
||||
'POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMP' +
|
||||
'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS T' +
|
||||
'ELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOV' +
|
||||
'IL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10 +
|
||||
' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLI' +
|
||||
'ENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.I' +
|
||||
'D_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_C' +
|
||||
'LIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (C' +
|
||||
'ONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ' +
|
||||
'ALBARANES_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -441,6 +447,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'ID_TIENDA'
|
||||
TableField = 'ID_TIENDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MOVIL'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'MOVIL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -510,6 +521,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -1054,7 +1070,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 40107.819356273150000000
|
||||
ReportOptions.LastChange = 40142.519712557870000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
|
||||
@ -105,8 +105,12 @@ var
|
||||
begin
|
||||
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
try
|
||||
tbl_Cabecera.Active := False;
|
||||
tbl_Detalles.Active := False;
|
||||
|
||||
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
|
||||
tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := ID;
|
||||
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_Detalles.Active := True;
|
||||
|
||||
@ -115,6 +119,7 @@ begin
|
||||
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
|
||||
frxReport.PrepareReport(False);
|
||||
finally
|
||||
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
|
||||
|
||||
@ -219,6 +219,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'ID_TIPO_IVA'
|
||||
TableField = 'ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'MOVIL'
|
||||
TableField = 'MOVIL'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesCliente'
|
||||
@ -358,6 +362,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesCliente_TELEFONO'
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
@ -630,148 +639,193 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_ALBARANES_CLI_ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PREVISTA_ENVIO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ENVIO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_RECEPCION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
@ -783,21 +837,21 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
|
||||
' FECHA_ALBARAN, TIPO, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_AL' +
|
||||
'MACEN, ID_PEDIDO, ID_FACTURA, ID_DIRECCION,'#10' CALLE, CODIGO_P' +
|
||||
'OSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, IM' +
|
||||
'PORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' B' +
|
||||
'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
|
||||
' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
|
||||
'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
|
||||
'_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID' +
|
||||
'_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' ' +
|
||||
':REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_D' +
|
||||
'IRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :' +
|
||||
'PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_PORTE,' +
|
||||
' :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IM' +
|
||||
'PORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIAS, :I' +
|
||||
'NCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :USUA' +
|
||||
'RIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA' +
|
||||
'_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10
|
||||
'OSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, MO' +
|
||||
'VIL, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,'#10 +
|
||||
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIO' +
|
||||
'NES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' +
|
||||
'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO,' +
|
||||
' FECHA_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:I' +
|
||||
'D, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,' +
|
||||
#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA,' +
|
||||
' :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVIN' +
|
||||
'CIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IMPORTE_NETO, :' +
|
||||
'IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONI' +
|
||||
'BLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :I' +
|
||||
'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :FECHA_MODI' +
|
||||
'FICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' +
|
||||
':FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -824,142 +878,183 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PREVISTA_ENVIO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ENVIO'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_RECEPCION'
|
||||
DataType = datDateTime
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -980,18 +1075,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'DIRECCION = :ID_DIRECCION,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL' +
|
||||
' = :CODIGO_POSTAL, '#10' POBLACION = :POBLACION, '#10' PROVINCIA =' +
|
||||
' :PROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' TEL' +
|
||||
'EFONO = :TELEFONO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPOR' +
|
||||
'TE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMP' +
|
||||
'ORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE' +
|
||||
'_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
|
||||
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERVA' +
|
||||
'CIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVA' +
|
||||
'S = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FE' +
|
||||
'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' +
|
||||
' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' +
|
||||
'= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' +
|
||||
'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' ID_TIENDA = :ID_TIENDA'#10' ' +
|
||||
'WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'EFONO = :TELEFONO, '#10' MOVIL = :MOVIL,'#10' IMPORTE_NETO = :IMPO' +
|
||||
'RTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = ' +
|
||||
':DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BA' +
|
||||
'SE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IV' +
|
||||
'A = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSE' +
|
||||
'RVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' ' +
|
||||
' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_MODIFIC' +
|
||||
'ACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA' +
|
||||
'_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVI' +
|
||||
'STA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION' +
|
||||
' = :FECHA_RECEPCION,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID ' +
|
||||
'= :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -159,7 +159,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Height = 376
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitTop = 109
|
||||
ExplicitWidth = 759
|
||||
ExplicitHeight = 376
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -291,11 +290,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Left = 164
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 164
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 188
|
||||
@ -305,11 +300,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 555
|
||||
Top = 88
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 182
|
||||
@ -318,11 +309,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 485
|
||||
Top = 142
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 142
|
||||
ExplicitWidth = 252
|
||||
@ -331,11 +318,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 93
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 38
|
||||
end
|
||||
@ -343,22 +326,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 484
|
||||
Top = 88
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 88
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 484
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 253
|
||||
@ -368,11 +343,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 484
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 115
|
||||
end
|
||||
@ -380,11 +351,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 555
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 115
|
||||
ExplicitWidth = 182
|
||||
@ -393,11 +360,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 259
|
||||
@ -407,11 +370,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 93
|
||||
Top = 65
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 259
|
||||
@ -421,10 +380,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 93
|
||||
Top = 92
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 121
|
||||
@ -441,10 +396,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Top = 119
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 119
|
||||
ExplicitWidth = 259
|
||||
|
||||
@ -1,15 +1,15 @@
|
||||
inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 825
|
||||
Height = 650
|
||||
Height = 512
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 650
|
||||
ExplicitHeight = 512
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 825
|
||||
Height = 650
|
||||
Height = 512
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
@ -17,10 +17,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
825
|
||||
650)
|
||||
512)
|
||||
object Label1: TLabel
|
||||
Left = 351
|
||||
Top = 597
|
||||
Left = 344
|
||||
Top = 622
|
||||
Width = 299
|
||||
Height = 26
|
||||
Caption =
|
||||
@ -81,10 +81,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 284
|
||||
end
|
||||
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
|
||||
Left = 351
|
||||
Left = 344
|
||||
Top = 28
|
||||
Width = 771
|
||||
Height = 196
|
||||
Width = 442
|
||||
Height = 221
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -93,53 +93,44 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 351
|
||||
ExplicitLeft = 344
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 771
|
||||
ExplicitWidth = 442
|
||||
ExplicitHeight = 221
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 771
|
||||
ExplicitWidth = 771
|
||||
Width = 442
|
||||
Height = 221
|
||||
ExplicitWidth = 452
|
||||
ExplicitHeight = 226
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 339
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 339
|
||||
ExplicitWidth = 103
|
||||
Width = 103
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 250
|
||||
ExplicitLeft = 250
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
inherited bVerFichaCliente: TBitBtn
|
||||
Left = 240
|
||||
ExplicitLeft = 240
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 437
|
||||
Width = 437
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 419
|
||||
ExplicitLeft = 419
|
||||
inherited bElegirDireccion: TButton
|
||||
Left = 409
|
||||
ExplicitLeft = 409
|
||||
end
|
||||
inherited Button5: TButton
|
||||
Left = 419
|
||||
ExplicitLeft = 419
|
||||
inherited edtTelefonos: TcxTextEdit
|
||||
ExplicitWidth = 193
|
||||
Width = 193
|
||||
end
|
||||
inherited edtReferencia: TcxDBTextEdit
|
||||
Left = 282
|
||||
ExplicitLeft = 282
|
||||
ExplicitWidth = 103
|
||||
Width = 103
|
||||
end
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
@ -150,8 +141,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 445
|
||||
Top = 371
|
||||
Left = 438
|
||||
Top = 396
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -169,8 +160,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 284
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
Left = 445
|
||||
Top = 398
|
||||
Left = 438
|
||||
Top = 423
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -188,8 +179,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 61
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 738
|
||||
Top = 398
|
||||
Left = 721
|
||||
Top = 423
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -207,8 +198,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 65
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
Left = 445
|
||||
Top = 425
|
||||
Left = 438
|
||||
Top = 450
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -226,8 +217,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 406
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 445
|
||||
Top = 452
|
||||
Left = 438
|
||||
Top = 477
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -246,8 +237,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 284
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 445
|
||||
Top = 479
|
||||
Left = 438
|
||||
Top = 504
|
||||
DataBinding.DataField = 'TELEFONO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -265,8 +256,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 284
|
||||
end
|
||||
object bElegirDireccion: TBitBtn
|
||||
Left = 631
|
||||
Top = 506
|
||||
Left = 614
|
||||
Top = 531
|
||||
Width = 172
|
||||
Height = 23
|
||||
Action = actElegirDireccion
|
||||
@ -274,7 +265,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
TabOrder = 20
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 189
|
||||
Left = 182
|
||||
Top = 138
|
||||
Width = 132
|
||||
Height = 23
|
||||
@ -336,7 +327,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 146
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 189
|
||||
Left = 182
|
||||
Top = 109
|
||||
Width = 132
|
||||
Height = 23
|
||||
@ -345,8 +336,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object eFechaRecepcion: TcxDBDateEdit
|
||||
Left = 485
|
||||
Top = 314
|
||||
Left = 478
|
||||
Top = 339
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_RECEPCION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -370,8 +361,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 239
|
||||
end
|
||||
object cbConAlmacen: TCheckBox
|
||||
Left = 361
|
||||
Top = 565
|
||||
Left = 354
|
||||
Top = 590
|
||||
Width = 179
|
||||
Height = 21
|
||||
Caption = 'Asociar este albar'#225'n al almac'#233'n:'
|
||||
@ -379,8 +370,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
OnClick = cbConAlmacenClick
|
||||
end
|
||||
object cbAlmacen: TcxDBLookupComboBox
|
||||
Left = 546
|
||||
Top = 565
|
||||
Left = 539
|
||||
Top = 590
|
||||
DataBinding.DataField = 'ID_ALMACEN'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -435,8 +426,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 284
|
||||
end
|
||||
object eFechaPrevista: TcxDBDateEdit
|
||||
Left = 485
|
||||
Top = 260
|
||||
Left = 478
|
||||
Top = 285
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -459,7 +450,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
Width = 239
|
||||
Width = 202
|
||||
end
|
||||
object eRefCliente: TcxDBTextEdit
|
||||
Left = 116
|
||||
@ -487,8 +478,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 284
|
||||
end
|
||||
object eFechaEnvio: TcxDBDateEdit
|
||||
Left = 485
|
||||
Top = 287
|
||||
Left = 478
|
||||
Top = 312
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_ENVIO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
|
||||
@ -286,12 +286,12 @@ end;
|
||||
|
||||
procedure TfrViewAlbaranCliente.frViewClienteAlbaranButton1Click(Sender: TObject);
|
||||
begin
|
||||
if Assigned(Albaran) and Assigned(Albaran.Cliente) and
|
||||
{if Assigned(Albaran) and Assigned(Albaran.Cliente) and
|
||||
Assigned (Albaran.Detalles) and (Albaran.Detalles.RecordCount > 0) then
|
||||
begin
|
||||
if (Application.MessageBox('Los descuentos de los artículos del albarán serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Exit;
|
||||
end;
|
||||
end;}
|
||||
frViewClienteAlbaran.actElegirContacto.Execute;
|
||||
end;
|
||||
|
||||
|
||||
@ -13,7 +13,7 @@ uses
|
||||
cxGrid,
|
||||
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
|
||||
cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, uCustomView, uViewBase;
|
||||
|
||||
type
|
||||
IViewAlbaranesCliente = interface(IViewGrid)
|
||||
@ -84,9 +84,8 @@ type
|
||||
FAlbaranes: IBizAlbaranCliente;
|
||||
function GetAlbaranes: IBizAlbaranCliente;
|
||||
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
|
||||
procedure AnadirOtrosFiltros; override;
|
||||
|
||||
public
|
||||
procedure AnadirOtrosFiltros; override;
|
||||
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
|
||||
end;
|
||||
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
|
||||
Width = 505
|
||||
Height = 196
|
||||
ExplicitWidth = 505
|
||||
ExplicitHeight = 196
|
||||
Width = 579
|
||||
Height = 220
|
||||
ExplicitWidth = 579
|
||||
ExplicitHeight = 220
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 505
|
||||
Height = 196
|
||||
Width = 579
|
||||
Height = 220
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
@ -17,17 +17,18 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 447
|
||||
ExplicitHeight = 224
|
||||
DesignSize = (
|
||||
505
|
||||
196)
|
||||
579
|
||||
220)
|
||||
object edtlNombre: TcxDBTextEdit
|
||||
Left = 63
|
||||
Left = 66
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
@ -35,26 +36,21 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
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
|
||||
Left = 66
|
||||
Top = 68
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
@ -62,19 +58,15 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
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
|
||||
object bElegirCliente: TBitBtn
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 115
|
||||
@ -118,7 +110,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object Button2: TBitBtn
|
||||
object bNuevoCliente: TBitBtn
|
||||
Left = 131
|
||||
Top = 10
|
||||
Width = 143
|
||||
@ -162,9 +154,9 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 303
|
||||
Top = 158
|
||||
object bVerFichaCliente: TBitBtn
|
||||
Left = 377
|
||||
Top = 181
|
||||
Width = 192
|
||||
Height = 25
|
||||
Action = actVerContacto
|
||||
@ -206,68 +198,72 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object edtPersonaContacto: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 129
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = dsAlbaran
|
||||
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: TcxMemo
|
||||
Left = 63
|
||||
Top = 68
|
||||
Left = 66
|
||||
Top = 95
|
||||
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
|
||||
TabOrder = 5
|
||||
Height = 53
|
||||
Width = 403
|
||||
Width = 437
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 472
|
||||
Top = 68
|
||||
object bElegirDireccion: TButton
|
||||
Left = 546
|
||||
Top = 95
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirDireccion
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 472
|
||||
Top = 127
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirPersonaContacto
|
||||
object edtTelefonos: TcxTextEdit
|
||||
Left = 66
|
||||
Top = 154
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
Width = 302
|
||||
end
|
||||
object edtReferencia: TcxDBTextEdit
|
||||
Left = 349
|
||||
Top = 68
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
DataBinding.DataSource = dsCliente
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Height = 21
|
||||
Width = 103
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -276,46 +272,53 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
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
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Nombre:'
|
||||
Control = edtlNombre
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
Caption = 'Button1'
|
||||
ShowCaption = False
|
||||
Control = bElegirCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
Caption = 'Button2'
|
||||
ShowCaption = False
|
||||
Control = bNuevoCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Nombre:'
|
||||
Control = edtlNombre
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
AlignHorz = ahClient
|
||||
Caption = 'NIF/CIF:'
|
||||
Control = edtNIFCIF
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Referencia:'
|
||||
Control = edtReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
@ -324,8 +327,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avCenter
|
||||
Caption = 'Direcci'#243'n'
|
||||
CaptionOptions.AlignVert = tavTop
|
||||
Caption = 'Direcci'#243'n:'
|
||||
Control = edtDireccion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -334,30 +336,16 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button4'
|
||||
ShowCaption = False
|
||||
Control = Button4
|
||||
Control = bElegirDireccion
|
||||
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
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Tel'#233'fonos:'
|
||||
Control = edtTelefonos
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
@ -365,7 +353,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button3'
|
||||
ShowCaption = False
|
||||
Control = Button3
|
||||
Control = bVerFichaCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
@ -399,11 +387,6 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
|
||||
OnExecute = actElegirDireccionExecute
|
||||
OnUpdate = actElegirDireccionUpdate
|
||||
end
|
||||
object actElegirPersonaContacto: TAction
|
||||
Caption = '...'
|
||||
OnExecute = actElegirPersonaContactoExecute
|
||||
OnUpdate = actElegirPersonaContactoUpdate
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
|
||||
type
|
||||
IViewDatosYSeleccionClienteAlbaran = interface(IViewBase)
|
||||
['{02F0A00C-FAE7-43A4-B959-D2B929FF287A}']
|
||||
['{7C180225-6C92-4F43-948A-4F67CD9A168D}']
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranCliente);
|
||||
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
||||
@ -33,12 +33,11 @@ type
|
||||
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged
|
||||
write SetOnClienteChanged;
|
||||
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirDireccionParaAlbaran;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
procedure RefrescarDireccion;
|
||||
end;
|
||||
|
||||
TfrViewDatosYSeleccionClienteAlbaran = class(TfrViewBase, IViewDatosYSeleccionClienteAlbaran)
|
||||
@ -54,50 +53,44 @@ type
|
||||
edtlNombre: TcxDBTextEdit;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
edtNIFCIF: TcxDBTextEdit;
|
||||
Button1: TBitBtn;
|
||||
bElegirCliente: TBitBtn;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
Button2: TBitBtn;
|
||||
bNuevoCliente: TBitBtn;
|
||||
dxLayoutControl1Item8: TdxLayoutItem;
|
||||
Button3: TBitBtn;
|
||||
bVerFichaCliente: TBitBtn;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dsAlbaran: TDADataSource;
|
||||
actElegirDireccion: TAction;
|
||||
actElegirPersonaContacto: TAction;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
edtPersonaContacto: TcxDBTextEdit;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
edtDireccion: TcxMemo;
|
||||
Button4: TButton;
|
||||
bElegirDireccion: TButton;
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
dxLayoutControl1Item10: TdxLayoutItem;
|
||||
edtTelefonos: TcxTextEdit;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
edtReferencia: TcxDBTextEdit;
|
||||
dxLayoutControl1Group6: TdxLayoutGroup;
|
||||
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;
|
||||
procedure EscribirTextoTelefonos;
|
||||
protected
|
||||
FClientesController : IClientesController;
|
||||
FDireccionesController : IDireccionesContactoController;
|
||||
FAlbaran : IBizAlbaranCliente;
|
||||
FCliente : IBizCliente;
|
||||
FDireccion : IBizDireccionesContacto;
|
||||
|
||||
function GetCliente: IBizCliente; virtual;
|
||||
procedure SetCliente(Value: IBizCliente); virtual;
|
||||
function GetOnClienteChanged : TNotifyEvent;
|
||||
@ -111,12 +104,11 @@ type
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirDireccionParaAlbaran;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
procedure RefrescarDireccion;
|
||||
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
||||
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
|
||||
@ -128,7 +120,7 @@ implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
|
||||
uDataModuleClientes, Math, uCustomView, uDialogUtils;
|
||||
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirContactoExecute(Sender: TObject);
|
||||
@ -140,30 +132,17 @@ procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirDireccionExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
ElegirDireccionParaAlbaran;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirDireccionUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
|
||||
(FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirPersonaContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirPersonaContactoUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Personal) and
|
||||
(FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
|
||||
(Sender as TAction).Enabled := Assigned(FCliente) and
|
||||
Assigned(FCliente.Direcciones) and (FCliente.Direcciones.Active)
|
||||
and (FCliente.Direcciones.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actAnadirContactoExecute(
|
||||
@ -198,14 +177,15 @@ end;
|
||||
constructor TfrViewDatosYSeleccionClienteAlbaran.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FMsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
|
||||
FMsgElegirCliente := 'Elija el cliente al que se le realizará el albarán.';
|
||||
FClientesController := TClientesController.Create;
|
||||
FDireccionesController := TDireccionesContactoController.Create;
|
||||
|
||||
edtlNombre.Enabled := False;
|
||||
edtNIFCIF.Enabled := False;
|
||||
edtDireccion.Enabled := False;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
edtReferencia.Enabled := False;
|
||||
edtTelefonos.Enabled := False;
|
||||
end;
|
||||
|
||||
destructor TfrViewDatosYSeleccionClienteAlbaran.Destroy;
|
||||
@ -219,14 +199,7 @@ procedure TfrViewDatosYSeleccionClienteAlbaran.edtDireccionPropertiesButtonClick
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.edtPersonaContactoPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
ElegirDireccionParaAlbaran;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirCliente;
|
||||
@ -242,45 +215,47 @@ begin
|
||||
ACliente := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirDireccionCliente;
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirDireccionParaAlbaran;
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
inherited;
|
||||
ADireccion := FClientesController.ElegirDireccion(FCliente, ' ');
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
|
||||
else begin
|
||||
ADireccion := FDireccionesController.Nuevo;
|
||||
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
|
||||
end;
|
||||
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
FDireccion := ADireccion;
|
||||
FAlbaran.Edit;
|
||||
try
|
||||
if ADireccion.IDIsNull then // Se ha elegido la dirección de razón social
|
||||
begin
|
||||
FAlbaran.ClearField('ID_DIRECCION');
|
||||
FAlbaran.ClearField('IMPORTE_PORTE');
|
||||
end
|
||||
else begin
|
||||
FAlbaran.ID_DIRECCION := ADireccion.ID;
|
||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
end;
|
||||
|
||||
if FDireccion.IDIsNull then // Es la dirección de la razón social
|
||||
begin
|
||||
FAlbaran.ClearField('ID_DIRECCION');
|
||||
FAlbaran.ClearField('IMPORTE_PORTE');
|
||||
end
|
||||
else begin
|
||||
FAlbaran.ID_DIRECCION := FDireccion.ID;
|
||||
FAlbaran.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
with FAlbaran do
|
||||
begin
|
||||
CALLE := ADireccion.CALLE;
|
||||
POBLACION := ADireccion.POBLACION;
|
||||
CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
|
||||
PROVINCIA := ADireccion.PROVINCIA;
|
||||
PERSONA_CONTACTO := ADireccion.PERSONA_CONTACTO;
|
||||
TELEFONO := ADireccion.TELEFONO;
|
||||
MOVIL := ADireccion.MOVIL;
|
||||
end;
|
||||
finally
|
||||
FAlbaran.Post;
|
||||
end;
|
||||
//Siempre asignaremos la persona de contacto ya sea de las direcciones del contacto o la ID_Direccion=0 que es la principal de la ficha
|
||||
FAlbaran.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.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
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.PERSONA_CONTACTO := APersona.NOMBRE;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.EscribirTextoDireccion;
|
||||
var
|
||||
@ -288,10 +263,10 @@ var
|
||||
begin
|
||||
ACadena := '';
|
||||
|
||||
if Assigned(FDireccion) then
|
||||
if Assigned(FAlbaran) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
[FDireccion.CALLE, FDireccion.POBLACION,
|
||||
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
|
||||
[FAlbaran.CALLE, FAlbaran.POBLACION,
|
||||
FAlbaran.CODIGO_POSTAL, FAlbaran.PROVINCIA]);
|
||||
|
||||
edtDireccion.Text := ACadena;
|
||||
end;
|
||||
@ -309,8 +284,12 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.SetCliente(Value: IBizCliente);
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
ADireccion := NIL;
|
||||
FCliente := Value;
|
||||
|
||||
if Assigned(FCliente) then
|
||||
begin
|
||||
dsCliente.DataTable := FCliente.DataTable;
|
||||
@ -318,23 +297,13 @@ begin
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
|
||||
//Solo podremos establecer persona de contacto si se ha asignado un cliente
|
||||
if FCliente.ID > 0 then
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else begin
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
ElegirDireccionParaAlbaran;
|
||||
EscribirTextoDireccion;
|
||||
EscribirTextoTelefonos;
|
||||
end
|
||||
else begin
|
||||
dsCliente.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
if Assigned(FOnClienteChanged) then
|
||||
@ -351,24 +320,37 @@ begin
|
||||
Result := FOnClienteChanged;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.RefrescarDireccion;
|
||||
begin
|
||||
EscribirTextoDireccion;
|
||||
EscribirTextoTelefonos;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClienteAlbaran.GetAlbaran: IBizAlbaranCliente;
|
||||
begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.RefrescarDireccion;
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.EscribirTextoTelefonos;
|
||||
var
|
||||
ACadena : String;
|
||||
begin
|
||||
FDireccion := FDireccionesController.Nuevo;
|
||||
ACadena := '';
|
||||
|
||||
if (not FAlbaran.ID_DIRECCIONIsNull) and
|
||||
(FDireccionesController.Localizar(FCliente.Direcciones, FAlbaran.ID_DIRECCION)) then
|
||||
FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
|
||||
else
|
||||
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||
if not FAlbaran.TELEFONOIsNull then
|
||||
ACadena := FAlbaran.TELEFONO;
|
||||
|
||||
EscribirTextoDireccion;
|
||||
if not FAlbaran.MOVILIsNull then
|
||||
begin
|
||||
if ACadena <> '' then
|
||||
ACadena := ACadena + ' / ';
|
||||
ACadena := ACadena + FAlbaran.MOVIL;
|
||||
end;
|
||||
|
||||
edtTelefonos.Text := ACadena;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.SetOnClienteChanged(
|
||||
const Value: TNotifyEvent);
|
||||
begin
|
||||
@ -389,16 +371,17 @@ begin
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
|
||||
//Solo podremos establecer persona de contacto si se ha asignado un cliente
|
||||
// ¿Hay cliente en el albaran?
|
||||
if FCliente.ID > 0 then
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
RefrescarDireccion;
|
||||
RefrescarDireccion
|
||||
else begin
|
||||
edtDireccion.Lines.Clear;
|
||||
edtTelefonos.Text := '';
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
dsAlbaran.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -416,7 +399,7 @@ end;
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.VerFichaCliente;
|
||||
begin
|
||||
if not Assigned(Cliente) then
|
||||
ShowErrorMessage('No se ha indicado un cliente', 'El presupuesto no tiene ningún cliente asociado a mostrar.')
|
||||
ShowErrorMessage('No se ha indicado un cliente', 'El albarán no tiene ningún cliente asociado a mostrar.')
|
||||
else begin
|
||||
FClientesController.Ver(Cliente);
|
||||
end;
|
||||
|
||||
@ -1,296 +1,320 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
|
||||
<Form>RptContratosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
|
||||
<Form>srvContratosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 19 de noviembre de 2009 20:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
|
||||
<Form>RptContratosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
|
||||
<Form>srvContratosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
VALUE "FileVersion", "2.3.9.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.3.9.0\0"
|
||||
VALUE "CompileDate", "martes, 24 de noviembre de 2009 18:30\0"
|
||||
VALUE "CompileDate", "miércoles, 25 de noviembre de 2009 10:09\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user