diff --git a/BD/BASEDATOS.FDB b/BD/BASEDATOS.FDB index b84e855..69d389a 100644 Binary files a/BD/BASEDATOS.FDB and b/BD/BASEDATOS.FDB differ diff --git a/Modulos/Contactos/Cliente/uDataModuleContactos.dfm b/Modulos/Contactos/Cliente/uDataModuleContactos.dfm index 36268f6..001a5fc 100644 --- a/Modulos/Contactos/Cliente/uDataModuleContactos.dfm +++ b/Modulos/Contactos/Cliente/uDataModuleContactos.dfm @@ -10,8 +10,8 @@ object dmContactos: TdmContactos ParamType = fResult DataType = rtString end> - Left = 328 - Top = 337 + Left = 535 + Top = 332 Height = 498 Width = 531 object RORemoteService: TRORemoteService @@ -556,6 +556,17 @@ object dmContactos: TdmContactos Calculated = False Lookup = False LookupCache = False + end + item + Name = 'BAJA_LOGICA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest diff --git a/Modulos/Contactos/Cliente/uDataModuleContactos.pas b/Modulos/Contactos/Cliente/uDataModuleContactos.pas index 596dd27..57bc87c 100644 --- a/Modulos/Contactos/Cliente/uDataModuleContactos.pas +++ b/Modulos/Contactos/Cliente/uDataModuleContactos.pas @@ -115,7 +115,7 @@ begin Where.Clear; // No funciona porque la columna no está en la select // --> Where.AddCondition(fld_CategoriasContactoCODIGOCATEGORIA, cEqual, CLIENTE); - Where.AddText(fld_CategoriasContactoCODIGOCATEGORIA + '=' + IntToStr(CODIGOCATEGORIA)); + Where.AddText(fld_ContactosBAJA_LOGICA +' = 0 and ' + fld_CategoriasContactoCODIGOCATEGORIA + '=' + IntToStr(CODIGOCATEGORIA)); end; dtCategorias := TDACDSDataTable.Create(NIL); diff --git a/Modulos/Contactos/Cliente/uEditorContacto.pas b/Modulos/Contactos/Cliente/uEditorContacto.pas index 846750c..722e2d7 100644 --- a/Modulos/Contactos/Cliente/uEditorContacto.pas +++ b/Modulos/Contactos/Cliente/uEditorContacto.pas @@ -10,7 +10,7 @@ uses TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls, TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, uViewMensaje, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement; + JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase; type IEditorContacto = interface(IEditorDBItem) diff --git a/Modulos/Contactos/Cliente/uEditorContactos.dfm b/Modulos/Contactos/Cliente/uEditorContactos.dfm index 60b5f3f..8d576f4 100644 --- a/Modulos/Contactos/Cliente/uEditorContactos.dfm +++ b/Modulos/Contactos/Cliente/uEditorContactos.dfm @@ -17,7 +17,6 @@ inherited fEditorContactos: TfEditorContactos end end inherited tbxFiltro: TTBXToolbar - Left = 394 inherited tbxEditFiltro: TTBXEditItem EditOptions = [tboUseEditWhenVertical] end @@ -29,7 +28,7 @@ inherited fEditorContactos: TfEditorContactos inline frViewBarraSeleccion: TfrViewBarraSeleccion [3] Left = 0 Top = 395 - Width = 885 + Width = 706 Height = 37 Align = alBottom AutoScroll = False @@ -44,7 +43,7 @@ inherited fEditorContactos: TfEditorContactos ReadOnly = False inherited pnlSeleccion: TPanel Top = 0 - Width = 885 + Width = 706 end inherited ActionListSeleccion: TActionList inherited actSeleccionar: TAction diff --git a/Modulos/Contactos/Cliente/uViewDatosYSeleccionContacto.pas b/Modulos/Contactos/Cliente/uViewDatosYSeleccionContacto.pas index bba5462..672235f 100644 --- a/Modulos/Contactos/Cliente/uViewDatosYSeleccionContacto.pas +++ b/Modulos/Contactos/Cliente/uViewDatosYSeleccionContacto.pas @@ -137,7 +137,15 @@ end; procedure TfrViewDatosYSeleccionContacto.actVerContactoExecute(Sender: TObject); begin inherited; - Contacto.Show; + + if Assigned(Contacto) then + begin + Contacto.DataTable.Open; + if (Contacto.DataTable.RecordCount = 0) or (Contacto.BAJA_LOGICA = 1) then + ShowMessage('La ficha ha sido eliminada del programa.') + else + Contacto.Show; + end; end; procedure TfrViewDatosYSeleccionContacto.actVerContactoUpdate(Sender: TObject); diff --git a/Modulos/Contactos/Reglas/schContactosClient_Intf.pas b/Modulos/Contactos/Reglas/schContactosClient_Intf.pas index 7cb0dbf..49ca0ae 100644 --- a/Modulos/Contactos/Reglas/schContactosClient_Intf.pas +++ b/Modulos/Contactos/Reglas/schContactosClient_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_Contactos = '{8925540A-D98B-411B-ADAF-34E959549849}'; - RID_CategoriasContacto = '{1EC54DA1-7157-497C-B449-E2C538576AF7}'; - RID_Categorias = '{FC26550A-8EFE-47EE-A589-E7D1056A5ACF}'; + RID_Contactos = '{2E304B1A-43EE-4661-B4B4-BAE312233AAE}'; + RID_CategoriasContacto = '{F1CC0094-A3C3-4B7C-9A34-DAE534948389}'; + RID_Categorias = '{52845B38-2948-4EF8-935E-3CAAEAB43580}'; { Data table names } nme_Contactos = 'Contactos'; @@ -38,6 +38,7 @@ const fld_ContactosCORREO2 = 'CORREO2'; fld_ContactosPAGINAWEB = 'PAGINAWEB'; fld_ContactosPERSONACONTACTO = 'PERSONACONTACTO'; + fld_ContactosBAJA_LOGICA = 'BAJA_LOGICA'; { Contactos field indexes } idx_ContactosCODIGOEMPRESA = 0; @@ -59,6 +60,7 @@ const idx_ContactosCORREO2 = 16; idx_ContactosPAGINAWEB = 17; idx_ContactosPERSONACONTACTO = 18; + idx_ContactosBAJA_LOGICA = 19; { CategoriasContacto fields } fld_CategoriasContactoCODIGOCONTACTO = 'CODIGOCONTACTO'; @@ -79,7 +81,7 @@ const type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{7F8AA4B4-916C-4AFC-BB3C-66087F244F9A}'] + ['{BC13E8F7-AD89-4144-BD91-EFCBDD612802}'] { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; procedure SetCODIGOEMPRESAValue(const aValue: Integer); @@ -119,6 +121,8 @@ type procedure SetPAGINAWEBValue(const aValue: String); function GetPERSONACONTACTOValue: String; procedure SetPERSONACONTACTOValue(const aValue: String); + function GetBAJA_LOGICAValue: Integer; + procedure SetBAJA_LOGICAValue(const aValue: Integer); { Properties } @@ -141,6 +145,7 @@ type property CORREO2: String read GetCORREO2Value write SetCORREO2Value; property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue; property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue; + property BAJA_LOGICA: Integer read GetBAJA_LOGICAValue write SetBAJA_LOGICAValue; end; { TContactosDataTableRules } @@ -186,6 +191,8 @@ type procedure SetPAGINAWEBValue(const aValue: String); virtual; function GetPERSONACONTACTOValue: String; virtual; procedure SetPERSONACONTACTOValue(const aValue: String); virtual; + function GetBAJA_LOGICAValue: Integer; virtual; + procedure SetBAJA_LOGICAValue(const aValue: Integer); virtual; { Properties } property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue; @@ -207,6 +214,7 @@ type property CORREO2: String read GetCORREO2Value write SetCORREO2Value; property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue; property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue; + property BAJA_LOGICA: Integer read GetBAJA_LOGICAValue write SetBAJA_LOGICAValue; public constructor Create(aDataTable: TDADataTable); override; @@ -216,7 +224,7 @@ type { ICategoriasContacto } ICategoriasContacto = interface(IDAStronglyTypedDataTable) - ['{D0F985CB-C37A-4254-87C4-ADC36BA9029A}'] + ['{A306C356-1870-460A-A65D-10E99C8350D3}'] { Property getters and setters } function GetCODIGOCONTACTOValue: Integer; procedure SetCODIGOCONTACTOValue(const aValue: Integer); @@ -251,7 +259,7 @@ type { ICategorias } ICategorias = interface(IDAStronglyTypedDataTable) - ['{5FA38C8C-1ABE-42FC-AF5C-508D9E6AEF39}'] + ['{FCC1DE55-D22D-44B2-881D-BF4965EE3F51}'] { Property getters and setters } function GetCODIGOValue: Integer; procedure SetCODIGOValue(const aValue: Integer); @@ -489,6 +497,16 @@ begin DataTable.Fields[idx_ContactosPERSONACONTACTO].AsString := aValue; end; +function TContactosDataTableRules.GetBAJA_LOGICAValue: Integer; +begin + result := DataTable.Fields[idx_ContactosBAJA_LOGICA].AsInteger; +end; + +procedure TContactosDataTableRules.SetBAJA_LOGICAValue(const aValue: Integer); +begin + DataTable.Fields[idx_ContactosBAJA_LOGICA].AsInteger := aValue; +end; + { TCategoriasContactoDataTableRules } constructor TCategoriasContactoDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Modulos/Contactos/Reglas/schContactosServer_Intf.pas b/Modulos/Contactos/Reglas/schContactosServer_Intf.pas index 1cf7398..861edf4 100644 --- a/Modulos/Contactos/Reglas/schContactosServer_Intf.pas +++ b/Modulos/Contactos/Reglas/schContactosServer_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_ContactosDelta = '{05C6FCA7-C4BD-4B10-AA2A-D3E1CBEA3100}'; - RID_CategoriasContactoDelta = '{85963D41-1B87-4A9E-ADB1-DCF05D4373C2}'; - RID_CategoriasDelta = '{08DBB9D1-D1A9-46C4-A113-AA7424C15849}'; + RID_ContactosDelta = '{ABA17B6E-08D8-4454-BDAD-B910A3F7D35B}'; + RID_CategoriasContactoDelta = '{C03A6727-9993-417A-84DE-298B5E76771C}'; + RID_CategoriasDelta = '{697295F3-01C7-4FE0-8676-78D00C743CDF}'; type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{05C6FCA7-C4BD-4B10-AA2A-D3E1CBEA3100}'] + ['{ABA17B6E-08D8-4454-BDAD-B910A3F7D35B}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; @@ -37,6 +37,7 @@ type function GetOldCORREO2Value : String; function GetOldPAGINAWEBValue : String; function GetOldPERSONACONTACTOValue : String; + function GetOldBAJA_LOGICAValue : Integer; { Properties } property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue; @@ -58,6 +59,7 @@ type property OldCORREO2 : String read GetOldCORREO2Value; property OldPAGINAWEB : String read GetOldPAGINAWEBValue; property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue; + property OldBAJA_LOGICA : Integer read GetOldBAJA_LOGICAValue; end; { TContactosBusinessProcessorRules } @@ -122,6 +124,9 @@ type function GetPERSONACONTACTOValue: String; virtual; function GetOldPERSONACONTACTOValue: String; virtual; procedure SetPERSONACONTACTOValue(const aValue: String); virtual; + function GetBAJA_LOGICAValue: Integer; virtual; + function GetOldBAJA_LOGICAValue: Integer; virtual; + procedure SetBAJA_LOGICAValue(const aValue: Integer); virtual; { Properties } property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue; @@ -162,6 +167,8 @@ type property OldPAGINAWEB : String read GetOldPAGINAWEBValue; property PERSONACONTACTO : String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue; property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue; + property BAJA_LOGICA : Integer read GetBAJA_LOGICAValue write SetBAJA_LOGICAValue; + property OldBAJA_LOGICA : Integer read GetOldBAJA_LOGICAValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -171,7 +178,7 @@ type { ICategoriasContactoDelta } ICategoriasContactoDelta = interface(ICategoriasContacto) - ['{85963D41-1B87-4A9E-ADB1-DCF05D4373C2}'] + ['{C03A6727-9993-417A-84DE-298B5E76771C}'] { Property getters and setters } function GetOldCODIGOCONTACTOValue : Integer; function GetOldCODIGOCATEGORIAValue : Integer; @@ -207,7 +214,7 @@ type { ICategoriasDelta } ICategoriasDelta = interface(ICategorias) - ['{08DBB9D1-D1A9-46C4-A113-AA7424C15849}'] + ['{697295F3-01C7-4FE0-8676-78D00C743CDF}'] { Property getters and setters } function GetOldCODIGOValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -542,6 +549,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONACONTACTO] := aValue; end; +function TContactosBusinessProcessorRules.GetBAJA_LOGICAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosBAJA_LOGICA]; +end; + +function TContactosBusinessProcessorRules.GetOldBAJA_LOGICAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosBAJA_LOGICA]; +end; + +procedure TContactosBusinessProcessorRules.SetBAJA_LOGICAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosBAJA_LOGICA] := aValue; +end; + { TCategoriasContactoBusinessProcessorRules } constructor TCategoriasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Modulos/Contactos/Reglas/uBizContacto.pas b/Modulos/Contactos/Reglas/uBizContacto.pas index b97b91e..3fdb764 100644 --- a/Modulos/Contactos/Reglas/uBizContacto.pas +++ b/Modulos/Contactos/Reglas/uBizContacto.pas @@ -188,6 +188,7 @@ begin USUARIO := dmUsuarios.LoginInfo.UserID; FECHAALTA := Date; CODIGO := dmContactos.GetNextAutoinc; + BAJA_LOGICA := 0; end; procedure TBizContactoDataTableRules.SetCategorias(const Value: diff --git a/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 3aa46b7..73dbee4 100644 --- a/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -1,7 +1,6 @@ object srvContactos: TsrvContactos OldCreateOrder = True OnCreate = DARemoteServiceCreate - RequiresSession = True SessionManager = dmServer.SessionManager OnActivate = DARemoteServiceActivate AcquireConnection = True @@ -30,8 +29,9 @@ object srvContactos: TsrvContactos 'NTACTOS.CODIGOPOSTAL, CONTACTOS.POBLACION, CONTACTOS.TELEFONO1, ' + 'CONTACTOS.TELEFONO2, CONTACTOS.MOVIL, CONTACTOS.FAX, CONTACTOS.C' + 'ORREO1, CONTACTOS.CORREO2, CONTACTOS.PAGINAWEB, CONTACTOS.PERSON' + - 'ACONTACTO'#10'FROM CONTACTOSCATEGORIAS'#10' INNER JOIN CONTACTOS ON (C' + - 'ONTACTOSCATEGORIAS.CODIGOCONTACTO = CONTACTOS.CODIGO)' + 'ACONTACTO, CONTACTOS.BAJA_LOGICA'#10'FROM CONTACTOSCATEGORIAS'#10' INN' + + 'ER JOIN CONTACTOS ON (CONTACTOSCATEGORIAS.CODIGOCONTACTO = CONTA' + + 'CTOS.CODIGO)' StatementType = stSQL ColumnMappings = < item @@ -109,6 +109,10 @@ object srvContactos: TsrvContactos item DatasetField = 'PERSONACONTACTO' TableField = 'PERSONACONTACTO' + end + item + DatasetField = 'BAJA_LOGICA' + TableField = 'BAJA_LOGICA' end> end> Name = 'Contactos' @@ -318,6 +322,17 @@ object srvContactos: TsrvContactos Calculated = False Lookup = False LookupCache = False + end + item + Name = 'BAJA_LOGICA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -434,7 +449,9 @@ object srvContactos: TsrvContactos item Connection = 'IBX' TargetTable = 'CONTACTOS' - SQL = 'DELETE '#10' FROM'#10' CONTACTOS'#10' WHERE'#10' (CODIGO = :OLD_CODIGO)' + SQL = + 'UPDATE CONTACTOS'#10'SET BAJA_LOGICA = 1'#10'WHERE (CODIGO = :OLD_CODIGO' + + ')' StatementType = stSQL ColumnMappings = <> end> @@ -465,14 +482,6 @@ object srvContactos: TsrvContactos DatasetName = 'Contactos' FailureBehaviour = fbRaiseException end - item - Name = 'Delete CategoriasContacto' - DoUpdate = False - DoInsert = False - DoDelete = True - DatasetName = 'CategoriasContacto' - FailureBehaviour = fbRaiseException - end item Name = 'Insert CategoriasContacto' DoUpdate = False @@ -834,4 +843,13 @@ object srvContactos: TsrvContactos Left = 40 Top = 72 end + object bpContactos: TDABusinessProcessor + Schema = schContactos + DeleteCommandName = 'Delete_Contactos' + ReferencedDataset = 'Contactos' + ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateRefreshDataset, poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 160 + Top = 16 + end end diff --git a/Modulos/Contactos/Servidor/srvContactos_Impl.pas b/Modulos/Contactos/Servidor/srvContactos_Impl.pas index 2e42260..6f6f2f8 100644 --- a/Modulos/Contactos/Servidor/srvContactos_Impl.pas +++ b/Modulos/Contactos/Servidor/srvContactos_Impl.pas @@ -26,8 +26,9 @@ type DADataSource1: TDADataSource; frxDBDataset1: TfrxDBDataset; frxReport1: TfrxReport; - schContactos: TDASchema; DABINAdapter: TDABINAdapter; + bpContactos: TDABusinessProcessor; + schContactos: TDASchema; procedure DARemoteServiceActivate(const aClientID: TGUID; aSession: TROSession; const aMessage: IROMessage); procedure DARemoteServiceCreate(Sender: TObject); diff --git a/Modulos/Facturas de cliente/Cliente/FacturasCliente.dof b/Modulos/Facturas de cliente/Cliente/FacturasCliente.dof index 447d48c..01f89dc 100644 --- a/Modulos/Facturas de cliente/Cliente/FacturasCliente.dof +++ b/Modulos/Facturas de cliente/Cliente/FacturasCliente.dof @@ -172,26 +172,23 @@ Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSD Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] -Count=19 -Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\Reglas;..\..\Cuentas\Cliente;..\..\Asientos\Cliente;..\..\Intervalos\Cliente;..\..\Documentos asociados;..\..\Almacenes\Cliente;..\..\Montajes\Cliente -Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente -Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente -Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente -Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente -Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente -Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente -Item7=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas -Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas -Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente -Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados -Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente -Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados -Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente -Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente -Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente -Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor -Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas -Item18=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios +Count=16 +Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas +Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente +Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente +Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente +Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente +Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente +Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados +Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente +Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados +Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente +Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente +Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente +Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor +Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios [HistoryLists\hlUnitOutputDirectory] Count=1 Item0=.\ diff --git a/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm b/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm index 80b8986..96525b7 100644 --- a/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm +++ b/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm @@ -106,9 +106,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource end - inherited ToolBar2: TToolBar - Width = 182 - end inherited edtCodigoPostal: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource end diff --git a/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas b/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas index 0adb86b..1021852 100644 --- a/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas +++ b/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas @@ -118,7 +118,14 @@ begin inherited; AContacto := dmContactos.GetCliente(FFacturaCliente.CODIGOCONTACTO); try - AContacto.Show; + if Assigned(AContacto) then + begin + AContacto.DataTable.Open; + if (AContacto.DataTable.RecordCount = 0) or (AContacto.BAJA_LOGICA = 1) then + ShowMessage('La ficha ha sido eliminada de programa.') + else + AContacto.Show; + end; finally AContacto := NIL; end; diff --git a/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.dfm b/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.dfm index 967e391..f637429 100644 --- a/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.dfm +++ b/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.dfm @@ -84,33 +84,24 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = frViewFacturaProveedor1.DADataSource Properties.OnChange = frViewDatosYSeleccionContacto1edtlNombrePropertiesChange - Height = 21 - Width = 282 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = frViewFacturaProveedor1.DADataSource - Height = 21 - Width = 282 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = frViewFacturaProveedor1.DADataSource - Height = 21 - Width = 138 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = frViewFacturaProveedor1.DADataSource - Height = 21 - Width = 282 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewFacturaProveedor1.DADataSource - Height = 21 - Width = 282 + end + inherited ToolBar2: TToolBar + Width = 201 end inherited edtCodigoPostal: TcxDBTextEdit DataBinding.DataSource = frViewFacturaProveedor1.DADataSource - Height = 21 - Width = 91 end end inherited frViewFormaPago1: TfrViewFormaPago @@ -119,25 +110,12 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited memFormaPago: TcxDBMemo Top = 29 Height = 46 - Width = 329 end end inherited frViewObservaciones1: TfrViewObservaciones inherited memObservaciones: TcxDBMemo Top = 28 Height = 47 - Width = 329 - end - end - inherited frViewDatosFacturaProveedor1: TfrViewDatosFacturaProveedor - inherited edtFecha: TcxDBDateEdit - Width = 245 - end - inherited edtVencimiento: TcxDBDateEdit - Width = 245 - end - inherited eReferencia: TcxDBTextEdit - Width = 245 end end end @@ -170,28 +148,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited lblBase: TcxDBCurrencyEdit Enabled = True Properties.ReadOnly = False - Height = 21 - Width = 137 + Style.IsFontAssigned = True end inherited cxCurrencyEdit3: TcxDBCurrencyEdit - Height = 21 - Width = 137 + Style.IsFontAssigned = True end inherited cxCurrencyEdit4: TcxDBCurrencyEdit - Height = 21 - Width = 137 + Style.IsFontAssigned = True end inherited cxCurrencyEdit5: TcxDBCurrencyEdit - Height = 21 - Width = 137 + Style.IsFontAssigned = True end inherited cxCurrencyEdit1: TcxDBSpinEdit - Height = 21 - Width = 137 + Style.IsFontAssigned = True end inherited cxCurrencyEdit2: TcxDBSpinEdit - Height = 21 - Width = 137 + Style.IsFontAssigned = True end end end diff --git a/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.pas b/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.pas index 3b5453d..008cfda 100644 --- a/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.pas +++ b/Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.pas @@ -10,7 +10,7 @@ uses TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, uViewFacturaProveedor, uCustomView, uViewBase, uViewContenido, uViewTotales, StdCtrls, pngimage, AppEvnts, - uBizFacturasProveedor; + uBizFacturasProveedor, JvComponentBase; type IEditorFacturaProveedor = interface(IEditorDBItem) diff --git a/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.dfm b/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.dfm index 4486a6d..1a7f7d6 100644 --- a/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.dfm +++ b/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.dfm @@ -41,44 +41,33 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Properties.ReadOnly = False Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Style.Color = clInfoBk - Height = 21 - Width = 282 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = DADataSource Properties.ReadOnly = False Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Style.Color = clInfoBk - Height = 21 - Width = 282 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = DADataSource Properties.ReadOnly = False Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Style.Color = clInfoBk - Height = 21 - Width = 138 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = DADataSource Properties.ReadOnly = False Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Style.Color = clInfoBk - Height = 21 - Width = 282 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = DADataSource Properties.ReadOnly = False Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Style.Color = clInfoBk - Height = 21 - Width = 282 end inherited ToolBar2: TToolBar Left = 181 - Width = 201 ButtonWidth = 197 end inherited edtCodigoPostal: TcxDBTextEdit @@ -86,8 +75,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor Properties.ReadOnly = False Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Style.Color = clInfoBk - Height = 21 - Width = 91 end inherited DADataSource: TDADataSource Left = 88 @@ -182,15 +169,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor ParentFont = False TabOrder = 3 ReadOnly = False - inherited edtFecha: TcxDBDateEdit - Width = 245 - end - inherited edtVencimiento: TcxDBDateEdit - Width = 245 - end - inherited eReferencia: TcxDBTextEdit - Width = 245 - end end object DADataSource: TDADataSource end diff --git a/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.pas b/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.pas index 8467a8b..6090261 100644 --- a/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.pas +++ b/Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.pas @@ -107,7 +107,14 @@ begin inherited; AContacto := dmContactos.GetProveedor(FFacturaProveedor.CODIGOPROVEEDOR); try - AContacto.Show; + if Assigned(AContacto) then + begin + AContacto.DataTable.Open; + if (AContacto.DataTable.RecordCount = 0) or (AContacto.BAJA_LOGICA = 1) then + ShowMessage('La ficha ha sido eliminada de programa.') + else + AContacto.Show; + end; finally AContacto := NIL; end; diff --git a/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm b/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm index a441082..d32b531 100644 --- a/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm +++ b/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm @@ -395,7 +395,7 @@ object dmMontajes: TdmMontajes Name = 'CODIGOMONTAJE' DataType = datInteger BlobType = dabtUnknown - Value = 77 + Value = '' ParamType = daptInput end> MasterMappingMode = mmParams diff --git a/Modulos/Montajes/Cliente/uEditorMontaje.dfm b/Modulos/Montajes/Cliente/uEditorMontaje.dfm index 9f8b961..fc75da9 100644 --- a/Modulos/Montajes/Cliente/uEditorMontaje.dfm +++ b/Modulos/Montajes/Cliente/uEditorMontaje.dfm @@ -142,8 +142,8 @@ inherited fEditorMontaje: TfEditorMontaje ReadOnly = False inherited cxGrid: TcxGrid Width = 750 - Height = 315 - TabOrder = 1 + Height = 213 + TabOrder = 2 inherited cxGridView: TcxGridDBTableView inherited cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn IsCaptionAssigned = True @@ -157,7 +157,24 @@ inherited fEditorMontaje: TfEditorMontaje Width = 750 TabOrder = 0 end - inherited dxComponentPrinter: TdxComponentPrinter [3] + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 750 + inherited TBXDock1: TTBXDock + Width = 750 + inherited TBXDockablePanel1: TTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + Width = 746 + inherited edtFechaFinFiltro: TcxDateEdit + Left = 459 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 746 + end + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter [4] inherited dxComponentPrinterLink: TdxGridReportLink Active = False Component = nil @@ -165,15 +182,15 @@ inherited fEditorMontaje: TfEditorMontaje BuiltInReportLink = True end end - inherited dxPSEngineController1: TdxPSEngineController [4] + inherited dxPSEngineController1: TdxPSEngineController [5] end - inherited cxStyleRepository1: TcxStyleRepository [5] + inherited cxStyleRepository1: TcxStyleRepository [6] end - inherited PngImageList: TPngImageList [6] + inherited PngImageList: TPngImageList [7] end - inherited PngImageList2: TPngImageList [7] + inherited PngImageList2: TPngImageList [8] end - inherited ActionList1: TActionList [8] + inherited ActionList1: TActionList [9] inherited actRecibirPedido: TAction OnExecute = frViewPedidosMontajeactRecibirPedidoExecute OnUpdate = frViewPedidosMontajeactRecibirPedidoUpdate @@ -200,11 +217,28 @@ inherited fEditorMontaje: TfEditorMontaje ReadOnly = False inherited cxGrid: TcxGrid Width = 750 - Height = 315 + Height = 213 end inherited ToolBar1: TToolBar Width = 750 end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 750 + inherited TBXDock1: TTBXDock + Width = 750 + inherited TBXDockablePanel1: TTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + Width = 746 + inherited edtFechaFinFiltro: TcxDateEdit + Left = 459 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 746 + end + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink ReportDocument.CreationDate = 38751.760538553240000000 @@ -232,8 +266,8 @@ inherited fEditorMontaje: TfEditorMontaje ReadOnly = False inherited cxGrid: TcxGrid Width = 750 - Height = 315 - TabOrder = 1 + Height = 213 + TabOrder = 2 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -260,6 +294,26 @@ inherited fEditorMontaje: TfEditorMontaje Width = 750 TabOrder = 0 end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 750 + inherited TBXDock1: TTBXDock + Width = 750 + inherited TBXDockablePanel1: TTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + Width = 746 + inherited edtFechaFinFiltro: TcxDateEdit + Left = 459 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 746 + inherited tbxBotones: TTBXToolbar + Width = 736 + end + end + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink Active = False diff --git a/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm b/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm index ca00372..1e79fdf 100644 --- a/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm +++ b/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm @@ -1,7 +1,7 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje inherited cxGrid: TcxGrid - Top = 25 - Height = 245 + Top = 127 + Height = 143 inherited cxGridView: TcxGridDBTableView OnSelectionChanged = cxGridViewSelectionChanged DataController.KeyFieldNames = 'CODIGO' @@ -60,7 +60,7 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje Images = PngImageList List = True ShowCaptions = True - TabOrder = 1 + TabOrder = 2 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -72,17 +72,35 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje Action = actQuitar end end + inherited frViewFiltroBase1: TfrViewFiltroBase + Top = 25 + inherited TBXDock1: TTBXDock + inherited TBXDockablePanel1: TTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + inherited txtFiltroTodo: TcxTextEdit + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + Width = 121 + end + end + end + end + end inherited ActionList1: TActionList Images = PngImageList Left = 8 Top = 32 object actAnadir: TAction - Caption = 'Añadir artículo' + Caption = 'A'#241'adir art'#237'culo' ImageIndex = 0 OnExecute = actAnadirExecute end object actQuitar: TAction - Caption = 'Quitar artículo' + Caption = 'Quitar art'#237'culo' ImageIndex = 1 OnExecute = actQuitarExecute OnUpdate = actQuitarUpdate diff --git a/Modulos/Montajes/Cliente/uViewArticulosMontaje.pas b/Modulos/Montajes/Cliente/uViewArticulosMontaje.pas index 52704a8..69f6542 100644 --- a/Modulos/Montajes/Cliente/uViewArticulosMontaje.pas +++ b/Modulos/Montajes/Cliente/uViewArticulosMontaje.pas @@ -12,7 +12,7 @@ uses JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk, - ComCtrls, ToolWin; + ComCtrls, ToolWin, uViewFiltroBase; type IViewArticulosMontaje = interface(IViewGrid) diff --git a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm index 0a412d8..6be6f7e 100644 --- a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm +++ b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm @@ -1,7 +1,10 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje + Width = 783 + Height = 378 inherited cxGrid: TcxGrid Top = 127 - Height = 143 + Width = 783 + Height = 251 inherited cxGridView: TcxGridDBTableView DataController.DataModeController.SmartRefresh = False DataController.DataModeController.SyncMode = True @@ -38,7 +41,6 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje end object cxGridViewCODIGOMONTAJE: TcxGridDBColumn DataBinding.FieldName = 'CODIGOMONTAJE' - Visible = False end object cxGridViewNUMCONCEPTO: TcxGridDBColumn DataBinding.FieldName = 'NUMCONCEPTO' @@ -86,7 +88,7 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje object ToolBar1: TToolBar [1] Left = 0 Top = 0 - Width = 443 + Width = 783 Height = 25 ButtonWidth = 63 Caption = 'ToolBar1' @@ -119,9 +121,12 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje end inherited frViewFiltroBase1: TfrViewFiltroBase Top = 25 + Width = 783 inherited TBXDock1: TTBXDock + Width = 783 inherited TBXDockablePanel1: TTBXDockablePanel inherited dxLayoutControl1: TdxLayoutControl + Width = 779 inherited txtFiltroTodo: TcxTextEdit Width = 273 end @@ -129,9 +134,16 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje Width = 121 end inherited edtFechaFinFiltro: TcxDateEdit + Left = 479 Width = 121 end end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 779 + inherited tbxBotones: TTBXToolbar + Width = 769 + end + end end end end diff --git a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas index 2c85f8e..0bd9d81 100644 --- a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas +++ b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas @@ -111,6 +111,7 @@ begin if FichaBeneficiosMontaje.DataTable.Editing then FichaBeneficiosMontaje.DataTable.Post; FichaBeneficiosMontaje.Append; +// FichaBeneficiosMontaje.DataTable.Post; end; end; diff --git a/Modulos/Montajes/Cliente/uViewPedidosMontaje.dfm b/Modulos/Montajes/Cliente/uViewPedidosMontaje.dfm index fee2a14..312f193 100644 --- a/Modulos/Montajes/Cliente/uViewPedidosMontaje.dfm +++ b/Modulos/Montajes/Cliente/uViewPedidosMontaje.dfm @@ -1,9 +1,7 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje - Width = 605 inherited cxGrid: TcxGrid - Top = 25 - Width = 605 - Height = 245 + Top = 127 + Height = 143 inherited cxGridView: TcxGridDBTableView OnDblClick = actModificarExecute DataController.KeyFieldNames = 'CODIGO' @@ -98,7 +96,7 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje object ToolBar1: TToolBar [1] Left = 0 Top = 0 - Width = 605 + Width = 443 Height = 25 ButtonWidth = 129 Caption = 'ToolBar1' @@ -109,7 +107,7 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje Images = PngImageList List = True ShowCaptions = True - TabOrder = 1 + TabOrder = 2 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -131,6 +129,24 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje Action = actRecibirPedido end end + inherited frViewFiltroBase1: TfrViewFiltroBase + Top = 25 + inherited TBXDock1: TTBXDock + inherited TBXDockablePanel1: TTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + inherited txtFiltroTodo: TcxTextEdit + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + Width = 121 + end + end + end + end + end inherited ActionList1: TActionList Images = PngImageList Left = 8 diff --git a/Modulos/Montajes/Cliente/uViewPedidosMontaje.pas b/Modulos/Montajes/Cliente/uViewPedidosMontaje.pas index 41e0b48..e3871d9 100644 --- a/Modulos/Montajes/Cliente/uViewPedidosMontaje.pas +++ b/Modulos/Montajes/Cliente/uViewPedidosMontaje.pas @@ -12,7 +12,7 @@ uses JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk, - ComCtrls, ToolWin, cxImageComboBox; + ComCtrls, ToolWin, cxImageComboBox, uViewFiltroBase; type IViewPedidosMontaje = interface(IViewGrid) diff --git a/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm b/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm index 298c59b..668f1d9 100644 --- a/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm +++ b/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm @@ -36,6 +36,9 @@ inherited fEditorPresupuestos: TfEditorPresupuestos inherited tbxMain: TTBXToolbar object TBXSeparatorItem16: TTBXSeparatorItem end + object TBXItem38: TTBXItem + Action = actAceptado + end object TBXItem36: TTBXItem Action = actRechazado end diff --git a/Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas b/Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas index 9ee87fa..763ea2d 100644 --- a/Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas +++ b/Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas @@ -32,6 +32,7 @@ type Pendiente1: TMenuItem; TBXItem36: TTBXItem; TBXSeparatorItem16: TTBXSeparatorItem; + TBXItem38: TTBXItem; procedure actEliminarExecute(Sender: TObject); procedure actModificarExecute(Sender: TObject); procedure actNuevoExecute(Sender: TObject);