AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 1.5.6

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@25 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2014-07-14 17:22:53 +00:00
parent a046705ec7
commit cf06afcd3d
28 changed files with 287 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BD/BASEDATOS.FDB
View File

Binary file not shown.

15
Modulos/Contactos/Cliente/uDataModuleContactos.dfm
View File

@ -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

2
Modulos/Contactos/Cliente/uDataModuleContactos.pas
View File

@ -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);

2
Modulos/Contactos/Cliente/uEditorContacto.pas
View File

@ -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)

5
Modulos/Contactos/Cliente/uEditorContactos.dfm
View File

@ -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

10
Modulos/Contactos/Cliente/uViewDatosYSeleccionContacto.pas
View File

@ -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);

30
Modulos/Contactos/Reglas/schContactosClient_Intf.pas
View File

@ -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);

34
Modulos/Contactos/Reglas/schContactosServer_Intf.pas
View File

@ -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);

1
Modulos/Contactos/Reglas/uBizContacto.pas
View File

@ -188,6 +188,7 @@ begin
USUARIO := dmUsuarios.LoginInfo.UserID;
FECHAALTA := Date;
CODIGO := dmContactos.GetNextAutoinc;
BAJA_LOGICA := 0;
end;
procedure TBizContactoDataTableRules.SetCategorias(const Value:

42
Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -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

3
Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -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);

37
Modulos/Facturas de cliente/Cliente/FacturasCliente.dof
View File

@ -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=.\

3
Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm
View File

@ -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

9
Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas
View File

@ -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;

46
Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.dfm
View File

@ -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

2
Modulos/Facturas de proveedor/Cliente/uEditorFacturaProveedor.pas
View File

@ -10,7 +10,7 @@ uses
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
uViewFacturaProveedor, uCustomView, uViewBase, uViewContenido, uViewTotales,
StdCtrls, pngimage, AppEvnts,
uBizFacturasProveedor;
uBizFacturasProveedor, JvComponentBase;
type
IEditorFacturaProveedor = interface(IEditorDBItem)

22
Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.dfm
View File

@ -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

9
Modulos/Facturas de proveedor/Cliente/uViewFacturaProveedor.pas
View File

@ -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;

2
Modulos/Montajes/Cliente/uDataModuleMontajes.dfm
View File

@ -395,7 +395,7 @@ object dmMontajes: TdmMontajes
Name = 'CODIGOMONTAJE'
DataType = datInteger
BlobType = dabtUnknown
Value = 77
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmParams

76
Modulos/Montajes/Cliente/uEditorMontaje.dfm
View File

@ -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

28
Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm
View File

@ -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

2
Modulos/Montajes/Cliente/uViewArticulosMontaje.pas
View File

@ -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)

18
Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm
View File

@ -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

1
Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas
View File

@ -111,6 +111,7 @@ begin
if FichaBeneficiosMontaje.DataTable.Editing then
FichaBeneficiosMontaje.DataTable.Post;
FichaBeneficiosMontaje.Append;
// FichaBeneficiosMontaje.DataTable.Post;
end;
end;

28
Modulos/Montajes/Cliente/uViewPedidosMontaje.dfm
View File

@ -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

2
Modulos/Montajes/Cliente/uViewPedidosMontaje.pas
View File

@ -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)

3
Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm
View File

@ -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

1
Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas
View File

@ -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);