Activación de editor de referencias para que el usuario pueda modificarlas
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@258 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
3f2d223b18
commit
edadc2068a
@ -20,6 +20,7 @@ procedure DoAppLoadModules;
|
|||||||
begin
|
begin
|
||||||
with AppFactuGES.ModuleManager do
|
with AppFactuGES.ModuleManager do
|
||||||
begin
|
begin
|
||||||
|
LoadModule('Referencias_plugin.bpl');
|
||||||
LoadModule('FormasPago_plugin.bpl');
|
LoadModule('FormasPago_plugin.bpl');
|
||||||
LoadModule('TiposIVA_plugin.bpl');
|
LoadModule('TiposIVA_plugin.bpl');
|
||||||
LoadModule('Familias_plugin.bpl');
|
LoadModule('Familias_plugin.bpl');
|
||||||
|
|||||||
@ -1,949 +0,0 @@
|
|||||||
object RptFichasEmpleado: TRptFichasEmpleado
|
|
||||||
OldCreateOrder = True
|
|
||||||
OnCreate = DataModuleCreate
|
|
||||||
Height = 405
|
|
||||||
Width = 447
|
|
||||||
object DADataCabecera: TDADataSource
|
|
||||||
DataTable = tbl_FichaEmpleado
|
|
||||||
Left = 264
|
|
||||||
Top = 72
|
|
||||||
end
|
|
||||||
object tbl_FichaEmpleado: TDACDSDataTable
|
|
||||||
RemoteUpdatesOptions = []
|
|
||||||
Fields = <>
|
|
||||||
Params = <>
|
|
||||||
MasterMappingMode = mmDataRequest
|
|
||||||
LogChanges = False
|
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
||||||
RemoteFetchEnabled = False
|
|
||||||
SchemaCall.Params = <>
|
|
||||||
DataRequestCall.Params = <>
|
|
||||||
DataUpdateCall.Params = <>
|
|
||||||
ScriptCall.Params = <>
|
|
||||||
ReadOnly = False
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
IndexDefs = <>
|
|
||||||
Left = 264
|
|
||||||
Top = 128
|
|
||||||
end
|
|
||||||
object DABINAdapter: TDABINAdapter
|
|
||||||
Left = 48
|
|
||||||
Top = 80
|
|
||||||
end
|
|
||||||
object frxRichObject1: TfrxRichObject
|
|
||||||
Left = 48
|
|
||||||
Top = 296
|
|
||||||
end
|
|
||||||
object frxBarCodeObject1: TfrxBarCodeObject
|
|
||||||
Left = 144
|
|
||||||
Top = 296
|
|
||||||
end
|
|
||||||
object frxOLEObject1: TfrxOLEObject
|
|
||||||
Left = 48
|
|
||||||
Top = 344
|
|
||||||
end
|
|
||||||
object frxCrossObject1: TfrxCrossObject
|
|
||||||
Left = 144
|
|
||||||
Top = 344
|
|
||||||
end
|
|
||||||
object frxCheckBoxObject1: TfrxCheckBoxObject
|
|
||||||
Left = 256
|
|
||||||
Top = 296
|
|
||||||
end
|
|
||||||
object frxGradientObject1: TfrxGradientObject
|
|
||||||
Left = 360
|
|
||||||
Top = 296
|
|
||||||
end
|
|
||||||
object frxChartObject1: TfrxChartObject
|
|
||||||
Left = 256
|
|
||||||
Top = 344
|
|
||||||
end
|
|
||||||
object schReport: TDASchema
|
|
||||||
ConnectionManager = dmServer.ConnectionManager
|
|
||||||
DataDictionary = DataDictionary
|
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
Params = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
Value = ''
|
|
||||||
ParamType = daptInput
|
|
||||||
end>
|
|
||||||
Statements = <
|
|
||||||
item
|
|
||||||
Connection = 'IBX'
|
|
||||||
TargetTable = 'V_EMPLEADOS'
|
|
||||||
SQL =
|
|
||||||
'select'#10' ID,'#10' ID_CATEGORIA,'#10' NIF_CIF,'#10' NOMBRE,'#10' PE' +
|
|
||||||
'RSONA_CONTACTO,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' COD' +
|
|
||||||
'IGO_POSTAL,'#10' TELEFONO_1,'#10' TELEFONO_2,'#10' MOVIL_1,'#10' MOV' +
|
|
||||||
'IL_2,'#10' FAX,'#10' EMAIL_1,'#10' EMAIL_2,'#10' PAGINA_WEB,'#10' NOT' +
|
|
||||||
'AS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_' +
|
|
||||||
'EMPRESA,'#10' REFERENCIA,'#10' FECHA_NACIMIENTO,'#10' CATEGORIA,'#10' ' +
|
|
||||||
' FECHA_ALTA_EMPRESA,'#10' FORMACION_BASE,'#10' FORMACION_COMPLE,'#10 +
|
|
||||||
' FORMACION_RECIBIDA,'#10' EXPERIENCIA'#10'from V_EMPLEADOS'#10'where I' +
|
|
||||||
'D = :ID'
|
|
||||||
StatementType = stSQL
|
|
||||||
ColumnMappings = <
|
|
||||||
item
|
|
||||||
DatasetField = 'ID'
|
|
||||||
TableField = 'ID'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_CATEGORIA'
|
|
||||||
TableField = 'ID_CATEGORIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'NIF_CIF'
|
|
||||||
TableField = 'NIF_CIF'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'NOMBRE'
|
|
||||||
TableField = 'NOMBRE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'PERSONA_CONTACTO'
|
|
||||||
TableField = 'PERSONA_CONTACTO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CALLE'
|
|
||||||
TableField = 'CALLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'POBLACION'
|
|
||||||
TableField = 'POBLACION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'PROVINCIA'
|
|
||||||
TableField = 'PROVINCIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CODIGO_POSTAL'
|
|
||||||
TableField = 'CODIGO_POSTAL'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'TELEFONO_1'
|
|
||||||
TableField = 'TELEFONO_1'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'TELEFONO_2'
|
|
||||||
TableField = 'TELEFONO_2'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'MOVIL_1'
|
|
||||||
TableField = 'MOVIL_1'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'MOVIL_2'
|
|
||||||
TableField = 'MOVIL_2'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FAX'
|
|
||||||
TableField = 'FAX'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'EMAIL_1'
|
|
||||||
TableField = 'EMAIL_1'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'EMAIL_2'
|
|
||||||
TableField = 'EMAIL_2'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'PAGINA_WEB'
|
|
||||||
TableField = 'PAGINA_WEB'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'NOTAS'
|
|
||||||
TableField = 'NOTAS'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FECHA_ALTA'
|
|
||||||
TableField = 'FECHA_ALTA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FECHA_MODIFICACION'
|
|
||||||
TableField = 'FECHA_MODIFICACION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'USUARIO'
|
|
||||||
TableField = 'USUARIO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_EMPRESA'
|
|
||||||
TableField = 'ID_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'REFERENCIA'
|
|
||||||
TableField = 'REFERENCIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FECHA_NACIMIENTO'
|
|
||||||
TableField = 'FECHA_NACIMIENTO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CATEGORIA'
|
|
||||||
TableField = 'CATEGORIA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FECHA_ALTA_EMPRESA'
|
|
||||||
TableField = 'FECHA_ALTA_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FORMACION_BASE'
|
|
||||||
TableField = 'FORMACION_BASE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FORMACION_COMPLE'
|
|
||||||
TableField = 'FORMACION_COMPLE'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'FORMACION_RECIBIDA'
|
|
||||||
TableField = 'FORMACION_RECIBIDA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'EXPERIENCIA'
|
|
||||||
TableField = 'EXPERIENCIA'
|
|
||||||
end>
|
|
||||||
end>
|
|
||||||
Name = 'InformeFichasEmpleado'
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_CATEGORIA'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'NIF_CIF'
|
|
||||||
DataType = datString
|
|
||||||
Size = 15
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'NOMBRE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'PERSONA_CONTACTO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CALLE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'POBLACION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'PROVINCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CODIGO_POSTAL'
|
|
||||||
DataType = datString
|
|
||||||
Size = 10
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'TELEFONO_1'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'TELEFONO_2'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'MOVIL_1'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'MOVIL_2'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FAX'
|
|
||||||
DataType = datString
|
|
||||||
Size = 25
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'EMAIL_1'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'EMAIL_2'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'PAGINA_WEB'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'NOTAS'
|
|
||||||
DataType = datMemo
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA_ALTA'
|
|
||||||
DataType = datDateTime
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA_MODIFICACION'
|
|
||||||
DataType = datDateTime
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'USUARIO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 20
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'REFERENCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA_NACIMIENTO'
|
|
||||||
DataType = datDateTime
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CATEGORIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FECHA_ALTA_EMPRESA'
|
|
||||||
DataType = datDateTime
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FORMACION_BASE'
|
|
||||||
DataType = datMemo
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FORMACION_COMPLE'
|
|
||||||
DataType = datMemo
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FORMACION_RECIBIDA'
|
|
||||||
DataType = datMemo
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'EXPERIENCIA'
|
|
||||||
DataType = datMemo
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
InPrimaryKey = False
|
|
||||||
Calculated = False
|
|
||||||
Lookup = False
|
|
||||||
LookupCache = False
|
|
||||||
end>
|
|
||||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
||||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
||||||
end>
|
|
||||||
Commands = <>
|
|
||||||
RelationShips = <>
|
|
||||||
UpdateRules = <>
|
|
||||||
Left = 48
|
|
||||||
Top = 16
|
|
||||||
end
|
|
||||||
object DataDictionary: TDADataDictionary
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_ID'
|
|
||||||
DataType = datAutoInc
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
Required = True
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'ID'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'ID_EMPRESA'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_ID_CONTRATO'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'ID_CONTRATO'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_FECHA_FACTURA'
|
|
||||||
DataType = datDateTime
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Fecha de las factura'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_VENCIMIENTO'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Vencimiento'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_SITUACION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Situaci'#243'n'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_BASE_IMPONIBLE'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Base imponible'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_IMPORTE_DESCUENTO'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Importe dto.'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_IMPORTE_IVA'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Importe IVA'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_IMPORTE_TOTAL'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Importe total'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_FORMA_PAGO'
|
|
||||||
DataType = datMemo
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Forma de pago'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_ID_CLIENTE'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'ID_CLIENTE'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_NIF_CIF'
|
|
||||||
DataType = datString
|
|
||||||
Size = 15
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'NIF/CIF'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_CODIGO_POSTAL'
|
|
||||||
DataType = datString
|
|
||||||
Size = 10
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'C'#243'd. postal'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_FECHA_ALTA'
|
|
||||||
DataType = datDateTime
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'FECHA_ALTA'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_FECHA_MODIFICACION'
|
|
||||||
DataType = datDateTime
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'FECHA_MODIFICACION'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_OBSERVACIONES'
|
|
||||||
DataType = datMemo
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Observaciones'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_NOMBRE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 100
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Cliente'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_CALLE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 150
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Direcci'#243'n'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_PROVINCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 30
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Provincia'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_POBLACION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 150
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Poblaci'#243'n'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_IVA'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'IVA'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_USUARIO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 100
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'USUARIO'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_REFERENCIA'
|
|
||||||
DataType = datString
|
|
||||||
Size = 20
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Referencia'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_DESCUENTO'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Dto.'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_ID'
|
|
||||||
DataType = datAutoInc
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
Required = True
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'ID'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_ID_FACTURA'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'ID_FACTURA'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
|
||||||
DataType = datString
|
|
||||||
Size = 10
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Tipo detalle'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_CONCEPTO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 2000
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Concepto'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Importe unidad'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
|
||||||
DataType = datFloat
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Importe total'
|
|
||||||
Alignment = taRightJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_VISIBLE'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = #191'Visible?'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_POSICION'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Posici'#243'n'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'FacturasCliente_Detalles_CANTIDAD'
|
|
||||||
DataType = datInteger
|
|
||||||
BlobType = dabtUnknown
|
|
||||||
DisplayWidth = 0
|
|
||||||
DisplayLabel = 'Cantidad'
|
|
||||||
Alignment = taLeftJustify
|
|
||||||
end>
|
|
||||||
Left = 46
|
|
||||||
Top = 158
|
|
||||||
end
|
|
||||||
object frxReport: TfrxReport
|
|
||||||
Version = '3.23.7'
|
|
||||||
DotMatrixReport = False
|
|
||||||
EngineOptions.DoublePass = True
|
|
||||||
IniFile = '\Software\Fast Reports'
|
|
||||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
|
||||||
PreviewOptions.Zoom = 1.000000000000000000
|
|
||||||
PrintOptions.Printer = 'Por defecto'
|
|
||||||
ReportOptions.CreateDate = 39065.872423495400000000
|
|
||||||
ReportOptions.LastChange = 39325.839120185180000000
|
|
||||||
ScriptLanguage = 'PascalScript'
|
|
||||||
ScriptText.Strings = (
|
|
||||||
'var'
|
|
||||||
' Pagina: Variant;'
|
|
||||||
''
|
|
||||||
''
|
|
||||||
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'var'
|
|
||||||
' Cadena: String;'
|
|
||||||
'begin'
|
|
||||||
'{'
|
|
||||||
' DatosEmpresa.Lines.Clear;'
|
|
||||||
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
|
|
||||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
|
|
||||||
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
|
|
||||||
|
|
||||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
|
|
||||||
'">;'
|
|
||||||
' DatosEmpresa.Lines.Add(Cadena);'
|
|
||||||
'}'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
'// NombreEmpresa.Lines.Clear;'
|
|
||||||
'// NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
' if not Engine.FinalPass then'
|
|
||||||
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
|
|
||||||
''
|
|
||||||
' if Engine.FinalPass then'
|
|
||||||
' Set('#39'Pagina'#39', (<Pagina> + 1));'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
|
|
||||||
'begin'
|
|
||||||
' Set('#39'Pagina'#39', 0);'
|
|
||||||
' Set('#39'TotalPaginas'#39', 0);'
|
|
||||||
'end;'
|
|
||||||
''
|
|
||||||
'begin'
|
|
||||||
''
|
|
||||||
'end.')
|
|
||||||
ShowProgress = False
|
|
||||||
StoreInDFM = False
|
|
||||||
OnStartReport = 'frxReportOnStartReport'
|
|
||||||
Left = 169
|
|
||||||
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
|
|
||||||
object frxDBCabecera: TfrxDBDataset
|
|
||||||
UserName = 'frxDBCabecera'
|
|
||||||
CloseDataSource = True
|
|
||||||
DataSource = DADataCabecera
|
|
||||||
Left = 264
|
|
||||||
Top = 16
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,108 +0,0 @@
|
|||||||
unit uRptFichasEmpleado_Server;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
||||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
|
||||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
|
||||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
|
||||||
uDAInterfaces;
|
|
||||||
|
|
||||||
type
|
|
||||||
TRptFichasEmpleado = class(TDataModule)
|
|
||||||
DADataCabecera: TDADataSource;
|
|
||||||
tbl_FichaEmpleado: TDACDSDataTable;
|
|
||||||
DABINAdapter: TDABINAdapter;
|
|
||||||
frxRichObject1: TfrxRichObject;
|
|
||||||
frxBarCodeObject1: TfrxBarCodeObject;
|
|
||||||
frxOLEObject1: TfrxOLEObject;
|
|
||||||
frxCrossObject1: TfrxCrossObject;
|
|
||||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
|
||||||
frxGradientObject1: TfrxGradientObject;
|
|
||||||
frxChartObject1: TfrxChartObject;
|
|
||||||
frxDBCabecera: TfrxDBDataset;
|
|
||||||
schReport: TDASchema;
|
|
||||||
DataDictionary: TDADataDictionary;
|
|
||||||
frxReport: TfrxReport;
|
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
|
||||||
private
|
|
||||||
FConnection: IDAConnection;
|
|
||||||
//Genera cada uno de los albaranes a imprimir
|
|
||||||
procedure GenerarFicha(const ID: integer); overload;
|
|
||||||
public
|
|
||||||
function GenerarFicha(const AFichaID : String): Binary; overload;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
uses
|
|
||||||
uDataModuleServer, schContactosClient_Intf;
|
|
||||||
|
|
||||||
const
|
|
||||||
rptFichaEmpleado = 'InfFichaEmpleado.fr3';
|
|
||||||
|
|
||||||
{ Dataset names for schReport }
|
|
||||||
ds_InformeFichaEmpleado = 'InformeFichasEmpleado';
|
|
||||||
|
|
||||||
|
|
||||||
{ TRptFichaEmpleado }
|
|
||||||
|
|
||||||
|
|
||||||
procedure TRptFichasEmpleado.DataModuleCreate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
|
||||||
FConnection := dmServer.DarNuevaConexion;
|
|
||||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TRptFichasEmpleado.GenerarFicha(const AFichaID: String): Binary;
|
|
||||||
var
|
|
||||||
ID_Fichas: TStringList;
|
|
||||||
i: Integer;
|
|
||||||
|
|
||||||
begin
|
|
||||||
Result := Binary.Create;
|
|
||||||
FConnection.BeginTransaction;
|
|
||||||
|
|
||||||
try
|
|
||||||
ID_Fichas := TStringList.Create;
|
|
||||||
ID_Fichas.CommaText := AFichaID;
|
|
||||||
|
|
||||||
//Vamos generando todos y cada uno de las fichas de empleado
|
|
||||||
for i := 0 to ID_Fichas.Count - 1 do
|
|
||||||
GenerarFicha(StrToInt(ID_Fichas.Strings[i]));
|
|
||||||
|
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
|
||||||
|
|
||||||
finally
|
|
||||||
FConnection.RollbackTransaction;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TRptFichasEmpleado.GenerarFicha(const ID: integer);
|
|
||||||
var
|
|
||||||
AStream: TMemoryStream;
|
|
||||||
dsMaster: IDADataset;
|
|
||||||
begin
|
|
||||||
AStream := TMemoryStream.Create;
|
|
||||||
|
|
||||||
try
|
|
||||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeFichaEmpleado, ['ID'], [ID]);
|
|
||||||
|
|
||||||
AStream.Clear;
|
|
||||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_FichaEmpleado, TRUE, '', TRUE, TRUE);
|
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptFichaEmpleado, True);
|
|
||||||
frxReport.PrepareReport(False);
|
|
||||||
|
|
||||||
finally
|
|
||||||
AStream.Free;
|
|
||||||
dsMaster := Nil;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1,130 +0,0 @@
|
|||||||
unit uRptFacturasCliente_Server;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
||||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
|
||||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
|
||||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
|
||||||
uDAInterfaces;
|
|
||||||
|
|
||||||
type
|
|
||||||
TRptFacturasCliente = class(TDataModule)
|
|
||||||
DADataCabecera: TDADataSource;
|
|
||||||
DADataDetalles: TDADataSource;
|
|
||||||
tbl_FacturaCliente: TDACDSDataTable;
|
|
||||||
tbl_DetallesFacturaCliente: TDACDSDataTable;
|
|
||||||
DABINAdapter: TDABINAdapter;
|
|
||||||
frxRichObject1: TfrxRichObject;
|
|
||||||
frxBarCodeObject1: TfrxBarCodeObject;
|
|
||||||
frxOLEObject1: TfrxOLEObject;
|
|
||||||
frxCrossObject1: TfrxCrossObject;
|
|
||||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
|
||||||
frxGradientObject1: TfrxGradientObject;
|
|
||||||
frxChartObject1: TfrxChartObject;
|
|
||||||
frxDBCabecera: TfrxDBDataset;
|
|
||||||
frxDBDetalles: TfrxDBDataset;
|
|
||||||
DADataVencimientos: TDADataSource;
|
|
||||||
tbl_Vencimientos: TDACDSDataTable;
|
|
||||||
frxDBDataset1: TfrxDBDataset;
|
|
||||||
schReport: TDASchema;
|
|
||||||
DataDictionary: TDADataDictionary;
|
|
||||||
frxReport: TfrxReport;
|
|
||||||
procedure DataModuleCreate(Sender: TObject);
|
|
||||||
private
|
|
||||||
FConnection: IDAConnection;
|
|
||||||
//Genera cada uno de los albaranes a imprimir
|
|
||||||
procedure GenerarFactura(const ID: integer); overload;
|
|
||||||
public
|
|
||||||
function GenerarFactura(const AFacturaID : String): Binary; overload;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
uses
|
|
||||||
uDataModuleServer, schFacturasClienteClient_Intf;
|
|
||||||
|
|
||||||
const
|
|
||||||
rptFacturaCliente = 'InfFacturaCliente.fr3';
|
|
||||||
|
|
||||||
{ Dataset names for schReport }
|
|
||||||
ds_InformeFacturasCliente = 'InformeFacturasCliente';
|
|
||||||
ds_InformeFacturasCliente_Detalles = 'InformeFacturasCliente_Detalles';
|
|
||||||
ds_InformeFacturasCliente_Vencimientos = 'InformeFacturasCliente_Vencimientos';
|
|
||||||
|
|
||||||
|
|
||||||
{ TRptFacturasCliente }
|
|
||||||
|
|
||||||
|
|
||||||
procedure TRptFacturasCliente.DataModuleCreate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
|
||||||
FConnection := dmServer.DarNuevaConexion;
|
|
||||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary;
|
|
||||||
var
|
|
||||||
ID_Facturas: TStringList;
|
|
||||||
i: Integer;
|
|
||||||
|
|
||||||
begin
|
|
||||||
Result := Binary.Create;
|
|
||||||
FConnection.BeginTransaction;
|
|
||||||
|
|
||||||
try
|
|
||||||
ID_Facturas := TStringList.Create;
|
|
||||||
ID_Facturas.CommaText := AFacturaID;
|
|
||||||
|
|
||||||
//Vamos generando todos y cada uno de los albaranes recibidos
|
|
||||||
for i := 0 to ID_Facturas.Count - 1 do
|
|
||||||
GenerarFactura(StrToInt(ID_Facturas.Strings[i]));
|
|
||||||
|
|
||||||
frxReport.PreviewPages.SaveToStream(Result);
|
|
||||||
|
|
||||||
finally
|
|
||||||
FConnection.RollbackTransaction;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TRptFacturasCliente.GenerarFactura(const ID: integer);
|
|
||||||
var
|
|
||||||
AStream: TMemoryStream;
|
|
||||||
dsMaster: IDADataset;
|
|
||||||
dsDetail: IDADataset;
|
|
||||||
dsVencimientos : IDADataset;
|
|
||||||
begin
|
|
||||||
AStream := TMemoryStream.Create;
|
|
||||||
|
|
||||||
try
|
|
||||||
dsMaster := schReport.NewDataset(FConnection, ds_InformeFacturasCliente, ['ID'], [ID]);
|
|
||||||
dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False);
|
|
||||||
dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False);
|
|
||||||
|
|
||||||
AStream.Clear;
|
|
||||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_FacturaCliente, TRUE, '', TRUE, TRUE);
|
|
||||||
|
|
||||||
AStream.Clear;
|
|
||||||
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_DetallesFacturaCliente, TRUE, '', TRUE, TRUE);
|
|
||||||
|
|
||||||
AStream.Clear;
|
|
||||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
|
||||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
|
||||||
|
|
||||||
|
|
||||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
|
|
||||||
frxReport.PrepareReport(False);
|
|
||||||
|
|
||||||
finally
|
|
||||||
AStream.Free;
|
|
||||||
dsMaster := Nil;
|
|
||||||
dsDetail := Nil;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,70 +0,0 @@
|
|||||||
{
|
|
||||||
===============================================================================
|
|
||||||
Copyright (©) 2007. Rodax Software.
|
|
||||||
===============================================================================
|
|
||||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
|
||||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
|
||||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
|
||||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
|
||||||
bajo el que se suministra.
|
|
||||||
-----------------------------------------------------------------------------
|
|
||||||
Web: www.rodax-software.com
|
|
||||||
===============================================================================
|
|
||||||
Fecha primera versión:
|
|
||||||
Versión actual: 1.0.0
|
|
||||||
Fecha versión actual:
|
|
||||||
===============================================================================
|
|
||||||
Modificaciones:
|
|
||||||
|
|
||||||
Fecha Comentarios
|
|
||||||
---------------------------------------------------------------------------
|
|
||||||
===============================================================================
|
|
||||||
}
|
|
||||||
|
|
||||||
unit uBizPagosCliente;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosClienteClient_Intf;
|
|
||||||
|
|
||||||
const
|
|
||||||
BIZ_CLIENT_IBIZPAGOSCLIENTE = 'Client.IBizPagosCliente';
|
|
||||||
|
|
||||||
CTE_PAGO = 'Pago';
|
|
||||||
CTE_DEVOLUCION = 'Devolución';
|
|
||||||
|
|
||||||
type
|
|
||||||
IBizPagosCliente = interface(IPagosCliente)
|
|
||||||
['{F53F105E-83B5-4EB8-94CA-EA7E470D26F7}']
|
|
||||||
end;
|
|
||||||
|
|
||||||
TBizPagosCliente = class(TPagosClienteDataTableRules, IBizPagosCliente)
|
|
||||||
protected
|
|
||||||
procedure BeforeInsert(Sender: TDADataTable); override;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
DB;
|
|
||||||
|
|
||||||
{ TBizPagosCliente }
|
|
||||||
|
|
||||||
procedure TBizPagosCliente.BeforeInsert(Sender: TDADataTable);
|
|
||||||
var
|
|
||||||
AMasterTable : TDADataTable;
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
AMasterTable := DataTable.GetMasterDataTable;
|
|
||||||
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
|
|
||||||
AMasterTable.Post;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
RegisterDataTableRules(BIZ_CLIENT_IBIZPAGOSCLIENTE, TBizPagosCliente);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
Binary file not shown.
@ -0,0 +1,540 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{7f80f8aa-6912-4714-986d-aed73035472b}</ProjectGuid>
|
||||||
|
<MainSource>Referencias_controller.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Referencias_controller.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Referencias_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Referencias_controller.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Referencias_data.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Referencias_model.dcp" />
|
||||||
|
<DCCReference Include="uReferenciasController.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorReferencias.pas" />
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=0
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
Binary file not shown.
@ -14,19 +14,17 @@ type
|
|||||||
procedure VerTodos(AReferencias: IBizReferencia);
|
procedure VerTodos(AReferencias: IBizReferencia);
|
||||||
function Guardar(AReferencia : IBizReferencia): Boolean;
|
function Guardar(AReferencia : IBizReferencia): Boolean;
|
||||||
procedure DescartarCambios(AReferencia : IBizReferencia);
|
procedure DescartarCambios(AReferencia : IBizReferencia);
|
||||||
// function Localizar(AReferencias: IBizReferencia; ADescripcion:String): Boolean;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TReferenciasController = class(TObservador, IReferenciasController)
|
TReferenciasController = class(TObservador, IReferenciasController)
|
||||||
protected
|
protected
|
||||||
FDataModule : IDataModuleReferencias;
|
FDataModule : IDataModuleReferencias;
|
||||||
|
|
||||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
// procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
|
||||||
function ValidarReferencia(AReferencia: IBizReferencia): Boolean;
|
function ValidarReferencia(AReferencia: IBizReferencia): Boolean;
|
||||||
procedure AsignarDataModule;
|
procedure AsignarDataModule;
|
||||||
procedure AsignarID(AReferencia: IBizReferencia; const IDNuevo: Integer);
|
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create; override;
|
constructor Create; override;
|
||||||
@ -36,7 +34,6 @@ type
|
|||||||
procedure DescartarCambios(AReferencia : IBizReferencia); virtual;
|
procedure DescartarCambios(AReferencia : IBizReferencia); virtual;
|
||||||
function BuscarTodos: IBizReferencia;
|
function BuscarTodos: IBizReferencia;
|
||||||
procedure VerTodos(AReferencias: IBizReferencia);
|
procedure VerTodos(AReferencias: IBizReferencia);
|
||||||
// function Localizar(AReferencias: IBizReferencia; ADescripcion:String): Boolean;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -54,12 +51,6 @@ begin
|
|||||||
FDataModule := TDataModuleReferencias.Create(Nil);
|
FDataModule := TDataModuleReferencias.Create(Nil);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TReferenciasController.AsignarID(AReferencia: IBizReferencia;
|
|
||||||
const IDNuevo: Integer);
|
|
||||||
begin
|
|
||||||
//
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TReferenciasController.BuscarTodos: IBizReferencia;
|
function TReferenciasController.BuscarTodos: IBizReferencia;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItems;
|
Result := FDataModule.GetItems;
|
||||||
@ -134,12 +125,13 @@ begin
|
|||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
{
|
||||||
procedure TReferenciasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
procedure TReferenciasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
//
|
//
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
|
|
||||||
function TReferenciasController.Guardar(AReferencia: IBizReferencia): Boolean;
|
function TReferenciasController.Guardar(AReferencia: IBizReferencia): Boolean;
|
||||||
var
|
var
|
||||||
@ -151,37 +143,12 @@ begin
|
|||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
// if AReferencia.EsNuevo then
|
|
||||||
// NuevoID := FDataModule.GetNextID(AReferencia.DataTable.LogicalName)
|
|
||||||
// else
|
|
||||||
// NuevoID := AReferencia.ID;
|
|
||||||
|
|
||||||
// AsignarID(AReferencia, NuevoID);
|
|
||||||
AReferencia.DataTable.ApplyUpdates;
|
AReferencia.DataTable.ApplyUpdates;
|
||||||
|
|
||||||
Result := True;
|
Result := True;
|
||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
{
|
|
||||||
function TReferenciasController.Localizar(AReferencias: IBizReferencia; ADescripcion: String): Boolean;
|
|
||||||
begin
|
|
||||||
Result := True;
|
|
||||||
ShowHourglassCursor;
|
|
||||||
try
|
|
||||||
with AReferencias.DataTable do
|
|
||||||
begin
|
|
||||||
DisableControls;
|
|
||||||
First;
|
|
||||||
if not Locate(fld_ReferenciasDESCRIPCION, ADescripcion, []) then
|
|
||||||
Result := False;
|
|
||||||
EnableControls;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
}
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
Binary file not shown.
540
Source/Modulos/Referencias/Data/Referencias_data.dproj
Normal file
540
Source/Modulos/Referencias/Data/Referencias_data.dproj
Normal file
@ -0,0 +1,540 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{c8118762-09b6-432f-ba26-058fa36c39d9}</ProjectGuid>
|
||||||
|
<MainSource>Referencias_data.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Referencias_data.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Referencias_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Referencias_data.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Facturas de cliente\Data\Base.dcp" />
|
||||||
|
<DCCReference Include="..\..\Facturas de cliente\Data\Referencias_model.dcp" />
|
||||||
|
<DCCReference Include="uDataModuleReferencias.pas">
|
||||||
|
<Form>DataModuleReferencias</Form>
|
||||||
|
</DCCReference>
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=0
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
Binary file not shown.
@ -3,54 +3,12 @@ inherited DataModuleReferencias: TDataModuleReferencias
|
|||||||
Height = 245
|
Height = 245
|
||||||
Width = 455
|
Width = 455
|
||||||
object RORemoteService: TRORemoteService
|
object RORemoteService: TRORemoteService
|
||||||
|
Message = dmConexion.ROMessage
|
||||||
|
Channel = dmConexion.ROChannel
|
||||||
ServiceName = 'srvReferencias'
|
ServiceName = 'srvReferencias'
|
||||||
Left = 48
|
Left = 48
|
||||||
Top = 24
|
Top = 24
|
||||||
end
|
end
|
||||||
object tbl_Referencias: TDACDSDataTable
|
|
||||||
RemoteUpdatesOptions = []
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'CODIGO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 50
|
|
||||||
DictionaryEntry = 'Referencias_CODIGO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'DESCRIPCION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DisplayLabel = 'Referencias'
|
|
||||||
DictionaryEntry = 'Referencias_DESCRIPCION'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'VALOR'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DisplayLabel = 'C'#243'digo'
|
|
||||||
DictionaryEntry = 'Referencias_VALOR'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
DictionaryEntry = 'Referencias_ID_EMPRESA'
|
|
||||||
end>
|
|
||||||
Params = <>
|
|
||||||
MasterMappingMode = mmDataRequest
|
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'Referencias'
|
|
||||||
IndexDefs = <>
|
|
||||||
Left = 256
|
|
||||||
Top = 160
|
|
||||||
end
|
|
||||||
object ds_Referencias: TDADataSource
|
|
||||||
DataSet = tbl_Referencias.Dataset
|
|
||||||
DataTable = tbl_Referencias
|
|
||||||
Left = 256
|
|
||||||
Top = 88
|
|
||||||
end
|
|
||||||
object Bin2DataStreamer: TDABin2DataStreamer
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
Left = 48
|
Left = 48
|
||||||
Top = 84
|
Top = 84
|
||||||
@ -65,4 +23,51 @@ inherited DataModuleReferencias: TDataModuleReferencias
|
|||||||
Left = 51
|
Left = 51
|
||||||
Top = 151
|
Top = 151
|
||||||
end
|
end
|
||||||
|
object tbl_Referencias: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
GeneratorName = 'GEN_REFERENCIAS_ID'
|
||||||
|
Required = True
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 50
|
||||||
|
Required = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'VALOR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Required = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Referencias
|
||||||
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
|
LogicalName = 'Referencias'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 256
|
||||||
|
Top = 120
|
||||||
|
end
|
||||||
|
object ds_Referencias: TDADataSource
|
||||||
|
DataSet = tbl_Referencias.Dataset
|
||||||
|
DataTable = tbl_Referencias
|
||||||
|
Left = 256
|
||||||
|
Top = 64
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -7,15 +7,16 @@ uses
|
|||||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||||
uRORemoteService, uROClient, uROBinMessage,
|
uRORemoteService, uROClient, uROBinMessage,
|
||||||
uDADesigntimeCall, uIDataModuleReferencias, uBizReferencias, uDataModuleBase,
|
uDADesigntimeCall, uIDataModuleReferencias, uBizReferencias, uDataModuleBase,
|
||||||
uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces;
|
uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
|
||||||
|
uDAMemDataTable;
|
||||||
|
|
||||||
type
|
type
|
||||||
TDataModuleReferencias = class(TDataModuleBase, IDataModuleReferencias)
|
TDataModuleReferencias = class(TDataModuleBase, IDataModuleReferencias)
|
||||||
RORemoteService: TRORemoteService;
|
RORemoteService: TRORemoteService;
|
||||||
tbl_Referencias: TDACDSDataTable;
|
|
||||||
ds_Referencias: TDADataSource;
|
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
rda_Referencias: TDARemoteDataAdapter;
|
rda_Referencias: TDARemoteDataAdapter;
|
||||||
|
tbl_Referencias: TDAMemDataTable;
|
||||||
|
ds_Referencias: TDADataSource;
|
||||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
public
|
public
|
||||||
function GetItems: IBizReferencia;
|
function GetItems: IBizReferencia;
|
||||||
|
|||||||
@ -25,14 +25,11 @@ package Referencias_model;
|
|||||||
{$IMPLICITBUILD OFF}
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
requires
|
requires
|
||||||
rtl,
|
|
||||||
dsnap,
|
|
||||||
dbrtl,
|
|
||||||
vcldb,
|
|
||||||
vcl,
|
vcl,
|
||||||
adortl,
|
rtl,
|
||||||
Base,
|
dbrtl,
|
||||||
DataAbstract_D10;
|
RemObjects_Core_D11,
|
||||||
|
DataAbstract_Core_D11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uIDataModuleReferencias in 'Data\uIDataModuleReferencias.pas',
|
uIDataModuleReferencias in 'Data\uIDataModuleReferencias.pas',
|
||||||
|
|||||||
544
Source/Modulos/Referencias/Model/Referencias_model.dproj
Normal file
544
Source/Modulos/Referencias/Model/Referencias_model.dproj
Normal file
@ -0,0 +1,544 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{73acd39c-b2f0-49b7-9acf-10945bbac8c1}</ProjectGuid>
|
||||||
|
<MainSource>Referencias_model.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Referencias_model.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Referencias_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Referencias_model.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="Data\uIDataModuleReferencias.pas" />
|
||||||
|
<DCCReference Include="dbrtl.dcp" />
|
||||||
|
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="rtl.dcp" />
|
||||||
|
<DCCReference Include="schReferenciasClient_Intf.pas" />
|
||||||
|
<DCCReference Include="schReferenciasServer_Intf.pas" />
|
||||||
|
<DCCReference Include="uBizReferencias.pas" />
|
||||||
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=0
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
Binary file not shown.
@ -3,70 +3,108 @@ unit schReferenciasClient_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable;
|
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_Referencias = '{F79D045C-CF5A-4960-B700-8AA603E85E40}';
|
RID_Referencias = '{1D0B0E97-1F81-4567-A917-8842D05E643C}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_Referencias = 'Referencias';
|
nme_Referencias = 'Referencias';
|
||||||
|
|
||||||
{ Referencias fields }
|
{ Referencias fields }
|
||||||
fld_ReferenciasCODIGO = 'CODIGO';
|
fld_ReferenciasID = 'ID';
|
||||||
fld_ReferenciasDESCRIPCION = 'DESCRIPCION';
|
|
||||||
fld_ReferenciasVALOR = 'VALOR';
|
|
||||||
fld_ReferenciasID_EMPRESA = 'ID_EMPRESA';
|
fld_ReferenciasID_EMPRESA = 'ID_EMPRESA';
|
||||||
|
fld_ReferenciasCODIGO = 'CODIGO';
|
||||||
|
fld_ReferenciasVALOR = 'VALOR';
|
||||||
|
fld_ReferenciasDESCRIPCION = 'DESCRIPCION';
|
||||||
|
|
||||||
{ Referencias field indexes }
|
{ Referencias field indexes }
|
||||||
idx_ReferenciasCODIGO = 0;
|
idx_ReferenciasID = 0;
|
||||||
idx_ReferenciasDESCRIPCION = 1;
|
idx_ReferenciasID_EMPRESA = 1;
|
||||||
idx_ReferenciasVALOR = 2;
|
idx_ReferenciasCODIGO = 2;
|
||||||
idx_ReferenciasID_EMPRESA = 3;
|
idx_ReferenciasVALOR = 3;
|
||||||
|
idx_ReferenciasDESCRIPCION = 4;
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IReferencias }
|
{ IReferencias }
|
||||||
IReferencias = interface(IDAStronglyTypedDataTable)
|
IReferencias = interface(IDAStronglyTypedDataTable)
|
||||||
['{E55E8869-DE03-4568-91DF-BD2A7E7EAF84}']
|
['{3DA139A5-F7C4-45BC-BD1F-F98C48FAE54F}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetCODIGOValue: String;
|
function GetIDValue: Integer;
|
||||||
procedure SetCODIGOValue(const aValue: String);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
function GetDESCRIPCIONValue: String;
|
function GetIDIsNull: Boolean;
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
procedure SetIDIsNull(const aValue: Boolean);
|
||||||
function GetVALORValue: String;
|
|
||||||
procedure SetVALORValue(const aValue: String);
|
|
||||||
function GetID_EMPRESAValue: Integer;
|
function GetID_EMPRESAValue: Integer;
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||||||
|
function GetID_EMPRESAIsNull: Boolean;
|
||||||
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||||
|
function GetCODIGOValue: String;
|
||||||
|
procedure SetCODIGOValue(const aValue: String);
|
||||||
|
function GetCODIGOIsNull: Boolean;
|
||||||
|
procedure SetCODIGOIsNull(const aValue: Boolean);
|
||||||
|
function GetVALORValue: String;
|
||||||
|
procedure SetVALORValue(const aValue: String);
|
||||||
|
function GetVALORIsNull: Boolean;
|
||||||
|
procedure SetVALORIsNull(const aValue: Boolean);
|
||||||
|
function GetDESCRIPCIONValue: String;
|
||||||
|
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||||
|
function GetDESCRIPCIONIsNull: Boolean;
|
||||||
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||||
|
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
property VALOR: String read GetVALORValue write SetVALORValue;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||||
|
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
|
||||||
|
property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
|
||||||
|
property VALOR: String read GetVALORValue write SetVALORValue;
|
||||||
|
property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull;
|
||||||
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||||
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TReferenciasDataTableRules }
|
{ TReferenciasDataTableRules }
|
||||||
TReferenciasDataTableRules = class(TIntfObjectDADataTableRules, IReferencias)
|
TReferenciasDataTableRules = class(TDADataTableRules, IReferencias)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetCODIGOValue: String; virtual;
|
function GetIDValue: Integer; virtual;
|
||||||
procedure SetCODIGOValue(const aValue: String); virtual;
|
procedure SetIDValue(const aValue: Integer); virtual;
|
||||||
function GetDESCRIPCIONValue: String; virtual;
|
function GetIDIsNull: Boolean; virtual;
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALORValue: String; virtual;
|
|
||||||
procedure SetVALORValue(const aValue: String); virtual;
|
|
||||||
function GetID_EMPRESAValue: Integer; virtual;
|
function GetID_EMPRESAValue: Integer; virtual;
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||||
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCODIGOValue: String; virtual;
|
||||||
|
procedure SetCODIGOValue(const aValue: String); virtual;
|
||||||
|
function GetCODIGOIsNull: Boolean; virtual;
|
||||||
|
procedure SetCODIGOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetVALORValue: String; virtual;
|
||||||
|
procedure SetVALORValue(const aValue: String); virtual;
|
||||||
|
function GetVALORIsNull: Boolean; virtual;
|
||||||
|
procedure SetVALORIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetDESCRIPCIONValue: String; virtual;
|
||||||
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||||
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
property VALOR: String read GetVALORValue write SetVALORValue;
|
|
||||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||||
|
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
|
||||||
|
property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
|
||||||
|
property VALOR: String read GetVALORValue write SetVALORValue;
|
||||||
|
property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull;
|
||||||
|
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||||
|
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
@ -76,7 +114,7 @@ type
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses Variants;
|
uses Variants, uROBinaryHelpers;
|
||||||
|
|
||||||
{ TReferenciasDataTableRules }
|
{ TReferenciasDataTableRules }
|
||||||
constructor TReferenciasDataTableRules.Create(aDataTable: TDADataTable);
|
constructor TReferenciasDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
@ -89,34 +127,25 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasDataTableRules.GetCODIGOValue: String;
|
function TReferenciasDataTableRules.GetIDValue: Integer;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_ReferenciasCODIGO].AsString;
|
result := DataTable.Fields[idx_ReferenciasID].AsInteger;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TReferenciasDataTableRules.SetCODIGOValue(const aValue: String);
|
procedure TReferenciasDataTableRules.SetIDValue(const aValue: Integer);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_ReferenciasCODIGO].AsString := aValue;
|
DataTable.Fields[idx_ReferenciasID].AsInteger := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasDataTableRules.GetDESCRIPCIONValue: String;
|
function TReferenciasDataTableRules.GetIDIsNull: boolean;
|
||||||
begin
|
begin
|
||||||
result := DataTable.Fields[idx_ReferenciasDESCRIPCION].AsString;
|
result := DataTable.Fields[idx_ReferenciasID].IsNull;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TReferenciasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
procedure TReferenciasDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||||
begin
|
begin
|
||||||
DataTable.Fields[idx_ReferenciasDESCRIPCION].AsString := aValue;
|
if aValue then
|
||||||
end;
|
DataTable.Fields[idx_ReferenciasID].AsVariant := Null;
|
||||||
|
|
||||||
function TReferenciasDataTableRules.GetVALORValue: String;
|
|
||||||
begin
|
|
||||||
result := DataTable.Fields[idx_ReferenciasVALOR].AsString;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TReferenciasDataTableRules.SetVALORValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
DataTable.Fields[idx_ReferenciasVALOR].AsString := aValue;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasDataTableRules.GetID_EMPRESAValue: Integer;
|
function TReferenciasDataTableRules.GetID_EMPRESAValue: Integer;
|
||||||
@ -129,6 +158,80 @@ begin
|
|||||||
DataTable.Fields[idx_ReferenciasID_EMPRESA].AsInteger := aValue;
|
DataTable.Fields[idx_ReferenciasID_EMPRESA].AsInteger := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TReferenciasDataTableRules.GetID_EMPRESAIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ReferenciasID_EMPRESA].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ReferenciasID_EMPRESA].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasDataTableRules.GetCODIGOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ReferenciasCODIGO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasDataTableRules.SetCODIGOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_ReferenciasCODIGO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasDataTableRules.GetCODIGOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ReferenciasCODIGO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasDataTableRules.SetCODIGOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ReferenciasCODIGO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasDataTableRules.GetVALORValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ReferenciasVALOR].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasDataTableRules.SetVALORValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_ReferenciasVALOR].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasDataTableRules.GetVALORIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ReferenciasVALOR].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasDataTableRules.SetVALORIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ReferenciasVALOR].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasDataTableRules.GetDESCRIPCIONValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ReferenciasDESCRIPCION].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_ReferenciasDESCRIPCION].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ReferenciasDESCRIPCION].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ReferenciasDESCRIPCION].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(RID_Referencias, TReferenciasDataTableRules);
|
RegisterDataTableRules(RID_Referencias, TReferenciasDataTableRules);
|
||||||
|
|||||||
@ -3,29 +3,31 @@ unit schReferenciasServer_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schReferenciasClient_Intf;
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schReferenciasClient_Intf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ReferenciasDelta = '{6821A7E8-268E-4BD1-977E-0225B4DBA778}';
|
RID_ReferenciasDelta = '{C83AB0CC-2862-4F98-ADB2-1B7C04371D0E}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IReferenciasDelta }
|
{ IReferenciasDelta }
|
||||||
IReferenciasDelta = interface(IReferencias)
|
IReferenciasDelta = interface(IReferencias)
|
||||||
['{6821A7E8-268E-4BD1-977E-0225B4DBA778}']
|
['{C83AB0CC-2862-4F98-ADB2-1B7C04371D0E}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldCODIGOValue : String;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldDESCRIPCIONValue : String;
|
|
||||||
function GetOldVALORValue : String;
|
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
|
function GetOldCODIGOValue : String;
|
||||||
|
function GetOldVALORValue : String;
|
||||||
|
function GetOldDESCRIPCIONValue : String;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property OldCODIGO : String read GetOldCODIGOValue;
|
property OldID : Integer read GetOldIDValue;
|
||||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
||||||
property OldVALOR : String read GetOldVALORValue;
|
|
||||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||||
|
property OldCODIGO : String read GetOldCODIGOValue;
|
||||||
|
property OldVALOR : String read GetOldVALORValue;
|
||||||
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TReferenciasBusinessProcessorRules }
|
{ TReferenciasBusinessProcessorRules }
|
||||||
@ -33,28 +35,58 @@ type
|
|||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetCODIGOValue: String; virtual;
|
function GetIDValue: Integer; virtual;
|
||||||
function GetOldCODIGOValue: String; virtual;
|
function GetIDIsNull: Boolean; virtual;
|
||||||
procedure SetCODIGOValue(const aValue: String); virtual;
|
function GetOldIDValue: Integer; virtual;
|
||||||
function GetDESCRIPCIONValue: String; virtual;
|
function GetOldIDIsNull: Boolean; virtual;
|
||||||
function GetOldDESCRIPCIONValue: String; virtual;
|
procedure SetIDValue(const aValue: Integer); virtual;
|
||||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||||
function GetVALORValue: String; virtual;
|
|
||||||
function GetOldVALORValue: String; virtual;
|
|
||||||
procedure SetVALORValue(const aValue: String); virtual;
|
|
||||||
function GetID_EMPRESAValue: Integer; virtual;
|
function GetID_EMPRESAValue: Integer; virtual;
|
||||||
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||||
function GetOldID_EMPRESAValue: Integer; virtual;
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
||||||
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
||||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||||
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCODIGOValue: String; virtual;
|
||||||
|
function GetCODIGOIsNull: Boolean; virtual;
|
||||||
|
function GetOldCODIGOValue: String; virtual;
|
||||||
|
function GetOldCODIGOIsNull: Boolean; virtual;
|
||||||
|
procedure SetCODIGOValue(const aValue: String); virtual;
|
||||||
|
procedure SetCODIGOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetVALORValue: String; virtual;
|
||||||
|
function GetVALORIsNull: Boolean; virtual;
|
||||||
|
function GetOldVALORValue: String; virtual;
|
||||||
|
function GetOldVALORIsNull: Boolean; virtual;
|
||||||
|
procedure SetVALORValue(const aValue: String); virtual;
|
||||||
|
procedure SetVALORIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetDESCRIPCIONValue: String; virtual;
|
||||||
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||||
|
function GetOldDESCRIPCIONValue: String; virtual;
|
||||||
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||||
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property CODIGO : String read GetCODIGOValue write SetCODIGOValue;
|
property ID : Integer read GetIDValue write SetIDValue;
|
||||||
property OldCODIGO : String read GetOldCODIGOValue;
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
property OldID : Integer read GetOldIDValue;
|
||||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||||
property VALOR : String read GetVALORValue write SetVALORValue;
|
|
||||||
property OldVALOR : String read GetOldVALORValue;
|
|
||||||
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||||
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
||||||
|
property CODIGO : String read GetCODIGOValue write SetCODIGOValue;
|
||||||
|
property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
|
||||||
|
property OldCODIGO : String read GetOldCODIGOValue;
|
||||||
|
property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull;
|
||||||
|
property VALOR : String read GetVALORValue write SetVALORValue;
|
||||||
|
property VALORIsNull : Boolean read GetVALORIsNull write SetVALORIsNull;
|
||||||
|
property OldVALOR : String read GetOldVALORValue;
|
||||||
|
property OldVALORIsNull : Boolean read GetOldVALORIsNull;
|
||||||
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||||
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||||
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||||
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||||
@ -65,7 +97,7 @@ type
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Variants, uROBinaryHelpers;
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||||
|
|
||||||
{ TReferenciasBusinessProcessorRules }
|
{ TReferenciasBusinessProcessorRules }
|
||||||
constructor TReferenciasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
constructor TReferenciasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||||
@ -78,49 +110,35 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetCODIGOValue: String;
|
function TReferenciasBusinessProcessorRules.GetIDValue: Integer;
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO];
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetOldCODIGOValue: String;
|
function TReferenciasBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasCODIGO];
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TReferenciasBusinessProcessorRules.SetCODIGOValue(const aValue: String);
|
function TReferenciasBusinessProcessorRules.GetOldIDValue: Integer;
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO] := aValue;
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
function TReferenciasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasDESCRIPCION];
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
procedure TReferenciasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasDESCRIPCION];
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TReferenciasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
procedure TReferenciasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasDESCRIPCION] := aValue;
|
if aValue then
|
||||||
end;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID] := Null;
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetVALORValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasVALOR];
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetOldVALORValue: String;
|
|
||||||
begin
|
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasVALOR];
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TReferenciasBusinessProcessorRules.SetVALORValue(const aValue: String);
|
|
||||||
begin
|
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasVALOR] := aValue;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
function TReferenciasBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
||||||
@ -128,16 +146,125 @@ begin
|
|||||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA];
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA]);
|
||||||
|
end;
|
||||||
|
|
||||||
function TReferenciasBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
function TReferenciasBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
||||||
begin
|
begin
|
||||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID_EMPRESA];
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID_EMPRESA];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID_EMPRESA]);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TReferenciasBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
procedure TReferenciasBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA] := aValue;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA] := aValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetCODIGOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetCODIGOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetOldCODIGOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasCODIGO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetOldCODIGOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasCODIGO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasBusinessProcessorRules.SetCODIGOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetVALORValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasVALOR];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetVALORIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasVALOR]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetOldVALORValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasVALOR];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetOldVALORIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasVALOR]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasBusinessProcessorRules.SetVALORValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasVALOR] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasBusinessProcessorRules.SetVALORIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasVALOR] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasDESCRIPCION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasDESCRIPCION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasDESCRIPCION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TReferenciasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasDESCRIPCION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasDESCRIPCION] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TReferenciasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasDESCRIPCION] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterBusinessProcessorRules(RID_ReferenciasDelta, TReferenciasBusinessProcessorRules);
|
RegisterBusinessProcessorRules(RID_ReferenciasDelta, TReferenciasBusinessProcessorRules);
|
||||||
|
|||||||
@ -22,19 +22,12 @@ package Referencias_plugin;
|
|||||||
{$WRITEABLECONST OFF}
|
{$WRITEABLECONST OFF}
|
||||||
{$MINENUMSIZE 1}
|
{$MINENUMSIZE 1}
|
||||||
{$IMAGEBASE $400000}
|
{$IMAGEBASE $400000}
|
||||||
{$IMPLICITBUILD OFF}
|
{$IMPLICITBUILD ON}
|
||||||
|
|
||||||
requires
|
requires
|
||||||
rtl,
|
Referencias_view,
|
||||||
vcl,
|
|
||||||
PngComponentsD10,
|
|
||||||
PNG_D10,
|
|
||||||
vclactnband,
|
|
||||||
vclx,
|
|
||||||
PluginSDK_D10R,
|
|
||||||
Referencias_controller,
|
Referencias_controller,
|
||||||
Referencias_model,
|
ApplicationBase;
|
||||||
Referencias_view;
|
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uPluginReferencias in 'uPluginReferencias.pas' {PluginReferencias};
|
uPluginReferencias in 'uPluginReferencias.pas' {PluginReferencias};
|
||||||
|
|||||||
541
Source/Modulos/Referencias/Plugin/Referencias_plugin.dproj
Normal file
541
Source/Modulos/Referencias/Plugin/Referencias_plugin.dproj
Normal file
@ -0,0 +1,541 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{82e36812-58c4-491b-b463-6b951e95da51}</ProjectGuid>
|
||||||
|
<MainSource>Referencias_plugin.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Referencias_plugin.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Referencias_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Referencias_plugin.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Referencias_controller.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Referencias_view.dcp" />
|
||||||
|
<DCCReference Include="uPluginReferencias.pas">
|
||||||
|
<Form>PluginReferencias</Form>
|
||||||
|
</DCCReference>
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=0
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
Binary file not shown.
124
Source/Modulos/Referencias/Referencias_Group.groupproj
Normal file
124
Source/Modulos/Referencias/Referencias_Group.groupproj
Normal file
@ -0,0 +1,124 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{6fa7160e-0b4c-4f7c-9c55-08938cd225c4}</ProjectGuid>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup />
|
||||||
|
<ItemGroup>
|
||||||
|
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||||
|
<Projects Include="..\..\Base\Base.dproj" />
|
||||||
|
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||||
|
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||||
|
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||||
|
<Projects Include="Controller\Referencias_controller.dproj" />
|
||||||
|
<Projects Include="Data\Referencias_data.dproj" />
|
||||||
|
<Projects Include="Model\Referencias_model.dproj" />
|
||||||
|
<Projects Include="Plugin\Referencias_plugin.dproj" />
|
||||||
|
<Projects Include="Views\Referencias_view.dproj" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType />
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Target Name="Base">
|
||||||
|
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Base:Clean">
|
||||||
|
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Base:Make">
|
||||||
|
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GUIBase">
|
||||||
|
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GUIBase:Clean">
|
||||||
|
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="GUIBase:Make">
|
||||||
|
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="ApplicationBase">
|
||||||
|
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="ApplicationBase:Clean">
|
||||||
|
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="ApplicationBase:Make">
|
||||||
|
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_model">
|
||||||
|
<MSBuild Projects="Model\Referencias_model.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_model:Clean">
|
||||||
|
<MSBuild Projects="Model\Referencias_model.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_model:Make">
|
||||||
|
<MSBuild Projects="Model\Referencias_model.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_data">
|
||||||
|
<MSBuild Projects="Data\Referencias_data.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_data:Clean">
|
||||||
|
<MSBuild Projects="Data\Referencias_data.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_data:Make">
|
||||||
|
<MSBuild Projects="Data\Referencias_data.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_controller">
|
||||||
|
<MSBuild Projects="Controller\Referencias_controller.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_controller:Clean">
|
||||||
|
<MSBuild Projects="Controller\Referencias_controller.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_controller:Make">
|
||||||
|
<MSBuild Projects="Controller\Referencias_controller.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_view">
|
||||||
|
<MSBuild Projects="Views\Referencias_view.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_view:Clean">
|
||||||
|
<MSBuild Projects="Views\Referencias_view.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_view:Make">
|
||||||
|
<MSBuild Projects="Views\Referencias_view.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_plugin">
|
||||||
|
<MSBuild Projects="Plugin\Referencias_plugin.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_plugin:Clean">
|
||||||
|
<MSBuild Projects="Plugin\Referencias_plugin.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Referencias_plugin:Make">
|
||||||
|
<MSBuild Projects="Plugin\Referencias_plugin.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES:Clean">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES:Make">
|
||||||
|
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES_Server">
|
||||||
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES_Server:Clean">
|
||||||
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="FactuGES_Server:Make">
|
||||||
|
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Build">
|
||||||
|
<CallTarget Targets="Base;GUIBase;ApplicationBase;Referencias_model;Referencias_data;Referencias_controller;Referencias_view;Referencias_plugin;FactuGES;FactuGES_Server" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Clean">
|
||||||
|
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Referencias_model:Clean;Referencias_data:Clean;Referencias_controller:Clean;Referencias_view:Clean;Referencias_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="Make">
|
||||||
|
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Referencias_model:Make;Referencias_data:Make;Referencias_controller:Make;Referencias_view:Make;Referencias_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||||
|
</Target>
|
||||||
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
|
</Project>
|
||||||
@ -1,70 +1,34 @@
|
|||||||
object srvReferencias: TsrvReferencias
|
object srvReferencias: TsrvReferencias
|
||||||
OldCreateOrder = True
|
OldCreateOrder = True
|
||||||
OnCreate = DARemoteServiceCreate
|
OnCreate = DataAbstractServiceCreate
|
||||||
RequiresSession = True
|
|
||||||
SessionManager = dmServer.SessionManager
|
SessionManager = dmServer.SessionManager
|
||||||
AcquireConnection = True
|
|
||||||
ServiceSchema = schReferencias
|
ServiceSchema = schReferencias
|
||||||
ServiceAdapter = DABINAdapter
|
ServiceDataStreamer = Bin2DataStreamer
|
||||||
OnAfterProcessTransactionAction = pptaNone
|
|
||||||
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
|
|
||||||
ExportedDataTables = <>
|
ExportedDataTables = <>
|
||||||
CacheElements = <>
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||||
Options = [rsoProcessDeltasWithoutUpdateRules]
|
Height = 300
|
||||||
Height = 202
|
Width = 300
|
||||||
Width = 392
|
|
||||||
object Diagrams: TDADiagrams
|
|
||||||
Left = 150
|
|
||||||
Top = 90
|
|
||||||
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
|
||||||
end
|
|
||||||
object DataDictionary: TDADataDictionary
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'Referencias_CODIGO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 50
|
|
||||||
DisplayLabel = 'CODIGO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Referencias_DESCRIPCION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DisplayLabel = 'Referencias'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Referencias_VALOR'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DisplayLabel = 'C'#243'digo'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'Referencias_ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
DisplayLabel = 'ID_EMPRESA'
|
|
||||||
end>
|
|
||||||
Left = 150
|
|
||||||
Top = 24
|
|
||||||
end
|
|
||||||
object schReferencias: TDASchema
|
object schReferencias: TDASchema
|
||||||
ConnectionManager = dmServer.ConnectionManager
|
ConnectionManager = dmServer.ConnectionManager
|
||||||
DataDictionary = DataDictionary
|
|
||||||
Diagrams = Diagrams
|
|
||||||
Datasets = <
|
Datasets = <
|
||||||
item
|
item
|
||||||
Params = <>
|
Params = <>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
|
ConnectionType = 'Interbase'
|
||||||
|
Default = True
|
||||||
TargetTable = 'REFERENCIAS'
|
TargetTable = 'REFERENCIAS'
|
||||||
SQL =
|
Name = 'IBX'
|
||||||
'SELECT '#10' CODIGO, DESCRIPCION, VALOR, ID_EMPRESA'#10' FROM'#10' RE' +
|
StatementType = stAutoSQL
|
||||||
'FERENCIAS'
|
|
||||||
StatementType = stSQL
|
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
DatasetField = 'DESCRIPCION'
|
DatasetField = 'ID'
|
||||||
TableField = 'DESCRIPCION'
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'CODIGO'
|
DatasetField = 'CODIGO'
|
||||||
@ -75,90 +39,78 @@ object srvReferencias: TsrvReferencias
|
|||||||
TableField = 'VALOR'
|
TableField = 'VALOR'
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
DatasetField = 'ID_EMPRESA'
|
DatasetField = 'DESCRIPCION'
|
||||||
TableField = 'ID_EMPRESA'
|
TableField = 'DESCRIPCION'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'Referencias'
|
Name = 'Referencias'
|
||||||
Fields = <
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
GeneratorName = 'GEN_REFERENCIAS_ID'
|
||||||
|
Required = True
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'CODIGO'
|
Name = 'CODIGO'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 50
|
Size = 50
|
||||||
DictionaryEntry = 'Referencias_CODIGO'
|
Required = True
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'DESCRIPCION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
DictionaryEntry = 'Referencias_DESCRIPCION'
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'VALOR'
|
Name = 'VALOR'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
DictionaryEntry = 'Referencias_VALOR'
|
Required = True
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_EMPRESA'
|
Name = 'DESCRIPCION'
|
||||||
DataType = datInteger
|
DataType = datString
|
||||||
DictionaryEntry = 'Referencias_ID_EMPRESA'
|
Size = 255
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
JoinDataTables = <>
|
JoinDataTables = <>
|
||||||
UnionDataTables = <>
|
UnionDataTables = <>
|
||||||
Commands = <
|
Commands = <
|
||||||
item
|
item
|
||||||
|
IsPublic = False
|
||||||
Params = <
|
Params = <
|
||||||
item
|
item
|
||||||
Name = 'VALOR'
|
Name = 'VALOR'
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'OLD_CODIGO'
|
Name = 'CODIGO'
|
||||||
DataType = datString
|
|
||||||
Size = 50
|
|
||||||
Value = ''
|
Value = ''
|
||||||
ParamType = daptInput
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'OLD_ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
Value = ''
|
|
||||||
ParamType = daptInput
|
|
||||||
end>
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
|
ConnectionType = 'Interbase'
|
||||||
|
Default = True
|
||||||
TargetTable = 'REFERENCIAS'
|
TargetTable = 'REFERENCIAS'
|
||||||
|
Name = 'IBX'
|
||||||
SQL =
|
SQL =
|
||||||
'UPDATE REFERENCIAS'#10' SET '#10' VALOR = :VALOR'#10' WHERE'#10' (CODIGO' +
|
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
|
||||||
' = :OLD_CODIGO)'#10' AND (ID_EMPRESA = :OLD_ID_EMPRESA)'
|
#10' AND {Where}'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
Name = 'Update_Referencias'
|
Name = 'ModificarValorReferencia'
|
||||||
end>
|
end>
|
||||||
RelationShips = <>
|
RelationShips = <>
|
||||||
UpdateRules = <>
|
UpdateRules = <>
|
||||||
Version = 0
|
Version = 0
|
||||||
Left = 48
|
Left = 40
|
||||||
Top = 24
|
Top = 24
|
||||||
end
|
end
|
||||||
object DABINAdapter: TDABINAdapter
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
Left = 48
|
Left = 40
|
||||||
Top = 90
|
Top = 88
|
||||||
end
|
|
||||||
object bpReferencias: TDABusinessProcessor
|
|
||||||
Schema = schReferencias
|
|
||||||
UpdateCommandName = 'Update_Referencias'
|
|
||||||
ReferencedDataset = 'Referencias'
|
|
||||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
|
||||||
UpdateMode = updWhereKeyOnly
|
|
||||||
Left = 248
|
|
||||||
Top = 24
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -7,59 +7,161 @@ unit srvReferencias_Impl;
|
|||||||
{ This is where you are supposed to code the implementation of your objects. }
|
{ This is where you are supposed to code the implementation of your objects. }
|
||||||
{----------------------------------------------------------------------------}
|
{----------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
{$I Remobjects.inc}
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
{vcl:} Classes, SysUtils,
|
{vcl:} Classes, SysUtils,
|
||||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||||
{Ancestor Implementation:} DARemoteService_Impl,
|
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||||
{Used RODLs:} DataAbstract_Intf,
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses, uDAInterfaces;
|
||||||
uDAScriptingProvider, uDAClasses,
|
|
||||||
FactuGES_Intf, uDAInterfaces, uDABinAdapter;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
{ TsrvReferencias }
|
{ TsrvReferencias }
|
||||||
TsrvReferencias = class(TDARemoteService, IsrvReferencias)
|
TsrvReferencias = class(TDataAbstractService, IsrvReferencias)
|
||||||
Diagrams: TDADiagrams;
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
DABINAdapter: TDABINAdapter;
|
|
||||||
bpReferencias: TDABusinessProcessor;
|
|
||||||
schReferencias: TDASchema;
|
schReferencias: TDASchema;
|
||||||
DataDictionary: TDADataDictionary;
|
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||||
procedure DARemoteServiceCreate(Sender: TObject);
|
var aConnectionName: string);
|
||||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
procedure DataAbstractServiceCreate(Sender: TObject);
|
||||||
var ConnectionName: string);
|
private
|
||||||
protected
|
public
|
||||||
{ IsrvReferencias methods }
|
{ IsrvReferencias methods }
|
||||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
function DarNuevaReferencia(const NombreReferencia: String;
|
||||||
|
const EmpresaID: Integer = -1): String;
|
||||||
|
function IncrementarValorReferencia(const NombreReferencia: String;
|
||||||
|
const Valor: String; const EmpresaID: Integer = -1): Boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
uses
|
uses
|
||||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils;
|
{Generated:} FactuGES_Invk, Variants,
|
||||||
|
uDataModuleServer, uROClasses, uReferenciasUtils;
|
||||||
|
|
||||||
procedure Create_srvReferencias(out anInstance : IUnknown);
|
procedure Create_srvReferencias(out anInstance : IUnknown);
|
||||||
begin
|
begin
|
||||||
anInstance := TsrvReferencias.Create(NIL);
|
anInstance := TsrvReferencias.Create(nil);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ srvReferencias }
|
{ srvReferencias }
|
||||||
procedure TsrvReferencias.DARemoteServiceBeforeAcquireConnection(
|
function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String;
|
||||||
Sender: TDARemoteService; var ConnectionName: string);
|
const EmpresaID: Integer = -1): String;
|
||||||
|
var
|
||||||
|
ASchema : TDASchema;
|
||||||
|
AConn : IDAConnection;
|
||||||
|
dsData: IDADataset;
|
||||||
|
|
||||||
|
AWhere : TDAWhereExpression;
|
||||||
|
AWhereExpr1: TDAWhereExpression;
|
||||||
|
AWhereExpr2: TDAWhereExpression;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
|
||||||
|
{ Construir la expresión del Where a partir de los parámetros
|
||||||
|
que se reciban.
|
||||||
|
}
|
||||||
|
with TDAWhereBuilder.Create do
|
||||||
|
try
|
||||||
|
AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'),
|
||||||
|
NewConstant(NombreReferencia, datString),
|
||||||
|
dboEqual);
|
||||||
|
if (EmpresaID <> -1) then
|
||||||
|
begin
|
||||||
|
AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'),
|
||||||
|
NewConstant(EmpresaID, datInteger),
|
||||||
|
dboEqual);
|
||||||
|
|
||||||
|
AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
AWhere := AWhereExpr1;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
ASchema := schReferencias;
|
||||||
|
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
||||||
|
|
||||||
|
try
|
||||||
|
try
|
||||||
|
dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True);
|
||||||
|
dsData.DynamicWhere.Expression := AWhere;
|
||||||
|
except
|
||||||
|
RaiseError('No existe la tabla REFERENCIAS');
|
||||||
|
end;
|
||||||
|
|
||||||
|
dsData.Active := True;
|
||||||
|
|
||||||
|
if dsData.IsEmpty then
|
||||||
|
RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.');
|
||||||
|
|
||||||
|
Result := dsData.FieldByName('VALOR').AsString;
|
||||||
|
finally
|
||||||
|
dsData := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsrvReferencias.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
|
||||||
begin
|
begin
|
||||||
ConnectionName := dmServer.ConnectionName;
|
ConnectionName := dmServer.ConnectionName;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TsrvReferencias.DARemoteServiceCreate(Sender: TObject);
|
procedure TsrvReferencias.DataAbstractServiceCreate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
SessionManager := dmServer.SessionManager;
|
SessionManager := dmServer.SessionManager;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvReferencias.GetNextAutoInc(const GeneratorName: String): Integer;
|
function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String;
|
||||||
|
const Valor: String; const EmpresaID: Integer = -1): Boolean;
|
||||||
|
var
|
||||||
|
ASchema : TDASchema;
|
||||||
|
AConn : IDAConnection;
|
||||||
|
dsCommand: IDASQLCommand;
|
||||||
|
|
||||||
|
AWhere : TDAWhereExpression;
|
||||||
begin
|
begin
|
||||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
Result := False;
|
||||||
|
AWhere := NIL;
|
||||||
|
{ Construir la expresión del Where a partir de los parámetros
|
||||||
|
que se reciban.
|
||||||
|
}
|
||||||
|
if (EmpresaID <> -1) then
|
||||||
|
begin
|
||||||
|
with TDAWhereBuilder.Create do
|
||||||
|
try
|
||||||
|
AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual);
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
ASchema := schReferencias;
|
||||||
|
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
||||||
|
|
||||||
|
try
|
||||||
|
try
|
||||||
|
dsCommand := ASchema.NewCommand(AConn, 'ModificarValorReferencia');
|
||||||
|
with dsCommand do
|
||||||
|
begin
|
||||||
|
ParamByName('CODIGO').AsString := NombreReferencia;
|
||||||
|
ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor);
|
||||||
|
if EmpresaID <> -1 then
|
||||||
|
dsCommand.DynamicWhere.Expression := AWhere;
|
||||||
|
end;
|
||||||
|
dsCommand.Execute;
|
||||||
|
AConn.CommitTransaction;
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
RaiseError('Error al asignar la nueva referencia ' + Valor + ' en tablas');
|
||||||
|
AConn.RollbackTransaction;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
dsCommand := NIL;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
|
|||||||
@ -22,17 +22,11 @@ package Referencias_view;
|
|||||||
{$WRITEABLECONST OFF}
|
{$WRITEABLECONST OFF}
|
||||||
{$MINENUMSIZE 1}
|
{$MINENUMSIZE 1}
|
||||||
{$IMAGEBASE $400000}
|
{$IMAGEBASE $400000}
|
||||||
{$IMPLICITBUILD OFF}
|
{$IMPLICITBUILD ON}
|
||||||
|
|
||||||
requires
|
requires
|
||||||
rtl,
|
GUIBase,
|
||||||
vcl,
|
Referencias_model,
|
||||||
dbrtl,
|
|
||||||
vcldb,
|
|
||||||
dsnap,
|
|
||||||
adortl,
|
|
||||||
DataAbstract_D10,
|
|
||||||
JvCmpD10R,
|
|
||||||
Referencias_controller;
|
Referencias_controller;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
|
|||||||
543
Source/Modulos/Referencias/Views/Referencias_view.dproj
Normal file
543
Source/Modulos/Referencias/Views/Referencias_view.dproj
Normal file
@ -0,0 +1,543 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</ProjectGuid>
|
||||||
|
<MainSource>Referencias_view.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Referencias_view.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Referencias_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Referencias_view.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Referencias_controller.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Referencias_model.dcp" />
|
||||||
|
<DCCReference Include="uEditorReferencias.pas">
|
||||||
|
<Form>fEditorReferencias</Form>
|
||||||
|
<DesignClass>TfEditorFormasPago</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uReferenciasViewRegister.pas" />
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6011
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=0
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
Binary file not shown.
@ -1,112 +0,0 @@
|
|||||||
object srvReferencias: TsrvReferencias
|
|
||||||
OldCreateOrder = True
|
|
||||||
SessionManager = dmServer.SessionManager
|
|
||||||
Height = 300
|
|
||||||
Width = 300
|
|
||||||
object schReferencias: TDASchema
|
|
||||||
ConnectionManager = dmServer.ConnectionManager
|
|
||||||
Datasets = <
|
|
||||||
item
|
|
||||||
IsPublic = False
|
|
||||||
Params = <>
|
|
||||||
Statements = <
|
|
||||||
item
|
|
||||||
Connection = 'IBX'
|
|
||||||
ConnectionType = 'Interbase'
|
|
||||||
Default = True
|
|
||||||
TargetTable = 'REFERENCIAS'
|
|
||||||
Name = 'IBX'
|
|
||||||
StatementType = stAutoSQL
|
|
||||||
ColumnMappings = <
|
|
||||||
item
|
|
||||||
DatasetField = 'ID'
|
|
||||||
TableField = 'ID'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'ID_EMPRESA'
|
|
||||||
TableField = 'ID_EMPRESA'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'CODIGO'
|
|
||||||
TableField = 'CODIGO'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'VALOR'
|
|
||||||
TableField = 'VALOR'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
DatasetField = 'DESCRIPCION'
|
|
||||||
TableField = 'DESCRIPCION'
|
|
||||||
end>
|
|
||||||
end>
|
|
||||||
Name = 'Referencias'
|
|
||||||
Fields = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = datInteger
|
|
||||||
GeneratorName = 'GEN_REFERENCIAS_ID'
|
|
||||||
Required = True
|
|
||||||
InPrimaryKey = True
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID_EMPRESA'
|
|
||||||
DataType = datInteger
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CODIGO'
|
|
||||||
DataType = datString
|
|
||||||
Size = 50
|
|
||||||
Required = True
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'VALOR'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
Required = True
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'DESCRIPCION'
|
|
||||||
DataType = datString
|
|
||||||
Size = 255
|
|
||||||
end>
|
|
||||||
end>
|
|
||||||
JoinDataTables = <>
|
|
||||||
UnionDataTables = <>
|
|
||||||
Commands = <
|
|
||||||
item
|
|
||||||
IsPublic = False
|
|
||||||
Params = <
|
|
||||||
item
|
|
||||||
Name = 'VALOR'
|
|
||||||
Value = ''
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'CODIGO'
|
|
||||||
Value = ''
|
|
||||||
end>
|
|
||||||
Statements = <
|
|
||||||
item
|
|
||||||
Connection = 'IBX'
|
|
||||||
ConnectionType = 'Interbase'
|
|
||||||
Default = True
|
|
||||||
TargetTable = 'REFERENCIAS'
|
|
||||||
Name = 'IBX'
|
|
||||||
SQL =
|
|
||||||
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
|
|
||||||
#10' AND {Where}'#10
|
|
||||||
StatementType = stSQL
|
|
||||||
ColumnMappings = <>
|
|
||||||
end>
|
|
||||||
Name = 'ModificarValorReferencia'
|
|
||||||
end>
|
|
||||||
RelationShips = <>
|
|
||||||
UpdateRules = <>
|
|
||||||
Version = 0
|
|
||||||
Left = 40
|
|
||||||
Top = 24
|
|
||||||
end
|
|
||||||
object Bin2DataStreamer: TDABin2DataStreamer
|
|
||||||
Left = 40
|
|
||||||
Top = 88
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,159 +0,0 @@
|
|||||||
unit srvReferencias_Impl;
|
|
||||||
|
|
||||||
{----------------------------------------------------------------------------}
|
|
||||||
{ This unit was automatically generated by the RemObjects SDK after reading }
|
|
||||||
{ the RODL file associated with this project . }
|
|
||||||
{ }
|
|
||||||
{ This is where you are supposed to code the implementation of your objects. }
|
|
||||||
{----------------------------------------------------------------------------}
|
|
||||||
|
|
||||||
{$I Remobjects.inc}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
{vcl:} Classes, SysUtils,
|
|
||||||
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
|
||||||
{Required:} uRORemoteDataModule,
|
|
||||||
{Used RODLs:} DataAbstract4_Intf,
|
|
||||||
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
|
|
||||||
|
|
||||||
type
|
|
||||||
{ TsrvReferencias }
|
|
||||||
TsrvReferencias = class(TRORemoteDataModule, IsrvReferencias)
|
|
||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
|
||||||
schReferencias: TDASchema;
|
|
||||||
private
|
|
||||||
public
|
|
||||||
{ IsrvReferencias methods }
|
|
||||||
function DarNuevaReferencia(const NombreReferencia: String;
|
|
||||||
const EmpresaID: Integer = -1): String;
|
|
||||||
function IncrementarValorReferencia(const NombreReferencia: String;
|
|
||||||
const Valor: String; const EmpresaID: Integer = -1): Boolean;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
uses
|
|
||||||
{Generated:} FactuGES_Invk, Variants,
|
|
||||||
uDataModuleServer, uDAInterfaces, uROClasses, uReferenciasUtils;
|
|
||||||
|
|
||||||
procedure Create_srvReferencias(out anInstance : IUnknown);
|
|
||||||
begin
|
|
||||||
anInstance := TsrvReferencias.Create(nil);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ srvReferencias }
|
|
||||||
function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String;
|
|
||||||
const EmpresaID: Integer = -1): String;
|
|
||||||
var
|
|
||||||
ASchema : TDASchema;
|
|
||||||
AConn : IDAConnection;
|
|
||||||
dsData: IDADataset;
|
|
||||||
|
|
||||||
AWhere : TDAWhereExpression;
|
|
||||||
AWhereExpr1: TDAWhereExpression;
|
|
||||||
AWhereExpr2: TDAWhereExpression;
|
|
||||||
begin
|
|
||||||
Result := '';
|
|
||||||
|
|
||||||
{ Construir la expresión del Where a partir de los parámetros
|
|
||||||
que se reciban.
|
|
||||||
}
|
|
||||||
with TDAWhereBuilder.Create do
|
|
||||||
try
|
|
||||||
AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'),
|
|
||||||
NewConstant(NombreReferencia, datString),
|
|
||||||
dboEqual);
|
|
||||||
if (EmpresaID <> -1) then
|
|
||||||
begin
|
|
||||||
AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'),
|
|
||||||
NewConstant(EmpresaID, datInteger),
|
|
||||||
dboEqual);
|
|
||||||
|
|
||||||
AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
AWhere := AWhereExpr1;
|
|
||||||
finally
|
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
ASchema := schReferencias;
|
|
||||||
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
|
||||||
|
|
||||||
try
|
|
||||||
try
|
|
||||||
dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True);
|
|
||||||
dsData.DynamicWhere.Expression := AWhere;
|
|
||||||
except
|
|
||||||
RaiseError('No existe la tabla REFERENCIAS');
|
|
||||||
end;
|
|
||||||
|
|
||||||
dsData.Active := True;
|
|
||||||
|
|
||||||
if dsData.IsEmpty then
|
|
||||||
RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.');
|
|
||||||
|
|
||||||
Result := dsData.FieldByName('VALOR').AsString;
|
|
||||||
finally
|
|
||||||
dsData := NIL;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String;
|
|
||||||
const Valor: String; const EmpresaID: Integer = -1): Boolean;
|
|
||||||
var
|
|
||||||
ASchema : TDASchema;
|
|
||||||
AConn : IDAConnection;
|
|
||||||
dsCommand: IDASQLCommand;
|
|
||||||
|
|
||||||
AWhere : TDAWhereExpression;
|
|
||||||
begin
|
|
||||||
Result := False;
|
|
||||||
AWhere := NIL;
|
|
||||||
{ Construir la expresión del Where a partir de los parámetros
|
|
||||||
que se reciban.
|
|
||||||
}
|
|
||||||
if (EmpresaID <> -1) then
|
|
||||||
begin
|
|
||||||
with TDAWhereBuilder.Create do
|
|
||||||
try
|
|
||||||
AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual);
|
|
||||||
finally
|
|
||||||
Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
ASchema := schReferencias;
|
|
||||||
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
|
||||||
|
|
||||||
try
|
|
||||||
try
|
|
||||||
dsCommand := ASchema.NewCommand(AConn, 'ModificarValorReferencia');
|
|
||||||
with dsCommand do
|
|
||||||
begin
|
|
||||||
ParamByName('CODIGO').AsString := NombreReferencia;
|
|
||||||
ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor);
|
|
||||||
if EmpresaID <> -1 then
|
|
||||||
dsCommand.DynamicWhere.Expression := AWhere;
|
|
||||||
end;
|
|
||||||
dsCommand.Execute;
|
|
||||||
AConn.CommitTransaction;
|
|
||||||
Result := True;
|
|
||||||
except
|
|
||||||
RaiseError('Error al asignar la nueva referencia ' + Valor + ' en tablas');
|
|
||||||
AConn.RollbackTransaction;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
dsCommand := NIL;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
TROClassFactory.Create('srvReferencias', Create_srvReferencias, TsrvReferencias_Invoker);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
|
|
||||||
end.
|
|
||||||
Loading…
Reference in New Issue
Block a user