494 lines
14 KiB
Plaintext
494 lines
14 KiB
Plaintext
inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
|
OnCreate = DAClientDataModuleCreate
|
|
Height = 398
|
|
Width = 518
|
|
object RORemoteService: TRORemoteService
|
|
Message = dmConexion.ROMessage
|
|
Channel = dmConexion.ROChannel
|
|
ServiceName = 'srvFacturasCliente'
|
|
Left = 48
|
|
Top = 24
|
|
end
|
|
object rda_FacturasCliente: TDARemoteDataAdapter
|
|
DataStreamer = Bin2DataStreamer
|
|
GetSchemaCall.RemoteService = RORemoteService
|
|
GetDataCall.RemoteService = RORemoteService
|
|
UpdateDataCall.RemoteService = RORemoteService
|
|
GetScriptsCall.RemoteService = RORemoteService
|
|
RemoteService = RORemoteService
|
|
Left = 51
|
|
Top = 143
|
|
end
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
Left = 48
|
|
Top = 80
|
|
end
|
|
object tbl_FacturasCliente: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
|
Required = True
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'FacturasCliente_ID'
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_EMPRESA'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 20
|
|
DisplayLabel = 'Referencia'
|
|
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
|
end
|
|
item
|
|
Name = 'TIPO'
|
|
DataType = datString
|
|
Size = 1
|
|
DisplayLabel = 'Tipo'
|
|
DictionaryEntry = 'FacturasCliente_TIPO'
|
|
end
|
|
item
|
|
Name = 'ID_COMISION_LIQUIDADA'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
|
|
end
|
|
item
|
|
Name = 'FECHA_FACTURA'
|
|
DataType = datDateTime
|
|
DisplayLabel = 'Fecha de las factura'
|
|
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
|
end
|
|
item
|
|
Name = 'FECHA_VENCIMIENTO'
|
|
DataType = datDateTime
|
|
end
|
|
item
|
|
Name = 'SITUACION'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'Situaci'#243'n'
|
|
DictionaryEntry = 'FacturasCliente_SITUACION'
|
|
end
|
|
item
|
|
Name = 'BASE_IMPONIBLE'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Base imponible'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
|
end
|
|
item
|
|
Name = 'DESCUENTO'
|
|
DataType = datFloat
|
|
DisplayLabel = 'Dto.'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_DESCUENTO'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_DESCUENTO'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe dto.'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
|
|
end
|
|
item
|
|
Name = 'IVA'
|
|
DataType = datFloat
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_IVA'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_IVA'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe IVA'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
|
|
end
|
|
item
|
|
Name = 'RE'
|
|
DataType = datFloat
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_RE'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_RE'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe RE'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe total'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
|
|
end
|
|
item
|
|
Name = 'OBSERVACIONES'
|
|
DataType = datMemo
|
|
DisplayLabel = 'Observaciones'
|
|
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
|
|
end
|
|
item
|
|
Name = 'ID_CLIENTE'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
|
end
|
|
item
|
|
Name = 'NOMBRE_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
ServerAutoRefresh = True
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'LOPD'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'NOMBRE_COMERCIAL_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
ServerAutoRefresh = True
|
|
end
|
|
item
|
|
Name = 'NIF_CIF'
|
|
DataType = datString
|
|
Size = 15
|
|
DisplayLabel = 'NIF/CIF'
|
|
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 100
|
|
DisplayLabel = 'Cliente'
|
|
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
|
end
|
|
item
|
|
Name = 'ID_DIRECCION'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'CALLE'
|
|
DataType = datString
|
|
Size = 150
|
|
DisplayLabel = 'Direcci'#243'n'
|
|
DictionaryEntry = 'FacturasCliente_CALLE'
|
|
end
|
|
item
|
|
Name = 'POBLACION'
|
|
DataType = datString
|
|
Size = 150
|
|
DisplayLabel = 'Poblaci'#243'n'
|
|
DictionaryEntry = 'FacturasCliente_POBLACION'
|
|
end
|
|
item
|
|
Name = 'PROVINCIA'
|
|
DataType = datString
|
|
Size = 30
|
|
DisplayLabel = 'Provincia'
|
|
DictionaryEntry = 'FacturasCliente_PROVINCIA'
|
|
end
|
|
item
|
|
Name = 'CODIGO_POSTAL'
|
|
DataType = datString
|
|
Size = 10
|
|
DisplayLabel = 'C'#243'd. postal'
|
|
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
|
|
end
|
|
item
|
|
Name = 'FECHA_ALTA'
|
|
DataType = datDateTime
|
|
DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
|
|
end
|
|
item
|
|
Name = 'FECHA_MODIFICACION'
|
|
DataType = datDateTime
|
|
DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
|
|
end
|
|
item
|
|
Name = 'USUARIO'
|
|
DataType = datString
|
|
Size = 100
|
|
DictionaryEntry = 'FacturasCliente_USUARIO'
|
|
end
|
|
item
|
|
Name = 'ID_FORMA_PAGO'
|
|
DataType = datInteger
|
|
DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO'
|
|
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
|
|
end
|
|
item
|
|
Name = 'REF_FORMA_PAGO'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'RECARGO_EQUIVALENCIA'
|
|
DataType = datSmallInt
|
|
DisplayLabel = #191'Con R.E.?'
|
|
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
|
|
end
|
|
item
|
|
Name = 'ID_TIPO_IVA'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_NETO'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe neto'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe del porte'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
|
|
end
|
|
item
|
|
Name = 'ID_AGENTE'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_COMISION'
|
|
DataType = datString
|
|
Size = 255
|
|
DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
|
|
end
|
|
item
|
|
Name = 'IGNORAR_CONTABILIDAD'
|
|
DataType = datSmallInt
|
|
DisplayLabel = 'FacturasCliente_IGNORAR_CONTABILIDAD'
|
|
DictionaryEntry = 'FacturasCliente_IGNORAR_CONTABILIDAD'
|
|
end
|
|
item
|
|
Name = 'ID_TIENDA'
|
|
DataType = datInteger
|
|
ServerAutoRefresh = True
|
|
end
|
|
item
|
|
Name = 'TIENDA'
|
|
DataType = datString
|
|
Size = 255
|
|
ServerAutoRefresh = True
|
|
end
|
|
item
|
|
Name = 'ID_SUBCUENTA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'SUBCUENTA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'ID_EJERCICIO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'ESTADO_EJERCICIO'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'ASIENTO_PUNTEADO'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'ID_CONTRATO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'REF_CONTRATO'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'VENDEDOR'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'SIN_COMISION'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'TIPO_FACTURA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'LISTA_NOMBRES'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'Otros nombres'
|
|
DictionaryEntry = 'FacturasCliente_LISTA_NOMBRES'
|
|
end
|
|
item
|
|
Name = 'PROCEDENCIA_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_FacturasCliente
|
|
LogicalName = 'FacturasCliente'
|
|
IndexDefs = <>
|
|
Left = 240
|
|
Top = 112
|
|
end
|
|
object ds_FacturasCliente: TDADataSource
|
|
DataSet = tbl_FacturasCliente.Dataset
|
|
DataTable = tbl_FacturasCliente
|
|
Left = 240
|
|
Top = 48
|
|
end
|
|
object tbl_FacturasCliente_Detalles: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID'
|
|
Required = True
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'FacturasCliente_Detalles_ID'
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_FACTURA'
|
|
DataType = datInteger
|
|
DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA'
|
|
end
|
|
item
|
|
Name = 'POSICION'
|
|
DataType = datInteger
|
|
DisplayLabel = 'Posici'#243'n'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
|
|
end
|
|
item
|
|
Name = 'TIPO_DETALLE'
|
|
DataType = datString
|
|
Size = 10
|
|
DisplayLabel = 'Tipo detalle'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
|
end
|
|
item
|
|
Name = 'CONCEPTO'
|
|
DataType = datString
|
|
Size = 2000
|
|
DisplayLabel = 'Concepto'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
|
|
end
|
|
item
|
|
Name = 'CANTIDAD'
|
|
DataType = datFloat
|
|
DisplayLabel = 'Cantidad'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_UNIDAD'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe unidad'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_TOTAL'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'Importe total'
|
|
Alignment = taRightJustify
|
|
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
|
end
|
|
item
|
|
Name = 'VISIBLE'
|
|
DataType = datInteger
|
|
DisplayLabel = #191'Visible?'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
|
|
end
|
|
item
|
|
Name = 'ID_ARTICULO'
|
|
DataType = datInteger
|
|
DisplayLabel = 'FacturasCliente_Detalles_ID_ARTICULO'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_ID_ARTICULO'
|
|
end
|
|
item
|
|
Name = 'DESCUENTO'
|
|
DataType = datFloat
|
|
DisplayLabel = 'FacturasCliente_Detalles_DESCUENTO'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_DESCUENTO'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_PORTE'
|
|
DataType = datCurrency
|
|
DisplayLabel = 'FacturasCliente_Detalles_IMPORTE_PORTE'
|
|
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_PORTE'
|
|
end
|
|
item
|
|
Name = 'REFERENCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_PROVEEDOR'
|
|
DataType = datString
|
|
Size = 255
|
|
end>
|
|
Params = <>
|
|
MasterMappingMode = mmWhere
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_FacturasCliente
|
|
MasterSource = ds_FacturasCliente
|
|
MasterFields = 'ID'
|
|
DetailFields = 'ID_FACTURA'
|
|
LogicalName = 'FacturasCliente_Detalles'
|
|
IndexDefs = <>
|
|
Left = 400
|
|
Top = 112
|
|
end
|
|
object ds_FacturasCliente_Detalles: TDADataSource
|
|
DataSet = tbl_FacturasCliente_Detalles.Dataset
|
|
DataTable = tbl_FacturasCliente_Detalles
|
|
Left = 400
|
|
Top = 40
|
|
end
|
|
object tbl_ListaAnosFacturas: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ANO'
|
|
DataType = datString
|
|
Size = 255
|
|
end>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_FacturasCliente
|
|
LogicalName = 'ListaAnosFacturas'
|
|
IndexDefs = <>
|
|
Left = 232
|
|
Top = 232
|
|
end
|
|
object ds_ListaAnosFacturas: TDADataSource
|
|
DataSet = tbl_ListaAnosFacturas.Dataset
|
|
DataTable = tbl_ListaAnosFacturas
|
|
Left = 232
|
|
Top = 184
|
|
end
|
|
end
|