Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
1f5e6ebcb9
AbetoDesign_FactuGES2/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
roberto 1f5e6ebcb9 Version 4.5.4 
Cambio en los informes de Contratos de cliente de todas las entidades: Cambio fecha de entrega por fecha expedicion - Solicitado por Próspero
Cambio logo uecko y sellos cabecera en todos los informes de todas las entidades- Solicitado por Noelia
Arreglo para que permita introducir DNI y CIFs raros - Solicitado por Mónica
Las facturas proforma no se tendrán en cuenta en las facturas asociadas a los contratos, listado de contratos - Solicitado por Eva
Se añade comprobación de capitulos para que avise si existe un subtotal sin capitulo correspondiente, ayudará a controlar errores en presupuestos y contratos largos. - Solicitado por Miriam
En los detalles de presupuestos y contratos si eligen un articulo de la tarífa el programa no deja modificar las descripciones (Se ha detectado que lo hen hecho en ocasiones en las tiendas) - Solicitado por Miriam

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@186 93f398dd-4eb6-7a46-baf6-13f46f578da2
2024-02-05 10:15:29 +00:00

538 lines
13 KiB
Plaintext
Raw Blame History

inherited DataModuleArticulos: TDataModuleArticulos
OnCreate = DAClientDataModuleCreate
Height = 365
Width = 547
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
ServiceName = 'srvArticulos'
Left = 48
Top = 24
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 84
end
object rda_Articulos: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
Left = 51
Top = 151
end
object tbl_Articulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID'
Required = True
ServerAutoRefresh = True
DictionaryEntry = 'Articulos_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Articulos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'Articulos_REFERENCIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
DictionaryEntry = 'Articulos_DESCRIPCION'
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
DisplayLabel = 'Familia'
DictionaryEntry = 'Articulos_FAMILIA'
end
item
Name = 'IMAGEN'
DataType = datBlob
DisplayLabel = 'Foto'
DictionaryEntry = 'Articulos_IMAGEN'
end
item
Name = 'COMISIONABLE'
DataType = datInteger
DisplayLabel = 'Comisionable'
DictionaryEntry = 'Articulos_COMISIONABLE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Articulos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Articulos_USUARIO'
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
DisplayLabel = 'Importe'
DictionaryEntry = 'Articulos_PRECIO_COSTE'
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
DisplayLabel = 'Porte'
DictionaryEntry = 'Articulos_PRECIO_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DictionaryEntry = 'Articulos_DESCUENTO'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_NETO'
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'Articulos_ID_PROVEEDOR'
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR'
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
DisplayLabel = 'Eliminado'
end
item
Name = 'TARIFA'
DataType = datString
Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
end
item
Name = 'STOCK_MIN'
DataType = datInteger
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
LogicalName = 'Articulos'
IndexDefs = <>
Left = 232
Top = 112
end
object ds_Articulos: TDADataSource
DataSet = tbl_Articulos.Dataset
DataTable = tbl_Articulos
Left = 232
Top = 32
end
object tbl_ArticulosParaCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
DisplayLabel = 'Eliminado'
end
item
Name = 'TARIFA'
DataType = datString
Size = 255
end>
Params = <
item
Name = 'ID_CLIENTE'
Value = ''
ParamType = daptInput
end>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
LogicalName = 'ArticulosParaCliente'
IndexDefs = <>
Left = 400
Top = 112
end
object ds_ArticulosParaCliente: TDADataSource
DataSet = tbl_ArticulosParaCliente.Dataset
DataTable = tbl_ArticulosParaCliente
Left = 400
Top = 32
end
object tbl_Articulos_Proveedores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID'
Required = True
ServerAutoRefresh = True
InPrimaryKey = True
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_ACTUALIZACION'
DataType = datDateTime
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
MasterSource = ds_Articulos
MasterFields = 'ID'
DetailFields = 'ID_ARTICULO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch]
LogicalName = 'Articulos_Proveedores'
IndexDefs = <>
Left = 232
Top = 240
end
object ds_Articulos_Proveedores: TDADataSource
DataSet = tbl_Articulos_Proveedores.Dataset
DataTable = tbl_Articulos_Proveedores
Left = 232
Top = 176
end
object tbl_ArticulosParaCompra: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
end
item
Name = 'TARIFA'
DataType = datString
Size = 255
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FAB'
DataType = datString
Size = 50
end
item
Name = 'STOCK_MIN'
DataType = datInteger
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
LogicalName = 'ArticulosParaCompra'
IndexDefs = <>
Left = 400
Top = 248
end
object ds_ArticulosParaCompra: TDADataSource
DataSet = tbl_ArticulosParaCompra.Dataset
DataTable = tbl_ArticulosParaCompra
Left = 400
Top = 184
end
object tbl_Articulos_Idiomas: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_IDIOMAS_ID'
Required = True
ServerAutoRefresh = True
InPrimaryKey = True
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'ID_IDIOMA'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 1000
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
MasterSource = ds_Articulos
MasterFields = 'ID'
DetailFields = 'ID_ARTICULO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch]
LogicalName = 'Articulos_Idiomas'
IndexDefs = <>
Left = 80
Top = 288
end
object ds_Articulos_Idiomas: TDADataSource
DataSet = tbl_Articulos_Idiomas.Dataset
DataTable = tbl_Articulos_Idiomas
Left = 80
Top = 232
end
end
Reference in New Issue View Git Blame Copy Permalink