AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
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.
ec0020ddfc
AlonsoYSal_FactuGES/Modulos/Asientos/Servidor/srvAsientos_Impl.dfm

404 lines
12 KiB
Plaintext
Raw Blame History

object srvAsientos: TsrvAsientos
OldCreateOrder = True
RequiresSession = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schAsientos
ServiceAdapter = DABINAdapter
Left = 842
Top = 171
Height = 300
Width = 300
object schAsientos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <
item
Name = 'CODIGOCUENTA'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT CODIGO, FECHAASIENTO, DESCRIPCION'#10'FROM asientos'#10'WHERE COD' +
'IGOCUENTA = :CODIGOCUENTA'#10'AND TIPOASIENTO = '#39'C'#39#10'ORDER BY FECHAAS' +
'IENTO DESC, CODIGO DESC'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'FECHAASIENTO'
TableField = 'FECHAASIENTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'darPenultimoCierre'
Fields = <
item
Name = 'CODIGO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHAASIENTO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ASIENTOS'
SQL =
'SELECT'#10'ASIENTOS.CODIGO, ASIENTOS.CODIGOCUENTA, ASIENTOS.TIPOASIE' +
'NTO, ASIENTOS.PUNTEADO, ASIENTOS.FECHAALTA, ASIENTOS.USUARIO,'#10'AS' +
'IENTOS.FECHAASIENTO, ASIENTOS.FORMAPAGO, ASIENTOS.DESCRIPCION, A' +
'SIENTOS.CODIGOPAGO,'#10'ASIENTOS.IMPORTE, CAST(0 as FLOAT) as IMPORT' +
'EANT, CAST(0 as FLOAT) as IMPORTEPOS'#10#10'FROM ASIENTOS'#10#10'order by AS' +
'IENTOS.FECHAASIENTO DESC, ASIENTOS.CODIGO DESC'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'CODIGOCUENTA'
TableField = 'CODIGOCUENTA'
end
item
DatasetField = 'FECHAALTA'
TableField = 'FECHAALTA'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'FORMAPAGO'
TableField = 'FORMAPAGO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'CODIGOPAGO'
TableField = 'CODIGOPAGO'
end
item
DatasetField = 'FECHAASIENTO'
TableField = 'FECHAASIENTO'
end
item
DatasetField = 'PUNTEADO'
TableField = 'PUNTEADO'
end
item
DatasetField = 'TIPOASIENTO'
TableField = 'TIPOASIENTO'
end>
end>
Name = 'Asientos'
Fields = <
item
Name = 'CODIGO'
DataType = datAutoInc
BlobType = dabtUnknown
GeneratorName = 'GEN_ASIENTOS'
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'CODIGOASIENTO_GEN'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOCUENTA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPOASIENTO'
DataType = datString
Size = 1
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
DisplayLabel = 'Tipo asiento'
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PUNTEADO'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
DisplayLabel = 'Punteado'
Alignment = taLeftJustify
InPrimaryKey = False
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 = 'FECHAASIENTO'
DataType = datDateTime
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
DisplayLabel = 'Fecha asiento'
Alignment = taLeftJustify
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 = 'DESCRIPCION'
DataType = datString
Size = 100
BlobType = dabtUnknown
DictionaryEntry = 'DESCRIPCION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGOPAGO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'CODIGO (GENERICO)'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE'
DataType = datCurrency
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cuantia'
Alignment = taRightJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEANT'
DataType = datCurrency
BlobType = dabtUnknown
LogChanges = False
DisplayWidth = 0
DisplayLabel = 'Importe anterior'
Alignment = taRightJustify
InPrimaryKey = False
Calculated = True
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTEPOS'
DataType = datCurrency
BlobType = dabtUnknown
LogChanges = False
DisplayWidth = 0
DisplayLabel = 'Importe posterior'
Alignment = taRightJustify
InPrimaryKey = False
Calculated = True
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'CODIGOCUENTA'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAFIN'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHAINI'
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'select SUM(IMPORTE) as SUMA'#10'from ASIENTOS'#10'WHERE (CODIGOCUENTA = ' +
':CODIGOCUENTA)'#10'AND (FECHAASIENTO between :FECHAFIN and :FECHAINI' +
')'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'SUMA'
TableField = 'SUMA'
end>
end>
Name = 'darSumaAcumulada'
Fields = <
item
Name = 'SUMA'
DataType = datFloat
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 = 'VALORPUNTEADO'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'CODIGOCUENTA'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'FECHAINI'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end
item
Name = 'FECHAFIN'
BlobType = dabtUnknown
Value = ''
ParamType = daptUnknown
end>
Statements = <
item
Connection = 'IBX'
SQL =
'UPDATE ASIENTOS'#10'SET PUNTEADO = :VALORPUNTEADO'#10'WHERE (CODIGOCUENT' +
'A = :CODIGOCUENTA)'#10'AND (FECHAASIENTO <= :FECHAINI and FECHAASIEN' +
'TO > :FECHAFIN)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'AsignarPunteo'
end>
RelationShips = <>
UpdateRules = <>
Left = 40
Top = 16
end
object DABINAdapter: TDABINAdapter
Left = 40
Top = 72
end
end
Reference in New Issue View Git Blame Copy Permalink