git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@153 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
9828b24b82
commit
6c101f11e6
@ -1,974 +0,0 @@
|
||||
object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 373
|
||||
Width = 518
|
||||
object ROChannel: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 40
|
||||
Top = 8
|
||||
end
|
||||
object ROMessage: TROBinMessage
|
||||
Left = 40
|
||||
Top = 60
|
||||
end
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvAlbaranesCliente'
|
||||
Message = ROMessage
|
||||
Channel = ROChannel
|
||||
Left = 40
|
||||
Top = 112
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 40
|
||||
Top = 168
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 40
|
||||
Top = 240
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROMessage
|
||||
Channel = ROChannel
|
||||
Left = 40
|
||||
Top = 296
|
||||
end
|
||||
object tbl_AlbaranesCliente: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha albar'#225'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_FECHA_ALBARAN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_PEDIDO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_SITUACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Almac'#233'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_NOMBRE_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REF_PEDIDO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. pedido cliente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Calle'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_CALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. factura cliente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_CODIGO_POSTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_POBLACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Provincia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_PROVINCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_PERSONA_CONTACTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tel'#233'fono'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_TELEFONO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_BASE_IMPONIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_IMPORTE_NETO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe del porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_IMPORTE_PORTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_IMPORTE_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_IMPORTE_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Observaciones'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_OBSERVACIONES'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_INCIDENCIAS'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_INCIDENCIAS_ACTIVAS'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_FECHA_ALTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_FECHA_MODIFICACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_USUARIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Nombre del cliente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_NOMBRE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_FORMA_PAGO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PREVISTA_ENVIO'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha prevista de envio'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_FECHA_PREVISTA_ENVIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ENVIO'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha de env'#237'o'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_FECHA_ENVIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_RECEPCION'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha de recepci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesCliente'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesCliente'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesCliente'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'AlbaranesCliente'
|
||||
IndexDefs = <>
|
||||
Left = 232
|
||||
Top = 136
|
||||
end
|
||||
object ds_AlbaranesCliente: TDADataSource
|
||||
DataTable = tbl_AlbaranesCliente
|
||||
Left = 232
|
||||
Top = 80
|
||||
end
|
||||
object tbl_AlbaranesCliente_Detalles: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
Required = True
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_ID_ALBARAN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'POSICIONCONCEPTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_TIPO_DETALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_ID_ARTICULO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_CONCEPTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_IMPORTE_UNIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_IMPORTE_PORTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = 41
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmParams
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_ALBARAN=ID')
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesCliente_Detalles'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesCliente_Detalles'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesCliente_Detalles'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
MasterSource = ds_AlbaranesCliente
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_ALBARAN'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'AlbaranesCliente_Detalles'
|
||||
IndexDefs = <>
|
||||
Left = 392
|
||||
Top = 136
|
||||
end
|
||||
object ds_AlbaranesCliente_Detalles: TDADataSource
|
||||
DataTable = tbl_AlbaranesCliente_Detalles
|
||||
Left = 392
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
@ -1,166 +0,0 @@
|
||||
unit uDataModuleAlbaranesCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
DB, Classes, SysUtils, uDADesigntimeCall, uROServiceComponent,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
uDAClientDataModule, uROTypes,
|
||||
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente,
|
||||
uIDataModuleAlbaranesClienteReport;
|
||||
|
||||
type
|
||||
TDataModuleAlbaranesCliente = class(TDAClientDataModule, IDataModuleAlbaranesCliente, IDataModuleAlbaranesClienteReport)
|
||||
ROChannel: TROWinInetHTTPChannel;
|
||||
ROMessage: TROBinMessage;
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
tbl_AlbaranesCliente: TDACDSDataTable;
|
||||
ds_AlbaranesCliente: TDADataSource;
|
||||
tbl_AlbaranesCliente_Detalles: TDACDSDataTable;
|
||||
ds_AlbaranesCliente_Detalles: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetDetalles : IBizDetallesAlbaranCliente;
|
||||
|
||||
protected
|
||||
procedure AsignarClaseNegocio(var APedido: TDACDSDataTable); virtual;
|
||||
|
||||
public
|
||||
function GetItems : IBizAlbaranCliente; virtual;
|
||||
function GetItem(const ID : Integer) : IBizAlbaranCliente;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizAlbaranCliente;
|
||||
|
||||
// Report
|
||||
function GetReport(const AID: String): Binary;
|
||||
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
cxControls, FactuGES_Intf, uDAInterfaces, uDataModuleConexion,
|
||||
uDataTableUtils, schAlbaranesClienteClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmAlbaranesCliente }
|
||||
|
||||
procedure TDataModuleAlbaranesCliente.AsignarClaseNegocio(var APedido: TDACDSDataTable);
|
||||
begin
|
||||
APedido.BusinessRulesID := BIZ_CLIENT_ALBARAN_CLIENTE;
|
||||
end;
|
||||
|
||||
procedure TDataModuleAlbaranesCliente.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
if DataSetName = nme_AlbaranesCliente then
|
||||
aGeneratorName := 'GEN_ALBARANES_CLI_ID';
|
||||
|
||||
if DataSetName = nme_AlbaranesCliente_Detalles then
|
||||
aGeneratorName := 'GEN_ALBARANES_CLI_DETALLES_ID';
|
||||
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.GetReport(const AID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.NewItem: IBizAlbaranCliente;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente._GetDetalles: IBizDetallesAlbaranCliente;
|
||||
var
|
||||
ADetalles : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalles := _CloneDataTable(tbl_AlbaranesCliente_Detalles);
|
||||
with ADetalles do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ADetalles as IBizDetallesAlbaranCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvAlbaranesCliente).GenerateEtiquetas(AID, withRefCliente)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_AlbaranesClienteID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesCliente.GetItems: IBizAlbaranCliente;
|
||||
var
|
||||
APedido : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedido := _CloneDataTable(tbl_AlbaranesCliente);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
APedido.FieldByName(fld_AlbaranesClienteREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AsignarClaseNegocio(APedido);
|
||||
|
||||
with TBizAlbaranCliente(APedido.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (APedido as IBizAlbaranCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,116 +0,0 @@
|
||||
unit srvAlbaranesCliente_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. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
|
||||
uDAInterfaces, uDAScriptingProvider,
|
||||
uDABusinessProcessor, uDADataStreamer, uDABin2DataStreamer;
|
||||
{
|
||||
uDACDSDataTable, uDAInterfaces, DB,
|
||||
frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
|
||||
}
|
||||
type
|
||||
{ TsrvAlbaranesCliente }
|
||||
TsrvAlbaranesCliente = class(TDataAbstractService, IsrvAlbaranesCliente)
|
||||
bpAlbaranesCliente: TDABusinessProcessor;
|
||||
bpAlbaranesCliente_Detalles: TDABusinessProcessor;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schAlbaranesCliente: TDASchema;
|
||||
DADataDictionary: TDADataDictionary;
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
private
|
||||
protected
|
||||
{ IsrvAlbaranesCliente methods }
|
||||
function GenerateReport(const ID: String): Binary;
|
||||
function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schAlbaranesClienteClient_Intf, uRestriccionesUsuarioUtils,
|
||||
// uRptAlbaranesCliente_Server,
|
||||
uBizAlbaranClienteServer;
|
||||
|
||||
procedure Create_srvAlbaranesCliente(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvAlbaranesCliente.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvAlbaranesCliente }
|
||||
procedure TsrvAlbaranesCliente.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_AlbaranesCliente then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a albaranes
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
FiltrarAccesoUsuario(Session, Connection, schAlbaranesCliente, DataSet, fld_AlbaranesClienteID_EMPRESA);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvAlbaranesCliente.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE;
|
||||
end;
|
||||
|
||||
procedure TsrvAlbaranesCliente.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesCliente.GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptAlbaranesCliente;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptAlbaranesCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarEtiquetas(ID, withRefCliente);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesCliente.GenerateReport(const ID: String): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptAlbaranesCliente;
|
||||
begin
|
||||
{
|
||||
AReportGenerator := TRptAlbaranesCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarAlbaran(ID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvAlbaranesCliente', Create_srvAlbaranesCliente, TsrvAlbaranesCliente_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
@ -1,935 +0,0 @@
|
||||
object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 373
|
||||
Width = 518
|
||||
object ROChannel: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
Left = 40
|
||||
Top = 8
|
||||
end
|
||||
object ROMessage: TROBinMessage
|
||||
Left = 40
|
||||
Top = 60
|
||||
end
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvAlbaranesProveedor'
|
||||
Message = ROMessage
|
||||
Channel = ROChannel
|
||||
Left = 40
|
||||
Top = 112
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 40
|
||||
Top = 168
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'luisleon07'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 40
|
||||
Top = 240
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROMessage
|
||||
Channel = ROChannel
|
||||
Left = 40
|
||||
Top = 296
|
||||
end
|
||||
object tbl_AlbaranesProveedor: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Proveedor'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha albar'#225'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_FECHA_ALBARAN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. provedor'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Almac'#233'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_PEDIDO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REF_PED_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ped. proveedor'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia factura'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. factura prov'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Calle'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_CALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_CODIGO_POSTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_POBLACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Provincia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_PROVINCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tel'#233'fono'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_TELEFONO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_IMPORTE_NETO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe del porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_IMPORTE_PORTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_IMPORTE_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_BASE_IMPONIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_IMPORTE_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Observaciones'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_OBSERVACIONES'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS_ACTIVAS'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_FECHA_ALTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_FECHA_MODIFICACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_USUARIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesProveedor'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesProveedor'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesProveedor'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'AlbaranesProveedor'
|
||||
IndexDefs = <>
|
||||
Left = 192
|
||||
Top = 136
|
||||
end
|
||||
object ds_AlbaranesProveedor: TDADataSource
|
||||
DataTable = tbl_AlbaranesProveedor
|
||||
Left = 192
|
||||
Top = 80
|
||||
end
|
||||
object tbl_AlbaranesProveedor_Detalles: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
Required = True
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ALBARAN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'POSICIONCONCEPTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_CONCEPTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_UNIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_PORTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmParams
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_ALBARAN=ID')
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesProveedor_Detalles'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesProveedor_Detalles'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'AlbaranesProveedor_Detalles'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
MasterSource = ds_AlbaranesProveedor
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_ALBARAN'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'AlbaranesProveedor_Detalles'
|
||||
IndexDefs = <>
|
||||
Left = 408
|
||||
Top = 128
|
||||
end
|
||||
object ds_AlbaranesProveedor_Detalles: TDADataSource
|
||||
DataTable = tbl_AlbaranesProveedor_Detalles
|
||||
Left = 408
|
||||
Top = 72
|
||||
end
|
||||
end
|
||||
@ -1,159 +0,0 @@
|
||||
unit uDataModuleAlbaranesProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
DB, Classes, SysUtils, uDADesigntimeCall, uROServiceComponent,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
uDAClientDataModule, uROTypes, uIDataModuleAlbaranesProveedorReport,
|
||||
uIDataModuleAlbaranesProveedor, uBizAlbaranesProveedor, uBizDetallesAlbaranProveedor;
|
||||
|
||||
type
|
||||
TDataModuleAlbaranesProveedor = class(TDAClientDataModule, IDataModuleAlbaranesProveedor, IDataModuleAlbaranesProveedorReport)
|
||||
ROChannel: TROWinInetHTTPChannel;
|
||||
ROMessage: TROBinMessage;
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
tbl_AlbaranesProveedor: TDACDSDataTable;
|
||||
ds_AlbaranesProveedor: TDADataSource;
|
||||
tbl_AlbaranesProveedor_Detalles: TDACDSDataTable;
|
||||
ds_AlbaranesProveedor_Detalles: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetDetalles : IBizDetallesAlbaranProveedor;
|
||||
|
||||
protected
|
||||
procedure AsignarClaseNegocio(var APedido: TDACDSDataTable); virtual;
|
||||
|
||||
public
|
||||
function GetItems : IBizAlbaranProveedor; virtual;
|
||||
function GetItem(const ID : Integer) : IBizAlbaranProveedor;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizAlbaranProveedor;
|
||||
|
||||
// Report
|
||||
function GetReport(const AID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
cxControls, FactuGES_Intf, uDAInterfaces, uDataModuleConexion,
|
||||
uDataTableUtils, schAlbaranesProveedorClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmAlbaranesProveedor }
|
||||
|
||||
procedure TDataModuleAlbaranesProveedor.AsignarClaseNegocio(var APedido: TDACDSDataTable);
|
||||
begin
|
||||
APedido.BusinessRulesID := BIZ_CLIENT_ALBARAN_PROVEEDOR;
|
||||
end;
|
||||
|
||||
procedure TDataModuleAlbaranesProveedor.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
if DataSetName = nme_AlbaranesProveedor then
|
||||
aGeneratorName := 'GEN_ALBARANES_PRO_ID';
|
||||
|
||||
if DataSetName = nme_AlbaranesProveedor_Detalles then
|
||||
aGeneratorName := 'GEN_ALBARANES_PRO_DETALLES_ID';
|
||||
|
||||
Result := (RORemoteService as IsrvAlbaranesProveedor).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor.GetReport(const AID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvAlbaranesProveedor).GenerateReport(AID)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor.NewItem: IBizAlbaranProveedor;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor._GetDetalles: IBizDetallesAlbaranProveedor;
|
||||
var
|
||||
ADetalles : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalles := _CloneDataTable(tbl_AlbaranesProveedor_Detalles);
|
||||
with ADetalles do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_DETALLES_ALBARAN_PROVEEDOR;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ADetalles as IBizDetallesAlbaranProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor.GetItem(const ID: Integer): IBizAlbaranProveedor;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_AlbaranesProveedorID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleAlbaranesProveedor.GetItems: IBizAlbaranProveedor;
|
||||
var
|
||||
AAlbaran : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AAlbaran := _CloneDataTable(tbl_AlbaranesProveedor);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
AAlbaran.FieldByName(fld_AlbaranesProveedorREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AsignarClaseNegocio(AAlbaran);
|
||||
|
||||
with TBizAlbaranProveedor(AAlbaran.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (AAlbaran as IBizAlbaranProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,106 +0,0 @@
|
||||
unit srvAlbaranesProveedor_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. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DARemoteService_Impl,
|
||||
{Used RODLs:} DataAbstract_Intf,
|
||||
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
||||
uDAClasses, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDACDSDataTable, uDAInterfaces, DB,
|
||||
frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
|
||||
|
||||
type
|
||||
{ TsrvAlbaranesProveedor }
|
||||
TsrvAlbaranesProveedor = class(TDARemoteService, IsrvAlbaranesProveedor)
|
||||
DABINAdapter: TDABINAdapter;
|
||||
bpAlbaranesProveedor: TDABusinessProcessor;
|
||||
bpAlbaranesProveedor_Detalles: TDABusinessProcessor;
|
||||
schAlbaranesProveedor: TDASchema;
|
||||
DADataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
||||
var ConnectionName: string);
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
private
|
||||
protected
|
||||
{ IsrvAlbaranesProveedor methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerateReport(const ID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
Dialogs,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uBizAlbaranProveedorServer, uRptAlbaranesProveedor_Server;
|
||||
|
||||
procedure Create_srvAlbaranesProveedor(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvAlbaranesProveedor.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvAlbaranesProveedor }
|
||||
procedure TsrvAlbaranesProveedor.DARemoteServiceBeforeAcquireConnection(
|
||||
Sender: TDARemoteService; var ConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
procedure TsrvAlbaranesProveedor.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_AlbaranesProveedor then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a pedidos
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
FiltrarAccesoUsuario(Session, Connection, schAlbaranesProveedor, DataSet, fld_AlbaranesProveedorID_EMPRESA);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvAlbaranesProveedor.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR;
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesProveedor.GenerateReport(const ID: String): Binary;
|
||||
var
|
||||
AReportGenerator : TRptAlbaranesProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptAlbaranesProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarAlbaran(ID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvAlbaranesProveedor.GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
begin
|
||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvAlbaranesProveedor', Create_srvAlbaranesProveedor, TsrvAlbaranesProveedor_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
@ -1,122 +0,0 @@
|
||||
unit uDataModuleAlmacenes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
uIDataModuleAlmacenes, uBizAlmacenes;
|
||||
|
||||
type
|
||||
TDataModuleAlmacenes = class(TDAClientDataModule, IDataModuleAlmacenes)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_Almacenes: TDACDSDataTable;
|
||||
ds_Almacenes: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
procedure AsignarClaseNegocio(var AAlmacen: TDACDSDataTable); virtual;
|
||||
function darNombreGenerador(DataSetName: String): String; virtual;
|
||||
public
|
||||
function GetItems : IBizAlmacen;
|
||||
function GetItem(const ID : Integer) : IBizAlmacen;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizAlmacen;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schAlmacenesClient_Intf;
|
||||
|
||||
{ TdmAlmacens }
|
||||
|
||||
procedure TDataModuleAlmacenes.AsignarClaseNegocio(var AAlmacen: TDACDSDataTable);
|
||||
begin
|
||||
AAlmacen.BusinessRulesID := BIZ_CLIENT_ALMACEN;
|
||||
end;
|
||||
|
||||
procedure TDataModuleAlmacenes.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleAlmacenes.darNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
if DataSetName = nme_Almacenes then
|
||||
Result := 'GEN_ALMACENES_ID';
|
||||
end;
|
||||
|
||||
function TDataModuleAlmacenes.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := darNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvAlmacenes).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleAlmacenes.NewItem: IBizAlmacen;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleAlmacenes._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleAlmacenes.GetItem(const ID: Integer): IBizAlmacen;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText('Almacenes.' + fld_AlmacenesID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleAlmacenes.GetItems: IBizAlmacen;
|
||||
var
|
||||
AAlmacen : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AAlmacen := _CloneDataTable(tbl_Almacenes);
|
||||
|
||||
AsignarClaseNegocio(AAlmacen);
|
||||
|
||||
Result := (AAlmacen as IBizAlmacen);
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -1,77 +0,0 @@
|
||||
object DataModuleBancaElectronica: TDataModuleBancaElectronica
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvBancaElectronica'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
end
|
||||
@ -1,175 +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 uDataModuleBancaElectronica;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
|
||||
uIDataModuleBancaElectronica, uBizBancaElectronica;
|
||||
|
||||
type
|
||||
TDataModuleBancaElectronica = class(TDAClientDataModule, IDataModuleBancaElectronica)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
protected
|
||||
function DarNombreGenerador(DataSetName: String): String; virtual;
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
|
||||
// Descomentar si tiene detalles
|
||||
// function _GetDetalles: IBizDetalles;
|
||||
public
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function GetItems: IBizIBizBanca;
|
||||
function GetItem(const ID : Integer) : IBizIBizBanca;
|
||||
function NewItem : IBizIBizBanca;
|
||||
|
||||
// Descomentar si tiene informe
|
||||
// function GetReport(const AIBizBancaID: Integer): Binary;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schBancaElectronicaClient_Intf;
|
||||
|
||||
{ TDataModuleBancaElectronica }
|
||||
|
||||
|
||||
// Descomentar si tiene informe
|
||||
// function TDataModuleBancaElectronica.GetReport(const AIBizBancaID: Integer): Binary;
|
||||
// begin
|
||||
// Result := (RORemoteService as IsrvBancaElectronica).GenerateReport(AIBizBancaID)
|
||||
// end;
|
||||
|
||||
procedure TDataModuleBancaElectronica.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleBancaElectronica.DarNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
Result := '';
|
||||
if DataSetName = nme_BancaElectronica then
|
||||
Result := 'GEN_BANCA_ID'
|
||||
end;
|
||||
|
||||
function TDataModuleBancaElectronica.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := DarNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvBancaElectronica).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleBancaElectronica._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
|
||||
// Descomentar si tiene detalles
|
||||
// function TDataModuleBancaElectronica._GetDetalles: IBizIBizBancaDetalles;
|
||||
// var
|
||||
// ADetalles : TDACDSDataTable;
|
||||
// begin
|
||||
// ShowHourglassCursor;
|
||||
// try
|
||||
// ADetalles := _CloneDataTable(tbl_BancaElectronicaDetalles);
|
||||
// with ADetalles do
|
||||
// begin
|
||||
// BusinessRulesID := BIZ_CLIENT_IBizBancaDETALLES;
|
||||
// DetailOptions := DetailOptions -
|
||||
// [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
// end;
|
||||
// Result := (ADetalles as IBizIBizBancaDetalles);
|
||||
// finally
|
||||
// HideHourglassCursor;
|
||||
// end;
|
||||
// end;
|
||||
|
||||
|
||||
function TDataModuleBancaElectronica.GetItems: IBizIBizBanca;
|
||||
var
|
||||
AIBizBanca : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AIBizBanca := _CloneDataTable(tbl_BancaElectronica);
|
||||
AIBizBanca.BusinessRulesID := BIZ_CLIENT_IBizBanca;
|
||||
|
||||
// Descomentar si tiene detalles
|
||||
// with TBizIBizBanca(AIBizBanca.BusinessEventsObj) do
|
||||
// Detalles := _GetDetalles;
|
||||
|
||||
Result := (AIBizBanca as IBizIBizBanca);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleBancaElectronica.NewItem: IBizIBizBanca;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleBancaElectronica.GetItem(const ID: Integer): IBizIBizBanca;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText('BANCA.' + fld_BancaElectronicaID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,866 +0,0 @@
|
||||
object DataModuleComisiones: TDataModuleComisiones
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvComisiones'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
object tbl_Comisiones: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Comisiones_REFERENCIA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_DESCRIPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_FECHA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
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
|
||||
DictionaryEntry = 'Comisiones_USUARIO'
|
||||
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>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Comisiones'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Comisiones'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Comisiones'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Comisiones'
|
||||
IndexDefs = <>
|
||||
Left = 216
|
||||
Top = 144
|
||||
end
|
||||
object ds_Comisiones: TDADataSource
|
||||
DataTable = tbl_Comisiones
|
||||
Left = 216
|
||||
Top = 80
|
||||
end
|
||||
object tbl_Facturas_Comision: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Facturas_Comision_ID_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_FECHA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Facturas_Comision_CLIENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Facturas_Comision_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'COMISION'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_COMISION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISIONABLE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISION'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Facturas_Comision_IMPORTE_COMISION'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_COMISION'
|
||||
BlobType = dabtUnknown
|
||||
Value = 18
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmParams
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_COMISION=ID')
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Facturas_Comision'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Facturas_Comision'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Facturas_Comision'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
MasterSource = ds_Comisiones
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_COMISION_LIQUIDADA'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Facturas_Comision'
|
||||
IndexDefs = <>
|
||||
Left = 368
|
||||
Top = 144
|
||||
end
|
||||
object ds_Facturas_Comision: TDADataSource
|
||||
DataTable = tbl_Facturas_Comision
|
||||
Left = 368
|
||||
Top = 80
|
||||
end
|
||||
object tbl_V_Detalles_Facturas_Comision: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_FECHA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Facturas_Comision_CLIENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Facturas_Comision_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'COMISION'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Comisiones_Detalles_COMISION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISIONABLE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISION'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'V_Detalles_Facturas_Comision'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'V_Detalles_Facturas_Comision'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'V_Detalles_Facturas_Comision'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'V_Detalles_Facturas_Comision'
|
||||
IndexDefs = <>
|
||||
Left = 312
|
||||
Top = 312
|
||||
end
|
||||
object ds_V_Detalles_Facturas_Comision: TDADataSource
|
||||
DataTable = tbl_V_Detalles_Facturas_Comision
|
||||
Left = 312
|
||||
Top = 256
|
||||
end
|
||||
end
|
||||
@ -1,168 +0,0 @@
|
||||
unit uDataModuleComisiones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall, uIDataModuleComisiones, uBizComisiones,
|
||||
uIDataModuleComisionesReport;
|
||||
|
||||
type
|
||||
TDataModuleComisiones = class(TDAClientDataModule, IDataModuleComisiones, IDataModuleComisionesReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_Comisiones: TDACDSDataTable;
|
||||
ds_Comisiones: TDADataSource;
|
||||
tbl_Facturas_Comision: TDACDSDataTable;
|
||||
ds_Facturas_Comision: TDADataSource;
|
||||
tbl_V_Detalles_Facturas_Comision: TDACDSDataTable;
|
||||
ds_V_Detalles_Facturas_Comision: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetFacturas : IBizFacturasComision;
|
||||
function darNombreGenerador(DataSetName: String): String; virtual;
|
||||
public
|
||||
function GetItems : IBizComisiones; overload;
|
||||
function GetFacturasDesglosadas : IBizFacturasComision;
|
||||
function GetItem(const ID : Integer) : IBizComisiones;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizComisiones;
|
||||
|
||||
// Report
|
||||
function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schComisionesClient_Intf;
|
||||
|
||||
{ TdmComisiones }
|
||||
|
||||
procedure TDataModuleComisiones.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.darNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
if DataSetName = nme_Comisiones then
|
||||
Result := 'GEN_COMISIONES_LIQUID_ID';
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.GetItems: IBizComisiones;
|
||||
var
|
||||
AComisiones : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AComisiones := _CloneDataTable(tbl_Comisiones);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
AComisiones.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AComisiones.BusinessRulesID := BIZ_CLIENT_COMISIONES;
|
||||
|
||||
with TBizComisiones(AComisiones.BusinessEventsObj) do
|
||||
begin
|
||||
Facturas := _GetFacturas;
|
||||
end;
|
||||
|
||||
Result := (AComisiones as IBizComisiones);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones._GetFacturas: IBizFacturasComision;
|
||||
var
|
||||
AFacturas : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFacturas := _CloneDataTable(tbl_Facturas_Comision);
|
||||
with AFacturas do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (AFacturas as IBizFacturasComision);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.GetFacturasDesglosadas: IBizFacturasComision;
|
||||
var
|
||||
AFacturasDesglosadas : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFacturasDesglosadas := _CloneDataTable(tbl_V_Detalles_Facturas_Comision);
|
||||
AFacturasDesglosadas.BusinessRulesID := BIZ_CLIENT_FACTURAS_COMISION;
|
||||
Result := (AFacturasDesglosadas as IBizFacturasComision);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.GetItem(const ID: Integer): IBizComisiones;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_ComisionesID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function TDataModuleComisiones.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := DarNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvComisiones).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.NewItem: IBizComisiones;
|
||||
begin
|
||||
Result := GetItem(ID_NULO);
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,66 +0,0 @@
|
||||
package Contactos_controller;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{%TogetherDiagram 'ModelSupport_Contactos_controller\default.txaPackage'}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
Contactos_model,
|
||||
Contactos_data;
|
||||
|
||||
contains
|
||||
uContactosController in 'uContactosController.pas',
|
||||
uIEditorContactos in 'View\uIEditorContactos.pas',
|
||||
uIEditorContacto in 'View\uIEditorContacto.pas',
|
||||
uIEditorCliente in 'View\uIEditorCliente.pas',
|
||||
uIEditorClientes in 'View\uIEditorClientes.pas',
|
||||
uClientesController in 'uClientesController.pas',
|
||||
uIEditorProveedores in 'View\uIEditorProveedores.pas',
|
||||
uIEditorEmpleados in 'View\uIEditorEmpleados.pas',
|
||||
uIEditorEmpleado in 'View\uIEditorEmpleado.pas',
|
||||
uIEditorProveedor in 'View\uIEditorProveedor.pas',
|
||||
uProveedoresController in 'uProveedoresController.pas',
|
||||
uEmpleadosController in 'uEmpleadosController.pas',
|
||||
uIEditorElegirClientes in 'View\uIEditorElegirClientes.pas',
|
||||
uIEditorElegirProveedores in 'View\uIEditorElegirProveedores.pas',
|
||||
uIEditorElegirContactos in 'View\uIEditorElegirContactos.pas',
|
||||
uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas',
|
||||
uDireccionesContactoController in 'uDireccionesContactoController.pas',
|
||||
uIEditorElegirDireccionEntrega in 'View\uIEditorElegirDireccionEntrega.pas',
|
||||
uGruposClienteController in 'uGruposClienteController.pas',
|
||||
uIEditorGruposCliente in 'View\uIEditorGruposCliente.pas',
|
||||
uGruposProveedorController in 'uGruposProveedorController.pas',
|
||||
uGruposEmpleadoController in 'uGruposEmpleadoController.pas',
|
||||
uIEditorGruposProveedor in 'View\uIEditorGruposProveedor.pas',
|
||||
uIEditorGruposEmpleado in 'View\uIEditorGruposEmpleado.pas',
|
||||
uFichasEmpleadoReportController in 'uFichasEmpleadoReportController.pas',
|
||||
uIEditorFichasEmpleadoPreview in 'View\uIEditorFichasEmpleadoPreview.pas',
|
||||
uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.pas',
|
||||
uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas';
|
||||
|
||||
end.
|
||||
@ -1,41 +0,0 @@
|
||||
package Contactos_data;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{%TogetherDiagram 'ModelSupport_Contactos_data\default.txaPackage'}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
Usuarios,
|
||||
Contactos_model;
|
||||
|
||||
contains
|
||||
uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
|
||||
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes : TDAClientDataModule},
|
||||
uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule},
|
||||
uDataModuleEmpleados in 'uDataModuleEmpleados.pas' {DataModuleEmpleados: TDAClientDataModule};
|
||||
|
||||
end.
|
||||
@ -1,52 +0,0 @@
|
||||
package Contactos_model;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
Usuarios,
|
||||
Empresas_controller;
|
||||
|
||||
contains
|
||||
uBizContactosDatosBancarios in 'uBizContactosDatosBancarios.pas',
|
||||
uBizContactos in 'uBizContactos.pas',
|
||||
uBizCategoriasContacto in 'uBizCategoriasContacto.pas',
|
||||
uIDataModuleContactos in 'Data\uIDataModuleContactos.pas',
|
||||
uIDataModuleClientes in 'Data\uIDataModuleClientes.pas',
|
||||
uIDataModuleProveedores in 'Data\uIDataModuleProveedores.pas',
|
||||
uIDataModuleEmpleados in 'Data\uIDataModuleEmpleados.pas',
|
||||
uBizDireccionesContacto in 'uBizDireccionesContacto.pas',
|
||||
uBizClientesDescuentos in 'uBizClientesDescuentos.pas',
|
||||
uRegimenIVAUtils in '..\Utiles\uRegimenIVAUtils.pas',
|
||||
uBizGruposCliente in 'uBizGruposCliente.pas',
|
||||
schContactosClient_Intf in 'schContactosClient_Intf.pas',
|
||||
uBizGruposEmpleado in 'uBizGruposEmpleado.pas',
|
||||
uBizGruposProveedor in 'uBizGruposProveedor.pas',
|
||||
uIDataModuleFichasEmpleadoReport in 'Data\uIDataModuleFichasEmpleadoReport.pas',
|
||||
uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas';
|
||||
|
||||
end.
|
||||
@ -1,40 +0,0 @@
|
||||
package Contactos_plugin;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
PluginSDK_D10R,
|
||||
Base,
|
||||
Contactos_model,
|
||||
Contactos_data,
|
||||
Contactos_controller,
|
||||
Contactos_view;
|
||||
|
||||
contains
|
||||
uPluginContactos in 'uPluginContactos.pas' {PluginContactos: TDataModule};
|
||||
|
||||
end.
|
||||
@ -1,75 +0,0 @@
|
||||
package Contactos_view;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
GUIBase,
|
||||
FormasPago_model,
|
||||
FormasPago_controller,
|
||||
TiposIVA_model,
|
||||
TiposIVA_controller,
|
||||
Contactos_model,
|
||||
Contactos_controller,
|
||||
JvGlobusD11R;
|
||||
|
||||
contains
|
||||
uContactosViewRegister in 'uContactosViewRegister.pas',
|
||||
uViewContactos in 'uViewContactos.pas' {frViewContactos: TCustomView},
|
||||
uViewClientes in 'uViewClientes.pas' {frViewClientes: TCustomView},
|
||||
uEditorContactos in 'uEditorContactos.pas' {fEditorContactos: TCustomEditor},
|
||||
uEditorClientes in 'uEditorClientes.pas' {fEditorClientes: TCustomEditor},
|
||||
uViewContacto in 'uViewContacto.pas' {frViewContacto: TCustomView},
|
||||
uEditorCliente in 'uEditorCliente.pas' {fEditorCliente: TCustomEditor},
|
||||
uEditorContacto in 'uEditorContacto.pas' {fEditorContacto: TCustomEditor},
|
||||
uViewCliente in 'uViewCliente.pas' {frViewCliente: TCustomView},
|
||||
uViewDatosYSeleccionProveedor in 'uViewDatosYSeleccionProveedor.pas' {frViewDatosYSeleccionProveedor: TFrame},
|
||||
uViewProveedores in 'uViewProveedores.pas' {frViewProveedores: TCustomView},
|
||||
uViewEmpleados in 'uViewEmpleados.pas' {frViewEmpleados: TCustomView},
|
||||
uEditorProveedores in 'uEditorProveedores.pas' {fEditorProveedores: TCustomEditor},
|
||||
uViewProveedor in 'uViewProveedor.pas' {frViewProveedor: TCustomView},
|
||||
uViewEmpleado in 'uViewEmpleado.pas' {frViewEmpleado: TCustomView},
|
||||
uEditorProveedor in 'uEditorProveedor.pas' {fEditorProveedor: TCustomEditor},
|
||||
uEditorElegirClientes in 'uEditorElegirClientes.pas' {fEditorElegirClientes: TCustomEditor},
|
||||
uViewDatosYSeleccionCliente in 'uViewDatosYSeleccionCliente.pas' {frViewDatosYSeleccionCliente: TFrame},
|
||||
uEditorElegirProveedores in 'uEditorElegirProveedores.pas' {fEditorElegirProveedores: TCustomEditor},
|
||||
uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
|
||||
uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
|
||||
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion},
|
||||
uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega},
|
||||
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
|
||||
uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
|
||||
uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame},
|
||||
uEditorGruposCliente in 'uEditorGruposCliente.pas' {fEditorGruposCliente: TCustomEditor},
|
||||
uEditorEmpleado in 'uEditorEmpleado.pas' {fEditorEmpleado: TCustomEditor},
|
||||
uEditorEmpleados in 'uEditorEmpleados.pas' {fEditorEmpleados: TCustomEditor},
|
||||
uEditorGruposProveedor in 'uEditorGruposProveedor.pas' {fEditorGruposProveedor: TCustomEditor},
|
||||
uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor},
|
||||
uEditorFichasEmpleadoReport in 'uEditorFichasEmpleadoReport.pas' {fEditorFichasEmpleadoReport: TCustomEditor},
|
||||
uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor};
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,121 +0,0 @@
|
||||
unit uEditorClientes;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
uEditorContactos, Menus, ImgList, PngImageList, StdActns,
|
||||
ActnList, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
|
||||
JvExControls, JvComponent, JvNavigationPane, DB, uDADataTable,
|
||||
JvFormAutoSize, ComCtrls, uDAScriptingProvider, uDACDSDataTable, StdCtrls,
|
||||
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, uCustomView,
|
||||
uViewBase, uViewBarraSeleccion, ExtCtrls, pngimage, JvComponentBase,
|
||||
|
||||
uIEditorClientes, uViewGridBase, uViewGrid, uViewContactos, uViewClientes,
|
||||
TBXStatusBars, JvExComCtrls, JvStatusBar, JSDialog;
|
||||
|
||||
type
|
||||
TfEditorClientes = class(TfEditorContactos, IEditorClientes)
|
||||
frViewClientes1: TfrViewClientes;
|
||||
actGruposCliente: TAction;
|
||||
JsListaContactosNoEliminados: TJSDialog;
|
||||
procedure actGruposClienteExecute(Sender: TObject);
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uGridUtils, uDataModuleContactos, uDataModuleBase, uEditorGridBase, uBizContactos,
|
||||
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils,
|
||||
uGruposClienteController, uBizGruposCliente, uClientesController;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
{
|
||||
******************************* TfEditorClientes *******************************
|
||||
}
|
||||
procedure TfEditorClientes.actGruposClienteExecute(Sender: TObject);
|
||||
var
|
||||
AGruposController : IGruposClienteController;
|
||||
AGrupos : IBizGrupoCliente;
|
||||
begin
|
||||
AGruposController := TGruposClienteController.Create;
|
||||
try
|
||||
AGrupos := (AGruposController.BuscarTodos as IBizGrupoCliente);
|
||||
AGruposController.VerTodos(AGrupos);
|
||||
finally
|
||||
AGrupos := NIL;
|
||||
AGruposController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TfEditorClientes.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid := frViewClientes1; //CreateView(TfrViewClientes) as IViewContactos;
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.EliminarInterno;
|
||||
var
|
||||
AContactos: IBizContacto;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AContactos := Nil;
|
||||
AllItems := False;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
|
||||
if AllItems then
|
||||
begin
|
||||
if (Application.MessageBox('¿Desea borrar los clientes seleccionados?', 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
|
||||
AContactos := (Controller as IClientesController).ExtraerSeleccionados(Contactos) as IBizContacto;
|
||||
end
|
||||
end
|
||||
else begin
|
||||
if (Application.MessageBox('¿Desea borrar el cliente seleccionado?', 'Atención', MB_YESNO) = IDYES) then
|
||||
AContactos := Contactos;
|
||||
end;
|
||||
|
||||
if Assigned(AContactos) then
|
||||
begin
|
||||
(FController as IClientesController).Eliminar(AContactos, AllItems);
|
||||
if AllItems then
|
||||
begin
|
||||
if (AContactos.DataTable.RecordCount > 0) then
|
||||
begin
|
||||
with AContactos.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
JsListaContactosNoEliminados.Content.Add('Cliente: ' + AContactos.NOMBRE);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
JsListaContactosNoEliminados.Execute;
|
||||
end;
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
|
||||
ViewGrid.GotoFirst;
|
||||
end;
|
||||
|
||||
procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de clientes - ' + dmUsuarios.EmpresaActual.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,186 +0,0 @@
|
||||
unit uEditorEmpleados;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
uEditorContactos, Menus, DB, uDADataTable, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
|
||||
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls,
|
||||
JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
|
||||
uViewContactos, uViewEmpleados, uIEditorEmpleados, pngimage, TBXStatusBars,
|
||||
JvExComCtrls, JvStatusBar, JSDialog, uContactosController;
|
||||
|
||||
type
|
||||
TfEditorEmpleados = class(TfEditorContactos, IEditorEmpleados)
|
||||
frViewEmpleados1: TfrViewEmpleados;
|
||||
JsPrevisualizarDialog: TJSDialog;
|
||||
JsImprimirDialog: TJSDialog;
|
||||
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
procedure ImprimirInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uGridUtils, uEditorGridBase, uDataModuleUsuarios, uDialogUtils, uBizContactos,
|
||||
uEmpleadosController, uDBSelectionListUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
constructor TfEditorEmpleados.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid := frViewEmpleados1;
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpleados.EliminarInterno;
|
||||
var
|
||||
AContactos: IBizContacto;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AContactos := Nil;
|
||||
AllItems := False;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
|
||||
if AllItems then
|
||||
begin
|
||||
if (Application.MessageBox('¿Desea borrar los empleados seleccionados?', 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
|
||||
AContactos := (Controller as IEmpleadosController).ExtraerSeleccionados(Contactos) as IBizContacto;
|
||||
end
|
||||
end
|
||||
else begin
|
||||
if (Application.MessageBox('¿Desea borrar el empleado seleccionado?', 'Atención', MB_YESNO) = IDYES) then
|
||||
AContactos := Contactos;
|
||||
end;
|
||||
|
||||
if Assigned(AContactos) then
|
||||
begin
|
||||
FController.Eliminar(AContactos, AllItems);
|
||||
if AllItems then
|
||||
begin
|
||||
if (AContactos.DataTable.RecordCount > 0) then
|
||||
begin
|
||||
with AContactos.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
JsListaContactosNoEliminados.Content.Add('Empleado: ' + AContactos.NOMBRE);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
JsListaContactosNoEliminados.Execute;
|
||||
end;
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
|
||||
ViewGrid.GotoFirst;
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpleados.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AFichas: IBizEmpleado;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
{
|
||||
AFichas := Nil;
|
||||
AllItems := False;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
if not ViewGrid.esSeleccionCeldaDatos then
|
||||
inherited
|
||||
else
|
||||
begin
|
||||
Respuesta := JsPrevisualizarDialog.Execute;
|
||||
if Respuesta <> IDCANCEL then
|
||||
begin
|
||||
case JsPrevisualizarDialog.CustomButtonResult of
|
||||
200 : begin // Lista de elementos visibles
|
||||
inherited;
|
||||
end;
|
||||
100 : begin // Elemento Seleccionado
|
||||
if AllItems then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
|
||||
AFichas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizEmpleado;
|
||||
end
|
||||
else
|
||||
AFichas := Facturas;
|
||||
|
||||
if Assigned(AFichas) then
|
||||
FController.Preview(AFichas, AllItems);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpleados.PonerTitulos(const ATitulo: string);
|
||||
var
|
||||
FTitulo : String;
|
||||
begin
|
||||
FTitulo := 'Lista de empleados - ' + dmUsuarios.EmpresaActual.NOMBRE;
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
procedure TfEditorEmpleados.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
AFichas: IBizEmpleado;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AFichas := Nil;
|
||||
AllItems := False;
|
||||
|
||||
if MultiSelect and Assigned(ViewGrid) then
|
||||
AllItems := (ViewGrid.NumSeleccionados > 1);
|
||||
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
if not ViewGrid.esSeleccionCeldaDatos then
|
||||
inherited
|
||||
else
|
||||
begin
|
||||
Respuesta := JsPrevisualizarDialog.Execute;
|
||||
if Respuesta <> IDCANCEL then
|
||||
begin
|
||||
case JsPrevisualizarDialog.CustomButtonResult of
|
||||
200 : begin // Lista de elementos visibles
|
||||
inherited;
|
||||
end;
|
||||
100 : begin // Elemento Seleccionado
|
||||
if AllItems then
|
||||
begin
|
||||
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
|
||||
AFichas := (Controller as IEmpleadosController).ExtraerSeleccionados(Contactos) as IBizEmpleado;
|
||||
end
|
||||
else
|
||||
AFichas := (Contactos as IBizEmpleado);
|
||||
|
||||
if Assigned(AFichas) then
|
||||
(FController as IEmpleadosController).Preview(AFichas, AllItems);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,900 +0,0 @@
|
||||
object DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvFacturasCliente'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object tbl_FacturasCliente: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
Required = True
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha de las factura'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_SITUACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_RE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe RE'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Observaciones'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cliente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Direcci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_CALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_POBLACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Provincia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_PROVINCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_USUARIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = #191'Con R.E.?'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe del porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_COMISION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha de vencimiento'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = True
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasCliente'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasCliente'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasCliente'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'FacturasCliente'
|
||||
IndexDefs = <>
|
||||
Left = 208
|
||||
Top = 96
|
||||
end
|
||||
object ds_FacturasCliente: TDADataSource
|
||||
DataTable = tbl_FacturasCliente
|
||||
Left = 208
|
||||
Top = 40
|
||||
end
|
||||
object tbl_FacturasCliente_Detalles: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
Required = True
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Posici'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Concepto'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cantidad'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = #191'Visible?'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datFloat
|
||||
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 = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmParams
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_FACTURA=ID')
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasCliente_Detalles'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasCliente_Detalles'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasCliente_Detalles'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
MasterSource = ds_FacturasCliente
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_FACTURA'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'FacturasCliente_Detalles'
|
||||
IndexDefs = <>
|
||||
Left = 368
|
||||
Top = 96
|
||||
end
|
||||
object ds_FacturasCliente_Detalles: TDADataSource
|
||||
DataTable = tbl_FacturasCliente_Detalles
|
||||
Left = 368
|
||||
Top = 40
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
end
|
||||
@ -1,151 +0,0 @@
|
||||
unit uDataModuleFacturasCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
|
||||
uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente,
|
||||
uDADesigntimeCall, uIDataModuleFacturasClienteReport;
|
||||
|
||||
type
|
||||
TDataModuleFacturasCliente = class(TDAClientDataModule, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
tbl_FacturasCliente: TDACDSDataTable;
|
||||
ds_FacturasCliente: TDADataSource;
|
||||
tbl_FacturasCliente_Detalles: TDACDSDataTable;
|
||||
ds_FacturasCliente_Detalles: TDADataSource;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetDetalles : IBizDetallesFacturaCliente;
|
||||
public
|
||||
function GetItems : IBizFacturaCliente;
|
||||
function GetItem(const ID : Integer) : IBizFacturaCliente;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizFacturaCliente;
|
||||
|
||||
// Report
|
||||
function GetReport(const AFacturaID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schFacturasClienteClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmPresupuestos }
|
||||
|
||||
procedure TDataModuleFacturasCliente.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
if DataSetName = nme_FacturasCliente then
|
||||
aGeneratorName := 'GEN_FACTURAS_CLIENTE_ID';
|
||||
|
||||
if DataSetName = nme_FacturasCliente_Detalles then
|
||||
aGeneratorName := 'GEN_FACTURA_CLIENTE_DETALLES_ID';
|
||||
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetReport(const AFacturaID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AFacturaID)
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente._GetDetalles: IBizDetallesFacturaCliente;
|
||||
var
|
||||
ADetalles : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalles := _CloneDataTable(tbl_FacturasCliente_Detalles);
|
||||
with ADetalles do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_DETALLES_FACTURA_CLIENTE;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ADetalles as IBizDetallesFacturaCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetItem(const ID: Integer): IBizFacturaCliente;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_FacturasClienteID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasCliente.GetItems: IBizFacturaCliente;
|
||||
var
|
||||
AFactura : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFactura := _CloneDataTable(tbl_FacturasCliente);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
AFactura.FieldByName(fld_FacturasClienteREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AFactura.BusinessRulesID := BIZ_CLIENT_FACTURA_CLIENTE;
|
||||
|
||||
with TBizFacturaCliente(AFactura.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (AFactura as IBizFacturaCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -1,103 +0,0 @@
|
||||
unit srvFacturasCliente_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. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DARemoteService_Impl,
|
||||
{Used RODLs:} DataAbstract_Intf,
|
||||
{Generated:} FactuGES_Intf, uDAClasses, uDADataTable, uDABINAdapter,
|
||||
uDAInterfaces, frxClass, DB, IBCustomDataSet, IBDatabase,
|
||||
uDABusinessProcessor, uDAScriptingProvider, uDACDSDataTable;
|
||||
|
||||
type
|
||||
{ TsrvFacturasCliente }
|
||||
TsrvFacturasCliente = class(TDARemoteService, IsrvFacturasCliente)
|
||||
DABINAdapter: TDABINAdapter;
|
||||
Diagrams: TDADiagrams;
|
||||
bpFacturasCliente: TDABusinessProcessor;
|
||||
bpFacturasCliente_Detalles: TDABusinessProcessor;
|
||||
schFacturasCliente: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
||||
var ConnectionName: string);
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
private
|
||||
protected
|
||||
{ IsrvFacturasCliente methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerateReport(const FacturaID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, Dialogs,
|
||||
uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasClienteClient_Intf,
|
||||
uRestriccionesUsuarioUtils, uRptFacturasCliente_Server, uBizFacturasClienteServer;
|
||||
|
||||
procedure Create_srvFacturasCliente(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvFacturasCliente.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvFacturasCliente }
|
||||
procedure TsrvFacturasCliente.DARemoteServiceBeforeAcquireConnection(
|
||||
Sender: TDARemoteService; var ConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasCliente.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_FacturasCliente then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a facturas
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasCliente;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarFactura(FacturaID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
begin
|
||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvFacturasCliente', Create_srvFacturasCliente, TsrvFacturasCliente_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
@ -1,882 +0,0 @@
|
||||
object DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvFacturasProveedor'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
object tbl_FacturasProveedor: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
Required = True
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_REFERENCIA_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha de las factura'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_SITUACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_RE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe RE'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Observaciones'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cliente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Direcci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_CALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_POBLACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Provincia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_PROVINCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_USUARIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = #191'Con R.E.?'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_ID_TIPO_IVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe del porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha de vencimiento'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = True
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasProveedor'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasProveedor'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasProveedor'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'FacturasProveedor'
|
||||
IndexDefs = <>
|
||||
Left = 224
|
||||
Top = 160
|
||||
end
|
||||
object ds_FacturasProveedor: TDADataSource
|
||||
DataTable = tbl_FacturasProveedor
|
||||
Left = 224
|
||||
Top = 104
|
||||
end
|
||||
object tbl_FacturasProveedor_Detalles: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
Required = True
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Posici'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Concepto'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cantidad'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_DESCUENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_ID_ARTICULO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = #191'Visible?'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_PORTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmParams
|
||||
MasterParamsMappings.Strings = (
|
||||
'ID_FACTURA=ID')
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasProveedor_Detalles'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasProveedor_Detalles'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'FacturasProveedor_Detalles'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
MasterSource = ds_FacturasProveedor
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_FACTURA'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'FacturasProveedor_Detalles'
|
||||
IndexDefs = <>
|
||||
Left = 400
|
||||
Top = 160
|
||||
end
|
||||
object ds_FacturasProveedor_Detalles: TDADataSource
|
||||
DataTable = tbl_FacturasProveedor_Detalles
|
||||
Left = 400
|
||||
Top = 104
|
||||
end
|
||||
end
|
||||
@ -1,150 +0,0 @@
|
||||
unit uDataModuleFacturasProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
|
||||
uIDataModuleFacturasProveedor, uBizFacturasProveedor, uBizDetallesFacturaProveedor,
|
||||
uDADesigntimeCall, uIDataModuleFacturasProveedorReport;
|
||||
|
||||
type
|
||||
TDataModuleFacturasProveedor = class(TDAClientDataModule, IDataModuleFacturasProveedor, IDataModuleFacturasProveedorReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_FacturasProveedor: TDACDSDataTable;
|
||||
ds_FacturasProveedor: TDADataSource;
|
||||
tbl_FacturasProveedor_Detalles: TDACDSDataTable;
|
||||
ds_FacturasProveedor_Detalles: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetDetalles : IBizDetallesFacturaProveedor;
|
||||
public
|
||||
function GetItems : IBizFacturaProveedor;
|
||||
function GetItem(const ID : Integer) : IBizFacturaProveedor;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizFacturaProveedor;
|
||||
|
||||
// Report
|
||||
function GetReport(const AFacturaID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schFacturasProveedorClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmFacturasProveedor }
|
||||
|
||||
procedure TDataModuleFacturasProveedor.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
if DataSetName = nme_FacturasProveedor then
|
||||
aGeneratorName := 'GEN_FACTURAS_PROVEEDOR_ID';
|
||||
|
||||
if DataSetName = nme_FacturasProveedor_Detalles then
|
||||
aGeneratorName := 'GEN_FACTURA_PROV_DETALLES_ID';
|
||||
|
||||
Result := (RORemoteService as IsrvFacturasProveedor).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor.GetReport(const AFacturaID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvFacturasProveedor).GenerateReport(AFacturaID)
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor.NewItem: IBizFacturaProveedor;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor._GetDetalles: IBizDetallesFacturaProveedor;
|
||||
var
|
||||
ADetalles : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalles := _CloneDataTable(tbl_FacturasProveedor_Detalles);
|
||||
with ADetalles do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_DETALLES_FACTURA_PROVEEDOR;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ADetalles as IBizDetallesFacturaProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor.GetItem(const ID: Integer): IBizFacturaProveedor;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_FacturasProveedorID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleFacturasProveedor.GetItems: IBizFacturaProveedor;
|
||||
var
|
||||
AFactura : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFactura := _CloneDataTable(tbl_FacturasProveedor);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
AFactura.FieldByName(fld_FacturasProveedorREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
AFactura.BusinessRulesID := BIZ_CLIENT_FACTURA_PROVEEDOR;
|
||||
|
||||
with TBizFacturaProveedor(AFactura.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (AFactura as IBizFacturaProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -1,104 +0,0 @@
|
||||
unit srvFacturasProveedor_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. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
||||
uDAClasses, uDADataTable, uDABINAdapter, uDACDSDataTable, uDAInterfaces, DB,
|
||||
uDABin2DataStreamer, uDADataStreamer;
|
||||
|
||||
type
|
||||
{ TsrvFacturasProveedor }
|
||||
TsrvFacturasProveedor = class(TDARemoteService, IsrvFacturasProveedor)
|
||||
DABINAdapter: TDABINAdapter;
|
||||
Diagrams: TDADiagrams;
|
||||
bpFacturasProveedor: TDABusinessProcessor;
|
||||
bpFacturasProveedor_Detalles: TDABusinessProcessor;
|
||||
schFacturasProveedor: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
||||
var ConnectionName: string);
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
private
|
||||
protected
|
||||
{ IsrvFacturasProveedor methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerateReport(const FacturaID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, Dialogs,
|
||||
uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasProveedorClient_Intf,
|
||||
uRestriccionesUsuarioUtils, uBizFacturasProveedorServer,
|
||||
uRptFacturasProveedor_Server;
|
||||
|
||||
procedure Create_srvFacturasProveedor(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvFacturasProveedor.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvFacturasProveedor }
|
||||
procedure TsrvFacturasProveedor.DARemoteServiceBeforeAcquireConnection(
|
||||
Sender: TDARemoteService; var ConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasProveedor.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_FacturasProveedor then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a facturas
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
FiltrarAccesoUsuario(Session, Connection, schFacturasProveedor, DataSet, fld_FacturasProveedorID_EMPRESA);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvFacturasProveedor.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR;
|
||||
end;
|
||||
|
||||
function TsrvFacturasProveedor.GenerateReport(const FacturaID: String): Binary;
|
||||
var
|
||||
AReportGenerator : TRptFacturasProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptFacturasProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarFactura(FacturaID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvFacturasProveedor.GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
begin
|
||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvFacturasProveedor', Create_srvFacturasProveedor, TsrvFacturasProveedor_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
@ -1,53 +0,0 @@
|
||||
package Familias_controller;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl,
|
||||
cxLibraryD10,
|
||||
dxThemeD10,
|
||||
dsnap,
|
||||
vcldb,
|
||||
adortl,
|
||||
Familias_model,
|
||||
Familias_data,
|
||||
ControllerBase,
|
||||
dxBarExtItemsD10,
|
||||
dxComnD10,
|
||||
dxBarD10,
|
||||
dxLayoutControlD10,
|
||||
dxPSCoreD10,
|
||||
dxPScxCommonD10,
|
||||
dxPScxGridLnkD10,
|
||||
dxPsPrVwAdvD10,
|
||||
GUIBase;
|
||||
|
||||
contains
|
||||
uFamiliasController in 'uFamiliasController.pas',
|
||||
uIEditorFamilias in 'View\uIEditorFamilias.pas';
|
||||
|
||||
end.
|
||||
@ -1,42 +0,0 @@
|
||||
package Familias_data;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl,
|
||||
cxLibraryD10,
|
||||
dxThemeD10,
|
||||
vcl,
|
||||
dsnap,
|
||||
vcldb,
|
||||
adortl,
|
||||
Familias_model,
|
||||
Base;
|
||||
|
||||
contains
|
||||
uDataModuleFamilias in 'uDataModuleFamilias.pas' {DataModuleFamilias};
|
||||
|
||||
end.
|
||||
@ -1,41 +0,0 @@
|
||||
package Familias_model;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dsnap,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
vcl,
|
||||
adortl,
|
||||
DataAbstract_D10;
|
||||
|
||||
contains
|
||||
uBizFamilias in 'uBizFamilias.pas',
|
||||
uIDataModuleFamilias in 'Data\uIDataModuleFamilias.pas',
|
||||
schFamiliasClient_Intf in 'schFamiliasClient_Intf.pas';
|
||||
|
||||
end.
|
||||
@ -1,42 +0,0 @@
|
||||
package Familias_plugin;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
Familias_model,
|
||||
Familias_controller,
|
||||
Familias_view,
|
||||
PluginSDK_D10R;
|
||||
|
||||
contains
|
||||
uPluginFamilias in 'uPluginFamilias.pas';
|
||||
|
||||
end.
|
||||
@ -1,42 +0,0 @@
|
||||
package Familias_view;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
dsnap,
|
||||
adortl,
|
||||
GUIBase,
|
||||
DataAbstract_D10,
|
||||
Familias_controller;
|
||||
|
||||
contains
|
||||
uEditorFamilias in 'uEditorFamilias.pas' {fEditorFamilias: TfEditorFamilias},
|
||||
uFamiliasViewRegister in 'uFamiliasViewRegister.pas';
|
||||
|
||||
end.
|
||||
@ -1,54 +0,0 @@
|
||||
package FormasPago_controller;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl,
|
||||
cxLibraryD10,
|
||||
dxThemeD10,
|
||||
dsnap,
|
||||
vcldb,
|
||||
adortl,
|
||||
ControllerBase,
|
||||
dxBarExtItemsD10,
|
||||
dxComnD10,
|
||||
dxBarD10,
|
||||
dxLayoutControlD10,
|
||||
dxPSCoreD10,
|
||||
dxPScxCommonD10,
|
||||
dxPScxGridLnkD10,
|
||||
dxPsPrVwAdvD10,
|
||||
FormasPago_model,
|
||||
FormasPago_data;
|
||||
|
||||
contains
|
||||
uFormasPagoController in 'uFormasPagoController.pas',
|
||||
uIEditorFormaPago in 'View\uIEditorFormaPago.pas',
|
||||
uFormasPagoPlazosController in 'uFormasPagoPlazosController.pas',
|
||||
uIEditorFormasPago in 'View\uIEditorFormasPago.pas';
|
||||
|
||||
end.
|
||||
@ -1,42 +0,0 @@
|
||||
package FormasPago_data;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dbrtl,
|
||||
cxLibraryD10,
|
||||
dxThemeD10,
|
||||
vcl,
|
||||
dsnap,
|
||||
vcldb,
|
||||
adortl,
|
||||
Base,
|
||||
FormasPago_model;
|
||||
|
||||
contains
|
||||
uDataModuleFormasPago in 'uDataModuleFormasPago.pas' {DataModuleFormasPago};
|
||||
|
||||
end.
|
||||
@ -1,43 +0,0 @@
|
||||
package FormasPago_model;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
dsnap,
|
||||
dbrtl,
|
||||
vcldb,
|
||||
vcl,
|
||||
adortl,
|
||||
Base;
|
||||
|
||||
contains
|
||||
uIDataModuleFormasPago in 'Data\uIDataModuleFormasPago.pas',
|
||||
uBizFormasPago in 'uBizFormasPago.pas',
|
||||
uBizFormasPagoPlazos in 'uBizFormasPagoPlazos.pas',
|
||||
schFormasPagoClient_Intf in 'schFormasPagoClient_Intf.pas',
|
||||
schFormasPagoServer_Intf in 'schFormasPagoServer_Intf.pas';
|
||||
|
||||
end.
|
||||
@ -1,42 +0,0 @@
|
||||
package FormasPago_plugin;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
PngComponentsD10,
|
||||
PNG_D10,
|
||||
vclactnband,
|
||||
vclx,
|
||||
FormasPago_model,
|
||||
FormasPago_controller,
|
||||
FormasPago_view,
|
||||
PluginSDK_D10R;
|
||||
|
||||
contains
|
||||
uPluginFormasPago in 'uPluginFormasPago.pas';
|
||||
|
||||
end.
|
||||
@ -1,38 +0,0 @@
|
||||
package FormasPago_view;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
FormasPago_controller,
|
||||
JvCmpD11R;
|
||||
|
||||
contains
|
||||
uEditorFormasPago in 'uEditorFormasPago.pas' {fEditorFormasPago: TfEditorFormasPago},
|
||||
uFormasPagoViewRegister in 'uFormasPagoViewRegister.pas',
|
||||
uEditorFormaPago in 'uEditorFormaPago.pas' {fEditorFormaPago};
|
||||
|
||||
end.
|
||||
@ -1,334 +0,0 @@
|
||||
object DataModuleHistoricoMovimientos: TDataModuleHistoricoMovimientos
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvHistoricoMovimientos'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
object tbl_Historico_Movimientos: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'FECHA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_FECHA'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_ID_ALMACEN'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Almac'#233'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_NOMBRE_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_ID_ARTICULO'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FAMILIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Familia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_FAMILIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_REFERENCIA_PROV'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_DESCRIPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_MOVIMIENTO'
|
||||
DataType = datString
|
||||
Size = 7
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo mov.'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_TIPO_MOVIMIENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cantidad'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_CANTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CAUSA'
|
||||
DataType = datString
|
||||
Size = 2021
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Causa'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'HISTORICO_MOVIMIENTOS_CAUSA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'HISTORICO_MOVIMIENTOS'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'HISTORICO_MOVIMIENTOS'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'HISTORICO_MOVIMIENTOS'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'HISTORICO_MOVIMIENTOS'
|
||||
IndexDefs = <>
|
||||
Left = 288
|
||||
Top = 144
|
||||
end
|
||||
object ds_Historico_Movimientos: TDADataSource
|
||||
DataTable = tbl_Historico_Movimientos
|
||||
Left = 288
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
@ -1,98 +0,0 @@
|
||||
unit uDataModuleHistoricoMovimientos;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
uIDataModuleHistoricoMovimientos, uBizHistoricoMovimientos;
|
||||
|
||||
type
|
||||
TDataModuleHistoricoMovimientos = class(TDAClientDataModule, IDataModuleHistoricoMovimientos)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_Historico_Movimientos: TDACDSDataTable;
|
||||
ds_Historico_Movimientos: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
procedure AsignarClaseNegocio(var AHistoricoMovimientos: TDACDSDataTable); virtual;
|
||||
public
|
||||
function GetItems : IBizHistoricoMovimientos; overload;
|
||||
function GetItems(const ID_ALMACEN : Integer) : IBizHistoricoMovimientos; overload;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schHistoricoMovimientosClient_Intf;
|
||||
|
||||
{ TdmArticulos }
|
||||
|
||||
procedure TDataModuleHistoricoMovimientos.AsignarClaseNegocio(var AHistoricoMovimientos: TDACDSDataTable);
|
||||
begin
|
||||
AHistoricoMovimientos.BusinessRulesID := BIZ_CLIENT_HISTORICO_MOVIMIENTOS;
|
||||
end;
|
||||
|
||||
procedure TDataModuleHistoricoMovimientos.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleHistoricoMovimientos._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleHistoricoMovimientos.GetItems(const ID_ALMACEN: Integer): IBizHistoricoMovimientos;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
|
||||
OpenBraket;
|
||||
AddText(fld_Historico_MovimientosID_ALMACEN + ' = ' + IntToStr(ID_ALMACEN));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleHistoricoMovimientos.GetItems: IBizHistoricoMovimientos;
|
||||
var
|
||||
AHistoricoMovimientos : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AHistoricoMovimientos := _CloneDataTable(tbl_Historico_Movimientos);
|
||||
AsignarClaseNegocio(AHistoricoMovimientos);
|
||||
Result := (AHistoricoMovimientos as IBizHistoricoMovimientos);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -1,721 +0,0 @@
|
||||
object DataModuleInventario: TDataModuleInventario
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvInventario'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
object tbl_INVENTARIO: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'INVENTARIO_ID'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = True
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_ID_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_ID_ARTICULO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ALMACEN'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'INVENTARIO_REFERENCIA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FAMILIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_FAMILIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_DESCRIPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PRECIO_NETO'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Precio unidad'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'INVENTARIO_PRECIO_NETO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'UNIDADES_ALMACEN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'U. Almac'#233'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'COSTE_UNIDADES'
|
||||
DataType = datCurrency
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Coste unidades'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'STOCK'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Stock disponible'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_STOCK'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'RESERVA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Reservado'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_RESERVA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'PENDIENTE_RECEPCION'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Pendiente de recibir'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'INVENTARIO_CANTIDAD'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_CANTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MOVIMIENTO'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CAUSA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'INVENTARIO_CAUSA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_CAUSA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'INVENTARIO_TIPO'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'INVENTARIO_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'INVENTARIO'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'INVENTARIO'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'INVENTARIO'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'INVENTARIO'
|
||||
IndexDefs = <>
|
||||
Left = 280
|
||||
Top = 160
|
||||
end
|
||||
object ds_INVENTARIO: TDADataSource
|
||||
DataTable = tbl_INVENTARIO
|
||||
Left = 280
|
||||
Top = 96
|
||||
end
|
||||
object tbl_DetalleReservas: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_ALB'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'IdAlbaran'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_ALB'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. albar'#225'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION_ALB'
|
||||
DataType = datString
|
||||
Size = 9
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PREVISTA_ENVIO_ALB'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha prevista de envio'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN_ALB'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'IdAlmac'#233'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ALMACEN_ALB'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Almac'#233'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE_ALB'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'IdCliente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CLIENTE_ALB'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cliente'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_ART'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'IdArticulo'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FAMILIA_ART'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Familia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_ART'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROV_ART'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_ART'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD_ART'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Reservado'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'DETALLE_RESERVAS_INV'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'DETALLE_RESERVAS_INV'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'DETALLE_RESERVAS_INV'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'DETALLE_RESERVAS_INV'
|
||||
IndexDefs = <>
|
||||
Left = 408
|
||||
Top = 160
|
||||
end
|
||||
object dsDetalleReservas: TDADataSource
|
||||
DataTable = tbl_DetalleReservas
|
||||
Left = 408
|
||||
Top = 104
|
||||
end
|
||||
end
|
||||
@ -1,126 +0,0 @@
|
||||
unit uDataModuleInventario;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
uIDataModuleInventario, uBizInventario;
|
||||
|
||||
type
|
||||
TDataModuleInventario = class(TDAClientDataModule, IDataModuleInventario)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_INVENTARIO: TDACDSDataTable;
|
||||
ds_INVENTARIO: TDADataSource;
|
||||
tbl_DetalleReservas: TDACDSDataTable;
|
||||
dsDetalleReservas: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function darNombreGenerador(DataSetName: String): String; virtual;
|
||||
public
|
||||
function GetItems : IBizInventario; overload;
|
||||
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function GetDetalleReservas: IBizDetalleReservas;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schInventarioClient_Intf;
|
||||
|
||||
{ TdmArticulos }
|
||||
|
||||
procedure TDataModuleInventario.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleInventario.darNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
if DataSetName = nme_Inventario then
|
||||
Result := 'GEN_MOVIMIENTOS_ID';
|
||||
end;
|
||||
|
||||
function TDataModuleInventario.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
//Se usará para dar nuevos ids a la tabla de movimientos (Regularizaciones)
|
||||
aGeneratorName := darNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvInventario).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleInventario._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleInventario.GetDetalleReservas: IBizDetalleReservas;
|
||||
var
|
||||
ADetalleReservas : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalleReservas := _CloneDataTable(tbl_DetalleReservas);
|
||||
ADetalleReservas.BusinessRulesID := BIZ_CLIENT_DETALLE_RESERVAS_INV;
|
||||
Result := (ADetalleReservas as IBizDetalleReservas);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleInventario.GetItems(const ID_ALMACEN: Integer): IBizInventario;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
|
||||
OpenBraket;
|
||||
AddText(fld_INVENTARIOID_ALMACEN + ' = ' + IntToStr(ID_ALMACEN));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleInventario.GetItems: IBizInventario;
|
||||
var
|
||||
AInventario : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AInventario := _CloneDataTable(tbl_Inventario);
|
||||
AInventario.BusinessRulesID := BIZ_CLIENT_INVENTARIO;
|
||||
Result := (AInventario as IBizInventario);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,181 +0,0 @@
|
||||
unit uDataModulePedidosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
DB, Classes, SysUtils, uDADesigntimeCall, uROServiceComponent,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDAClientDataModule, uROTypes,
|
||||
uIDataModulePedidosProveedor, uIDataModulePedidosProveedorReport,
|
||||
uBizPedidosProveedor, uBizDetallesPedidoProveedor;
|
||||
|
||||
type
|
||||
TDataModulePedidosProveedor = class(TDAClientDataModule, IDataModulePedidosProveedor,
|
||||
IDataModulePedidosProveedorReport)
|
||||
ROChannel: TROWinInetHTTPChannel;
|
||||
ROMessage: TROBinMessage;
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
tbl_PedidosProveedor: TDACDSDataTable;
|
||||
ds_PedidosProveedor: TDADataSource;
|
||||
tbl_PedidosProveedor_Detalles: TDACDSDataTable;
|
||||
ds_PedidosProveedor_Detalles: TDADataSource;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
tbl_PedidosProveedor_Articulos_Pendientes: TDACDSDataTable;
|
||||
ds_PedidosProveedor_Articulos_Pendientes: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetDetalles : IBizDetallesPedidoProveedor;
|
||||
|
||||
protected
|
||||
procedure AsignarClaseNegocio(var APedido: TDACDSDataTable); virtual;
|
||||
|
||||
public
|
||||
function GetItems : IBizPedidoProveedor; virtual;
|
||||
function GetItem(const ID : Integer) : IBizPedidoProveedor;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizPedidoProveedor;
|
||||
|
||||
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
|
||||
|
||||
// Report
|
||||
function GetReport(const AID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
cxControls, FactuGES_Intf, uDAInterfaces, uDataModuleConexion,
|
||||
uDataTableUtils, schPedidosProveedorClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmPedidosProveedor }
|
||||
|
||||
procedure TDataModulePedidosProveedor.AsignarClaseNegocio(var APedido: TDACDSDataTable);
|
||||
begin
|
||||
APedido.BusinessRulesID := BIZ_CLIENT_PEDIDO_PROVEEDOR;
|
||||
end;
|
||||
|
||||
procedure TDataModulePedidosProveedor.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
if DataSetName = nme_PedidosProveedor then
|
||||
aGeneratorName := 'GEN_PEDIDOS_PROV_ID';
|
||||
|
||||
if DataSetName = nme_PedidosProveedor_Detalles then
|
||||
aGeneratorName := 'GEN_PEDIDOS_PROV_DETALLES_ID';
|
||||
|
||||
Result := (RORemoteService as IsrvPedidosProveedor).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetReport(const AID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvPedidosProveedor).GenerateReport(AID)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.NewItem: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor._GetDetalles: IBizDetallesPedidoProveedor;
|
||||
var
|
||||
ADetalles : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalles := _CloneDataTable(tbl_PedidosProveedor_Detalles);
|
||||
with ADetalles do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ADetalles as IBizDetallesPedidoProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
|
||||
var
|
||||
AArticulos : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AArticulos := _CloneDataTable(tbl_PedidosProveedor_Articulos_Pendientes);
|
||||
AArticulos.BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND;
|
||||
AArticulos.ParamByName('ID').AsInteger := IDPedido;
|
||||
Result := (AArticulos as IBizDetallesPedidoProveedorPend);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_PedidosProveedorID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetItems: IBizPedidoProveedor;
|
||||
var
|
||||
APedido : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedido := _CloneDataTable(tbl_PedidosProveedor);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AsignarClaseNegocio(APedido);
|
||||
|
||||
with TBizPedidoProveedor(APedido.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (APedido as IBizPedidoProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,110 +0,0 @@
|
||||
unit srvPedidosProveedor_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. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DARemoteService_Impl,
|
||||
{Used RODLs:} DataAbstract_Intf,
|
||||
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
||||
uDAClasses, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDACDSDataTable, uDAInterfaces, DB,
|
||||
frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
|
||||
|
||||
type
|
||||
{ TsrvPedidosProveedor }
|
||||
TsrvPedidosProveedor = class(TDARemoteService, IsrvPedidosProveedor)
|
||||
DABINAdapter: TDABINAdapter;
|
||||
bpPedidosProveedor: TDABusinessProcessor;
|
||||
bpPedidosProveedor_Detalles: TDABusinessProcessor;
|
||||
schPedidosProveedor: TDASchema;
|
||||
DADataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
||||
var ConnectionName: string);
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
private
|
||||
protected
|
||||
{ IsrvPedidosProveedor methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerateReport(const ID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
Dialogs,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uRptPedidosProveedor_Server, uBizPedidosProveedorServer;
|
||||
|
||||
{ uRORemoteDataModule,
|
||||
fServerForm, Variants, IB, schPedidosProveedorClient_Intf;
|
||||
}
|
||||
procedure Create_srvPedidosProveedor(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvPedidosProveedor.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvPedidosProveedor }
|
||||
procedure TsrvPedidosProveedor.DARemoteServiceBeforeAcquireConnection(
|
||||
Sender: TDARemoteService; var ConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_PedidosProveedor then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a pedidos
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR;
|
||||
end;
|
||||
|
||||
function TsrvPedidosProveedor.GenerateReport(const ID: String): Binary;
|
||||
var
|
||||
AReportGenerator : TRptPedidosProveedor;
|
||||
begin
|
||||
AReportGenerator := TRptPedidosProveedor.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarPedido(ID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvPedidosProveedor.GetNextAutoInc(
|
||||
const GeneratorName: String): Integer;
|
||||
begin
|
||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvPedidosProveedor', Create_srvPedidosProveedor, TsrvPedidosProveedor_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,198 +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 uDataModuleRecibosCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
|
||||
uIDataModuleRecibosCliente, uIDataModuleRecibosClienteReport,
|
||||
uBizRecibosCliente, uBizPagosCliente;
|
||||
|
||||
type
|
||||
TDataModuleRecibosCliente = class(TDAClientDataModule, IDataModuleRecibosCliente, IDataModuleRecibosClienteReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_RecibosCliente: TDACDSDataTable;
|
||||
ds_RecibosCliente: TDADataSource;
|
||||
tbl_PagosCliente: TDACDSDataTable;
|
||||
ds_PagosCliente: TDADataSource;
|
||||
tbl_RecibosCompensadosCli: TDACDSDataTable;
|
||||
ds_RecibosCompensadosCli: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
protected
|
||||
function DarNombreGenerador(DataSetName: String): String; virtual;
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetPagos: IBizPagosCliente;
|
||||
function _GetRecibosCompensados : IBizRecibosCompensadosCli;
|
||||
public
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function GetItems: IBizRecibosCliente;
|
||||
function GetItem(const ID : Integer) : IBizRecibosCliente;
|
||||
function NewItem : IBizRecibosCliente;
|
||||
function GetReport(const ID: String): Binary;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schRecibosClienteClient_Intf;
|
||||
|
||||
{ TDataModuleRecibosCliente }
|
||||
|
||||
|
||||
function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
|
||||
end;
|
||||
|
||||
procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente.DarNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
Result := '';
|
||||
if DataSetName = nme_RecibosCliente then
|
||||
Result := 'GEN_RECIBOS_CLIENTE_ID';
|
||||
if DataSetName = nme_PagosCliente then
|
||||
Result := 'GEN_PAGOS_CLIENTE_ID'
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := DarNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvRecibosCliente).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente._GetPagos: IBizPagosCliente;
|
||||
var
|
||||
APagos : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APagos := _CloneDataTable(tbl_PagosCliente);
|
||||
with APagos do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_IBIZPAGOSCLIENTE;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (APagos as IBizPagosCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente._GetRecibosCompensados: IBizRecibosCompensadosCli;
|
||||
var
|
||||
ARecibosCompensados : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosCli);
|
||||
with ARecibosCompensados do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSCLI;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ARecibosCompensados as IBizRecibosCompensadosCli);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente.GetItems: IBizRecibosCliente;
|
||||
var
|
||||
AIBizRecibosCliente : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AIBizRecibosCliente := _CloneDataTable(tbl_RecibosCliente);
|
||||
AIBizRecibosCliente.BusinessRulesID := BIZ_CLIENT_IBizRecibosCliente;
|
||||
|
||||
with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
|
||||
Pagos := _GetPagos;
|
||||
|
||||
with TBizRecibosCliente(AIBizRecibosCliente.BusinessEventsObj) do
|
||||
RecibosCompensados := _GetRecibosCompensados;
|
||||
|
||||
Result := (AIBizRecibosCliente as IBizRecibosCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente.NewItem: IBizRecibosCliente;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosCliente.GetItem(const ID: Integer): IBizRecibosCliente;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_RecibosClienteID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,106 +0,0 @@
|
||||
unit srvRecibosCliente_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. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DARemoteService_Impl,
|
||||
{Used RODLs:} DataAbstract_Intf,
|
||||
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
||||
uDAClasses, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDACDSDataTable, uDAInterfaces, DB,
|
||||
frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode;
|
||||
|
||||
type
|
||||
{ TsrvRecibosProveedor }
|
||||
TsrvRecibosCliente = class(TDARemoteService, IsrvRecibosCliente)
|
||||
DABINAdapter: TDABINAdapter;
|
||||
bpRecibosCliente: TDABusinessProcessor;
|
||||
bpPagosCliente: TDABusinessProcessor;
|
||||
bpRecibosCompensados: TDABusinessProcessor;
|
||||
schRecibosCliente: TDASchema;
|
||||
DADataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
|
||||
var ConnectionName: string);
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
private
|
||||
protected
|
||||
{ IsrvRecibosProveedor methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerateReport(const ID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
Dialogs,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schRecibosClienteClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uRptRecibosCliente_Server; //, uBizRecibosClienteServer;
|
||||
|
||||
procedure Create_srvRecibosCliente(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvRecibosCliente.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvRecibosProveedor }
|
||||
procedure TsrvRecibosCliente.DARemoteServiceBeforeAcquireConnection(
|
||||
Sender: TDARemoteService; var ConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
procedure TsrvRecibosCliente.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_RecibosCliente then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a Recibos
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
FiltrarAccesoUsuario(Session, Connection, schRecibosCliente, DataSet, fld_RecibosClienteID_EMPRESA);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvRecibosCliente.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
end;
|
||||
|
||||
function TsrvRecibosCliente.GenerateReport(const ID: String): Binary;
|
||||
var
|
||||
AReportGenerator : TRptRecibosCliente;
|
||||
begin
|
||||
AReportGenerator := TRptRecibosCliente.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarRecibo(ID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvRecibosCliente.GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
begin
|
||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvRecibosCliente', Create_srvRecibosCliente, TsrvRecibosCliente_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,198 +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 uDataModuleRecibosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
|
||||
uIDataModuleRecibosProveedor, uIDataModuleRecibosProveedorReport,
|
||||
uBizRecibosProveedor, uBizPagosProveedor;
|
||||
|
||||
type
|
||||
TDataModuleRecibosProveedor = class(TDAClientDataModule, IDataModuleRecibosProveedor, IDataModuleRecibosProveedorReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_PagosProveedor: TDACDSDataTable;
|
||||
ds_PagosProveedor: TDADataSource;
|
||||
tbl_RecibosProveedor: TDACDSDataTable;
|
||||
ds_RecibosProveedor: TDADataSource;
|
||||
tbl_RecibosCompensadosProv: TDACDSDataTable;
|
||||
ds_RecibosCompensadosProv: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
protected
|
||||
function DarNombreGenerador(DataSetName: String): String; virtual;
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetPagos: IBizPagosProveedor;
|
||||
function _GetRecibosCompensados : IBizRecibosCompensadosProv;
|
||||
public
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function GetItems: IBizRecibosProveedor;
|
||||
function GetItem(const ID : Integer) : IBizRecibosProveedor;
|
||||
function NewItem : IBizRecibosProveedor;
|
||||
function GetReport(const ID: Integer): Binary;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schRecibosProveedorClient_Intf;
|
||||
|
||||
{ TDataModuleRecibosProveedor }
|
||||
|
||||
|
||||
function TDataModuleRecibosProveedor.GetReport(const ID: Integer): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvRecibosProveedor).GenerateReport(ID);
|
||||
end;
|
||||
|
||||
procedure TDataModuleRecibosProveedor.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor.DarNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
Result := '';
|
||||
if DataSetName = nme_RecibosProveedor then
|
||||
Result := 'GEN_RECIBOS_PROVEEDOR_ID';
|
||||
if DataSetName = nme_PagosProveedor then
|
||||
Result := 'GEN_PAGOS_PROVEEDOR_ID'
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := DarNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvRecibosProveedor).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor._GetPagos: IBizPagosProveedor;
|
||||
var
|
||||
APagos : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APagos := _CloneDataTable(tbl_PagosProveedor);
|
||||
with APagos do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_IBIZPAGOSPROVEEDOR;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (APagos as IBizPagosProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor._GetRecibosCompensados: IBizRecibosCompensadosProv;
|
||||
var
|
||||
ARecibosCompensados : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosProv);
|
||||
with ARecibosCompensados do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSPROV;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ARecibosCompensados as IBizRecibosCompensadosProv);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor.GetItems: IBizRecibosProveedor;
|
||||
var
|
||||
AIBizRecibosProveedor : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AIBizRecibosProveedor := _CloneDataTable(tbl_RecibosProveedor);
|
||||
AIBizRecibosProveedor.BusinessRulesID := BIZ_CLIENT_IBizRecibosProveedor;
|
||||
|
||||
with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do
|
||||
Pagos := _GetPagos;
|
||||
|
||||
with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do
|
||||
RecibosCompensados := _GetRecibosCompensados;
|
||||
|
||||
Result := (AIBizRecibosProveedor as IBizRecibosProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor.NewItem: IBizRecibosProveedor;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleRecibosProveedor.GetItem(const ID: Integer): IBizRecibosProveedor;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_RecibosProveedorID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,106 +0,0 @@
|
||||
unit srvRecibosProveedor_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. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
||||
uDAClasses, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDACDSDataTable, uDAInterfaces, DB,
|
||||
{
|
||||
frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient,
|
||||
frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode, uDADataStreamer,
|
||||
}
|
||||
uDABin2DataStreamer, uDADataStreamer;
|
||||
|
||||
type
|
||||
{ TsrvRecibosProveedor }
|
||||
TsrvRecibosProveedor = class(TDataAbstractService, IsrvRecibosProveedor)
|
||||
bpRecibosProveedor: TDABusinessProcessor;
|
||||
bpPagosProveedor: TDABusinessProcessor;
|
||||
bpRecibosCompensados: TDABusinessProcessor;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schRecibosProveedor: TDASchema;
|
||||
DADataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||
var aConnectionName: string);
|
||||
protected
|
||||
{ IsrvRecibosProveedor methods }
|
||||
function GenerateReport(const ID: Integer): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
Dialogs,
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
|
||||
schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils;
|
||||
// uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer;
|
||||
|
||||
procedure Create_srvRecibosProveedor(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvRecibosProveedor.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvRecibosProveedor }
|
||||
|
||||
procedure TsrvRecibosProveedor.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
{
|
||||
if DataSet.Name = nme_RecibosProveedor then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a Recibos
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
{ FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
end;
|
||||
|
||||
procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvRecibosProveedor.GenerateReport(const ID: Integer): Binary;
|
||||
//var
|
||||
// AReportGenerator : TRptRecibosProveedor;
|
||||
begin
|
||||
// AReportGenerator := TRptRecibosProveedor.Create(nil);
|
||||
// try
|
||||
// Result := AReportGenerator.GenerarRecibo(ID);
|
||||
// finally
|
||||
// FreeAndNIL(AReportGenerator);
|
||||
// end;
|
||||
Result := NIL;
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvRecibosProveedor', Create_srvRecibosProveedor, TsrvRecibosProveedor_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
@ -1,227 +0,0 @@
|
||||
object DataModuleReferencias: TDataModuleReferencias
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvReferencias'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
object tbl_Referencias: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'CODIGO'
|
||||
DataType = datString
|
||||
Size = 50
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Referencias_CODIGO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencias'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Referencias_DESCRIPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'C'#243'digo'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Referencias_VALOR'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'Referencias_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Referencias'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Referencias'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Referencias'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
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
|
||||
DataTable = tbl_Referencias
|
||||
Left = 256
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
@ -1,71 +0,0 @@
|
||||
unit uDataModuleReferencias;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall, uIDataModuleReferencias, uBizReferencias;
|
||||
|
||||
type
|
||||
TDataModuleReferencias = class(TDAClientDataModule, IDataModuleReferencias)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_Referencias: TDACDSDataTable;
|
||||
ds_Referencias: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
public
|
||||
function GetItems: IBizReferencia;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, cxControls, uDataModuleConexion, uDataTableUtils,
|
||||
schReferenciasClient_Intf;
|
||||
|
||||
{ TdmAlmacens }
|
||||
|
||||
procedure TDataModuleReferencias.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleReferencias._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleReferencias.GetItems: IBizReferencia;
|
||||
var
|
||||
AReferencia : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AReferencia := _CloneDataTable(tbl_Referencias);
|
||||
AReferencia.BusinessRulesID := BIZ_CLIENT_REFERENCIA;
|
||||
|
||||
Result := (AReferencia as IBizReferencia);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -1,415 +0,0 @@
|
||||
object DataModuleRemesasCliente: TDataModuleRemesasCliente
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvRemesasCliente'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'luisleon07'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
Login.Username = 'Luis'
|
||||
Login.Password = '1'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
object tbl_RemesasCliente: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_ID_EMPRESA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Forma de cobro'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_FECHA_REMESA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_FECHA_REMESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_DESCRIPCION'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_DESCRIPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_USUARIO'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_USUARIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_DATOS_BANCO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_FECHA_ALTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Banco'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_NOMBRE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ENTIDAD'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cod. entidad'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ENTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SUCURSAL'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cod. sucursal'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_SUCURSAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DC'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_DC'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cuenta'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_CUENTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SUFIJO_N19'
|
||||
DataType = datString
|
||||
Size = 3
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Sufijo N19'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_SUFIJO_N19'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SUFIJO_N58'
|
||||
DataType = datString
|
||||
Size = 3
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Sufijo N58'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_SUFIJO_N58'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'RemesasCliente'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'RemesasCliente'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'RemesasCliente'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'RemesasCliente'
|
||||
IndexDefs = <>
|
||||
Left = 288
|
||||
Top = 152
|
||||
end
|
||||
object ds_RemesasCliente: TDADataSource
|
||||
DataTable = tbl_RemesasCliente
|
||||
Left = 288
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
@ -1,131 +0,0 @@
|
||||
unit uDataModuleRemesasCliente;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
uIDataModuleRemesasCliente, uIDataModuleRemesasClienteReport, uBizRemesasCliente;
|
||||
|
||||
type
|
||||
TDataModuleRemesasCliente = class(TDAClientDataModule, IDataModuleRemesasCliente, IDataModuleRemesasClienteReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_RemesasCliente: TDACDSDataTable;
|
||||
ds_RemesasCliente: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
procedure AsignarClaseNegocio(var ARemesaCliente: TDACDSDataTable); virtual;
|
||||
function darNombreGenerador(DataSetName: String): String; virtual;
|
||||
public
|
||||
function GetItems : IBizRemesaCliente; overload;
|
||||
function GetItem(const ID : Integer) : IBizRemesaCliente;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizRemesaCliente;
|
||||
|
||||
// Report
|
||||
function GetReport(const ID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schRemesasClienteClient_Intf, Dialogs;
|
||||
|
||||
{ TdmRemesasCliente }
|
||||
|
||||
procedure TDataModuleRemesasCliente.AsignarClaseNegocio(var ARemesaCliente: TDACDSDataTable);
|
||||
begin
|
||||
ARemesaCliente.BusinessRulesID := BIZ_CLIENT_REMESACLIENTE;
|
||||
end;
|
||||
|
||||
procedure TDataModuleRemesasCliente.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasCliente.DarNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
if DataSetName = nme_RemesasCliente then
|
||||
Result := 'GEN_REMESAS_CLIENTE_ID';
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasCliente.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := DarNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvRemesasCliente).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasCliente.GetReport(const ID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvRemesasCliente).GenerateReport(ID);
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasCliente.NewItem: IBizRemesaCliente;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasCliente._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasCliente.GetItem(const ID: Integer): IBizRemesaCliente;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_RemesasClienteID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasCliente.GetItems: IBizRemesaCliente;
|
||||
var
|
||||
ARemesaCliente : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ARemesaCliente := _CloneDataTable(tbl_RemesasCliente);
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
ARemesaCliente.FieldByName(fld_RemesasClienteREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
ARemesaCliente.FieldByName(fld_RemesasClienteIMPORTE_TOTAL).ServerAutoRefresh := TRUE;
|
||||
|
||||
AsignarClaseNegocio(ARemesaCliente);
|
||||
Result := (ARemesaCliente as IBizRemesaCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -1,413 +0,0 @@
|
||||
object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Height = 414
|
||||
Width = 518
|
||||
object RORemoteService: TRORemoteService
|
||||
ServiceName = 'srvRemesasProveedor'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object DABinAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object DADesigntimeCall1: TDADesigntimeCall
|
||||
RemoteRequest.MethodName = 'Login'
|
||||
RemoteRequest.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBoolean
|
||||
end
|
||||
item
|
||||
Name = 'User'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'Administrador'
|
||||
end
|
||||
item
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'luisleon07'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
ParamType = fOut
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TRdxLoginInfo'
|
||||
end>
|
||||
RemoteService = LoginRemoteService
|
||||
Left = 48
|
||||
Top = 160
|
||||
end
|
||||
object LoginRemoteService: TRORemoteService
|
||||
ServiceName = 'srvLogin'
|
||||
Message = ROBinMessage1
|
||||
Channel = ROWinInetHTTPChannel1
|
||||
Left = 48
|
||||
Top = 216
|
||||
end
|
||||
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object ROBinMessage1: TROBinMessage
|
||||
Left = 48
|
||||
Top = 324
|
||||
end
|
||||
object tbl_RemesasProveedor: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ID'
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_ID_EMPRESA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ID_EMPRESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasProveedor_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Forma de pago'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasProveedor_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_FECHA_REMESA'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_FECHA_REMESA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_DESCRIPCION'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_DESCRIPCION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'RemesasCliente_USUARIO'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_USUARIO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ID_DATOS_BANCO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_FECHA_ALTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Banco'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_NOMBRE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ENTIDAD'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cod. entidad'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_ENTIDAD'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SUCURSAL'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cod. sucursal'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_SUCURSAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DC'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_DC'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Cuenta'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_CUENTA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SUFIJO_N19'
|
||||
DataType = datString
|
||||
Size = 3
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Sufijo N19'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_SUFIJO_N19'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SUFIJO_N58'
|
||||
DataType = datString
|
||||
Size = 3
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Sufijo N58'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_SUFIJO_N58'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'RemesasProveedor'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'RemesasProveedor'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'RemesasProveedor'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RORemoteService
|
||||
Adapter = DABinAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'RemesasProveedor'
|
||||
IndexDefs = <>
|
||||
Left = 272
|
||||
Top = 160
|
||||
end
|
||||
object ds_RemesasProveedor: TDADataSource
|
||||
DataTable = tbl_RemesasProveedor
|
||||
Left = 272
|
||||
Top = 96
|
||||
end
|
||||
end
|
||||
@ -1,131 +0,0 @@
|
||||
unit uDataModuleRemesasProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uDADesigntimeCall,
|
||||
uIDataModuleRemesasProveedor, uIDataModuleRemesasProveedorReport, uBizRemesasProveedor;
|
||||
|
||||
type
|
||||
TDataModuleRemesasProveedor = class(TDAClientDataModule, IDataModuleRemesasProveedor, IDataModuleRemesasProveedorReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||
ROBinMessage1: TROBinMessage;
|
||||
tbl_RemesasProveedor: TDACDSDataTable;
|
||||
ds_RemesasProveedor: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
protected
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
procedure AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable); virtual;
|
||||
function darNombreGenerador(DataSetName: String): String; virtual;
|
||||
public
|
||||
function GetItems : IBizRemesaProveedor; overload;
|
||||
function GetItem(const ID : Integer) : IBizRemesaProveedor;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizRemesaProveedor;
|
||||
|
||||
// Report
|
||||
function GetReport(const ID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||
schRemesasProveedorClient_Intf, Dialogs;
|
||||
|
||||
{ TdmRemesasProveedor }
|
||||
|
||||
procedure TDataModuleRemesasProveedor.AsignarClaseNegocio(var ARemesaProveedor: TDACDSDataTable);
|
||||
begin
|
||||
ARemesaProveedor.BusinessRulesID := BIZ_CLIENT_REMESAPROVEEDOR;
|
||||
end;
|
||||
|
||||
procedure TDataModuleRemesasProveedor.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasProveedor.DarNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
if DataSetName = nme_RemesasProveedor then
|
||||
Result := 'GEN_REMESAS_Proveedor_ID';
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasProveedor.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := DarNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvRemesasProveedor).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasProveedor.GetReport(const ID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvRemesasProveedor).GenerateReport(ID);
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasProveedor.NewItem: IBizRemesaProveedor;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasProveedor.GetItem(const ID: Integer): IBizRemesaProveedor;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_RemesasProveedorID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleRemesasProveedor.GetItems: IBizRemesaProveedor;
|
||||
var
|
||||
ARemesaProveedor : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ARemesaProveedor := _CloneDataTable(tbl_RemesasProveedor);
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
ARemesaProveedor.FieldByName(fld_RemesasProveedorREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
ARemesaProveedor.FieldByName(fld_RemesasProveedorIMPORTE_TOTAL).ServerAutoRefresh := TRUE;
|
||||
|
||||
AsignarClaseNegocio(ARemesaProveedor);
|
||||
Result := (ARemesaProveedor as IBizRemesaProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -1,40 +0,0 @@
|
||||
package TiposIVA_controller;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
ControllerBase,
|
||||
TiposIVA_model,
|
||||
TiposIVA_data;
|
||||
|
||||
contains
|
||||
uTiposIVAController in 'uTiposIVAController.pas',
|
||||
uIEditorTiposIVA in 'View\uIEditorTiposIVA.pas',
|
||||
uIEditorTipoIVA in 'View\uIEditorTipoIVA.pas';
|
||||
|
||||
end.
|
||||
@ -1,37 +0,0 @@
|
||||
package TiposIVA_data;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
TiposIVA_model;
|
||||
|
||||
contains
|
||||
uDataModuleTiposIVA in 'uDataModuleTiposIVA.pas' {DataModuleTiposIVA: TDAClientDataModule};
|
||||
|
||||
end.
|
||||
@ -1,38 +0,0 @@
|
||||
package TiposIVA_model;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base;
|
||||
|
||||
contains
|
||||
uIDataModuleTiposIVA in 'Data\uIDataModuleTiposIVA.pas',
|
||||
schTiposIVAClient_Intf in 'schTiposIVAClient_Intf.pas',
|
||||
schTiposIVAServer_Intf in 'schTiposIVAServer_Intf.pas',
|
||||
uBizTiposIVA in 'uBizTiposIVA.pas';
|
||||
|
||||
end.
|
||||
@ -1,38 +0,0 @@
|
||||
package TiposIVA_plugin;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
PluginSDK_D10R,
|
||||
TiposIVA_model,
|
||||
TiposIVA_controller,
|
||||
TiposIVA_view;
|
||||
|
||||
contains
|
||||
uPluginTiposIVA in 'uPluginTiposIVA.pas';
|
||||
|
||||
end.
|
||||
@ -1,41 +0,0 @@
|
||||
package TiposIVA_view;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
Base,
|
||||
TiposIVA_model,
|
||||
TiposIVA_data,
|
||||
TiposIVA_controller,
|
||||
JvCmpD11R;
|
||||
|
||||
contains
|
||||
uTiposIVAViewRegister in 'uTiposIVAViewRegister.pas',
|
||||
uEditorTiposIVA in 'uEditorTiposIVA.pas' {fEditorTiposIVA: TfEditorTiposIVA},
|
||||
uEditorTipoIVA in 'uEditorTipoIVA.pas' {fEditorTipoIVA: TfEditorTipoIVA};
|
||||
|
||||
end.
|
||||
@ -1,330 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Library Name="FactuGES" UID="{99553DD5-13B5-40EB-B7E6-D2B9A7C1B4D6}" Version="3.0">
|
||||
<Services>
|
||||
<Service Name="srvContactos" UID="{A7EF4DF4-CE77-42ED-B157-F5FAC249AAD8}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{28CCDC07-A3A4-4917-89B4-64423DC70C9D}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateFichaEmpleadoReport" UID="{CCD0007A-F1FF-46C2-8BB8-09981EAE4FB7}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="EmpleadoID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerateEtiquetasReport" UID="{910E5F58-7F8E-4D4C-A6A8-2FAD54689219}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ContactosID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvLogin" UID="{F8EE30A7-9452-40FB-9902-E73B782A0CDD}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{399F9DB4-1B34-4140-AB6E-3BC10C0A7034}">
|
||||
<Operations>
|
||||
<Operation Name="Login" UID="{849EDFCE-0C6A-4D3C-B9E9-7770C5A7F0A4}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Boolean" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="User" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="Password" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="LoginInfo" DataType="TRdxLoginInfo" Flag="Out" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="Logout" UID="{3E5391BA-B717-44BB-88DC-C48CB3F7C789}">
|
||||
<Parameters>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="Ping" UID="{1F6D21B0-58D9-4D54-9D36-87C1D27004C0}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Boolean" Flag="Result">
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvEmpresas" UID="{72868303-9CA9-48D5-A1A1-F60CB223C576}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{590F06D1-26B4-435B-B636-50CB8FFE6353}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvConfiguracion" UID="{D96583A7-8B06-4B2C-8193-CE5FE7DFFBEB}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{0882B8A4-C8AA-424E-8FC1-C6226B670522}">
|
||||
<Operations>
|
||||
<Operation Name="darValor" UID="{DC5B2492-2918-4631-9E1A-A89C5C4AEB79}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="String" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="CODIGO" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvFamilias" UID="{65318CE1-3062-4248-9396-F7A54EEEC304}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{D351175C-CBFD-4328-BF2A-FDC0B05A6308}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvFormasPago" UID="{98CBCDEA-1259-458F-BBD5-0423D81E6FF2}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{38AA9F85-B454-4A87-B6E8-E9C8BB2A17D9}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvTiposIVA" UID="{1E018962-ADD6-489D-A20E-A3A9B0CA6328}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{09B44AB5-6212-448A-8DF2-A503E3F2C9B1}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvUsuarios" UID="{BB619F7B-23AF-4160-BF44-A8A5CD9209F8}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{29388459-1A0B-46BE-AF9E-66A9E7AABB0B}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvAlmacenes" UID="{AFF56A8A-8CAA-4CD9-8FB0-7145CCF317D4}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{F984D2A1-9922-4790-9B2D-A78ACFDAE82B}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvArticulos" UID="{292ACE2A-8349-41B3-A458-E7D410EA6D0F}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{CFBE5841-DF0F-48AD-853E-A35FDA989E6E}">
|
||||
<Operations>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvRecibosCliente" UID="{882A8440-30D9-4103-B421-1E8A3AA9352C}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{3B68252A-EE6A-4D37-B250-93F2DB940DDF}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{84D34140-D9D3-42FE-AD5E-A619EC50268F}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvRecibosProveedor" UID="{7371CFA3-E8FE-4897-817B-5ECD3A1A2BB1}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{04293024-D9C5-4C05-A44F-3F59BF66D0AF}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvRemesasCliente" UID="{E28B9A17-ECC1-4146-84D7-0AC7522E7740}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{33F414D0-0D0B-4384-96CB-D94BC97A0C39}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{2A2969AB-0C86-43B0-85B0-242F965119F3}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvRemesasProveedor" UID="{EEDF477E-4C48-408C-993F-447B1AF98606}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{6540A037-9847-4650-89BB-7B349C6004DF}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{0FEBE165-89EA-4325-84DE-A7024649D749}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvFacturasCliente" UID="{B4F37BBE-C464-45EA-86D3-73A1FED94AAA}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{8410D113-BEA9-4A0A-B5C7-BE0AFF66DA02}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="FacturaID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvFacturasProveedor" UID="{B2B5EFA1-A7EE-4245-AA50-4DF252B771DE}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{7655160C-7023-452E-BB0E-C97E29B915E7}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{B1B95D4E-DC3A-41AF-BC71-D8F99D5B793F}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="FacturaID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvPresupuestosCliente" UID="{E9EDA019-251A-44CF-B681-A3159E292796}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{4B11FE7D-44AE-4674-9DA7-6FB6B63FC620}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvPedidosProveedor" UID="{130EDFD7-E5B7-4FB3-A0C2-892EA0904B10}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{F038EDC3-4754-4A6D-B705-B75E994E7A95}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvAlbaranesCliente" UID="{04C0C0C5-2DA0-4BAA-B591-9EF79C303C51}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{6E910718-9AB0-47BB-9875-B0DE66A68D7A}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{8CB6A25E-C350-4F63-B567-22D9A850BD87}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GenerateEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="withRefCliente" DataType="Boolean" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
<Service Name="srvAlbaranesProveedor" UID="{6E7E1B20-A5C6-4570-84D2-CACB9965FC3D}" Ancestor="DataAbstractService">
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{66B71884-5CE4-4574-B825-60CDA956B628}">
|
||||
<Operations>
|
||||
<Operation Name="GenerateReport" UID="{C735D3BE-A3FE-49FA-8874-C5E4A7E01EB2}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="ID" DataType="String" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
</Operations>
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
|
||||
</Services>
|
||||
<EventSinks>
|
||||
</EventSinks>
|
||||
<Structs>
|
||||
<Struct Name="TRdxLoginInfo" UID="{9F208C71-2B14-4C46-949C-42D84960FC58}" AutoCreateParams="1">
|
||||
<Elements>
|
||||
<Element Name="UserID" DataType="Integer">
|
||||
</Element>
|
||||
<Element Name="SessionID" DataType="String">
|
||||
</Element>
|
||||
<Element Name="Usuario" DataType="String">
|
||||
</Element>
|
||||
<Element Name="Perfiles" DataType="StringArray">
|
||||
</Element>
|
||||
<Element Name="Empresas" DataType="TRdxEmpresasArray">
|
||||
</Element>
|
||||
</Elements>
|
||||
</Struct>
|
||||
</Structs>
|
||||
<Enums>
|
||||
</Enums>
|
||||
<Arrays>
|
||||
<Array Name="TRdxEmpresasArray" UID="{CA344218-3432-40B8-8FB7-F5BB30406098}">
|
||||
<ElementType DataType="Integer" />
|
||||
</Array>
|
||||
</Arrays>
|
||||
<Uses>
|
||||
<Use Name="DataAbstract4" UID="{1E2905B4-36C9-4EAA-9BB9-DF3D3C9BBE75}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
|
||||
</Use></Uses>
|
||||
</Library>
|
||||
Loading…
Reference in New Issue
Block a user