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