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 ParamType = fResult
DataType = rtString DataType = rtString
end> end>
Left = 328 Left = 535
Top = 337 Top = 332
Height = 498 Height = 498
Width = 531 Width = 531
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
@ -556,6 +556,17 @@ object dmContactos: TdmContactos
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = 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> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest

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

@ -115,7 +115,7 @@ begin
Where.Clear; Where.Clear;
// No funciona porque la columna no está en la select // No funciona porque la columna no está en la select
// --> Where.AddCondition(fld_CategoriasContactoCODIGOCATEGORIA, cEqual, CLIENTE); // --> Where.AddCondition(fld_CategoriasContactoCODIGOCATEGORIA, cEqual, CLIENTE);
Where.AddText(fld_CategoriasContactoCODIGOCATEGORIA + '=' + IntToStr(CODIGOCATEGORIA)); Where.AddText(fld_ContactosBAJA_LOGICA +' = 0 and ' + fld_CategoriasContactoCODIGOCATEGORIA + '=' + IntToStr(CODIGOCATEGORIA));
end; end;
dtCategorias := TDACDSDataTable.Create(NIL); dtCategorias := TDACDSDataTable.Create(NIL);

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

@ -10,7 +10,7 @@ uses
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize, TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls, uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, uViewMensaje, TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, uViewMensaje,
JvAppStorage, JvAppRegistryStorage, JvFormPlacement; JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase;
type type
IEditorContacto = interface(IEditorDBItem) IEditorContacto = interface(IEditorDBItem)

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

@ -17,7 +17,6 @@ inherited fEditorContactos: TfEditorContactos
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 394
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical] EditOptions = [tboUseEditWhenVertical]
end end
@ -29,7 +28,7 @@ inherited fEditorContactos: TfEditorContactos
inline frViewBarraSeleccion: TfrViewBarraSeleccion [3] inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
Left = 0 Left = 0
Top = 395 Top = 395
Width = 885 Width = 706
Height = 37 Height = 37
Align = alBottom Align = alBottom
AutoScroll = False AutoScroll = False
@ -44,7 +43,7 @@ inherited fEditorContactos: TfEditorContactos
ReadOnly = False ReadOnly = False
inherited pnlSeleccion: TPanel inherited pnlSeleccion: TPanel
Top = 0 Top = 0
Width = 885 Width = 706
end end
inherited ActionListSeleccion: TActionList inherited ActionListSeleccion: TActionList
inherited actSeleccionar: TAction inherited actSeleccionar: TAction

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

@ -137,7 +137,15 @@ end;
procedure TfrViewDatosYSeleccionContacto.actVerContactoExecute(Sender: TObject); procedure TfrViewDatosYSeleccionContacto.actVerContactoExecute(Sender: TObject);
begin begin
inherited; 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; end;
procedure TfrViewDatosYSeleccionContacto.actVerContactoUpdate(Sender: TObject); procedure TfrViewDatosYSeleccionContacto.actVerContactoUpdate(Sender: TObject);

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{8925540A-D98B-411B-ADAF-34E959549849}'; RID_Contactos = '{2E304B1A-43EE-4661-B4B4-BAE312233AAE}';
RID_CategoriasContacto = '{1EC54DA1-7157-497C-B449-E2C538576AF7}'; RID_CategoriasContacto = '{F1CC0094-A3C3-4B7C-9A34-DAE534948389}';
RID_Categorias = '{FC26550A-8EFE-47EE-A589-E7D1056A5ACF}'; RID_Categorias = '{52845B38-2948-4EF8-935E-3CAAEAB43580}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -38,6 +38,7 @@ const
fld_ContactosCORREO2 = 'CORREO2'; fld_ContactosCORREO2 = 'CORREO2';
fld_ContactosPAGINAWEB = 'PAGINAWEB'; fld_ContactosPAGINAWEB = 'PAGINAWEB';
fld_ContactosPERSONACONTACTO = 'PERSONACONTACTO'; fld_ContactosPERSONACONTACTO = 'PERSONACONTACTO';
fld_ContactosBAJA_LOGICA = 'BAJA_LOGICA';
{ Contactos field indexes } { Contactos field indexes }
idx_ContactosCODIGOEMPRESA = 0; idx_ContactosCODIGOEMPRESA = 0;
@ -59,6 +60,7 @@ const
idx_ContactosCORREO2 = 16; idx_ContactosCORREO2 = 16;
idx_ContactosPAGINAWEB = 17; idx_ContactosPAGINAWEB = 17;
idx_ContactosPERSONACONTACTO = 18; idx_ContactosPERSONACONTACTO = 18;
idx_ContactosBAJA_LOGICA = 19;
{ CategoriasContacto fields } { CategoriasContacto fields }
fld_CategoriasContactoCODIGOCONTACTO = 'CODIGOCONTACTO'; fld_CategoriasContactoCODIGOCONTACTO = 'CODIGOCONTACTO';
@ -79,7 +81,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{7F8AA4B4-916C-4AFC-BB3C-66087F244F9A}'] ['{BC13E8F7-AD89-4144-BD91-EFCBDD612802}']
{ Property getters and setters } { Property getters and setters }
function GetCODIGOEMPRESAValue: Integer; function GetCODIGOEMPRESAValue: Integer;
procedure SetCODIGOEMPRESAValue(const aValue: Integer); procedure SetCODIGOEMPRESAValue(const aValue: Integer);
@ -119,6 +121,8 @@ type
procedure SetPAGINAWEBValue(const aValue: String); procedure SetPAGINAWEBValue(const aValue: String);
function GetPERSONACONTACTOValue: String; function GetPERSONACONTACTOValue: String;
procedure SetPERSONACONTACTOValue(const aValue: String); procedure SetPERSONACONTACTOValue(const aValue: String);
function GetBAJA_LOGICAValue: Integer;
procedure SetBAJA_LOGICAValue(const aValue: Integer);
{ Properties } { Properties }
@ -141,6 +145,7 @@ type
property CORREO2: String read GetCORREO2Value write SetCORREO2Value; property CORREO2: String read GetCORREO2Value write SetCORREO2Value;
property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue; property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue;
property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue; property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue;
property BAJA_LOGICA: Integer read GetBAJA_LOGICAValue write SetBAJA_LOGICAValue;
end; end;
{ TContactosDataTableRules } { TContactosDataTableRules }
@ -186,6 +191,8 @@ type
procedure SetPAGINAWEBValue(const aValue: String); virtual; procedure SetPAGINAWEBValue(const aValue: String); virtual;
function GetPERSONACONTACTOValue: String; virtual; function GetPERSONACONTACTOValue: String; virtual;
procedure SetPERSONACONTACTOValue(const aValue: String); virtual; procedure SetPERSONACONTACTOValue(const aValue: String); virtual;
function GetBAJA_LOGICAValue: Integer; virtual;
procedure SetBAJA_LOGICAValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue; property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
@ -207,6 +214,7 @@ type
property CORREO2: String read GetCORREO2Value write SetCORREO2Value; property CORREO2: String read GetCORREO2Value write SetCORREO2Value;
property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue; property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue;
property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue; property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue;
property BAJA_LOGICA: Integer read GetBAJA_LOGICAValue write SetBAJA_LOGICAValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -216,7 +224,7 @@ type
{ ICategoriasContacto } { ICategoriasContacto }
ICategoriasContacto = interface(IDAStronglyTypedDataTable) ICategoriasContacto = interface(IDAStronglyTypedDataTable)
['{D0F985CB-C37A-4254-87C4-ADC36BA9029A}'] ['{A306C356-1870-460A-A65D-10E99C8350D3}']
{ Property getters and setters } { Property getters and setters }
function GetCODIGOCONTACTOValue: Integer; function GetCODIGOCONTACTOValue: Integer;
procedure SetCODIGOCONTACTOValue(const aValue: Integer); procedure SetCODIGOCONTACTOValue(const aValue: Integer);
@ -251,7 +259,7 @@ type
{ ICategorias } { ICategorias }
ICategorias = interface(IDAStronglyTypedDataTable) ICategorias = interface(IDAStronglyTypedDataTable)
['{5FA38C8C-1ABE-42FC-AF5C-508D9E6AEF39}'] ['{FCC1DE55-D22D-44B2-881D-BF4965EE3F51}']
{ Property getters and setters } { Property getters and setters }
function GetCODIGOValue: Integer; function GetCODIGOValue: Integer;
procedure SetCODIGOValue(const aValue: Integer); procedure SetCODIGOValue(const aValue: Integer);
@ -489,6 +497,16 @@ begin
DataTable.Fields[idx_ContactosPERSONACONTACTO].AsString := aValue; DataTable.Fields[idx_ContactosPERSONACONTACTO].AsString := aValue;
end; 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 } { TCategoriasContactoDataTableRules }
constructor TCategoriasContactoDataTableRules.Create(aDataTable: TDADataTable); constructor TCategoriasContactoDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{05C6FCA7-C4BD-4B10-AA2A-D3E1CBEA3100}'; RID_ContactosDelta = '{ABA17B6E-08D8-4454-BDAD-B910A3F7D35B}';
RID_CategoriasContactoDelta = '{85963D41-1B87-4A9E-ADB1-DCF05D4373C2}'; RID_CategoriasContactoDelta = '{C03A6727-9993-417A-84DE-298B5E76771C}';
RID_CategoriasDelta = '{08DBB9D1-D1A9-46C4-A113-AA7424C15849}'; RID_CategoriasDelta = '{697295F3-01C7-4FE0-8676-78D00C743CDF}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{05C6FCA7-C4BD-4B10-AA2A-D3E1CBEA3100}'] ['{ABA17B6E-08D8-4454-BDAD-B910A3F7D35B}']
{ Property getters and setters } { Property getters and setters }
function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOEMPRESAValue : Integer;
function GetOldCODIGOValue : Integer; function GetOldCODIGOValue : Integer;
@ -37,6 +37,7 @@ type
function GetOldCORREO2Value : String; function GetOldCORREO2Value : String;
function GetOldPAGINAWEBValue : String; function GetOldPAGINAWEBValue : String;
function GetOldPERSONACONTACTOValue : String; function GetOldPERSONACONTACTOValue : String;
function GetOldBAJA_LOGICAValue : Integer;
{ Properties } { Properties }
property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue; property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
@ -58,6 +59,7 @@ type
property OldCORREO2 : String read GetOldCORREO2Value; property OldCORREO2 : String read GetOldCORREO2Value;
property OldPAGINAWEB : String read GetOldPAGINAWEBValue; property OldPAGINAWEB : String read GetOldPAGINAWEBValue;
property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue; property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue;
property OldBAJA_LOGICA : Integer read GetOldBAJA_LOGICAValue;
end; end;
{ TContactosBusinessProcessorRules } { TContactosBusinessProcessorRules }
@ -122,6 +124,9 @@ type
function GetPERSONACONTACTOValue: String; virtual; function GetPERSONACONTACTOValue: String; virtual;
function GetOldPERSONACONTACTOValue: String; virtual; function GetOldPERSONACONTACTOValue: String; virtual;
procedure SetPERSONACONTACTOValue(const aValue: 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 } { Properties }
property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue; property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
@ -162,6 +167,8 @@ type
property OldPAGINAWEB : String read GetOldPAGINAWEBValue; property OldPAGINAWEB : String read GetOldPAGINAWEBValue;
property PERSONACONTACTO : String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue; property PERSONACONTACTO : String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue;
property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue; property OldPERSONACONTACTO : String read GetOldPERSONACONTACTOValue;
property BAJA_LOGICA : Integer read GetBAJA_LOGICAValue write SetBAJA_LOGICAValue;
property OldBAJA_LOGICA : Integer read GetOldBAJA_LOGICAValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -171,7 +178,7 @@ type
{ ICategoriasContactoDelta } { ICategoriasContactoDelta }
ICategoriasContactoDelta = interface(ICategoriasContacto) ICategoriasContactoDelta = interface(ICategoriasContacto)
['{85963D41-1B87-4A9E-ADB1-DCF05D4373C2}'] ['{C03A6727-9993-417A-84DE-298B5E76771C}']
{ Property getters and setters } { Property getters and setters }
function GetOldCODIGOCONTACTOValue : Integer; function GetOldCODIGOCONTACTOValue : Integer;
function GetOldCODIGOCATEGORIAValue : Integer; function GetOldCODIGOCATEGORIAValue : Integer;
@ -207,7 +214,7 @@ type
{ ICategoriasDelta } { ICategoriasDelta }
ICategoriasDelta = interface(ICategorias) ICategoriasDelta = interface(ICategorias)
['{08DBB9D1-D1A9-46C4-A113-AA7424C15849}'] ['{697295F3-01C7-4FE0-8676-78D00C743CDF}']
{ Property getters and setters } { Property getters and setters }
function GetOldCODIGOValue : Integer; function GetOldCODIGOValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -542,6 +549,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONACONTACTO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONACONTACTO] := aValue;
end; 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 } { TCategoriasContactoBusinessProcessorRules }
constructor TCategoriasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TCategoriasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

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

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

@ -1,7 +1,6 @@
object srvContactos: TsrvContactos object srvContactos: TsrvContactos
OldCreateOrder = True OldCreateOrder = True
OnCreate = DARemoteServiceCreate OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager SessionManager = dmServer.SessionManager
OnActivate = DARemoteServiceActivate OnActivate = DARemoteServiceActivate
AcquireConnection = True AcquireConnection = True
@ -30,8 +29,9 @@ object srvContactos: TsrvContactos
'NTACTOS.CODIGOPOSTAL, CONTACTOS.POBLACION, CONTACTOS.TELEFONO1, ' + 'NTACTOS.CODIGOPOSTAL, CONTACTOS.POBLACION, CONTACTOS.TELEFONO1, ' +
'CONTACTOS.TELEFONO2, CONTACTOS.MOVIL, CONTACTOS.FAX, CONTACTOS.C' + 'CONTACTOS.TELEFONO2, CONTACTOS.MOVIL, CONTACTOS.FAX, CONTACTOS.C' +
'ORREO1, CONTACTOS.CORREO2, CONTACTOS.PAGINAWEB, CONTACTOS.PERSON' + 'ORREO1, CONTACTOS.CORREO2, CONTACTOS.PAGINAWEB, CONTACTOS.PERSON' +
'ACONTACTO'#10'FROM CONTACTOSCATEGORIAS'#10' INNER JOIN CONTACTOS ON (C' + 'ACONTACTO, CONTACTOS.BAJA_LOGICA'#10'FROM CONTACTOSCATEGORIAS'#10' INN' +
'ONTACTOSCATEGORIAS.CODIGOCONTACTO = CONTACTOS.CODIGO)' 'ER JOIN CONTACTOS ON (CONTACTOSCATEGORIAS.CODIGOCONTACTO = CONTA' +
'CTOS.CODIGO)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -109,6 +109,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'PERSONACONTACTO' DatasetField = 'PERSONACONTACTO'
TableField = 'PERSONACONTACTO' TableField = 'PERSONACONTACTO'
end
item
DatasetField = 'BAJA_LOGICA'
TableField = 'BAJA_LOGICA'
end> end>
end> end>
Name = 'Contactos' Name = 'Contactos'
@ -318,6 +322,17 @@ object srvContactos: TsrvContactos
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = 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> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -434,7 +449,9 @@ object srvContactos: TsrvContactos
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'CONTACTOS' 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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -465,14 +482,6 @@ object srvContactos: TsrvContactos
DatasetName = 'Contactos' DatasetName = 'Contactos'
FailureBehaviour = fbRaiseException FailureBehaviour = fbRaiseException
end end
item
Name = 'Delete CategoriasContacto'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'CategoriasContacto'
FailureBehaviour = fbRaiseException
end
item item
Name = 'Insert CategoriasContacto' Name = 'Insert CategoriasContacto'
DoUpdate = False DoUpdate = False
@ -834,4 +843,13 @@ object srvContactos: TsrvContactos
Left = 40 Left = 40
Top = 72 Top = 72
end end
object bpContactos: TDABusinessProcessor
Schema = schContactos
DeleteCommandName = 'Delete_Contactos'
ReferencedDataset = 'Contactos'
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 160
Top = 16
end
end end

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

@ -26,8 +26,9 @@ type
DADataSource1: TDADataSource; DADataSource1: TDADataSource;
frxDBDataset1: TfrxDBDataset; frxDBDataset1: TfrxDBDataset;
frxReport1: TfrxReport; frxReport1: TfrxReport;
schContactos: TDASchema;
DABINAdapter: TDABINAdapter; DABINAdapter: TDABINAdapter;
bpContactos: TDABusinessProcessor;
schContactos: TDASchema;
procedure DARemoteServiceActivate(const aClientID: TGUID; aSession: procedure DARemoteServiceActivate(const aClientID: TGUID; aSession:
TROSession; const aMessage: IROMessage); TROSession; const aMessage: IROMessage);
procedure DARemoteServiceCreate(Sender: TObject); 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 Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath] [HistoryLists\hlSearchPath]
Count=19 Count=16
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 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;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente;..\..\Almacenes\Cliente;..\..\Montajes\Cliente 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;..\..\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;..\..\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;..\..\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;..\..\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;..\..\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;..\..\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=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas 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;..\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 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;..\..\Contactos\Cliente;..\..\Almacenes\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;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\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;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\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;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados 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;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\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;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente 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;..\..\Documentos asociados;..\..\Montajes\Cliente Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
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
[HistoryLists\hlUnitOutputDirectory] [HistoryLists\hlUnitOutputDirectory]
Count=1 Count=1
Item0=.\ Item0=.\

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

@ -106,9 +106,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
end end
inherited ToolBar2: TToolBar
Width = 182
end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
end end

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

@ -118,7 +118,14 @@ begin
inherited; inherited;
AContacto := dmContactos.GetCliente(FFacturaCliente.CODIGOCONTACTO); AContacto := dmContactos.GetCliente(FFacturaCliente.CODIGOCONTACTO);
try 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 finally
AContacto := NIL; AContacto := NIL;
end; end;

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

@ -84,33 +84,24 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Properties.OnChange = frViewDatosYSeleccionContacto1edtlNombrePropertiesChange Properties.OnChange = frViewDatosYSeleccionContacto1edtlNombrePropertiesChange
Height = 21
Width = 282
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 21
Width = 282
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 21
Width = 138
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 21
Width = 282
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 21 end
Width = 282 inherited ToolBar2: TToolBar
Width = 201
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
Height = 21
Width = 91
end end
end end
inherited frViewFormaPago1: TfrViewFormaPago inherited frViewFormaPago1: TfrViewFormaPago
@ -119,25 +110,12 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited memFormaPago: TcxDBMemo inherited memFormaPago: TcxDBMemo
Top = 29 Top = 29
Height = 46 Height = 46
Width = 329
end end
end end
inherited frViewObservaciones1: TfrViewObservaciones inherited frViewObservaciones1: TfrViewObservaciones
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Top = 28 Top = 28
Height = 47 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 end
end end
@ -170,28 +148,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited lblBase: TcxDBCurrencyEdit inherited lblBase: TcxDBCurrencyEdit
Enabled = True Enabled = True
Properties.ReadOnly = False Properties.ReadOnly = False
Height = 21 Style.IsFontAssigned = True
Width = 137
end end
inherited cxCurrencyEdit3: TcxDBCurrencyEdit inherited cxCurrencyEdit3: TcxDBCurrencyEdit
Height = 21 Style.IsFontAssigned = True
Width = 137
end end
inherited cxCurrencyEdit4: TcxDBCurrencyEdit inherited cxCurrencyEdit4: TcxDBCurrencyEdit
Height = 21 Style.IsFontAssigned = True
Width = 137
end end
inherited cxCurrencyEdit5: TcxDBCurrencyEdit inherited cxCurrencyEdit5: TcxDBCurrencyEdit
Height = 21 Style.IsFontAssigned = True
Width = 137
end end
inherited cxCurrencyEdit1: TcxDBSpinEdit inherited cxCurrencyEdit1: TcxDBSpinEdit
Height = 21 Style.IsFontAssigned = True
Width = 137
end end
inherited cxCurrencyEdit2: TcxDBSpinEdit inherited cxCurrencyEdit2: TcxDBSpinEdit
Height = 21 Style.IsFontAssigned = True
Width = 137
end end
end end
end end

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

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

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

@ -41,44 +41,33 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged
Style.Color = clInfoBk Style.Color = clInfoBk
Height = 21
Width = 282
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged
Style.Color = clInfoBk Style.Color = clInfoBk
Height = 21
Width = 282
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged
Style.Color = clInfoBk Style.Color = clInfoBk
Height = 21
Width = 138
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged
Style.Color = clInfoBk Style.Color = clInfoBk
Height = 21
Width = 282
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged
Style.Color = clInfoBk Style.Color = clInfoBk
Height = 21
Width = 282
end end
inherited ToolBar2: TToolBar inherited ToolBar2: TToolBar
Left = 181 Left = 181
Width = 201
ButtonWidth = 197 ButtonWidth = 197
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
@ -86,8 +75,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged Properties.OnEditValueChanged = frViewDatosYSeleccionContacto1edtlNombrePropertiesEditValueChanged
Style.Color = clInfoBk Style.Color = clInfoBk
Height = 21
Width = 91
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
Left = 88 Left = 88
@ -182,15 +169,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
inherited edtFecha: TcxDBDateEdit
Width = 245
end
inherited edtVencimiento: TcxDBDateEdit
Width = 245
end
inherited eReferencia: TcxDBTextEdit
Width = 245
end
end end
object DADataSource: TDADataSource object DADataSource: TDADataSource
end end

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

@ -107,7 +107,14 @@ begin
inherited; inherited;
AContacto := dmContactos.GetProveedor(FFacturaProveedor.CODIGOPROVEEDOR); AContacto := dmContactos.GetProveedor(FFacturaProveedor.CODIGOPROVEEDOR);
try 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 finally
AContacto := NIL; AContacto := NIL;
end; end;

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

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

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

@ -142,8 +142,8 @@ inherited fEditorMontaje: TfEditorMontaje
ReadOnly = False ReadOnly = False
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 750 Width = 750
Height = 315 Height = 213
TabOrder = 1 TabOrder = 2
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn inherited cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
@ -157,7 +157,24 @@ inherited fEditorMontaje: TfEditorMontaje
Width = 750 Width = 750
TabOrder = 0 TabOrder = 0
end 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 inherited dxComponentPrinterLink: TdxGridReportLink
Active = False Active = False
Component = nil Component = nil
@ -165,15 +182,15 @@ inherited fEditorMontaje: TfEditorMontaje
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPSEngineController1: TdxPSEngineController [4] inherited dxPSEngineController1: TdxPSEngineController [5]
end end
inherited cxStyleRepository1: TcxStyleRepository [5] inherited cxStyleRepository1: TcxStyleRepository [6]
end end
inherited PngImageList: TPngImageList [6] inherited PngImageList: TPngImageList [7]
end end
inherited PngImageList2: TPngImageList [7] inherited PngImageList2: TPngImageList [8]
end end
inherited ActionList1: TActionList [8] inherited ActionList1: TActionList [9]
inherited actRecibirPedido: TAction inherited actRecibirPedido: TAction
OnExecute = frViewPedidosMontajeactRecibirPedidoExecute OnExecute = frViewPedidosMontajeactRecibirPedidoExecute
OnUpdate = frViewPedidosMontajeactRecibirPedidoUpdate OnUpdate = frViewPedidosMontajeactRecibirPedidoUpdate
@ -200,11 +217,28 @@ inherited fEditorMontaje: TfEditorMontaje
ReadOnly = False ReadOnly = False
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 750 Width = 750
Height = 315 Height = 213
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 750 Width = 750
end 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 dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38751.760538553240000000 ReportDocument.CreationDate = 38751.760538553240000000
@ -232,8 +266,8 @@ inherited fEditorMontaje: TfEditorMontaje
ReadOnly = False ReadOnly = False
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 750 Width = 750
Height = 315 Height = 213
TabOrder = 1 TabOrder = 2
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -260,6 +294,26 @@ inherited fEditorMontaje: TfEditorMontaje
Width = 750 Width = 750
TabOrder = 0 TabOrder = 0
end 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 dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
Active = False Active = False

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

@ -1,7 +1,7 @@
inherited frViewArticulosMontaje: TfrViewArticulosMontaje inherited frViewArticulosMontaje: TfrViewArticulosMontaje
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 25 Top = 127
Height = 245 Height = 143
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnSelectionChanged = cxGridViewSelectionChanged OnSelectionChanged = cxGridViewSelectionChanged
DataController.KeyFieldNames = 'CODIGO' DataController.KeyFieldNames = 'CODIGO'
@ -60,7 +60,7 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje
Images = PngImageList Images = PngImageList
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 2
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -72,17 +72,35 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje
Action = actQuitar Action = actQuitar
end end
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 inherited ActionList1: TActionList
Images = PngImageList Images = PngImageList
Left = 8 Left = 8
Top = 32 Top = 32
object actAnadir: TAction object actAnadir: TAction
Caption = 'Añadir artículo' Caption = 'A'#241'adir art'#237'culo'
ImageIndex = 0 ImageIndex = 0
OnExecute = actAnadirExecute OnExecute = actAnadirExecute
end end
object actQuitar: TAction object actQuitar: TAction
Caption = 'Quitar artículo' Caption = 'Quitar art'#237'culo'
ImageIndex = 1 ImageIndex = 1
OnExecute = actQuitarExecute OnExecute = actQuitarExecute
OnUpdate = actQuitarUpdate OnUpdate = actQuitarUpdate

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

@ -12,7 +12,7 @@ uses
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
ComCtrls, ToolWin; ComCtrls, ToolWin, uViewFiltroBase;
type type
IViewArticulosMontaje = interface(IViewGrid) IViewArticulosMontaje = interface(IViewGrid)

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

@ -1,7 +1,10 @@
inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
Width = 783
Height = 378
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 127 Top = 127
Height = 143 Width = 783
Height = 251
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.DataModeController.SmartRefresh = False DataController.DataModeController.SmartRefresh = False
DataController.DataModeController.SyncMode = True DataController.DataModeController.SyncMode = True
@ -38,7 +41,6 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
end end
object cxGridViewCODIGOMONTAJE: TcxGridDBColumn object cxGridViewCODIGOMONTAJE: TcxGridDBColumn
DataBinding.FieldName = 'CODIGOMONTAJE' DataBinding.FieldName = 'CODIGOMONTAJE'
Visible = False
end end
object cxGridViewNUMCONCEPTO: TcxGridDBColumn object cxGridViewNUMCONCEPTO: TcxGridDBColumn
DataBinding.FieldName = 'NUMCONCEPTO' DataBinding.FieldName = 'NUMCONCEPTO'
@ -86,7 +88,7 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
object ToolBar1: TToolBar [1] object ToolBar1: TToolBar [1]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 443 Width = 783
Height = 25 Height = 25
ButtonWidth = 63 ButtonWidth = 63
Caption = 'ToolBar1' Caption = 'ToolBar1'
@ -119,9 +121,12 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Top = 25 Top = 25
Width = 783
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 783
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 779
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Width = 273 Width = 273
end end
@ -129,9 +134,16 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 479
Width = 121 Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 779
inherited tbxBotones: TTBXToolbar
Width = 769
end
end
end end
end end
end end

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

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

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

@ -1,9 +1,7 @@
inherited frViewPedidosMontaje: TfrViewPedidosMontaje inherited frViewPedidosMontaje: TfrViewPedidosMontaje
Width = 605
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 25 Top = 127
Width = 605 Height = 143
Height = 245
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnDblClick = actModificarExecute OnDblClick = actModificarExecute
DataController.KeyFieldNames = 'CODIGO' DataController.KeyFieldNames = 'CODIGO'
@ -98,7 +96,7 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje
object ToolBar1: TToolBar [1] object ToolBar1: TToolBar [1]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 605 Width = 443
Height = 25 Height = 25
ButtonWidth = 129 ButtonWidth = 129
Caption = 'ToolBar1' Caption = 'ToolBar1'
@ -109,7 +107,7 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje
Images = PngImageList Images = PngImageList
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 2
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -131,6 +129,24 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje
Action = actRecibirPedido Action = actRecibirPedido
end end
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 inherited ActionList1: TActionList
Images = PngImageList Images = PngImageList
Left = 8 Left = 8

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

@ -12,7 +12,7 @@ uses
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
ComCtrls, ToolWin, cxImageComboBox; ComCtrls, ToolWin, cxImageComboBox, uViewFiltroBase;
type type
IViewPedidosMontaje = interface(IViewGrid) IViewPedidosMontaje = interface(IViewGrid)

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

@ -36,6 +36,9 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
object TBXSeparatorItem16: TTBXSeparatorItem object TBXSeparatorItem16: TTBXSeparatorItem
end end
object TBXItem38: TTBXItem
Action = actAceptado
end
object TBXItem36: TTBXItem object TBXItem36: TTBXItem
Action = actRechazado Action = actRechazado
end end

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

@ -32,6 +32,7 @@ type
Pendiente1: TMenuItem; Pendiente1: TMenuItem;
TBXItem36: TTBXItem; TBXItem36: TTBXItem;
TBXSeparatorItem16: TTBXSeparatorItem; TBXSeparatorItem16: TTBXSeparatorItem;
TBXItem38: TTBXItem;
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actModificarExecute(Sender: TObject); procedure actModificarExecute(Sender: TObject);
procedure actNuevoExecute(Sender: TObject); procedure actNuevoExecute(Sender: TObject);