From 4ec4f3d61d0d07a1e71cd2f7b9d2d807a0cbd446 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 25 Nov 2009 11:57:55 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#79=20->=20(repaso)=20Imprimir=20en=20?= =?UTF-8?q?el=20albar=C3=A1n=20el=20n=C2=BA=20de=20tel=C3=A9fono=20del=20c?= =?UTF-8?q?liente?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@478 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 14 +- Source/Informes/1/InfAlbaranCliente.fr3 | 6 +- Source/Informes/2/InfAlbaranCliente.fr3 | 6 +- .../uDetallesAlbaranClienteController.pas | 2 +- .../Data/uDataModuleAlbaranesCliente.dfm | 5 + .../Model/schAlbaranesClienteClient_Intf.pas | 89 ++- .../Model/schAlbaranesClienteServer_Intf.pas | 55 +- .../Reports/uRptAlbaranesCliente_Server.dfm | 50 +- .../Reports/uRptAlbaranesCliente_Server.pas | 5 + .../Servidor/srvAlbaranesCliente_Impl.dfm | 177 +++-- .../Views/uEditorAlbaranCliente.dfm | 49 -- .../Views/uViewAlbaranCliente.dfm | 133 ++-- .../Views/uViewAlbaranCliente.pas | 4 +- .../Views/uViewAlbaranesCliente.pas | 5 +- .../uViewDatosYSeleccionClienteAlbaran.dfm | 229 +++---- .../uViewDatosYSeleccionClienteAlbaran.pas | 203 +++--- Source/Servidor/FactuGES_Server.dproj | 608 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 18 files changed, 884 insertions(+), 758 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index df675b74..7a7c655d 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -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 diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3 index 1dc61a50..a3cac896 100644 --- a/Source/Informes/1/InfAlbaranCliente.fr3 +++ b/Source/Informes/1/InfAlbaranCliente.fr3 @@ -1,12 +1,10 @@ - + - - - + diff --git a/Source/Informes/2/InfAlbaranCliente.fr3 b/Source/Informes/2/InfAlbaranCliente.fr3 index 5e381046..f67884c2 100644 --- a/Source/Informes/2/InfAlbaranCliente.fr3 +++ b/Source/Informes/2/InfAlbaranCliente.fr3 @@ -1,17 +1,15 @@ - + - - - + diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas index aca18b7a..f9dc9107 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas @@ -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; diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index edc48282..c65b69bf 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -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 diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index b082a34e..cc613635 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -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; diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 5e1584dd..4ba1ba37 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -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]; diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index da184a85..088ad08f 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -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 = '' + 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' diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index fbf4eb6c..d1a2c614 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -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" diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 3cc8238e..3f599138 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -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> diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index 6aacb1c0..14d8c4dc 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -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 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index e8af2163..4bf64cd4 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -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 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas index 716043be..7365c6a6 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas @@ -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; diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas index 6bacfce8..bb90a0df 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas @@ -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; diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm index 621b9af3..addff5d2 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm @@ -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 = < diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas index 55b86ee2..5ab1a455 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas @@ -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; diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index ed702471..bfbe1ec0 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,296 +1,320 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGES (Servidor)2.3.9.0jueves, 19 de noviembre de 2009 20:26 - Express Cross Platform Library by Developer Express Inc. - ExpressPrinting System by Developer Express Inc. - RemObjects Data Abstract - CoreLabs SDAC Driver - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGES (Servidor)2.3.9.0jueves, 19 de noviembre de 2009 20:26 + + + + + + + + + + + + + + + + + + + + + + + + + Express Cross Platform Library by Developer Express Inc. + ExpressPrinting System by Developer Express Inc. + RemObjects Data Abstract - CoreLabs SDAC Driver + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +