git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@101 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
332 lines
8.1 KiB
Plaintext
332 lines
8.1 KiB
Plaintext
inherited dmInfVentasArticulo: TdmInfVentasArticulo
|
|
OnCreate = DAClientDataModuleCreate
|
|
Height = 436
|
|
Width = 524
|
|
object RORemoteService: TRORemoteService
|
|
Message = dmConexion.ROMessage
|
|
Channel = dmConexion.ROChannel
|
|
ServiceName = 'srvInfVentasArticulo'
|
|
Left = 64
|
|
Top = 24
|
|
end
|
|
object DADesigntimeCall1: TDADesigntimeCall
|
|
RemoteService = LoginRemoteService
|
|
Params = <>
|
|
Left = 64
|
|
Top = 160
|
|
end
|
|
object LoginRemoteService: TRORemoteService
|
|
Message = ROBinMessage1
|
|
Channel = ROWinInetHTTPChannel1
|
|
ServiceName = 'srvLogin'
|
|
Left = 64
|
|
Top = 216
|
|
end
|
|
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
|
|
UserAgent = 'RemObjects SDK'
|
|
TargetURL = 'http://localhost:8090/bin'
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 64
|
|
Top = 272
|
|
end
|
|
object ROBinMessage1: TROBinMessage
|
|
Envelopes = <>
|
|
Left = 64
|
|
Top = 324
|
|
end
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
Left = 64
|
|
Top = 88
|
|
end
|
|
object rda_InfVentasArticulo: TDARemoteDataAdapter
|
|
DataStreamer = Bin2DataStreamer
|
|
GetSchemaCall.RemoteService = RORemoteService
|
|
GetDataCall.RemoteService = RORemoteService
|
|
GetDataCall.MethodName = 'GetData'
|
|
GetDataCall.Params = <
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtBinary
|
|
Flag = fResult
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'aTableNameArray'
|
|
DataType = rtUserDefined
|
|
Flag = fIn
|
|
TypeName = 'StringArray'
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'aTableRequestInfoArray'
|
|
DataType = rtUserDefined
|
|
Flag = fIn
|
|
TypeName = 'TableRequestInfoArray'
|
|
Value = Null
|
|
end>
|
|
GetDataCall.Default = False
|
|
GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
|
|
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
|
|
GetDataCall.IncomingDataParameter = 'Result'
|
|
GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
|
|
GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
|
|
UpdateDataCall.RemoteService = RORemoteService
|
|
GetScriptsCall.RemoteService = RORemoteService
|
|
RemoteService = RORemoteService
|
|
Left = 280
|
|
Top = 96
|
|
end
|
|
object rda_TablaVacia: TDARemoteDataAdapter
|
|
DataStreamer = Bin2DataStreamer
|
|
DynamicSelect = True
|
|
GetSchemaCall.RemoteService = RORemoteService
|
|
GetDataCall.RemoteService = RORemoteService
|
|
GetDataCall.MethodName = 'SQLGetData'
|
|
GetDataCall.Params = <
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtBinary
|
|
Flag = fResult
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'aSQLText'
|
|
DataType = rtUTF8String
|
|
Flag = fIn
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'aIncludeSchema'
|
|
DataType = rtBoolean
|
|
Flag = fIn
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'aMaxRecords'
|
|
DataType = rtInteger
|
|
Flag = fIn
|
|
Value = Null
|
|
end>
|
|
GetDataCall.Default = False
|
|
GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
|
|
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
|
|
GetDataCall.IncomingDataParameter = 'Result'
|
|
GetDataCall.OutgoingIncludeSchemaParameter = 'aIncludeSchema'
|
|
GetDataCall.OutgoingMaxRecordsParameter = 'aMaxRecords'
|
|
UpdateDataCall.RemoteService = RORemoteService
|
|
GetScriptsCall.RemoteService = RORemoteService
|
|
RemoteService = RORemoteService
|
|
Left = 408
|
|
Top = 96
|
|
end
|
|
object tbl_TablaVacia: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_TablaVacia
|
|
LogicalName = 'TablaVacia'
|
|
IndexDefs = <>
|
|
Left = 408
|
|
Top = 152
|
|
end
|
|
object tbl_InfVentasArticulo: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID_FACTURA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'ID_EMPRESA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_FACTURA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'FECHA_FACTURA'
|
|
DataType = datDateTime
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL_FACTURA'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'ID_COMISION_FACTURA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'ID_ARTICULO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'FAMILIA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_PROV'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'DESCRIPCION'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'COMISIONABLE'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'INVENTARIABLE'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'IMPORTE_UNIDAD_COSTE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'DESCUENTO_PROVEEDOR_COSTE'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_NETO_COSTE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE_COSTE'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'CANTIDAD'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_UNIDAD_VENTA'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'DESCUENTO_CLIENTE_VENTA'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_NETO_VENTA'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE_VENTA'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL_VENTA'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'NIF_CIF_PROVEEDOR'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'NOMBRE_PROVEEDOR'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CALLE_PROVEEDOR'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'POBLACION_PROVEEDOR'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'PROVINCIA_PROVEEDOR'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'NIF_CIF_CLIENTE'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'NOMBRE_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'NOMBRE_COMERCIAL_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CALLE_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'POBLACION_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'PROVINCIA_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'NIF_CIF_AGENTE'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'NOMBRE_AGENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CALLE_AGENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'POBLACION_AGENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'PROVINCIA_AGENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'COMISION_AGENTE'
|
|
DataType = datFloat
|
|
end
|
|
item
|
|
Name = 'IMPORTE_COMISION_AGENTE'
|
|
DataType = datFloat
|
|
end>
|
|
Params = <>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_InfVentasArticulo
|
|
LogicalName = 'InfVentasArticulo'
|
|
IndexDefs = <>
|
|
Left = 280
|
|
Top = 152
|
|
end
|
|
end
|