Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@80 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
David Arranz 2007-11-12 19:35:51 +00:00
parent 8e01f6c9d2
commit 8b44c6793b
3 changed files with 250 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Modulos/Formas de pago/Data/FormasPago_data.res
View File

Binary file not shown.

253
Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm
View File

@ -6,16 +6,16 @@ object srvFormasPago: TsrvFormasPago
ServiceDataStreamer = Bin2DataStreamer ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <> ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 202 Height = 208
Width = 247 Width = 441
object Diagrams: TDADiagrams object Diagrams: TDADiagrams
Left = 150 Left = 150
Top = 90 Top = 90
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="FormasPagoPlazos" Le' + 'idth="400" Height="300">'#13#10' <Entity Name="FormasPagoPlazos" Le' +
'ft="396,00" Top="100,00" />'#13#10' <Entity Name="FormasPago" Left=' + 'ft="394,00" Top="98,00" />'#13#10' <Entity Name="FormasPago" Left="' +
'"0,00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 '0,00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object DataDictionary: TDADataDictionary object DataDictionary: TDADataDictionary
Fields = < Fields = <
@ -247,7 +247,228 @@ object srvFormasPago: TsrvFormasPago
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
Commands = <> Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FORMAS_PAGO_ID'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'DESCRIPCION'
Value = ''
end
item
Name = 'TITULAR'
Value = ''
end
item
Name = 'ENTIDAD'
Value = ''
end
item
Name = 'SUCURSAL'
Value = ''
end
item
Name = 'DC'
Value = ''
end
item
Name = 'CUENTA'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FORMAS_PAGO'
SQL =
'INSERT'#10' INTO FORMAS_PAGO'#10' (ID, REFERENCIA, DESCRIPCION, TITU' +
'LAR, ENTIDAD, SUCURSAL,'#10' DC, CUENTA)'#10' VALUES'#10' (:ID, :REF' +
'ERENCIA, :DESCRIPCION, :TITULAR, :ENTIDAD, :SUCURSAL,'#10' :DC, ' +
':CUENTA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FormasPago'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FORMAS_PAGO'
SQL = 'DELETE '#10' FROM'#10' FORMAS_PAGO'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FormasPago'
end
item
Params = <
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'DC'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FORMAS_PAGO'
SQL =
'UPDATE FORMAS_PAGO'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' DES' +
'CRIPCION = :DESCRIPCION, '#10' TITULAR = :TITULAR, '#10' ENTIDAD =' +
' :ENTIDAD, '#10' SUCURSAL = :SUCURSAL, '#10' DC = :DC, '#10' CUENTA' +
' = :CUENTA'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FormasPago'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FORMAS_PAGO_PLAZOS_ID'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'NUM_DIAS'
Value = ''
end
item
Name = 'PORCENTAJE'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FORMAS_PAGO_PLAZOS'
SQL =
'INSERT'#10' INTO FORMAS_PAGO_PLAZOS'#10' (ID, ID_FORMA_PAGO, NUM_DIA' +
'S, PORCENTAJE)'#10' VALUES'#10' (:ID, :ID_FORMA_PAGO, :NUM_DIAS, :PO' +
'RCENTAJE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_FormasPagoPlazos'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FORMAS_PAGO_PLAZOS'
SQL = 'DELETE '#10' FROM'#10' FORMAS_PAGO_PLAZOS'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_FormasPagoPlazos'
end
item
Params = <
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '0'
end
item
Name = 'NUM_DIAS'
DataType = datSmallInt
Value = '0'
end
item
Name = 'PORCENTAJE'
DataType = datFloat
Value = '0'
end
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
Default = True
TargetTable = 'FORMAS_PAGO_PLAZOS'
SQL =
'UPDATE FORMAS_PAGO_PLAZOS'#10' SET '#10' ID_FORMA_PAGO = :ID_FORMA_P' +
'AGO, '#10' NUM_DIAS = :NUM_DIAS, '#10' PORCENTAJE = :PORCENTAJE'#10' ' +
'WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_FormasPagoPlazos'
end>
RelationShips = < RelationShips = <
item item
Name = 'FK_FormasPagoPlazos_FormasPago' Name = 'FK_FormasPagoPlazos_FormasPago'
@ -308,4 +529,26 @@ object srvFormasPago: TsrvFormasPago
Left = 48 Left = 48
Top = 88 Top = 88
end end
object bpFormasPago: TDABusinessProcessor
Schema = schFormasPago
InsertCommandName = 'Insert_FormasPago'
DeleteCommandName = 'Delete_FormasPago'
UpdateCommandName = 'Update_FormasPago'
ReferencedDataset = 'FormasPago'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 280
Top = 24
end
object bpFormasPagoPlazos: TDABusinessProcessor
Schema = schFormasPago
InsertCommandName = 'Insert_FormasPagoPlazos'
DeleteCommandName = 'Delete_FormasPagoPlazos'
UpdateCommandName = 'Update_FormasPagoPlazos'
ReferencedDataset = 'FormasPagoPlazos'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 280
Top = 77
end
end end

2
Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas
View File

@ -23,6 +23,8 @@ type
TsrvFormasPago = class(TDataAbstractService, IsrvFormasPago) TsrvFormasPago = class(TDataAbstractService, IsrvFormasPago)
Diagrams: TDADiagrams; Diagrams: TDADiagrams;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpFormasPago: TDABusinessProcessor;
bpFormasPagoPlazos: TDABusinessProcessor;
schFormasPago: TDASchema; schFormasPago: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);