Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso al módulo de contactos:

Browse Source 
- Duplicar habilitado y funcionando
- Se ha ocultado la impresión del listado de contactos.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@173 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-12-16 21:37:26 +00:00
parent d62b41024e
commit d07c52d7a4
21 changed files with 625 additions and 319 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

4
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -338,6 +338,8 @@ begin
end; end;
end; end;
{
// Por ahora no existe el concepto de direcciones de entrega asi que esto está desactivado
if Result and (AContacto.Direcciones.RecordCount = 0) then if Result and (AContacto.Direcciones.RecordCount = 0) then
if (ShowConfirmMessage('El cliente no tiene direcciones asociadas', if (ShowConfirmMessage('El cliente no tiene direcciones asociadas',
AContacto.NOMBRE + ' no tiene ninguna dirección de envío dada de alta, ' + #10#13 + AContacto.NOMBRE + ' no tiene ninguna dirección de envío dada de alta, ' + #10#13 +
@ -345,7 +347,7 @@ begin
begin begin
FDireccionesController.CopiarDireccionFiscal(AContacto, AContacto.Direcciones); FDireccionesController.CopiarDireccionFiscal(AContacto, AContacto.Direcciones);
FDireccionesController.Ver(AContacto.Direcciones); FDireccionesController.Ver(AContacto.Direcciones);
end; end;}
end; end;
end; end;

1
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -88,6 +88,7 @@ begin
begin begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
REFERENCIA := '';
end; end;
Result.Post; Result.Post;

16
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,23 +49,27 @@
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Base\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Base\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\..\Base\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Base\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\..\Base\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\..\Base\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form> <Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleContactos.pas"> <DCCReference Include="uDataModuleContactos.pas">
<Form>DataModuleContactos</Form> <Form>DataModuleContactos</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleEmpleados.pas"> <DCCReference Include="uDataModuleEmpleados.pas">
<Form>DataModuleEmpleados</Form> <Form>DataModuleEmpleados</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleProveedores.pas"> <DCCReference Include="uDataModuleProveedores.pas">
<Form>DataModuleProveedores</Form> <Form>DataModuleProveedores</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference> </DCCReference>
<None Include="ModelSupport_Contactos_data\default.txaPackage" /> <None Include="ModelSupport_Contactos_data\default.txaPackage" />
</ItemGroup> </ItemGroup>

159
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -7,6 +7,164 @@ inherited DataModuleClientes: TDataModuleClientes
inherited Bin2DataStreamer: TDABin2DataStreamer inherited Bin2DataStreamer: TDABin2DataStreamer
Top = 136 Top = 136
end end
inherited tbl_Contactos: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Required = True
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. trabajo'
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. particular'
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DisplayLabel = 'E-mail trabajo'
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DisplayLabel = 'E-mail particular'
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DisplayLabel = 'Web'
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
DictionaryEntry = 'Contactos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Fecha de modificaci'#243'n'
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'Usuario'
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA'
end>
end
inherited ds_Contactos: TDADataSource inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
@ -169,6 +327,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Clientes_REFERENCIA' DictionaryEntry = 'Clientes_REFERENCIA'
end end
item item

159
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -1,4 +1,162 @@
inherited DataModuleEmpleados: TDataModuleEmpleados inherited DataModuleEmpleados: TDataModuleEmpleados
inherited tbl_Contactos: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Required = True
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. trabajo'
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. particular'
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DisplayLabel = 'E-mail trabajo'
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DisplayLabel = 'E-mail particular'
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DisplayLabel = 'Web'
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
DictionaryEntry = 'Contactos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Fecha de modificaci'#243'n'
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'Usuario'
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA'
end>
end
inherited ds_Contactos: TDADataSource inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
@ -162,6 +320,7 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Agentes_REFERENCIA' DictionaryEntry = 'Agentes_REFERENCIA'
end end
item item

18
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -1,6 +1,6 @@
inherited DataModuleProveedores: TDataModuleProveedores inherited DataModuleProveedores: TDataModuleProveedores
Height = 442 Height = 311
Width = 763 Width = 550
inherited ds_Contactos: TDADataSource inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
@ -43,6 +43,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID' GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID' DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -78,14 +79,14 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Direcci'#195#179'n' DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE' DictionaryEntry = 'Contactos_CALLE'
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Poblaci'#195#179'n' DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION' DictionaryEntry = 'Contactos_POBLACION'
end end
item item
@ -99,7 +100,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'C'#195#179'digo postal' DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item item
@ -120,7 +121,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'M'#195#179'vil' DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1' DictionaryEntry = 'Contactos_MOVIL_1'
end end
item item
@ -189,6 +190,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Proveedores_REFERENCIA' DictionaryEntry = 'Proveedores_REFERENCIA'
end end
item item
@ -208,7 +210,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'CODIGO_ASIGNADO' Name = 'CODIGO_ASIGNADO'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'C'#195#179'digo asignado' DisplayLabel = 'C'#243'digo asignado'
DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO' DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO'
end end
item item
@ -220,7 +222,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'R'#195#169'gimen de IVA' DisplayLabel = 'R'#233'gimen de IVA'
DictionaryEntry = 'Proveedores_REGIMEN_IVA' DictionaryEntry = 'Proveedores_REGIMEN_IVA'
end end
item item

103
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorCliente: TfEditorCliente
ClientHeight = 585 ClientHeight = 585
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 612 ExplicitHeight = 619
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -65,7 +65,7 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 656 Width = 656
Height = 490 Height = 490
ActivePage = pagDatosComerciales ActivePage = pagDirecciones
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 490 ExplicitHeight = 490
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -120,28 +120,28 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 269 ExplicitWidth = 269
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 294 Top = 267
ExplicitTop = 294 ExplicitTop = 267
ExplicitWidth = 268 ExplicitWidth = 268
Width = 268 Width = 268
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 348 Top = 321
ExplicitTop = 348 ExplicitTop = 321
ExplicitWidth = 268 ExplicitWidth = 268
Width = 268 Width = 268
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 321 Top = 294
ExplicitTop = 321 ExplicitTop = 294
ExplicitWidth = 78 ExplicitWidth = 78
Width = 78 Width = 78
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 339 Left = 339
Top = 321 Top = 294
ExplicitLeft = 339 ExplicitLeft = 339
ExplicitTop = 321 ExplicitTop = 294
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 399 Top = 399
@ -181,7 +181,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitLeft = 432 ExplicitLeft = 432
ExplicitTop = 315 ExplicitTop = 315
ExplicitWidth = 275 ExplicitWidth = 275
ExplicitHeight = 21
Width = 275 Width = 275
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
@ -205,6 +204,8 @@ inherited fEditorCliente: TfEditorCliente
Top = 84 Top = 84
ExplicitLeft = 527 ExplicitLeft = 527
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 140
Width = 140
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 527 Left = 527
@ -220,6 +221,12 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 158 ExplicitWidth = 158
Width = 158 Width = 158
end end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 111
ExplicitTop = 111
ExplicitWidth = 227
Width = 227
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 226 Left = 226
Top = 30 Top = 30
@ -246,12 +253,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 111
ExplicitTop = 111
ExplicitWidth = 227
Width = 227
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 527 Left = 527
Top = 217 Top = 217
@ -267,8 +268,8 @@ inherited fEditorCliente: TfEditorCliente
Width = 102 Width = 102
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 267 Top = 348
ExplicitTop = 267 ExplicitTop = 348
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
@ -336,21 +337,20 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648 ExplicitWidth = 648
inherited Label1: TLabel inherited Label1: TLabel
Left = 340 Left = 397
Top = 30 Top = 30
Width = 229 Width = 206
Caption = Height = 39
'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' + ExplicitLeft = 397
'go de sus recibos.'
ExplicitLeft = 340
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 229 ExplicitWidth = 206
ExplicitHeight = 39
end end
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 466 Left = 464
Top = 62 Top = 75
ExplicitLeft = 466 ExplicitLeft = 464
ExplicitTop = 62 ExplicitTop = 75
ExplicitWidth = 160 ExplicitWidth = 160
Width = 160 Width = 160
end end
@ -373,9 +373,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 121 Width = 121
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 180 Left = 237
Top = 57 Top = 57
ExplicitLeft = 180 ExplicitLeft = 237
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
@ -385,18 +385,11 @@ inherited fEditorCliente: TfEditorCliente
Width = 121 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 180 Left = 237
Top = 84 Top = 84
ExplicitLeft = 180 ExplicitLeft = 237
ExplicitTop = 84 ExplicitTop = 84
end end
inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'D'#237'a del mes para el pago:'
end
end
end
end end
end end
end end
@ -434,34 +427,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 648 Width = 648
ExplicitWidth = 648 ExplicitWidth = 648
inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117
end
end end
end end
end end

1
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 488
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

16
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -9,9 +9,6 @@ inherited fEditorContactos: TfEditorContactos
Caption = 'Lista de contactos' Caption = 'Lista de contactos'
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 543
end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
@ -26,17 +23,4 @@ inherited fEditorContactos: TfEditorContactos
ExplicitLeft = 334 ExplicitLeft = 334
end end
end end
inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction
Visible = True
end
inherited actImprimir: TAction
Visible = True
end
end
inherited GridPopupMenu: TPopupMenu
inherited Duplicar1: TMenuItem
Visible = False
end
end
end end

3
Source/Modulos/Contactos/Views/uEditorContactos.pas
View File

@ -152,8 +152,6 @@ procedure TfEditorContactos.DuplicarInterno;
var var
AContacto : IBizContacto; AContacto : IBizContacto;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
AContacto := FController.Duplicar(Contactos); AContacto := FController.Duplicar(Contactos);
try try
@ -161,7 +159,6 @@ AppFactuGES.ShowCapado;
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorContactos.EliminarInterno; procedure TfEditorContactos.EliminarInterno;

124
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -1,29 +1,29 @@
inherited frViewCliente: TfrViewCliente inherited frViewCliente: TfrViewCliente
Width = 646 Width = 742
Height = 470 Height = 470
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 646 ExplicitWidth = 742
ExplicitHeight = 470 ExplicitHeight = 470
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 646 Width = 742
Height = 470 Height = 470
ExplicitWidth = 646 ExplicitWidth = 646
ExplicitHeight = 470 ExplicitHeight = 470
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 585 Left = 681
ExplicitLeft = 585 ExplicitLeft = 681
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 585 Left = 681
ExplicitLeft = 585 ExplicitLeft = 681
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 585 Left = 681
ExplicitLeft = 585 ExplicitLeft = 681
end end
object Label1: TLabel [3] object Label1: TLabel [3]
Left = 373 Left = 428
Top = 280 Top = 280
Width = 269 Width = 269
Height = 39 Height = 39
@ -35,37 +35,37 @@ inherited frViewCliente: TfrViewCliente
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 132 Left = 132
Top = 304 Top = 277
TabOrder = 9 TabOrder = 8
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 304 ExplicitTop = 277
ExplicitWidth = 175 ExplicitWidth = 175
Width = 175 Width = 175
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Left = 132 Left = 132
Top = 358 Top = 331
TabOrder = 12 TabOrder = 11
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 358 ExplicitTop = 331
ExplicitWidth = 167 ExplicitWidth = 167
Width = 167 Width = 167
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Left = 132 Left = 132
Top = 331 Top = 304
TabOrder = 10 TabOrder = 9
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 331 ExplicitTop = 304
ExplicitWidth = 71 ExplicitWidth = 71
Width = 71 Width = 71
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 278 Left = 333
Top = 331 Top = 304
TabOrder = 11 TabOrder = 10
ExplicitLeft = 278 ExplicitLeft = 333
ExplicitTop = 331 ExplicitTop = 304
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 415 Top = 415
@ -164,7 +164,7 @@ inherited frViewCliente: TfrViewCliente
Width = 113 Width = 113
end end
object cxDBCheckBox1: TcxDBCheckBox [13] object cxDBCheckBox1: TcxDBCheckBox [13]
Left = 373 Left = 428
Top = 325 Top = 325
Caption = 'Permitir el acceso de este cliente a la tienda web' Caption = 'Permitir el acceso de este cliente a la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
@ -189,30 +189,30 @@ inherited frViewCliente: TfrViewCliente
Width = 249 Width = 249
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 468 Left = 523
TabOrder = 14 TabOrder = 14
ExplicitLeft = 468 ExplicitLeft = 523
ExplicitWidth = 157 ExplicitWidth = 157
Width = 157 Width = 157
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 468 Left = 523
TabOrder = 13 TabOrder = 13
ExplicitLeft = 468 ExplicitLeft = 523
ExplicitWidth = 157 ExplicitWidth = 157
Width = 157 Width = 157
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 468 Left = 523
TabOrder = 15 TabOrder = 15
ExplicitLeft = 468 ExplicitLeft = 523
ExplicitWidth = 157 ExplicitWidth = 157
Width = 157 Width = 157
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 468 Left = 523
TabOrder = 16 TabOrder = 16
ExplicitLeft = 468 ExplicitLeft = 523
ExplicitWidth = 157 ExplicitWidth = 157
Width = 157 Width = 157
end end
@ -223,50 +223,28 @@ inherited frViewCliente: TfrViewCliente
Width = 135 Width = 135
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 259 Left = 291
ExplicitLeft = 259 ExplicitLeft = 291
ExplicitWidth = 58 ExplicitWidth = 58
Width = 58 Width = 58
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 468 Left = 523
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 17 TabOrder = 17
ExplicitLeft = 468 ExplicitLeft = 523
ExplicitWidth = 128 ExplicitWidth = 128
Width = 128 Width = 128
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 468 Left = 523
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 18 TabOrder = 18
ExplicitLeft = 468 ExplicitLeft = 523
ExplicitWidth = 128 ExplicitWidth = 128
Width = 128 Width = 128
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit object eCodigoAsignado: TcxDBTextEdit [22]
Left = 468
TabOrder = 19
ExplicitLeft = 468
ExplicitWidth = 128
Width = 128
end
inherited eReferencia: TcxDBTextEdit
Left = 132
ExplicitLeft = 132
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 277
TabOrder = 8
ExplicitLeft = 132
ExplicitTop = 277
ExplicitWidth = 256
Width = 256
end
object eCodigoAsignado: TcxDBTextEdit [25]
Left = 132 Left = 132
Top = 109 Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataField = 'CODIGO_ASIGNADO'
@ -286,6 +264,28 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 4 TabOrder = 4
Width = 227 Width = 227
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 523
TabOrder = 19
ExplicitLeft = 523
ExplicitWidth = 128
Width = 128
end
inherited eReferencia: TcxDBTextEdit
Left = 132
ExplicitLeft = 132
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 358
TabOrder = 12
ExplicitLeft = 132
ExplicitTop = 358
ExplicitWidth = 256
Width = 256
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avBottom AlignVert = avBottom

32
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -56,19 +56,30 @@ inherited frViewClientes: TfrViewClientes
DataBinding.FieldName = 'NOMBRE_COMERCIAL' DataBinding.FieldName = 'NOMBRE_COMERCIAL'
Width = 164 Width = 164
end end
object cxGridViewAGENTE: TcxGridDBColumn end
DataBinding.FieldName = 'AGENTE' end
Visible = False inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 284
Width = 284
end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 128
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
object TBXItem2: TTBXItem Visible = False
Action = actAgente
end
end end
end end
end end
@ -89,13 +100,6 @@ inherited frViewClientes: TfrViewClientes
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 32 Left = 32
end end
inherited ActionList1: TActionList
object actAgente: TAction
Caption = 'Agente'
OnExecute = actAgenteExecute
OnUpdate = actAgenteUpdate
end
end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True BuiltInStyle = True

25
Source/Modulos/Contactos/Views/uViewClientes.pas
View File

@ -25,11 +25,6 @@ type
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn; cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
cxGridViewBLOQUEADO: TcxGridDBColumn; cxGridViewBLOQUEADO: TcxGridDBColumn;
cxGridViewTiendaWeb: TcxGridDBColumn; cxGridViewTiendaWeb: TcxGridDBColumn;
actAgente: TAction;
cxGridViewAGENTE: TcxGridDBColumn;
TBXItem2: TTBXItem;
procedure actAgenteExecute(Sender: TObject);
procedure actAgenteUpdate(Sender: TObject);
end; end;
@ -41,24 +36,4 @@ uses uViewGridBase;
{$R *.dfm} {$R *.dfm}
procedure TfrViewClientes.actAgenteExecute(Sender: TObject);
begin
if (cxGridViewAGENTE.GroupIndex < 0) then
begin
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewAGENTE.Visible := False;
end
else
begin
cxGridViewAGENTE.GroupIndex := -1;
cxGridViewAGENTE.Visible := True;
end;
end;
procedure TfrViewClientes.actAgenteUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
end;
end. end.

37
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -104,7 +104,7 @@ inherited frViewContacto: TfrViewContacto
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 115 Left = 115
Top = 169 Top = 142
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -117,12 +117,12 @@ inherited frViewContacto: TfrViewContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 3
Width = 181 Width = 181
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 115 Left = 115
Top = 223 Top = 196
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -135,12 +135,12 @@ inherited frViewContacto: TfrViewContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 6
Width = 133 Width = 133
end end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 115 Left = 115
Top = 196 Top = 169
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -153,12 +153,12 @@ inherited frViewContacto: TfrViewContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 4
Width = 111 Width = 111
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 303 Left = 303
Top = 196 Top = 169
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -171,7 +171,7 @@ inherited frViewContacto: TfrViewContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 5
Width = 65 Width = 65
end end
object eObservaciones: TcxDBMemo object eObservaciones: TcxDBMemo
@ -376,6 +376,7 @@ inherited frViewContacto: TfrViewContacto
Top = 28 Top = 28
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = clWindow
@ -384,6 +385,7 @@ inherited frViewContacto: TfrViewContacto
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
@ -393,7 +395,7 @@ inherited frViewContacto: TfrViewContacto
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 115 Left = 115
Top = 142 Top = 223
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -407,7 +409,7 @@ inherited frViewContacto: TfrViewContacto
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 7
Width = 256 Width = 256
end end
object dxLayoutControlContactoGroup_Root: TdxLayoutGroup object dxLayoutControlContactoGroup_Root: TdxLayoutGroup
@ -458,11 +460,6 @@ inherited frViewContacto: TfrViewContacto
object dxLayoutControlContactoGroup3: TdxLayoutGroup object dxLayoutControlContactoGroup3: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
Caption = 'Direcci'#243'n' Caption = 'Direcci'#243'n'
object dxLayoutControlContactoItem167: TdxLayoutItem
Caption = 'Persona contacto:'
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem1: TdxLayoutItem object dxLayoutControlContactoItem1: TdxLayoutItem
Caption = 'Calle:' Caption = 'Calle:'
Control = eCalle Control = eCalle
@ -491,6 +488,11 @@ inherited frViewContacto: TfrViewContacto
Control = eProvincia Control = eProvincia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem167: TdxLayoutItem
Caption = 'Persona contacto:'
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControlContactoGroup6: TdxLayoutGroup object dxLayoutControlContactoGroup6: TdxLayoutGroup
@ -502,13 +504,12 @@ inherited frViewContacto: TfrViewContacto
object dxLayoutControlContactoGroup2: TdxLayoutGroup object dxLayoutControlContactoGroup2: TdxLayoutGroup
Caption = 'Tel'#233'fonos' Caption = 'Tel'#233'fonos'
object dxLayoutControlContactoItem10: TdxLayoutItem object dxLayoutControlContactoItem10: TdxLayoutItem
Caption = 'Tlf. trabajo:' Caption = 'Tel'#233'fono 1:'
Control = eTlfTrabajo Control = eTlfTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem9: TdxLayoutItem object dxLayoutControlContactoItem9: TdxLayoutItem
Caption = 'Tlf. particular:' Caption = 'Tel'#233'fono 2:'
Visible = False
Control = eTlfParticular Control = eTlfParticular
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

28
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm
View File

@ -75,5 +75,33 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 583 Width = 583
ExplicitWidth = 583 ExplicitWidth = 583
inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117
end
end end
end end

9
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas
View File

@ -24,6 +24,7 @@ type
cxGridViewEMAIL: TcxGridDBColumn; cxGridViewEMAIL: TcxGridDBColumn;
cxGridViewPORTE: TcxGridDBColumn; cxGridViewPORTE: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject); procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
protected protected
procedure AnadirInterno; override; procedure AnadirInterno; override;
procedure ModificarInterno; override; procedure ModificarInterno; override;
@ -36,7 +37,13 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDireccionesContactoController, uBizDireccionesContacto; uDialogUtils, uDireccionesContactoController, uBizDireccionesContacto;
procedure TfrViewDireccionesEntrega.actEliminarExecute(Sender: TObject);
begin
if (ShowConfirmMessage('Eliminar una dirección', '¿Desea eliminar esta dirección?') = IDYES) then
inherited;
end;
procedure TfrViewDireccionesEntrega.AnadirInterno; procedure TfrViewDireccionesEntrega.AnadirInterno;
begin begin

117
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -8,37 +8,37 @@ inherited frViewEmpleado: TfrViewEmpleado
ExplicitHeight = 391 ExplicitHeight = 391
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 121 Left = 121
Top = 193 Top = 166
TabOrder = 7 TabOrder = 6
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 193 ExplicitTop = 166
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Left = 121 Left = 121
Top = 247 Top = 220
TabOrder = 10 TabOrder = 9
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 247 ExplicitTop = 220
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Left = 121 Left = 121
Top = 220 Top = 193
TabOrder = 8 TabOrder = 7
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 220 ExplicitTop = 193
ExplicitWidth = 159 ExplicitWidth = 159
Width = 159 Width = 159
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 348 Left = 348
Top = 220 Top = 193
TabOrder = 9 TabOrder = 8
ExplicitLeft = 348 ExplicitLeft = 348
ExplicitTop = 220 ExplicitTop = 193
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 304 Top = 304
@ -51,29 +51,17 @@ inherited frViewEmpleado: TfrViewEmpleado
Left = 538 Left = 538
TabOrder = 12 TabOrder = 12
ExplicitLeft = 538 ExplicitLeft = 538
ExplicitWidth = 91
Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 538 Left = 538
TabOrder = 11 TabOrder = 11
ExplicitLeft = 538 ExplicitLeft = 538
ExplicitWidth = 127
Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit object eFechaNacimiento: TcxDBDateEdit [10]
Left = 538
TabOrder = 13
ExplicitLeft = 538
end
inherited eFax: TcxDBTextEdit
Left = 538
TabOrder = 14
ExplicitLeft = 538
end
inherited eNombre: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 263
Width = 263
end
object eFechaNacimiento: TcxDBDateEdit [13]
Left = 121 Left = 121
Top = 82 Top = 82
DataBinding.DataField = 'FECHA_NACIMIENTO' DataBinding.DataField = 'FECHA_NACIMIENTO'
@ -90,7 +78,7 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 3 TabOrder = 3
Width = 121 Width = 121
end end
object eFechaAltaEmpresa: TcxDBDateEdit [14] object eFechaAltaEmpresa: TcxDBDateEdit [11]
Left = 262 Left = 262
Top = 82 Top = 82
DataBinding.DataField = 'FECHA_ALTA_EMPRESA' DataBinding.DataField = 'FECHA_ALTA_EMPRESA'
@ -107,29 +95,27 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 4 TabOrder = 4
Width = 235 Width = 235
end end
inherited eNIFCIF: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 289
ExplicitLeft = 289
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 538 Left = 538
Properties.Prefix = 'mailto:' TabOrder = 13
TabOrder = 15
ExplicitLeft = 538 ExplicitLeft = 538
ExplicitWidth = 129 ExplicitWidth = 155
Width = 129 Width = 155
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eFax: TcxDBTextEdit
Left = 538 Left = 538
Properties.Prefix = 'mailto:' TabOrder = 14
TabOrder = 16
ExplicitLeft = 538 ExplicitLeft = 538
ExplicitWidth = 165 ExplicitWidth = 121
Width = 165 Width = 121
end end
object cbCategoria: TcxDBComboBox [18] inherited eNombre: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 263
Width = 263
end
object cbCategoria: TcxDBComboBox [15]
Left = 121 Left = 121
Top = 109 Top = 109
DataBinding.DataField = 'CATEGORIA' DataBinding.DataField = 'CATEGORIA'
@ -153,6 +139,28 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 5 TabOrder = 5
Width = 225 Width = 225
end end
inherited eNIFCIF: TcxDBTextEdit
Left = 255
ExplicitLeft = 255
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 538
Properties.Prefix = 'mailto:'
TabOrder = 15
ExplicitLeft = 538
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 538
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 538
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 538 Left = 538
TabOrder = 17 TabOrder = 17
@ -163,13 +171,17 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 121 Left = 121
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitWidth = 38
Width = 38
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 121 Left = 121
Top = 166 Top = 247
TabOrder = 6 TabOrder = 10
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 166 ExplicitTop = 247
ExplicitWidth = 256
Width = 256
end end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
@ -217,8 +229,11 @@ inherited frViewEmpleado: TfrViewEmpleado
end end
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
inherited dxLayoutControlContactoGroup2: TdxLayoutGroup inherited dxLayoutControlContactoGroup2: TdxLayoutGroup
inherited dxLayoutControlContactoItem10: TdxLayoutItem
Caption = 'Tlf. trabajo:'
end
inherited dxLayoutControlContactoItem9: TdxLayoutItem inherited dxLayoutControlContactoItem9: TdxLayoutItem
Visible = True Caption = 'Tlf. particular:'
end end
inherited dxLayoutControlContactoItem12: TdxLayoutItem inherited dxLayoutControlContactoItem12: TdxLayoutItem
Visible = False Visible = False

3
Source/Modulos/Contactos/Views/uViewEmpleado.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, uViewContacto, dxLayoutLookAndFeels, DB, uDADataTable, Dialogs, uViewContacto, dxLayoutLookAndFeels, DB, uDADataTable,
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls, dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit, cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, uGruposEmpleadoController; Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, uGruposEmpleadoController,
uDAInterfaces;
type type
IViewEmpleado = interface(IViewContacto) IViewEmpleado = interface(IViewContacto)

85
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -1,25 +1,28 @@
inherited frViewProveedor: TfrViewProveedor inherited frViewProveedor: TfrViewProveedor
Width = 799
Height = 454 Height = 454
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 799
ExplicitHeight = 454 ExplicitHeight = 454
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 799
Height = 454 Height = 454
ExplicitHeight = 454 ExplicitHeight = 454
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 613 Left = 738
ExplicitLeft = 613 ExplicitLeft = 738
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 613 Left = 738
ExplicitLeft = 613 ExplicitLeft = 738
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 613 Left = 738
ExplicitLeft = 613 ExplicitLeft = 738
end end
object Label1: TLabel [3] object Label1: TLabel [3]
Left = 370 Left = 438
Top = 307 Top = 307
Width = 342 Width = 342
Height = 26 Height = 26
@ -30,37 +33,37 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 134 Left = 134
Top = 304 Top = 277
TabOrder = 9 TabOrder = 8
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 304 ExplicitTop = 277
ExplicitWidth = 264 ExplicitWidth = 264
Width = 264 Width = 264
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Left = 134 Left = 134
Top = 358 Top = 331
TabOrder = 12 TabOrder = 11
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 358 ExplicitTop = 331
ExplicitWidth = 264 ExplicitWidth = 264
Width = 264 Width = 264
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Left = 134 Left = 134
Top = 331 Top = 304
TabOrder = 10 TabOrder = 9
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 331 ExplicitTop = 304
ExplicitWidth = 163 ExplicitWidth = 163
Width = 163 Width = 163
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 275 Left = 343
Top = 331 Top = 304
TabOrder = 11 TabOrder = 10
ExplicitLeft = 275 ExplicitLeft = 343
ExplicitTop = 331 ExplicitTop = 304
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 415 Top = 415
@ -70,7 +73,7 @@ inherited frViewProveedor: TfrViewProveedor
Height = 20 Height = 20
end end
object cxDBCheckBox1: TcxDBCheckBox [9] object cxDBCheckBox1: TcxDBCheckBox [9]
Left = 370 Left = 438
Top = 280 Top = 280
Caption = 'Incluir este proveedor en la tienda web' Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
@ -200,30 +203,30 @@ inherited frViewProveedor: TfrViewProveedor
Width = 221 Width = 221
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 465 Left = 533
TabOrder = 14 TabOrder = 14
ExplicitLeft = 465 ExplicitLeft = 533
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 465 Left = 533
TabOrder = 13 TabOrder = 13
ExplicitLeft = 465 ExplicitLeft = 533
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 465 Left = 533
TabOrder = 15 TabOrder = 15
ExplicitLeft = 465 ExplicitLeft = 533
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 465 Left = 533
TabOrder = 16 TabOrder = 16
ExplicitLeft = 465 ExplicitLeft = 533
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -234,31 +237,31 @@ inherited frViewProveedor: TfrViewProveedor
Width = 221 Width = 221
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 207 Left = 217
ExplicitLeft = 207 ExplicitLeft = 217
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 465 Left = 533
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 17 TabOrder = 17
ExplicitLeft = 465 ExplicitLeft = 533
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 465 Left = 533
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 18 TabOrder = 18
ExplicitLeft = 465 ExplicitLeft = 533
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 465 Left = 533
TabOrder = 19 TabOrder = 19
ExplicitLeft = 465 ExplicitLeft = 533
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
end end
@ -270,10 +273,10 @@ inherited frViewProveedor: TfrViewProveedor
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 134 Left = 134
Top = 277 Top = 358
TabOrder = 8 TabOrder = 12
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 277 ExplicitTop = 358
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end

4
Source/Modulos/Contactos/Views/uViewProveedores.dfm
View File

@ -51,8 +51,8 @@ inherited frViewProveedores: TfrViewProveedores
Width = 483 Width = 483
ExplicitWidth = 483 ExplicitWidth = 483
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 206 ExplicitWidth = 228
Width = 206 Width = 228
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel