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

Se activan y migran los informes de fichas de empleados y etiquetas de clientes y proveedores

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@263 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-02-07 19:02:34 +00:00
parent de6f6415a2
commit 3220b9f9ca
14 changed files with 204 additions and 681 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Contactos/Controller/uEmpleadosController.pas
View File

@ -178,7 +178,7 @@ begin
else else
ID_Fichas.Add(IntToStr(AEmpleado.ID)); ID_Fichas.Add(IntToStr(AEmpleado.ID));
AReportController.Preview(ID_Fichas.CommaText); AReportController.Preview(ID_Fichas.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

183
Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm
View File

@ -4,11 +4,12 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataSet = tbl_Contactos.Dataset
DataTable = tbl_Contactos DataTable = tbl_Contactos
Left = 264 Left = 264
Top = 72 Top = 72
end end
object tbl_Contactos: TDACDSDataTable object tbl_Contactos: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <>
Params = <> Params = <>
@ -16,21 +17,12 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
Top = 128 Top = 128
end end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 80
end
object frxRichObject1: TfrxRichObject object frxRichObject1: TfrxRichObject
Left = 48 Left = 48
Top = 296 Top = 296
@ -113,104 +105,49 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -219,298 +156,203 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
item item
Name = 'FacturasCliente_ID' Name = 'FacturasCliente_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_EMPRESA' Name = 'FacturasCliente_ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA' DisplayLabel = 'ID_EMPRESA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CONTRATO' Name = 'FacturasCliente_ID_CONTRATO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CONTRATO' DisplayLabel = 'ID_CONTRATO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_FACTURA' Name = 'FacturasCliente_FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de las factura' DisplayLabel = 'Fecha de las factura'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_VENCIMIENTO' Name = 'FacturasCliente_VENCIMIENTO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Vencimiento' DisplayLabel = 'Vencimiento'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_SITUACION' Name = 'FacturasCliente_SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_BASE_IMPONIBLE' Name = 'FacturasCliente_BASE_IMPONIBLE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Base imponible' DisplayLabel = 'Base imponible'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_DESCUENTO' Name = 'FacturasCliente_IMPORTE_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe dto.' DisplayLabel = 'Importe dto.'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_IVA' Name = 'FacturasCliente_IMPORTE_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe IVA' DisplayLabel = 'Importe IVA'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_TOTAL' Name = 'FacturasCliente_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_FORMA_PAGO' Name = 'FacturasCliente_FORMA_PAGO'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago' DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CLIENTE' Name = 'FacturasCliente_ID_CLIENTE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CLIENTE' DisplayLabel = 'ID_CLIENTE'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NIF_CIF' Name = 'FacturasCliente_NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NIF/CIF' DisplayLabel = 'NIF/CIF'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CODIGO_POSTAL' Name = 'FacturasCliente_CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'd. postal' DisplayLabel = 'C'#243'd. postal'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_ALTA' Name = 'FacturasCliente_FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_ALTA' DisplayLabel = 'FECHA_ALTA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_MODIFICACION' Name = 'FacturasCliente_FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_MODIFICACION' DisplayLabel = 'FECHA_MODIFICACION'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_OBSERVACIONES' Name = 'FacturasCliente_OBSERVACIONES'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Observaciones' DisplayLabel = 'Observaciones'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NOMBRE' Name = 'FacturasCliente_NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CALLE' Name = 'FacturasCliente_CALLE'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n' DisplayLabel = 'Direcci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_PROVINCIA' Name = 'FacturasCliente_PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Provincia' DisplayLabel = 'Provincia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_POBLACION' Name = 'FacturasCliente_POBLACION'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n' DisplayLabel = 'Poblaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_IVA' Name = 'FacturasCliente_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'IVA' DisplayLabel = 'IVA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_USUARIO' Name = 'FacturasCliente_USUARIO'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'USUARIO' DisplayLabel = 'USUARIO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_REFERENCIA' Name = 'FacturasCliente_REFERENCIA'
DataType = datString DataType = datString
Size = 20 Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_DESCUENTO' Name = 'FacturasCliente_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Dto.' DisplayLabel = 'Dto.'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID' Name = 'FacturasCliente_Detalles_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID_FACTURA' Name = 'FacturasCliente_Detalles_ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_FACTURA' DisplayLabel = 'ID_FACTURA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_TIPO_DETALLE' Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tipo detalle' DisplayLabel = 'Tipo detalle'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CONCEPTO' Name = 'FacturasCliente_Detalles_CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Concepto' DisplayLabel = 'Concepto'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe unidad' DisplayLabel = 'Importe unidad'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_VISIBLE' Name = 'FacturasCliente_Detalles_VISIBLE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'Visible?' DisplayLabel = #191'Visible?'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_POSICION' Name = 'FacturasCliente_Detalles_POSICION'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Posici'#243'n' DisplayLabel = 'Posici'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CANTIDAD' Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cantidad' DisplayLabel = 'Cantidad'
Alignment = taLeftJustify
end> end>
Left = 46 Left = 46
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '3.23.7' Version = '4.3'
DotMatrixReport = False DotMatrixReport = False
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 38330.712904247710000000 ReportOptions.CreateDate = 38330.712904247710000000
ReportOptions.LastChange = 39328.775946539350000000 ReportOptions.LastChange = 39328.775946539350000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
@ -573,13 +415,6 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
StoreInDFM = False StoreInDFM = False
Left = 169 Left = 169
Top = 16 Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end>
Variables = <>
Style = <>
end end
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
@ -588,4 +423,8 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
Left = 264 Left = 264
Top = 16 Top = 16
end end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end end

10
Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
View File

@ -7,13 +7,12 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
type type
TRptEtiquetasContacto = class(TDataModule) TRptEtiquetasContacto = class(TDataModule)
DADataCabecera: TDADataSource; DADataCabecera: TDADataSource;
tbl_Contactos: TDACDSDataTable; tbl_Contactos: TDAMemDataTable;
DABINAdapter: TDABINAdapter;
frxRichObject1: TfrxRichObject; frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject; frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject; frxOLEObject1: TfrxOLEObject;
@ -25,6 +24,7 @@ type
frxReport: TfrxReport; frxReport: TfrxReport;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
Bin2DataStreamer: TDABin2DataStreamer;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
@ -73,8 +73,8 @@ begin
dsMaster.Open; dsMaster.Open;
AStream.Clear; AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Contactos, TRUE, '', TRUE, TRUE); Bin2DataStreamer.ReadDataset(AStream, tbl_Contactos, TRUE, '', TRUE, TRUE);
frxReport.LoadFromFile(DarRutaInformes + rptEtiquetasContacto, True); frxReport.LoadFromFile(DarRutaInformes + rptEtiquetasContacto, True);
frxReport.PrepareReport(True); frxReport.PrepareReport(True);

385
Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.dfm
View File

@ -4,11 +4,12 @@ object RptFichasEmpleado: TRptFichasEmpleado
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataSet = tbl_FichaEmpleado.Dataset
DataTable = tbl_FichaEmpleado DataTable = tbl_FichaEmpleado
Left = 264 Left = 264
Top = 72 Top = 72
end end
object tbl_FichaEmpleado: TDACDSDataTable object tbl_FichaEmpleado: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = <> Fields = <>
Params = <> Params = <>
@ -16,21 +17,12 @@ object RptFichasEmpleado: TRptFichasEmpleado
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
Top = 128 Top = 128
end end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 80
end
object frxRichObject1: TfrxRichObject object frxRichObject1: TfrxRichObject
Left = 48 Left = 48
Top = 296 Top = 296
@ -68,7 +60,6 @@ object RptFichasEmpleado: TRptFichasEmpleado
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -243,416 +234,172 @@ object RptFichasEmpleado: TRptFichasEmpleado
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_CATEGORIA' Name = 'ID_CATEGORIA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_2' Name = 'TELEFONO_2'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_2' Name = 'EMAIL_2'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_NACIMIENTO' Name = 'FECHA_NACIMIENTO'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CATEGORIA' Name = 'CATEGORIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_ALTA_EMPRESA' Name = 'FECHA_ALTA_EMPRESA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMACION_BASE' Name = 'FORMACION_BASE'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMACION_COMPLE' Name = 'FORMACION_COMPLE'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMACION_RECIBIDA' Name = 'FORMACION_RECIBIDA'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EXPERIENCIA' Name = 'EXPERIENCIA'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE_EMPRESA' Name = 'NOMBRE_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RAZON_SOCIAL' Name = 'RAZON_SOCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1_EMPRESA' Name = 'TELEFONO_1_EMPRESA'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX_EMPRESA' Name = 'FAX_EMPRESA'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -661,299 +408,204 @@ object RptFichasEmpleado: TRptFichasEmpleado
item item
Name = 'FacturasCliente_ID' Name = 'FacturasCliente_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_EMPRESA' Name = 'FacturasCliente_ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA' DisplayLabel = 'ID_EMPRESA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CONTRATO' Name = 'FacturasCliente_ID_CONTRATO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CONTRATO' DisplayLabel = 'ID_CONTRATO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_FACTURA' Name = 'FacturasCliente_FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de las factura' DisplayLabel = 'Fecha de las factura'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_VENCIMIENTO' Name = 'FacturasCliente_VENCIMIENTO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Vencimiento' DisplayLabel = 'Vencimiento'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_SITUACION' Name = 'FacturasCliente_SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_BASE_IMPONIBLE' Name = 'FacturasCliente_BASE_IMPONIBLE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Base imponible' DisplayLabel = 'Base imponible'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_DESCUENTO' Name = 'FacturasCliente_IMPORTE_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe dto.' DisplayLabel = 'Importe dto.'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_IVA' Name = 'FacturasCliente_IMPORTE_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe IVA' DisplayLabel = 'Importe IVA'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_TOTAL' Name = 'FacturasCliente_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_FORMA_PAGO' Name = 'FacturasCliente_FORMA_PAGO'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago' DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CLIENTE' Name = 'FacturasCliente_ID_CLIENTE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CLIENTE' DisplayLabel = 'ID_CLIENTE'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NIF_CIF' Name = 'FacturasCliente_NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NIF/CIF' DisplayLabel = 'NIF/CIF'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CODIGO_POSTAL' Name = 'FacturasCliente_CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'd. postal' DisplayLabel = 'C'#243'd. postal'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_ALTA' Name = 'FacturasCliente_FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_ALTA' DisplayLabel = 'FECHA_ALTA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_MODIFICACION' Name = 'FacturasCliente_FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_MODIFICACION' DisplayLabel = 'FECHA_MODIFICACION'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_OBSERVACIONES' Name = 'FacturasCliente_OBSERVACIONES'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Observaciones' DisplayLabel = 'Observaciones'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NOMBRE' Name = 'FacturasCliente_NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CALLE' Name = 'FacturasCliente_CALLE'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n' DisplayLabel = 'Direcci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_PROVINCIA' Name = 'FacturasCliente_PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Provincia' DisplayLabel = 'Provincia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_POBLACION' Name = 'FacturasCliente_POBLACION'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n' DisplayLabel = 'Poblaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_IVA' Name = 'FacturasCliente_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'IVA' DisplayLabel = 'IVA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_USUARIO' Name = 'FacturasCliente_USUARIO'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'USUARIO' DisplayLabel = 'USUARIO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_REFERENCIA' Name = 'FacturasCliente_REFERENCIA'
DataType = datString DataType = datString
Size = 20 Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_DESCUENTO' Name = 'FacturasCliente_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Dto.' DisplayLabel = 'Dto.'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID' Name = 'FacturasCliente_Detalles_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID_FACTURA' Name = 'FacturasCliente_Detalles_ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_FACTURA' DisplayLabel = 'ID_FACTURA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_TIPO_DETALLE' Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tipo detalle' DisplayLabel = 'Tipo detalle'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CONCEPTO' Name = 'FacturasCliente_Detalles_CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Concepto' DisplayLabel = 'Concepto'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe unidad' DisplayLabel = 'Importe unidad'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_VISIBLE' Name = 'FacturasCliente_Detalles_VISIBLE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'Visible?' DisplayLabel = #191'Visible?'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_POSICION' Name = 'FacturasCliente_Detalles_POSICION'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Posici'#243'n' DisplayLabel = 'Posici'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CANTIDAD' Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cantidad' DisplayLabel = 'Cantidad'
Alignment = taLeftJustify
end> end>
Left = 46 Left = 46
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '3.23.7' Version = '4.3'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39329.847549722220000000 ReportOptions.LastChange = 39329.847549722220000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
@ -1006,25 +658,6 @@ object RptFichasEmpleado: TRptFichasEmpleado
OnStartReport = 'frxReportOnStartReport' OnStartReport = 'frxReportOnStartReport'
Left = 169 Left = 169
Top = 16 Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end>
Variables = <
item
Name = ' Paginacion'
Value = Null
end
item
Name = 'Pagina'
Value = Null
end
item
Name = 'TotalPaginas'
Value = Null
end>
Style = <>
end end
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
@ -1033,4 +666,8 @@ object RptFichasEmpleado: TRptFichasEmpleado
Left = 264 Left = 264
Top = 16 Top = 16
end end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end end

10
Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas
View File

@ -7,13 +7,12 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
type type
TRptFichasEmpleado = class(TDataModule) TRptFichasEmpleado = class(TDataModule)
DADataCabecera: TDADataSource; DADataCabecera: TDADataSource;
tbl_FichaEmpleado: TDACDSDataTable; tbl_FichaEmpleado: TDAMemDataTable;
DABINAdapter: TDABINAdapter;
frxRichObject1: TfrxRichObject; frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject; frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject; frxOLEObject1: TfrxOLEObject;
@ -25,6 +24,7 @@ type
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport; frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
@ -93,8 +93,8 @@ begin
dsMaster := schReport.NewDataset(FConnection, ds_InformeFichaEmpleado, ['ID'], [ID]); dsMaster := schReport.NewDataset(FConnection, ds_InformeFichaEmpleado, ['ID'], [ID]);
AStream.Clear; AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_FichaEmpleado, TRUE, '', TRUE, TRUE); Bin2DataStreamer.ReadDataset(AStream, tbl_FichaEmpleado, TRUE, '', TRUE, TRUE);
frxReport.LoadFromFile(DarRutaInformes + rptFichaEmpleado, True); frxReport.LoadFromFile(DarRutaInformes + rptFichaEmpleado, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);

17
Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -53,8 +53,8 @@ uses
uDataModuleServer, uDatabaseUtils, uUsersManager, uDataModuleServer, uDatabaseUtils, uUsersManager,
schContactosClient_Intf, uBizEmpleadosServer, schContactosClient_Intf, uBizEmpleadosServer,
uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils, uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils,
uStringsUtils; uStringsUtils,
// uRptFichasEmpleado_Server, uRptEtiquetasContacto_Server; uRptFichasEmpleado_Server, uRptEtiquetasContacto_Server;
procedure Create_srvContactos(out anInstance : IUnknown); procedure Create_srvContactos(out anInstance : IUnknown);
begin begin
@ -140,30 +140,27 @@ begin
end; end;
function TsrvContactos.GenerateEtiquetasReport(const ContactosID: String): Binary; function TsrvContactos.GenerateEtiquetasReport(const ContactosID: String): Binary;
//var var
// AReportGenerator : TRptEtiquetasContacto; AReportGenerator : TRptEtiquetasContacto;
begin begin
{ AReportGenerator := TRptEtiquetasContacto.Create(nil); AReportGenerator := TRptEtiquetasContacto.Create(nil);
try try
Result := AReportGenerator.GenerarInforme(ContactosID); Result := AReportGenerator.GenerarInforme(ContactosID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
}
end; end;
function TsrvContactos.GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary; function TsrvContactos.GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
//var var
// AReportGenerator : TRptFichasEmpleado; AReportGenerator : TRptFichasEmpleado;
begin begin
{
AReportGenerator := TRptFichasEmpleado.Create(nil); AReportGenerator := TRptFichasEmpleado.Create(nil);
try try
Result := AReportGenerator.GenerarFicha(EmpleadoID); Result := AReportGenerator.GenerarFicha(EmpleadoID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
}
end; end;
initialization initialization

179
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 = 619 ExplicitHeight = 612
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -63,19 +63,19 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 656 Width = 650
Height = 490 Height = 484
ActivePage = pagDirecciones ActivePage = pagDirecciones
ExplicitWidth = 656 ExplicitWidth = 650
ExplicitHeight = 490 ExplicitHeight = 484
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 462 ExplicitHeight = 456
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 648 Width = 642
Height = 462 Height = 456
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -85,37 +85,37 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 462 ExplicitHeight = 456
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 648 Width = 642
Height = 462 Height = 456
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 462 ExplicitHeight = 456
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 603 Left = 597
Top = 218 Top = 218
ExplicitLeft = 603 ExplicitLeft = 597
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 603 Left = 597
Top = 190 Top = 190
ExplicitLeft = 603 ExplicitLeft = 597
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 603 Left = 597
Top = 162 Top = 162
ExplicitLeft = 603 ExplicitLeft = 597
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 432 Left = 431
Top = 270 Top = 270
Width = 269 Width = 269
ExplicitLeft = 432 ExplicitLeft = 431
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 269 ExplicitWidth = 269
end end
@ -138,9 +138,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 78 Width = 78
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 339 Left = 338
Top = 294 Top = 294
ExplicitLeft = 339 ExplicitLeft = 338
ExplicitTop = 294 ExplicitTop = 294
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
@ -176,41 +176,42 @@ inherited fEditorCliente: TfEditorCliente
Width = 205 Width = 205
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 432 Left = 431
Top = 315 Top = 315
ExplicitLeft = 432 ExplicitLeft = 431
ExplicitTop = 315 ExplicitTop = 315
ExplicitWidth = 275 ExplicitWidth = 192
Width = 275 ExplicitHeight = 34
Width = 192
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 527 Left = 526
Top = 57 Top = 57
ExplicitLeft = 527 ExplicitLeft = 526
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 527 Left = 526
Top = 30 Top = 30
ExplicitLeft = 527 ExplicitLeft = 526
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 527 Left = 526
Top = 84 Top = 84
ExplicitLeft = 527 ExplicitLeft = 526
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 140 ExplicitWidth = 140
Width = 140 Width = 140
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 527 Left = 526
Top = 111 Top = 111
ExplicitLeft = 527 ExplicitLeft = 526
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -236,27 +237,27 @@ inherited fEditorCliente: TfEditorCliente
Width = 268 Width = 268
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 527 Left = 526
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 527 ExplicitLeft = 526
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 527 Left = 526
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 527 ExplicitLeft = 526
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 527 Left = 526
Top = 217 Top = 217
ExplicitLeft = 527 ExplicitLeft = 526
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -281,24 +282,24 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 462 ExplicitHeight = 456
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 648 Width = 642
Height = 462 Height = 456
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 462 ExplicitHeight = 456
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 648 Width = 642
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648 ExplicitWidth = 642
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114 ExplicitWidth = 114
Width = 114 Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 418 Left = 415
ExplicitLeft = 418 ExplicitLeft = 415
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
@ -319,7 +320,7 @@ inherited fEditorCliente: TfEditorCliente
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
Width = 648 Width = 642
Height = 193 Height = 193
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -330,26 +331,26 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 193 ExplicitHeight = 193
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 648 Width = 642
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648 ExplicitWidth = 642
inherited Label1: TLabel inherited Label1: TLabel
Left = 397 Left = 393
Top = 30 Top = 30
Width = 206 Width = 206
Height = 39 Height = 39
ExplicitLeft = 397 ExplicitLeft = 393
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 206 ExplicitWidth = 206
ExplicitHeight = 39 ExplicitHeight = 39
end end
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 464 Left = 460
Top = 75 Top = 75
ExplicitLeft = 464 ExplicitLeft = 460
ExplicitTop = 75 ExplicitTop = 75
ExplicitWidth = 160 ExplicitWidth = 160
Width = 160 Width = 160
@ -373,9 +374,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 121 Width = 121
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 237 Left = 233
Top = 57 Top = 57
ExplicitLeft = 237 ExplicitLeft = 233
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
@ -385,9 +386,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 121 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 237 Left = 233
Top = 84 Top = 84
ExplicitLeft = 237 ExplicitLeft = 233
ExplicitTop = 84 ExplicitTop = 84
end end
end end
@ -399,8 +400,8 @@ inherited fEditorCliente: TfEditorCliente
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
Width = 648 Width = 642
Height = 462 Height = 456
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -410,13 +411,13 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 462 ExplicitHeight = 456
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 648 Width = 642
Height = 437 Height = 431
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 437 ExplicitHeight = 431
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
SortIndex = 0 SortIndex = 0
@ -425,8 +426,8 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 648 Width = 642
ExplicitWidth = 648 ExplicitWidth = 642
end end
end end
end end
@ -436,8 +437,8 @@ inherited fEditorCliente: TfEditorCliente
inline frViewClienteDescuentos1: TfrViewClienteDescuentos inline frViewClienteDescuentos1: TfrViewClienteDescuentos
Left = 0 Left = 0
Top = 0 Top = 0
Width = 648 Width = 642
Height = 462 Height = 456
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -447,17 +448,17 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 462 ExplicitHeight = 456
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 648 Width = 642
Height = 437 Height = 431
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 437 ExplicitHeight = 431
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 648 Width = 642
ExplicitWidth = 648 ExplicitWidth = 642
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0 Top = 0
ExplicitTop = 0 ExplicitTop = 0
@ -497,6 +498,14 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actGruposCliente: TAction object actGruposCliente: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Grupos de cliente' Caption = 'Grupos de cliente'

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

@ -5,7 +5,7 @@ inherited fEditorClientes: TfEditorClientes
ClientHeight = 519 ClientHeight = 519
ClientWidth = 786 ClientWidth = 786
ExplicitWidth = 794 ExplicitWidth = 794
ExplicitHeight = 553 ExplicitHeight = 546
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -52,7 +52,7 @@ inherited fEditorClientes: TfEditorClientes
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 474 ExplicitWidth = 632
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 786 ExplicitWidth = 786
@ -175,6 +175,14 @@ inherited fEditorClientes: TfEditorClientes
inherited actNuevo: TAction inherited actNuevo: TAction
ImageIndex = 22 ImageIndex = 22
end end
inherited actPrevisualizar: TAction
Enabled = True
Visible = True
end
inherited actImprimir: TAction
Enabled = True
Visible = True
end
object actGruposCliente: TAction object actGruposCliente: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Grupos de cliente' Caption = 'Grupos de cliente'
@ -2166,7 +2174,7 @@ inherited fEditorClientes: TfEditorClientes
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 550
Left = 296 Left = 296
Top = 144 Top = 144
end end
@ -2477,7 +2485,7 @@ inherited fEditorClientes: TfEditorClientes
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 550
Left = 328 Left = 328
Top = 144 Top = 144
end end

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

@ -7,7 +7,7 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240 ExplicitHeight = 488
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -23,19 +23,13 @@ inherited fEditorContacto: TfEditorContacto
Width = 632 Width = 632
ExplicitWidth = 632 ExplicitWidth = 632
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
inherited TBXItem5: TTBXItem inherited TBXItem5: TTBXItem
Visible = False Visible = False
end end
inherited TBXItem23: TTBXItem
Visible = False
end
inherited TBXItem3: TTBXItem
Visible = False
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
DockPos = 0 DockPos = 0
@ -75,12 +69,12 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 626 Width = 626
ExplicitWidth = 632 ExplicitWidth = 626
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 624 ExplicitWidth = 618
ExplicitHeight = 338 ExplicitHeight = 332
end end
object pagDatosBancarios: TTabSheet object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios' Caption = 'Datos bancarios'

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

@ -24,4 +24,12 @@ inherited fEditorContactos: TfEditorContactos
ExplicitLeft = 334 ExplicitLeft = 334
end end
end end
inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction
Enabled = False
end
inherited actImprimir: TAction
Enabled = False
end
end
end end

23
Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
View File

@ -53,6 +53,9 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 676 Width = 676
ExplicitWidth = 676 ExplicitWidth = 676
inherited tbxMain: TTBXToolbar
DockPos = 0
end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 676 ExplicitWidth = 676
end end
@ -151,6 +154,12 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitWidth = 80 ExplicitWidth = 80
Width = 80 Width = 80
end end
inherited cbCategoria: TcxDBComboBox
Top = 111
ExplicitTop = 111
ExplicitWidth = 225
Width = 225
end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 496 Left = 496
Top = 57 Top = 57
@ -167,12 +176,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited cbCategoria: TcxDBComboBox
Top = 111
ExplicitTop = 111
ExplicitWidth = 225
Width = 225
end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 496 Left = 496
Top = 84 Top = 84
@ -195,6 +198,10 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end
inherited cbContrato: TcxDBComboBox
Top = 138
ExplicitTop = 138
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 217 Left = 217
Top = 30 Top = 30
@ -241,10 +248,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
inherited cbContrato: TcxDBComboBox
Top = 138
ExplicitTop = 138
end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
Left = 8 Left = 8

11
Source/Modulos/Contactos/Views/uEditorEmpleados.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorEmpleados: TfEditorEmpleados
Caption = 'fEditorEmpleados' Caption = 'fEditorEmpleados'
ClientWidth = 786 ClientWidth = 786
ExplicitWidth = 794 ExplicitWidth = 794
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -49,7 +48,7 @@ inherited fEditorEmpleados: TfEditorEmpleados
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 474 ExplicitWidth = 632
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
ImageIndex = 22 ImageIndex = 22
Images = SmallImages Images = SmallImages
@ -172,6 +171,14 @@ inherited fEditorEmpleados: TfEditorEmpleados
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
Left = 72 Left = 72
Top = 160 Top = 160
inherited actPrevisualizar: TAction
Enabled = True
Visible = True
end
inherited actImprimir: TAction
Enabled = True
Visible = True
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <

11
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -48,6 +48,9 @@ inherited fEditorProveedor: TfEditorProveedor
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 648 Width = 648
ExplicitWidth = 648 ExplicitWidth = 648
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 648 ExplicitWidth = 648
end end
@ -411,6 +414,14 @@ inherited fEditorProveedor: TfEditorProveedor
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 32 Left = 32
Top = 160 Top = 160
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
object actGruposProveedor: TAction object actGruposProveedor: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Grupos de proveedor' Caption = 'Grupos de proveedor'

14
Source/Modulos/Contactos/Views/uEditorProveedores.dfm
View File

@ -1,5 +1,6 @@
inherited fEditorProveedores: TfEditorProveedores inherited fEditorProveedores: TfEditorProveedores
Caption = 'fEditorProveedores' Caption = 'fEditorProveedores'
ExplicitWidth = 551
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -40,6 +41,7 @@ inherited fEditorProveedores: TfEditorProveedores
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 543
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Images = SmallImages Images = SmallImages
end end
@ -151,6 +153,14 @@ inherited fEditorProveedores: TfEditorProveedores
inherited actNuevo: TAction inherited actNuevo: TAction
ImageIndex = 22 ImageIndex = 22
end end
inherited actPrevisualizar: TAction
Enabled = True
Visible = True
end
inherited actImprimir: TAction
Enabled = True
Visible = True
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
PngImages = < PngImages = <
@ -992,7 +1002,7 @@ inherited fEditorProveedores: TfEditorProveedores
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 550
Left = 296 Left = 296
Top = 144 Top = 144
end end
@ -1303,7 +1313,7 @@ inherited fEditorProveedores: TfEditorProveedores
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 550
Left = 328 Left = 328
Top = 144 Top = 144
end end