git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@23 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
7ad9a7c1c5
commit
bcb93f45ab
@ -0,0 +1,264 @@
|
||||
object srvEjercicios: TsrvEjercicios
|
||||
OldCreateOrder = True
|
||||
OnCreate = DARemoteServiceCreate
|
||||
SessionManager = dmServer.SessionManager
|
||||
ServiceSchema = schEjercicios
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <>
|
||||
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||
Height = 181
|
||||
Width = 350
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 90
|
||||
DiagramData =
|
||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||
'idth="400" Height="300">'#13#10' <Entity Name="Ejercicios" Left="0,' +
|
||||
'00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'Ejercicios_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Nombre'
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_FECHA_INICIO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha inicio'
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_FECHA_FIN'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha fin'
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_ESTADO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Estado'
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_LONG_SUB_CUENTA'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Long. Subcuenta'
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_ID_ASIENTO_APERTURA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_ID_ASIENTO_PERYGAN'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_ID_ASIENTO_CIERRE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Ejercicios_ACTIVO'
|
||||
DataType = datSmallInt
|
||||
ServerAutoRefresh = True
|
||||
end>
|
||||
Left = 150
|
||||
Top = 24
|
||||
end
|
||||
object schEjercicios: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DataDictionary
|
||||
Diagrams = Diagrams
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'CONT_EJERCICIOS'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_INICIO'
|
||||
TableField = 'FECHA_INICIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_FIN'
|
||||
TableField = 'FECHA_FIN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ESTADO'
|
||||
TableField = 'ESTADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'LONG_SUB_CUENTA'
|
||||
TableField = 'LONG_SUB_CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ASIENTO_APERTURA'
|
||||
TableField = 'ID_ASIENTO_APERTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ASIENTO_PERYGAN'
|
||||
TableField = 'ID_ASIENTO_PERYGAN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ASIENTO_CIERRE'
|
||||
TableField = 'ID_ASIENTO_CIERRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ACTIVO'
|
||||
TableField = 'ACTIVO'
|
||||
end>
|
||||
end>
|
||||
Name = 'Ejercicios'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Ejercicios_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Ejercicios_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Ejercicios_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_INICIO'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'Ejercicios_FECHA_INICIO'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FIN'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'Ejercicios_FECHA_FIN'
|
||||
end
|
||||
item
|
||||
Name = 'ESTADO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Ejercicios_ESTADO'
|
||||
end
|
||||
item
|
||||
Name = 'LONG_SUB_CUENTA'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'Ejercicios_LONG_SUB_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ASIENTO_APERTURA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Ejercicios_ID_ASIENTO_APERTURA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ASIENTO_PERYGAN'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Ejercicios_ID_ASIENTO_PERYGAN'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ASIENTO_CIERRE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Ejercicios_ID_ASIENTO_CIERRE'
|
||||
end
|
||||
item
|
||||
Name = 'ACTIVO'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'Ejercicios_ACTIVO'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'id_empresa'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL = 'execute procedure proc_set_ejercicios_noactivos :id_empresa'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'SetEjerciciosNoActivos'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'id_ejercicio_copia'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'id_ejercicio'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'execute procedure proc_new_pgc :id_ejercicio_copia, :id_ejercici' +
|
||||
'o'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'GenerarPGC'
|
||||
end>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
object bpEjercicios: TDABusinessProcessor
|
||||
Schema = schEjercicios
|
||||
ReferencedDataset = 'Ejercicios'
|
||||
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 248
|
||||
Top = 24
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,82 @@
|
||||
unit srvEjercicios_Impl;
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||
{ the RODL file associated with this project . }
|
||||
{ }
|
||||
{ This is where you are supposed to code the implementation of your objects. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
|
||||
uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer,
|
||||
uDABin2DataStreamer;
|
||||
|
||||
type
|
||||
{ TsrvEjercicios }
|
||||
TsrvEjercicios = class(TDataAbstractService, IsrvEjercicios)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
bpEjercicios: TDABusinessProcessor;
|
||||
schEjercicios: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
|
||||
|
||||
protected
|
||||
function GenerarPGC(const ID_EJERCICIO_COPIA: Integer; const ID_EJERCICIO: Integer): Boolean;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uBizEjerciciosServer, uDataModuleServer, uROClasses,
|
||||
uDatabaseUtils;
|
||||
|
||||
procedure Create_srvEjercicios(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvEjercicios.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvEjercicios }
|
||||
procedure TsrvEjercicios.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpEjercicios.BusinessRulesID := BIZ_SERVER_EJERCICIOS;
|
||||
end;
|
||||
|
||||
procedure TsrvEjercicios.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvEjercicios.GenerarPGC(const ID_EJERCICIO_COPIA, ID_EJERCICIO: Integer): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
try
|
||||
Connection.BeginTransaction;
|
||||
schEjercicios.NewCommand(Connection, 'GenerarPGC', ['ID_EJERCICIO_COPIA', 'ID_EJERCICIO'], [ID_EJERCICIO_COPIA, ID_EJERCICIO]);
|
||||
Connection.CommitTransaction;
|
||||
Result := True;
|
||||
except
|
||||
Connection.RollbackTransaction;
|
||||
RaiseError('Error al generar el PGC');
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvEjercicios', Create_srvEjercicios, TsrvEjercicios_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user