diff --git a/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas b/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas index 948f2fe6..eb372078 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas @@ -58,6 +58,7 @@ var ACurrentConn : IDAConnection; ACommand : IDASQLCommand; begin + dmServer.EscribirLog('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Delete_Asiento_Pago'); ASchema := BusinessProcessor.Schema; ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); @@ -65,13 +66,14 @@ begin try with ACommand do begin - ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosClienteID]; - ParamByName('Tipo').Value := 'c'; + ParamByName('IdPago').AsInteger := aChange.OldValueByName[fld_PagosClienteID]; + ParamByName('Tipo').AsString := 'c'; Execute; end; finally ACommand := NIL; end; + dmServer.EscribirLog('<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Delete_Asiento_Pago'); end; procedure TBizPagosClienteServer.Insert_Asiento_Pago(aChange: TDADeltaChange); @@ -80,6 +82,8 @@ var ACurrentConn : IDAConnection; ACommand : IDASQLCommand; begin + dmServer.EscribirLog('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Insert_Asiento_Pago'); + ASchema := BusinessProcessor.Schema; ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); @@ -87,13 +91,14 @@ begin try with ACommand do begin - ParamByName('IdPago').Value := aChange.NewValueByName[fld_PagosClienteID]; - ParamByName('IdSubCuentaPago').Value := aChange.NewValueByName[fld_PagosClienteCUENTA]; + ParamByName('IdPago').AsInteger := aChange.NewValueByName[fld_PagosClienteID]; + ParamByName('IdSubCuentaPago').AsInteger := aChange.NewValueByName[fld_PagosClienteCUENTA]; Execute; end; finally ACommand := NIL; end; + dmServer.EscribirLog('<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Insert_Asiento_Pago'); end; procedure TBizPagosClienteServer.Update_Asiento_Pago(aChange: TDADeltaChange); @@ -102,6 +107,7 @@ var ACurrentConn : IDAConnection; ACommand : IDASQLCommand; begin + dmServer.EscribirLog('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Update_Asiento_Pago'); ASchema := BusinessProcessor.Schema; ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); @@ -109,13 +115,14 @@ begin try with ACommand do begin - ParamByName('IdPago').Value := aChange.NewValueByName[fld_PagosClienteID]; - ParamByName('IdSubCuentaPago').Value := aChange.NewValueByName[fld_PagosClienteCUENTA]; + ParamByName('IdPago').AsInteger := aChange.NewValueByName[fld_PagosClienteID]; + ParamByName('IdSubCuentaPago').AsInteger := aChange.NewValueByName[fld_PagosClienteCUENTA]; Execute; end; finally ACommand := NIL; end; + dmServer.EscribirLog('<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Update_Asiento_Pago'); end; initialization diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index ef129ef5..e37e32a3 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -6,8 +6,9 @@ object srvRecibosCliente: TsrvRecibosCliente ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + BeforeExecuteCommand = DataAbstractServiceBeforeExecuteCommand Height = 247 - Width = 347 + Width = 311 object schRecibosCliente: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DADataDictionary @@ -916,11 +917,16 @@ object srvRecibosCliente: TsrvRecibosCliente Params = < item Name = 'IdPago' + DataType = datInteger Value = '' + ParamType = daptInput end item Name = 'Tipo' + DataType = datString + Size = 1 Value = '' + ParamType = daptInput end> Statements = < item @@ -928,8 +934,8 @@ object srvRecibosCliente: TsrvRecibosCliente ConnectionType = 'Interbase' Default = True Name = 'IBX' - SQL = 'execute procedure proc_delete_asiento_pago :IdPago, :Tipo'#10 - StatementType = stSQL + SQL = 'PROC_DELETE_ASIENTO_PAGO' + StatementType = stStoredProcedure ColumnMappings = <> end> Name = 'Delete_AsientoPago' @@ -938,11 +944,15 @@ object srvRecibosCliente: TsrvRecibosCliente Params = < item Name = 'IdPago' + DataType = datInteger Value = '' + ParamType = daptInput end item Name = 'IdSubCuentaPago' + DataType = datInteger Value = '' + ParamType = daptInput end> Statements = < item @@ -950,10 +960,8 @@ object srvRecibosCliente: TsrvRecibosCliente ConnectionType = 'Interbase' Default = True Name = 'IBX' - SQL = - 'execute procedure proc_new_asiento_pago_cli :IdPago, :IdSubCuent' + - 'aPago'#10 - StatementType = stSQL + SQL = 'PROC_NEW_ASIENTO_PAGO_CLI' + StatementType = stStoredProcedure ColumnMappings = <> end> Name = 'Insert_AsientoPago' @@ -1389,6 +1397,20 @@ object srvRecibosCliente: TsrvRecibosCliente RelationshipType = rtForeignKey end> UpdateRules = < + item + Name = 'Delete PagosCliente' + DoUpdate = False + DoInsert = False + DatasetName = 'PagosCliente' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete RecibosCliente' + DoUpdate = False + DoInsert = False + DatasetName = 'RecibosCliente' + FailureBehavior = fbRaiseException + end item Name = 'Insert RecibosCliente' DoUpdate = False @@ -1396,6 +1418,13 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetName = 'RecibosCliente' FailureBehavior = fbRaiseException end + item + Name = 'Update RecibosCliente' + DoInsert = False + DoDelete = False + DatasetName = 'RecibosCliente' + FailureBehavior = fbRaiseException + end item Name = 'Insert PagosCliente' DoUpdate = False @@ -1403,33 +1432,12 @@ object srvRecibosCliente: TsrvRecibosCliente DatasetName = 'PagosCliente' FailureBehavior = fbRaiseException end - item - Name = 'Update RecibosCliente' - DoInsert = False - DoDelete = False - DatasetName = 'RecibosCliente' - FailureBehavior = fbRaiseException - end item Name = 'Update PagosCliente' DoInsert = False DoDelete = False DatasetName = 'PagosCliente' FailureBehavior = fbRaiseException - end - item - Name = 'Delete PagosCliente' - DoUpdate = False - DoInsert = False - DatasetName = 'PagosCliente' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RecibosCliente' - DoUpdate = False - DoInsert = False - DatasetName = 'RecibosCliente' - FailureBehavior = fbRaiseException end> Version = 0 Left = 48 @@ -1720,7 +1728,7 @@ object srvRecibosCliente: TsrvRecibosCliente DeleteCommandName = 'Delete_PagosCliente' UpdateCommandName = 'Update_PagosCliente' ReferencedDataset = 'PagosCliente' - ProcessorOptions = [poPrepareCommands] + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 192 Top = 88 diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas index df354c26..fcd9cb8d 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas @@ -30,6 +30,8 @@ type procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceCreate(Sender: TObject); + procedure DataAbstractServiceBeforeExecuteCommand(aSender: TObject; + const aCommand: IDASQLCommand); private protected { IsrvRecibosProveedor methods } @@ -79,6 +81,12 @@ begin ConnectionName := dmServer.ConnectionName; end; +procedure TsrvRecibosCliente.DataAbstractServiceBeforeExecuteCommand( + aSender: TObject; const aCommand: IDASQLCommand); +begin +aCommand.SQL +end; + function TsrvRecibosCliente.GenerateReport(const ListaID: TIntegerArray): Binary; var AReportGenerator : TRptRecibosCliente; diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm index d3e61ac6..e4ac5cc7 100644 --- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -1439,6 +1439,20 @@ object srvRecibosProveedor: TsrvRecibosProveedor RelationshipType = rtForeignKey end> UpdateRules = < + item + Name = 'Delete PagosProveedor' + DoUpdate = False + DoInsert = False + DatasetName = 'PagosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete RecibosProveedor' + DoUpdate = False + DoInsert = False + DatasetName = 'RecibosProveedor' + FailureBehavior = fbRaiseException + end item Name = 'Insert RecibosProveedor' DoUpdate = False @@ -1446,6 +1460,13 @@ object srvRecibosProveedor: TsrvRecibosProveedor DatasetName = 'RecibosProveedor' FailureBehavior = fbRaiseException end + item + Name = 'Update RecibosProveedor' + DoInsert = False + DoDelete = False + DatasetName = 'RecibosProveedor' + FailureBehavior = fbRaiseException + end item Name = 'Insert PagosProveedor' DoUpdate = False @@ -1453,33 +1474,12 @@ object srvRecibosProveedor: TsrvRecibosProveedor DatasetName = 'PagosProveedor' FailureBehavior = fbRaiseException end - item - Name = 'Update RecibosProveedor' - DoInsert = False - DoDelete = False - DatasetName = 'RecibosProveedor' - FailureBehavior = fbRaiseException - end item Name = 'Update PagosProveedor' DoInsert = False DoDelete = False DatasetName = 'PagosProveedor' FailureBehavior = fbRaiseException - end - item - Name = 'Delete PagosProveedor' - DoUpdate = False - DoInsert = False - DatasetName = 'PagosProveedor' - FailureBehavior = fbRaiseException - end - item - Name = 'Delete RecibosProveedor' - DoUpdate = False - DoInsert = False - DatasetName = 'RecibosProveedor' - FailureBehavior = fbRaiseException end> Version = 0 Left = 48 diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 4f40c57b..f2f8fcc0 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,294 +1,296 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse2430FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.3.0FactuGES (Servidor)2.4.3.0domingo, 25 de abril de 2010 16:31 - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService -
- - - -
srvEmpresas
- TDARemoteService -
- -
srvProvinciasPoblaciones
- TRORemoteDataModule -
- - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService -
- - - - -
srvAlbaranesProveedor
- TDataAbstractService -
- - - -
srvAlmacenes
- TDARemoteService -
- - - - - - - -
RptComisiones
- TDataModule -
- -
srvComisiones
- TDataAbstractService -
- - - - -
srvContabilidad
- TDataAbstractService -
- - - - - - - -
RptEtiquetasContacto
- TDataModule -
- -
srvContactos
- TDARemoteService -
- - - - -
RptContratosCliente
-
- -
srvContratosCliente
- TDataAbstractService -
- - - - -
RptFacturasCliente
- TDataModule -
- -
srvFacturasCliente
- TDataAbstractService -
- - - - -
RptFacturasProveedor
- TDataModule -
- -
srvFacturasProveedor
- TDataAbstractService -
- - - - - - - -
srvGestorDocumentos
- TDataAbstractService -
- -
srvGestorInformes
- TDataAbstractService -
- - - -
srvHistoricoMovimientos
- TDataAbstractService -
- - - -
srvInventario
- TDataAbstractService -
- - - - -
srvPedidosProveedor
- TDataAbstractService -
- - - - -
RptPresupuestosCliente
-
- -
srvPresupuestosCliente
- TDataAbstractService -
- - - - - -
RptRecibosCliente
- TDataModule -
- -
srvRecibosCliente
- TDataAbstractService -
- - - - - -
RptRecibosProveedor
- TDataModule -
- -
srvRecibosProveedor
- TDataAbstractService -
- - - -
srvReferencias
- TDataAbstractService -
- - - - -
srvRemesasCliente
- TDataAbstractService -
- - - - -
srvRemesasProveedor
- TDataAbstractService -
- - - - - - -
srvUnidadesMedida
- TDataAbstractService -
- - - -
srvConfiguracion
- TDataAbstractService -
- -
frConexionBD
- TFrame -
- -
frConfGeneral
- TFrame -
- -
fConfiguracion
- TForm -
- -
FrameConfiguracion
- TFrame -
- -
srvLogin
- TDARemoteService -
- -
fAcercaDe
-
- -
dmServer
- TDataModule -
- -
fServerForm
-
- - - - - - - - -
+ + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse2430FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.4.3.0FactuGES (Servidor)2.4.3.0domingo, 25 de abril de 2010 16:31 + + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService +
+ + + +
srvEmpresas
+ TDARemoteService +
+ +
srvProvinciasPoblaciones
+ TRORemoteDataModule +
+ + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService +
+ + + + +
srvAlbaranesProveedor
+ TDataAbstractService +
+ + + +
srvAlmacenes
+ TDARemoteService +
+ + + + + + + +
RptComisiones
+ TDataModule +
+ +
srvComisiones
+ TDataAbstractService +
+ + + + +
srvContabilidad
+ TDataAbstractService +
+ + + + + + + +
RptEtiquetasContacto
+ TDataModule +
+ +
srvContactos
+ TDARemoteService +
+ + + + +
RptContratosCliente
+
+ +
srvContratosCliente
+ TDataAbstractService +
+ + + + +
RptFacturasCliente
+ TDataModule +
+ +
srvFacturasCliente
+ TDataAbstractService +
+ + + + +
RptFacturasProveedor
+ TDataModule +
+ +
srvFacturasProveedor
+ TDataAbstractService +
+ + + + + + + +
srvGestorDocumentos
+ TDataAbstractService +
+ +
srvGestorInformes
+ TDataAbstractService +
+ + + +
srvHistoricoMovimientos
+ TDataAbstractService +
+ + + +
srvInventario
+ TDataAbstractService +
+ + + + +
srvPedidosProveedor
+ TDataAbstractService +
+ + + + +
RptPresupuestosCliente
+
+ +
srvPresupuestosCliente
+ TDataAbstractService +
+ + + + + +
RptRecibosCliente
+ TDataModule +
+ +
srvRecibosCliente
+ TDataAbstractService +
+ + + + + +
RptRecibosProveedor
+ TDataModule +
+ +
srvRecibosProveedor
+ TDataAbstractService +
+ + + +
srvReferencias
+ TDataAbstractService +
+ + + + +
srvRemesasCliente
+ TDataAbstractService +
+ + + + +
srvRemesasProveedor
+ TDataAbstractService +
+ + + + + + +
srvUnidadesMedida
+ TDataAbstractService +
+ + + +
srvConfiguracion
+ TDataAbstractService +
+ +
frConexionBD
+ TFrame +
+ +
frConfGeneral
+ TFrame +
+ +
fConfiguracion
+ TForm +
+ +
FrameConfiguracion
+ TFrame +
+ +
srvLogin
+ TDARemoteService +
+ +
fAcercaDe
+
+ +
dmServer
+ TDataModule +
+ +
fServerForm
+
+ + + + + + + + +