This repository has been archived on 2024-12-02. You can view files and clone it, but cannot push or open issues or pull requests.
AlonsoYSal_FactuGES/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm

2099 lines
65 KiB
Plaintext

object srvPresupuestos: TsrvPresupuestos
OldCreateOrder = True
SessionManager = dmServer.SessionManager
OnActivate = DARemoteServiceActivate
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schPresupuestos
ServiceAdapter = DABINAdapter
Left = 1197
Top = 264
Height = 359
Width = 328
object schPresupuestos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
SQL =
'select ANO from'#10'(select distinct(substr(FECHAPRESUPUESTO, 1,4)) ' +
'as ANO'#10'from presupuestos'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dis' +
'tinct '#39'Todos'#39' as ANO'#10'from empresas'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ANO'
TableField = 'ANO'
end>
end>
Name = 'ListaAnosPresupuestos'
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'DETALLESPRESUPUESTOS'
SQL =
'SELECT '#10' CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' +
'D, '#10' IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION, VISIBLE,'#10' ' +
' PUNTOS, IMPORTEPUNTOS, VALORADO'#10' FROM'#10' DETALLESPRESUPUESTO' +
'S'#10' WHERE CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO'#10' ORDER BY POSI' +
'CION'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOPRESUPUESTO'
TableField = 'CODIGOPRESUPUESTO'
end
item
DatasetField = 'NUMCONCEPTO'
TableField = 'NUMCONCEPTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'IMPORTEUNIDAD'
TableField = 'IMPORTEUNIDAD'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
end
item
DatasetField = 'PUNTOS'
TableField = 'PUNTOS'
end
item
DatasetField = 'IMPORTEPUNTOS'
TableField = 'IMPORTEPUNTOS'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end>
end>
Name = 'DetallesPresupuestos'
Fields = <
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOPRESUPUESTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUMCONCEPTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'NUMCONCEPTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DictionaryEntry = 'DESCRIPCIONCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEUNIDAD'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEUNIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTETOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Description = 'Cap'#237'tulo, etc'
BlobType = dabtUnknown
DictionaryEntry = 'TIPODETALLESPRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'POSICIONCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VISIBLE'
DataType = datString
Size = 1
BlobType = dabtUnknown
DictionaryEntry = 'VISIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PUNTOS'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'PUNTOS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEPUNTOS'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEPUNTOS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VALORADO'
DataType = datString
Size = 1
BlobType = dabtUnknown
DictionaryEntry = 'DetallesPresupuestos_VALORADO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PRESUPUESTOS'
SQL =
'SELECT CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, CODIGOCONTACTO' +
','#10' TIPO, FECHAPRESUPUESTO, VIGENCIAPRESUPUESTO, SITUACION,' +
' FECHADECISION,'#10' BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENT' +
'O, IVA, IMPORTEIVA,'#10' IMPORTETOTAL, OBSERVACIONES, PLAZOENT' +
'REGA, FORMAPAGO, OPCION,'#10' NOMBRE, NIF_CIF, REFERENCIA,'#10' ' +
' CODIGOALBARAN, ALBARAN'#10#10'FROM V_PRESUPUESTOS'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOEMPRESA'
TableField = 'CODIGOEMPRESA'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'FECHAALTA'
TableField = 'FECHAALTA'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHAPRESUPUESTO'
TableField = 'FECHAPRESUPUESTO'
end
item
DatasetField = 'VIGENCIAPRESUPUESTO'
TableField = 'VIGENCIAPRESUPUESTO'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'FECHADECISION'
TableField = 'FECHADECISION'
end
item
DatasetField = 'BASEIMPONIBLE'
TableField = 'BASEIMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTEDESCUENTO'
TableField = 'IMPORTEDESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTEIVA'
TableField = 'IMPORTEIVA'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'PLAZOENTREGA'
TableField = 'PLAZOENTREGA'
end
item
DatasetField = 'FORMAPAGO'
TableField = 'FORMAPAGO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'CODIGOALBARAN'
TableField = 'CODIGOALBARAN'
end
item
DatasetField = 'ALBARAN'
TableField = 'ALBARAN'
end
item
DatasetField = 'OPCION'
TableField = 'OPCION'
end>
end>
Name = 'Presupuestos'
Fields = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOEMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOPRESUPUESTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'FECHAALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOCONTACTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
ServerAutoRefresh = True
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 10
Description = 'Cocina, ba'#241'o, etc'
BlobType = dabtUnknown
DictionaryEntry = 'TIPOPRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'FECHAPRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VIGENCIAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'VIGENCIAPRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 30
Description = 'Pendiente, aceptado o rechazado'
BlobType = dabtUnknown
DictionaryEntry = 'SITUACIONPRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHADECISION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'FECHADECISION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BASEIMPONIBLE'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'BASEIMPONIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEDESCUENTO'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEDESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEIVA'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEIVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTETOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PLAZOENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'PLAZOENTREGA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'FORMAPAGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOALBARAN'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
ServerAutoRefresh = True
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ALBARAN'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PRESUPUESTOS'
SQL =
'SELECT CODIGO, NOMBRE, REFERENCIA, CODIGOALBARAN, ALBARAN'#10#10'FROM ' +
'V_PRESUPUESTOS'#10'WHERE V_PRESUPUESTOS.CODIGO = :CODIGO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CODIGOALBARAN'
TableField = 'CODIGOALBARAN'
end
item
DatasetField = 'ALBARAN'
TableField = 'ALBARAN'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end>
end>
Name = 'Presupuestos_RefreshDataset'
Fields = <
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOPRESUPUESTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
LogChanges = False
DisplayWidth = 0
DisplayLabel = 'Nombre'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOALBARAN'
DataType = datInteger
BlobType = dabtUnknown
LogChanges = False
DisplayWidth = 0
DisplayLabel = 'C'#243'd. albar'#225'n'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ALBARAN'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PRESUPUESTOS'
SQL =
'SELECT CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, CODIGOCONTACTO' +
','#10' TIPO, FECHAPRESUPUESTO, VIGENCIAPRESUPUESTO, SITUACION,' +
' FECHADECISION,'#10' BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENT' +
'O, IVA, IMPORTEIVA,'#10' IMPORTETOTAL, OBSERVACIONES, PLAZOENT' +
'REGA, FORMAPAGO, OPCION,'#10' NOMBRE, NIF_CIF, NOMBRE, CALLE, ' +
'CODIGOPOSTAL, POBLACION, TELEFONO1,'#10' TELEFONO2, MOVIL, REF' +
'ERENCIA,'#10' CODIGOALBARAN, ALBARAN'#10#10'FROM V_PRESUPUESTOS'#10'WHER' +
'E CODIGO = :CODIGO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOEMPRESA'
TableField = 'CODIGOEMPRESA'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'FECHAALTA'
TableField = 'FECHAALTA'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'CODIGOCONTACTO'
TableField = 'CODIGOCONTACTO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHAPRESUPUESTO'
TableField = 'FECHAPRESUPUESTO'
end
item
DatasetField = 'VIGENCIAPRESUPUESTO'
TableField = 'VIGENCIAPRESUPUESTO'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'FECHADECISION'
TableField = 'FECHADECISION'
end
item
DatasetField = 'BASEIMPONIBLE'
TableField = 'BASEIMPONIBLE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTEDESCUENTO'
TableField = 'IMPORTEDESCUENTO'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTEIVA'
TableField = 'IMPORTEIVA'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'PLAZOENTREGA'
TableField = 'PLAZOENTREGA'
end
item
DatasetField = 'FORMAPAGO'
TableField = 'FORMAPAGO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'CODIGOPOSTAL'
TableField = 'CODIGOPOSTAL'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'TELEFONO1'
TableField = 'TELEFONO1'
end
item
DatasetField = 'TELEFONO2'
TableField = 'TELEFONO2'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE1'
TableField = 'NOMBRE1'
end
item
DatasetField = 'OPCION'
TableField = 'OPCION'
end
item
DatasetField = 'CODIGOALBARAN'
TableField = 'CODIGOALBARAN'
end
item
DatasetField = 'ALBARAN'
TableField = 'ALBARAN'
end>
end>
Name = 'InformeCabeceraPresupuesto'
Fields = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VIGENCIAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SITUACION'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHADECISION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BASEIMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
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 = 'IMPORTEDESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEIVA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PLAZOENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE1'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPOSTAL'
DataType = datString
Size = 5
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 40
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO1'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO2'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL'
DataType = datString
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'OPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOALBARAN'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ALBARAN'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'DETALLESPRESUPUESTOS'
SQL =
'SELECT '#10' CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' +
'D, '#10' IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION, VALORADO'#10' ' +
'FROM'#10' DETALLESPRESUPUESTOS'#10' WHERE CODIGOPRESUPUESTO = :CODIG' +
'OPRESUPUESTO'#10' AND VISIBLE = '#39'S'#39#10' ORDER BY POSICION'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGOPRESUPUESTO'
TableField = 'CODIGOPRESUPUESTO'
end
item
DatasetField = 'NUMCONCEPTO'
TableField = 'NUMCONCEPTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'IMPORTEUNIDAD'
TableField = 'IMPORTEUNIDAD'
end
item
DatasetField = 'IMPORTETOTAL'
TableField = 'IMPORTETOTAL'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end>
end>
Name = 'InformeDetallesPresupuesto'
Fields = <
item
Name = 'CODIGOPRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGOPRESUPUESTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NUMCONCEPTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'NUMCONCEPTO'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DictionaryEntry = 'DESCRIPCIONCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CANTIDAD'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEUNIDAD'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTEUNIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTETOTAL'
DataType = datCurrency
BlobType = dabtUnknown
DictionaryEntry = 'IMPORTETOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Description = 'Cap'#237'tulo, etc'
BlobType = dabtUnknown
DictionaryEntry = 'TIPODETALLESPRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'POSICIONCONCEPTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VALORADO'
DataType = datString
Size = 1
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <
item
Params = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VIGENCIAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'SITUACION'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHADECISION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'BASEIMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEDESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEIVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTETOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PLAZOENTREGA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL =
'INSERT'#10' INTO PRESUPUESTOS'#10' (CODIGOEMPRESA, CODIGO, FECHAALTA' +
', USUARIO, CODIGOCONTACTO,'#10' TIPO, FECHAPRESUPUESTO, VIGENCIA' +
'PRESUPUESTO,'#10' SITUACION, FECHADECISION, BASEIMPONIBLE, DESCU' +
'ENTO, '#10' IMPORTEDESCUENTO, IVA, IMPORTEIVA, IMPORTETOTAL, OBS' +
'ERVACIONES, '#10' PLAZOENTREGA, FORMAPAGO, OPCION)'#10' VALUES'#10' ' +
'(:CODIGOEMPRESA, :CODIGO,'#10' :FECHAALTA, :USUARIO, :CODIGOCONT' +
'ACTO,'#10' :TIPO, :FECHAPRESUPUESTO, :VIGENCIAPRESUPUESTO,'#10' ' +
':SITUACION, :FECHADECISION, :BASEIMPONIBLE, :DESCUENTO, '#10' :I' +
'MPORTEDESCUENTO, :IVA, :IMPORTEIVA, :IMPORTETOTAL, '#10' :OBSERV' +
'ACIONES, :PLAZOENTREGA, :FORMAPAGO, :OPCION);'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Presupuestos'
end
item
Params = <
item
Name = 'CODIGOEMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGOCONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VIGENCIAPRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'SITUACION'
DataType = datString
Size = 30
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHADECISION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'BASEIMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEDESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTEIVA'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTETOTAL'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PLAZOENTREGA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FORMAPAGO'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL =
'UPDATE PRESUPUESTOS'#10' SET '#10' CODIGOEMPRESA = :CODIGOEMPRESA, '#10 +
' FECHAALTA = :FECHAALTA, '#10' USUARIO = :USUARIO, '#10' CODIGO' +
'CONTACTO = :CODIGOCONTACTO, '#10' TIPO = :TIPO,'#10' FECHAPRESUPUE' +
'STO = :FECHAPRESUPUESTO, '#10' VIGENCIAPRESUPUESTO = :VIGENCIAPRE' +
'SUPUESTO, '#10' SITUACION = :SITUACION, '#10' FECHADECISION = :FEC' +
'HADECISION, '#10' BASEIMPONIBLE = :BASEIMPONIBLE, '#10' DESCUENTO ' +
'= :DESCUENTO, '#10' IMPORTEDESCUENTO = :IMPORTEDESCUENTO, '#10' IV' +
'A = :IVA, '#10' IMPORTEIVA = :IMPORTEIVA, '#10' IMPORTETOTAL = :IM' +
'PORTETOTAL, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' PLAZOENTRE' +
'GA = :PLAZOENTREGA, '#10' FORMAPAGO = :FORMAPAGO,'#10' OPCION = :O' +
'PCION'#10' WHERE'#10' (CODIGO = :OLD_CODIGO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Presupuestos'
end
item
Params = <
item
Name = 'OLD_CODIGO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PRESUPUESTOS'
SQL =
'DELETE '#10' FROM'#10' PRESUPUESTOS'#10' WHERE'#10' (CODIGO = :OLD_CODIG' +
'O)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Presupuestos'
end>
RelationShips = <
item
Name = 'FK_DetallesPresupuestos_Presupuestos'
MasterDatasetName = 'Presupuestos'
MasterFields = 'CODIGO'
DetailDatasetName = 'DetallesPresupuestos'
DetailFields = 'CODIGOPRESUPUESTO'
end
item
Name = 'FK_InformeDetallesPresupuesto_InformeCabeceraPresupuesto'
MasterDatasetName = 'InformeCabeceraPresupuesto'
MasterFields = 'CODIGO'
DetailDatasetName = 'InformeDetallesPresupuesto'
DetailFields = 'CODIGOPRESUPUESTO'
end>
UpdateRules = <
item
Name = 'Insert Presupuestos'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'Presupuestos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update Presupuestos'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'Presupuestos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete DetallesPresupuestos'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'DetallesPresupuestos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update DetallesPresupuestos'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'DetallesPresupuestos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert DetallesPresupuestos'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'DetallesPresupuestos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete Presupuestos'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'Presupuestos'
FailureBehaviour = fbRaiseException
end>
Left = 48
Top = 24
end
object bpPresupuestos: TDABusinessProcessor
Schema = schPresupuestos
InsertCommandName = 'Insert_Presupuestos'
DeleteCommandName = 'Delete_Presupuestos'
UpdateCommandName = 'Update_Presupuestos'
RefreshDatasetName = 'Presupuestos_RefreshDataset'
ReferencedDataset = 'Presupuestos'
ProcessorOptions = [poAutoGenerateDelete, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 24
end
object frxReport1: TfrxReport
Version = '3.23.7'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 43487.523822719910000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure Band4OnBeforePrint(Sender: TfrxComponent);'
'begin'
' case <frxDBDetalles."TIPO"> of'
' '#39'C'#39': begin'
' MemoCampo12.Style := '#39'Concepto normal'#39';'
' MemoCampo2.Style := '#39'Concepto normal'#39';'
' MemoCampo3.Style := '#39'Concepto normal'#39';'
' MemoCampo4.Style := '#39'Concepto normal'#39';'
' end;'
' '#39'S'#39': begin'
' MemoCampo12.Style := '#39'Concepto subtotal'#39';'
' MemoCampo2.Style := '#39'Concepto subtotal'#39';'
' MemoCampo3.Style := '#39'Concepto subtotal'#39';'
' MemoCampo4.Style := '#39'Concepto subtotal'#39';'
' end;'
' '#39'T'#39': begin'
' MemoCampo12.Style := '#39'Concepto titulo'#39';'
' MemoCampo2.Style := '#39'Concepto titulo'#39';'
' MemoCampo3.Style := '#39'Concepto titulo'#39';'
' MemoCampo4.Style := '#39'Concepto titulo'#39';'
' end;'
' end;'
''
' MemoCampo12.Height := 0;'
' MemoCampo2.Height := 0;'
' MemoCampo3.Height := 0;'
' MemoCampo4.Height := 0;'
'end;'
''
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' +
'mary1.Height - 1;'
'end;'
''
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'var'
' cadenaAux: String;'
'begin'
' DatosCliente.Lines.Clear;'
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
''
' if (<frxDBCabecera."CODIGOPOSTAL"> <> '#39#39')'
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
'xDBCabecera."POBLACION">);'
''
' CadenaAux := '#39#39';'
' if <frxDBCabecera."TELEFONO1"> <> '#39#39' then'
' if CadenaAux = '#39#39' then'
' CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
'ONO1">'
' else'
' CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
'O1">;'
''
' if <frxDBCabecera."TELEFONO2"> <> '#39#39' then'
' if CadenaAux = '#39#39' then'
' CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."TELEF' +
'ONO2">'
' else'
' CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."TELEFON' +
'O2">;'
''
' if <frxDBCabecera."MOVIL"> <> '#39#39' then'
' if CadenaAux = '#39#39' then'
' CadenaAux := CadenaAux + '#39'Telf:'#39' + <frxDBCabecera."MOVIL' +
'">'
' else'
' CadenaAux := CadenaAux + '#39' / '#39' + <frxDBCabecera."MOVIL">' +
';'
''
' DatosCliente.Lines.Add(CadenaAux);'
'end;'
''
''
'procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);'
'begin'
' case <frxDBDetalles."VALORADO"> of'
' '#39'S'#39': begin'
' MemoCampo3.Visible := True;'
' MemoCampo4.Visible := True;'
' end;'
' '#39'N'#39': begin'
' MemoCampo3.Visible := False;'
' MemoCampo4.Visible := False;'
' end;'
' end;'
'end;'
''
'begin'
''
'end.')
StoreInDFM = False
Left = 40
Top = 128
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles'
end>
Variables = <>
Style = <
item
Name = 'Concepto normal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
end
item
Name = 'Concepto subtotal'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
item
Name = 'Cabecera de columna'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
item
Name = 'Concepto titulo'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end>
end
object DADataCabecera: TDADataSource
DataTable = tbl_Presupuesto
Left = 120
Top = 176
end
object DADataDetalles: TDADataSource
DataTable = tbl_DetallesPresupuesto
Left = 200
Top = 176
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera'
CloseDataSource = False
DataSource = DADataCabecera
Left = 120
Top = 128
end
object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles'
CloseDataSource = False
DataSource = DADataDetalles
Left = 200
Top = 128
end
object tbl_Presupuesto: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
Adapter = DABINAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 120
Top = 240
end
object tbl_DetallesPresupuesto: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
Adapter = DABINAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 200
Top = 240
end
object DABINAdapter: TDABINAdapter
Left = 48
Top = 80
end
end