Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
3f2d223b18
Tecsitel_FactuGES2/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
david 3f2d223b18 Albaranes de cliente: generación del informe en Word. 
Presupuestos de cliente: repaso del informe en Word.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@257 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2008-02-07 09:59:33 +00:00

1492 lines
45 KiB
Plaintext
Raw Blame History

object srvAlbaranesCliente: TsrvAlbaranesCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schAlbaranesCliente
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 209
Width = 347
object schAlbaranesCliente: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'V_ALBARANES_CLIENTE'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'FECHA_ALBARAN'
TableField = 'FECHA_ALBARAN'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'REF_PEDIDO'
TableField = 'REF_PEDIDO'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'INCIDENCIAS_ACTIVAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
end
item
DatasetField = 'FECHA_ENVIO'
TableField = 'FECHA_ENVIO'
end
item
DatasetField = 'FECHA_RECEPCION'
TableField = 'FECHA_RECEPCION'
end>
end>
Name = 'AlbaranesCliente'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_ID'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_EMPRESA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_NOMBRE'
end
item
Name = 'FECHA_ALBARAN'
DataType = datDateTime
DictionaryEntry = 'AlbaranesCliente_FECHA_ALBARAN'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'AlbaranesCliente_TIPO'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_SITUACION'
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_ALMACEN'
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_NOMBRE_ALMACEN'
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_PEDIDO'
end
item
Name = 'REF_PEDIDO'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_FACTURA'
end
item
Name = 'REF_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_CALLE'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'AlbaranesCliente_CODIGO_POSTAL'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_PROVINCIA'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_PERSONA_CONTACTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'AlbaranesCliente_TELEFONO'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_IMPORTE_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'AlbaranesCliente_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_IMPORTE_DESCUENTO'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_BASE_IMPONIBLE'
end
item
Name = 'IVA'
DataType = datFloat
DictionaryEntry = 'AlbaranesCliente_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_IMPORTE_IVA'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_IMPORTE_TOTAL'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'AlbaranesCliente_OBSERVACIONES'
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
DictionaryEntry = 'AlbaranesCliente_INCIDENCIAS'
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_INCIDENCIAS_ACTIVAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'AlbaranesCliente_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'AlbaranesCliente_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'AlbaranesCliente_USUARIO'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_FORMA_PAGO'
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
DictionaryEntry = 'AlbaranesCliente_FECHA_PREVISTA_ENVIO'
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
DictionaryEntry = 'AlbaranesCliente_FECHA_ENVIO'
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'SELECT'#10' ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETA' +
'LLES.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARA' +
'NES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' ALBARANES_CLIENTE_DETALLE' +
'S.CONCEPTO, ALBARANES_CLIENTE_DETALLES.CANTIDAD,'#10' ALBARANES_C' +
'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.DESCU' +
'ENTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE, ALBARANES_CL' +
'IENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VIS' +
'IBLE,'#10' ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFE' +
'RENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ' +
'ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIE' +
'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY P' +
'OSICION;'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_ALBARAN'
TableField = 'ID_ALBARAN'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end>
end>
Name = 'AlbaranesCliente_Detalles'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
DictionaryEntry = 'AlbaranesCliente_Detalles_ID'
InPrimaryKey = True
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_Detalles_ID_ALBARAN'
end
item
Name = 'POSICION'
DataType = datInteger
DictionaryEntry = 'POSICIONCONCEPTO'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DictionaryEntry = 'AlbaranesCliente_Detalles_TIPO_DETALLE'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'AlbaranesCliente_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'AlbaranesCliente_Detalles_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_Detalles_IMPORTE_PORTE'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'AlbaranesCliente_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_Detalles_ID_ARTICULO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'ID_CLIENTE'
Value = ''
end
item
Name = 'FECHA_ALBARAN'
Value = ''
end
item
Name = 'TIPO'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
Value = ''
end
item
Name = 'ID_ALMACEN'
Value = ''
end
item
Name = 'ID_PEDIDO'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'IMPORTE_NETO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
Value = ''
end
item
Name = 'IVA'
Value = ''
end
item
Name = 'IMPORTE_IVA'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'INCIDENCIAS'
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
Value = ''
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'FECHA_PREVISTA_ENVIO'
Value = ''
end
item
Name = 'FECHA_ENVIO'
Value = ''
end
item
Name = 'FECHA_RECEPCION'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
' FECHA_ALBARAN, TIPO, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_AL' +
'MACEN, ID_PEDIDO, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACI' +
'ON, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, IMPORTE_NETO, I' +
'MPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE' +
', IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10' INCIDENC' +
'IAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' ' +
'USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10' ' +
' FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :' +
'FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID' +
'_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, ' +
':POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPO' +
'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :' +
'BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACION' +
'ES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
'_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_EN' +
'VIO, :FECHA_ENVIO, :FECHA_RECEPCION)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_AlbaranesCliente'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' ALBARANES_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_AlbaranesCliente'
end
item
Params = <
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'ID_CLIENTE'
Value = ''
end
item
Name = 'FECHA_ALBARAN'
Value = ''
end
item
Name = 'TIPO'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
Value = ''
end
item
Name = 'ID_ALMACEN'
Value = ''
end
item
Name = 'ID_PEDIDO'
Value = ''
end
item
Name = 'ID_FACTURA'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'IMPORTE_NETO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
Value = ''
end
item
Name = 'IVA'
Value = ''
end
item
Name = 'IMPORTE_IVA'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'OBSERVACIONES'
Value = ''
end
item
Name = 'INCIDENCIAS'
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
Value = ''
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'FECHA_PREVISTA_ENVIO'
Value = ''
end
item
Name = 'FECHA_ENVIO'
Value = ''
end
item
Name = 'FECHA_RECEPCION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE'
SQL =
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_ALBARAN = :FECHA_ALBARAN,' +
#10' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA' +
'_CLIENTE = :REFERENCIA_CLIENTE, '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ' +
' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' CAL' +
'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION ' +
'= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO' +
' = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' IMPORTE_NE' +
'TO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DE' +
'SCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENT' +
'O, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' ' +
'IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
' '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDE' +
'NCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FEC' +
'HA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICA' +
'CION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10 +
' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_AlbaranesCliente'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
Value = ''
end
item
Name = 'ID_ALBARAN'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' +
'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' +
'LO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :C' +
'ONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_P' +
'ORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_AlbaranesCliente_Detalles'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'DELETE '#10' FROM'#10' ALBARANES_CLIENTE_DETALLES'#10' WHERE'#10' (ID = ' +
':OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_AlbaranesCliente_Detalles'
end
item
Params = <
item
Name = 'ID'
Value = ''
end
item
Name = 'ID_ALBARAN'
Value = ''
end
item
Name = 'POSICION'
Value = ''
end
item
Name = 'TIPO_DETALLE'
Value = ''
end
item
Name = 'CONCEPTO'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'IMPORTE_PORTE'
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
Value = ''
end
item
Name = 'VISIBLE'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
SQL =
'UPDATE ALBARANES_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID_AL' +
'BARAN = :ID_ALBARAN, '#10' POSICION = :POSICION, '#10' TIPO_DETALL' +
'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' +
'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' +
' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' +
'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' +
' = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_AlbaranesCliente_Detalles'
end>
RelationShips = <
item
Name = 'FK_AlbaranesCliente_Detalles'
MasterDatasetName = 'AlbaranesCliente'
MasterFields = 'ID'
DetailDatasetName = 'AlbaranesCliente_Detalles'
DetailFields = 'ID_ALBARAN'
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Insert AlbaranesCliente'
DoUpdate = False
DoDelete = False
DatasetName = 'AlbaranesCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert AlbaranesCliente_Detalles'
DoUpdate = False
DoDelete = False
DatasetName = 'AlbaranesCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Update AlbaranesCliente'
DoInsert = False
DoDelete = False
DatasetName = 'AlbaranesCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Update AlbaranesCliente_Detalles'
DoInsert = False
DoDelete = False
DatasetName = 'AlbaranesCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete AlbaranesCliente_Detalles'
DoUpdate = False
DoInsert = False
DatasetName = 'AlbaranesCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete AlbaranesCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'AlbaranesCliente'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48
Top = 24
end
object bpAlbaranesCliente: TDABusinessProcessor
Schema = schAlbaranesCliente
InsertCommandName = 'Insert_AlbaranesCliente'
DeleteCommandName = 'Delete_AlbaranesCliente'
UpdateCommandName = 'Update_AlbaranesCliente'
ReferencedDataset = 'AlbaranesCliente'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 200
Top = 24
end
object bpAlbaranesCliente_Detalles: TDABusinessProcessor
Schema = schAlbaranesCliente
InsertCommandName = 'Insert_AlbaranesCliente_Detalles'
DeleteCommandName = 'Delete_AlbaranesCliente_Detalles'
UpdateCommandName = 'Update_AlbaranesCliente_Detalles'
ReferencedDataset = 'AlbaranesCliente_Detalles'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 200
Top = 88
end
object DADataDictionary: TDADataDictionary
Fields = <
item
Name = 'AlbaranesCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'AlbaranesCliente_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'AlbaranesCliente_ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'ID_CLIENTE'
end
item
Name = 'AlbaranesCliente_NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre del cliente'
end
item
Name = 'AlbaranesCliente_SITUACION'
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
end
item
Name = 'AlbaranesCliente_CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
end
item
Name = 'AlbaranesCliente_CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'd. postal'
end
item
Name = 'AlbaranesCliente_POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
end
item
Name = 'AlbaranesCliente_PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
end
item
Name = 'AlbaranesCliente_PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
end
item
Name = 'AlbaranesCliente_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'AlbaranesCliente_OBSERVACIONES'
DataType = datMemo
DisplayLabel = 'Observaciones'
end
item
Name = 'AlbaranesCliente_INCIDENCIAS'
DataType = datMemo
DisplayLabel = 'INCIDENCIAS'
end
item
Name = 'AlbaranesCliente_INCIDENCIAS_ACTIVAS'
DataType = datInteger
DisplayLabel = 'INCIDENCIAS_ACTIVAS'
end
item
Name = 'AlbaranesCliente_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'FECHA_ALTA'
end
item
Name = 'AlbaranesCliente_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'FECHA_MODIFICACION'
end
item
Name = 'AlbaranesCliente_USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'USUARIO'
end
item
Name = 'AlbaranesCliente_IMPORTE_NETO'
DataType = datCurrency
DisplayLabel = 'Importe neto'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe del porte'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_IMPORTE_DESCUENTO'
DataType = datCurrency
DisplayLabel = 'Importe dto.'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_BASE_IMPONIBLE'
DataType = datCurrency
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_IVA'
DataType = datFloat
DisplayLabel = 'IVA'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_IMPORTE_IVA'
DataType = datCurrency
DisplayLabel = 'Importe IVA'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_ID_FORMA_PAGO'
DataType = datInteger
DisplayLabel = 'ID_FORMA_PAGO'
end
item
Name = 'AlbaranesCliente_Detalles_ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALBARANES_CLI_DETALLES_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'AlbaranesCliente_Detalles_ID_PEDIDO'
DataType = datInteger
DisplayLabel = 'ID_PEDIDO'
end
item
Name = 'POSICIONCONCEPTO'
DataType = datInteger
DisplayLabel = 'POSICION'
end
item
Name = 'AlbaranesCliente_Detalles_TIPO_DETALLE'
DataType = datString
Size = 10
DisplayLabel = 'TIPO_DETALLE'
end
item
Name = 'AlbaranesCliente_Detalles_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'AlbaranesCliente_Detalles_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'AlbaranesCliente_Detalles_CONCEPTO'
DataType = datString
Size = 2000
DisplayLabel = 'CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe porte'
Alignment = taRightJustify
end
item
Name = 'AlbaranesCliente_Detalles_VISIBLE'
DataType = datInteger
DisplayLabel = 'VISIBLE'
end
item
Name = 'AlbaranesCliente_Detalles_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
end
item
Name = 'AlbaranesCliente_FECHA_ALBARAN'
DataType = datDateTime
DisplayLabel = 'Fecha albar'#225'n'
end
item
Name = 'AlbaranesCliente_ID_PEDIDO'
DataType = datInteger
DisplayLabel = 'ID_PEDIDO'
end
item
Name = 'AlbaranesCliente_ID_FACTURA'
DataType = datInteger
DisplayLabel = 'ID_FACTURA'
end
item
Name = 'AlbaranesCliente_Detalles_ID_ALBARAN'
DataType = datInteger
DisplayLabel = 'ID_ALBARAN'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_ID_ALBARAN'
DataType = datInteger
DisplayLabel = 'ID_ALBARAN'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_DESCUENTO'
DataType = datFloat
DisplayLabel = 'DESCUENTO'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_IMPORTE_PORTE'
DataType = datFloat
DisplayLabel = 'IMPORTE_PORTE'
end
item
Name = 'AlbaranesCliente_Detalles_Refresh_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'AlbaranesCliente_ID_ALMACEN'
DataType = datInteger
DisplayLabel = 'ID_ALMACEN'
end
item
Name = 'AlbaranesCliente_FECHA_ENVIO'
DataType = datDateTime
DisplayLabel = 'Fecha de env'#237'o'
end
item
Name = 'AlbaranesCliente_FECHA_RECEPCION'
DataType = datDateTime
DisplayLabel = 'Fecha de recepci'#243'n'
end
item
Name = 'AlbaranesCliente_REF_PEDIDO'
DataType = datString
Size = 255
DisplayLabel = 'Ref. pedido cliente'
end
item
Name = 'AlbaranesCliente_REF_FACTURA'
DataType = datString
Size = 255
DisplayLabel = 'Ref. factura cliente'
end
item
Name = 'AlbaranesCliente_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
end
item
Name = 'AlbaranesCliente_FECHA_PREVISTA_ENVIO'
DataType = datDateTime
DisplayLabel = 'Fecha prevista de envio'
end
item
Name = 'AlbaranesCliente_NOMBRE_ALMACEN'
DataType = datString
Size = 255
DisplayLabel = 'Almac'#233'n'
end
item
Name = 'AlbaranesCliente_TIPO'
DataType = datString
Size = 1
DisplayLabel = 'Tipo'
end
item
Name = 'AlbaranesCliente_REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end>
Left = 48
Top = 136
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
end
Reference in New Issue View Git Blame Copy Permalink