diff --git a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas index 18eab614..5a2d9920 100644 --- a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas @@ -82,7 +82,10 @@ end; procedure TApuntesController.Anadir(AApunte: IBizApunte); begin - AApunte.Insert; +// AApunte.DataTable.DisableControls; +// AApunte.Last; + AApunte.Append; +// AApunte.DataTable.EnableControls; end; procedure TApuntesController.AsignarDataModule; @@ -171,6 +174,9 @@ begin end; function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean; +var + Descuadre : Double; + begin Result := False; @@ -185,37 +191,26 @@ begin raise Exception.Create('El asiento debe tener algún apunte'); AApunte.DataTable.DisableControls; + Descuadre := 0; AApunte.DataTable.First; while not AApunte.DataTable.EOF do begin if AApunte.ID_SUBCUENTAIsNull then begin - AApunte.DataTable.EnableControls; - raise Exception.Create('Todo apunte debe tener una subcuenta asociada'); + AApunte.DataTable.EnableControls; + raise Exception.Create('Todo apunte debe tener una subcuenta asociada'); end; + + Descuadre := Descuadre + AApunte.DEBE; + Descuadre := Descuadre - AApunte.HABER; AApunte.DataTable.Next; end; + if (Descuadre <> 0) then + begin + AApunte.DataTable.EnableControls; + raise Exception.Create('El asiento está descuadrado'); + end; - AApunte.DataTable.EnableControls; - Result := True; - -{ - if not Assigned(AApunte) then - raise Exception.Create ('Apunte no asignado'); - - if (AApunte.DataTable.State in dsEditModes) then - AApunte.DataTable.Post; - - //Tambien hacemos post de sus tablas hija - if (AApunte.Apuntes.DataTable.State in dsEditModes) then - AApunte.Apuntes.DataTable.Post; - - if (AApunte.Apuntes.DataTable.RecordCount = 0) then - raise Exception.Create('El Apunte debe tener algún apunte'); - -// if Length(AApunte.CONCEPTO) = 0 then -// raise Exception.Create('Debe indicar un concepto para este Apunte.'); -} Result := True; end; diff --git a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm index 37ecb064..aa156cf9 100644 --- a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm +++ b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm @@ -47,10 +47,10 @@ object PluginContabilidad: TPluginContabilidad Caption = 'Subcuentas' OnExecute = actSubCuentasExecute end - object actAsientos: TAction + object actDiario: TAction Category = 'Contabilidad' - Caption = 'Asientos' - OnExecute = actAsientosExecute + Caption = 'Libro de diario' + OnExecute = actDiarioExecute end end object MainMenu: TMainMenu @@ -76,7 +76,8 @@ object PluginContabilidad: TPluginContabilidad Action = actSubCuentas end object Asientos1: TMenuItem - Action = actAsientos + Tag = 19005 + Action = actDiario end end object Contabilidad2: TMenuItem diff --git a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas index b03c37bd..1c92cdc1 100644 --- a/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas +++ b/Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas @@ -30,14 +30,14 @@ type Cuentas1: TMenuItem; actSubCuentas: TAction; Subcuentas1: TMenuItem; - actAsientos: TAction; + actDiario: TAction; Asientos1: TMenuItem; procedure actEpigrafesExecute(Sender: TObject); procedure actBalancesExecute(Sender: TObject); procedure actCuentasEspecialesExecute(Sender: TObject); procedure actCuentasExecute(Sender: TObject); procedure actSubCuentasExecute(Sender: TObject); - procedure actAsientosExecute(Sender: TObject); + procedure actDiarioExecute(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -63,7 +63,7 @@ end; exports GetModule name GET_MODULE_FUNC; -procedure TPluginContabilidad.actAsientosExecute(Sender: TObject); +procedure TPluginContabilidad.actDiarioExecute(Sender: TObject); var AAsientosController : IAsientosController; ADiario : IBizDiario; diff --git a/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm b/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm index dfedd06c..54bf931e 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm +++ b/Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm @@ -97,6 +97,7 @@ inherited fEditorAsiento: TfEditorAsiento end inherited pgPaginas: TPageControl Width = 632 + ActivePage = pagApuntes ExplicitWidth = 632 inherited pagGeneral: TTabSheet ExplicitLeft = 4 @@ -125,6 +126,7 @@ inherited fEditorAsiento: TfEditorAsiento Properties.DisplayFormat = '0' Properties.ImmediatePost = True Properties.MaxValue = 100.000000000000000000 + Properties.UseLeftAlignmentOnEditing = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Font.Charset = DEFAULT_CHARSET @@ -145,11 +147,12 @@ inherited fEditorAsiento: TfEditorAsiento Width = 168 end object edtFecha: TcxDBDateEdit - Left = 361 + Left = 303 Top = 10 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ASIENTO' DataBinding.DataSource = dsDataTable + Properties.UseLeftAlignmentOnEditing = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clInfoBk @@ -163,7 +166,7 @@ inherited fEditorAsiento: TfEditorAsiento StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 - Width = 158 + Width = 253 end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False @@ -214,9 +217,14 @@ inherited fEditorAsiento: TfEditorAsiento inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item - Format = '0 ejercicios' - Kind = skCount - Column = frViewApuntes1.cxGridViewID_ASIENTO + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewApuntes1.cxGridViewDEBE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewApuntes1.cxGridViewHABER end> end end diff --git a/Source/Modulos/Contabilidad/Views/uEditorAsiento.pas b/Source/Modulos/Contabilidad/Views/uEditorAsiento.pas index 1610e93b..fe92492c 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorAsiento.pas +++ b/Source/Modulos/Contabilidad/Views/uEditorAsiento.pas @@ -114,9 +114,9 @@ begin if Assigned(Asiento) then begin if Asiento.EsNuevo then - FTitulo := 'Nueva Asiento - ' + AppFactuGES.EjercicioActivo.NOMBRE + FTitulo := 'Nueva Asiento - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE else - FTitulo := 'Asiento' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; // + ' - ' + Asiento.DESCRIPCION; + FTitulo := 'Asiento' + ' ' + IntToStr(Asiento.ORDEN) + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; end; inherited PonerTitulos(FTitulo); diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm index 871568ed..92dd9b41 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm +++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.dfm @@ -70,17 +70,6 @@ inherited fEditorDiario: TfEditorDiario Height = 195 ExplicitWidth = 543 ExplicitHeight = 195 - inherited cxGridView: TcxGridDBTableView - DataController.Summary.FooterSummaryItems = < - item - Format = '0 ejercicios' - Kind = skCount - Column = frViewDiario1.cxGridViewREF_SUBCUENTA - end> - inherited cxGridViewID_ASIENTO: TcxGridDBColumn - IsCaptionAssigned = True - end - end end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 543 @@ -90,9 +79,19 @@ inherited fEditorDiario: TfEditorDiario inherited dxLayoutControl1: TdxLayoutControl Width = 543 ExplicitWidth = 543 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit Left = 337 ExplicitLeft = 337 + ExplicitWidth = 121 + Width = 121 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel @@ -108,6 +107,7 @@ inherited fEditorDiario: TfEditorDiario inherited pnlAgrupaciones: TTBXDockablePanel Top = 297 ExplicitTop = 297 + ExplicitWidth = 543 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 543 ExplicitWidth = 543 diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas index 97c6faf4..8f2494ee 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas +++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas @@ -93,7 +93,7 @@ procedure TfEditorDiario.PonerTitulos(const ATitulo: string); var FTitulo : String; begin - FTitulo := 'Lista de Asientos - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; + FTitulo := 'Libro de diario - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; inherited PonerTitulos(FTitulo); end; diff --git a/Source/Modulos/Contabilidad/Views/uViewApuntes.dfm b/Source/Modulos/Contabilidad/Views/uViewApuntes.dfm index b95856e6..9b4540ed 100644 --- a/Source/Modulos/Contabilidad/Views/uViewApuntes.dfm +++ b/Source/Modulos/Contabilidad/Views/uViewApuntes.dfm @@ -1,18 +1,33 @@ inherited frViewApuntes: TfrViewApuntes + Width = 623 + ExplicitWidth = 623 inherited cxGrid: TcxGrid + Width = 623 + ExplicitWidth = 623 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item - Format = '0 ejercicios' - Kind = skCount - Column = cxGridViewREF_SUBCUENTA + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewDEBE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewHABER end> + DataController.Summary.OnAfterSummary = cxGridViewDataControllerSummaryAfterSummary OptionsBehavior.PullFocusing = True + OptionsView.CellAutoHeight = False + OptionsView.Footer = True inherited cxGridViewID: TcxGridDBColumn Visible = True + SortIndex = 0 + SortOrder = soAscending end object cxGridViewID_ASIENTO: TcxGridDBColumn DataBinding.FieldName = 'ID_ASIENTO' + Options.Sorting = False end object cxGridViewREF_SUBCUENTA: TcxGridDBColumn Caption = 'Referencia' @@ -25,8 +40,7 @@ inherited frViewApuntes: TfrViewApuntes end> Properties.ReadOnly = True Properties.OnButtonClick = cxGridViewREF_SUBCUENTAPropertiesButtonClick - SortIndex = 0 - SortOrder = soAscending + Options.Sorting = False Width = 119 end object cxGridViewSUBCUENTA: TcxGridDBColumn @@ -34,16 +48,19 @@ inherited frViewApuntes: TfrViewApuntes DataBinding.FieldName = 'SUBCUENTA' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True + Options.Sorting = False Width = 86 end object cxGridViewCONCEPTO: TcxGridDBColumn Caption = 'Concepto' DataBinding.FieldName = 'CONCEPTO' PropertiesClassName = 'TcxTextEditProperties' + Options.Sorting = False Width = 109 end object cxGridViewDOCUMENTO: TcxGridDBColumn DataBinding.FieldName = 'DOCUMENTO' + Options.Sorting = False Width = 58 end object cxGridViewDEBE: TcxGridDBColumn @@ -51,6 +68,7 @@ inherited frViewApuntes: TfrViewApuntes DataBinding.FieldName = 'DEBE' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.OnEditValueChanged = cxGridViewDEBEPropertiesEditValueChanged + Options.Sorting = False Width = 59 end object cxGridViewHABER: TcxGridDBColumn @@ -58,11 +76,14 @@ inherited frViewApuntes: TfrViewApuntes DataBinding.FieldName = 'HABER' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.OnEditValueChanged = cxGridViewHABERPropertiesEditValueChanged + Options.Sorting = False Width = 58 end end end inherited ToolBar1: TToolBar + Width = 623 + ExplicitWidth = 623 inherited ToolButton1: TToolButton Top = 0 ExplicitTop = 0 @@ -91,6 +112,35 @@ inherited frViewApuntes: TfrViewApuntes ExplicitTop = 0 ExplicitWidth = 117 end + object ToolButton3: TToolButton + Left = 336 + Top = 0 + Width = 121 + Caption = 'ToolButton3' + ImageIndex = 4 + Style = tbsSeparator + end + object Label1: TLabel + Left = 457 + Top = 0 + Width = 55 + Height = 22 + Margins.Top = 8 + Alignment = taRightJustify + Caption = 'Descuadre:' + Layout = tlCenter + end + object eDescuadre: TcxCurrencyEdit + Left = 512 + Top = 0 + Enabled = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Width = 112 + end end inherited ActionListContenido: TActionList object actElegirSubCuenta: TAction diff --git a/Source/Modulos/Contabilidad/Views/uViewApuntes.pas b/Source/Modulos/Contabilidad/Views/uViewApuntes.pas index 2fc39dee..03adcbb8 100644 --- a/Source/Modulos/Contabilidad/Views/uViewApuntes.pas +++ b/Source/Modulos/Contabilidad/Views/uViewApuntes.pas @@ -15,7 +15,7 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar, cxImageComboBox, cxTextEdit, cxCurrencyEdit, ComCtrls, ToolWin, cxButtonEdit, - uApuntesController; + uApuntesController, StdCtrls, cxContainer; type IViewApuntes = interface @@ -35,12 +35,16 @@ type cxGridViewDOCUMENTO: TcxGridDBColumn; cxGridViewID_ASIENTO: TcxGridDBColumn; actElegirSubCuenta: TAction; + eDescuadre: TcxCurrencyEdit; + ToolButton3: TToolButton; + Label1: TLabel; procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure cxGridViewREF_SUBCUENTAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure actElegirSubCuentaExecute(Sender: TObject); procedure cxGridViewDEBEPropertiesEditValueChanged(Sender: TObject); procedure cxGridViewHABERPropertiesEditValueChanged(Sender: TObject); + procedure cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary); protected FApuntes: IBizApunte; FController : IApuntesController; @@ -93,7 +97,8 @@ end; procedure TfrViewApuntes.AnadirInterno; begin - inherited; +// inherited; + FController.Anadir(Apuntes); // try // with TApuntesController.Create do // begin @@ -112,16 +117,32 @@ begin FController := TApuntesController.Create; end; +procedure TfrViewApuntes.cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary); +var + Descuadre: Double; + +begin + inherited; + + Descuadre := 0; + + if not VarIsNull(cxGridView.DataController.Summary.FooterSummaryValues[0]) then + Descuadre := cxGridView.DataController.Summary.FooterSummaryValues[0]; + + if not VarIsNull(cxGridView.DataController.Summary.FooterSummaryValues[1]) then + Descuadre := Descuadre - cxGridView.DataController.Summary.FooterSummaryValues[1]; + + eDescuadre.Value := Descuadre; +end; + procedure TfrViewApuntes.cxGridViewDEBEPropertiesEditValueChanged(Sender: TObject); begin inherited; -{ //Tengo que hacer esto para que se haga un post del apunte y pueda ver el nuevo valor if cxGridView.Controller.EditingController.IsEditing then cxGridView.Controller.EditingController.Edit.PostEditValue; FController.AsignarDEBE(Apuntes); -} end; procedure TfrViewApuntes.cxGridViewHABERPropertiesEditValueChanged( @@ -129,11 +150,10 @@ procedure TfrViewApuntes.cxGridViewHABERPropertiesEditValueChanged( begin inherited; //Tengo que hacer esto para que se haga un post del apunte y pueda ver el nuevo valor -{ if cxGridView.Controller.EditingController.IsEditing then + if cxGridView.Controller.EditingController.IsEditing then cxGridView.Controller.EditingController.Edit.PostEditValue; FController.AsignarHABER(Apuntes); -} end; procedure TfrViewApuntes.cxGridViewIDCustomDrawCell( diff --git a/Source/Modulos/Contabilidad/Views/uViewDiario.dfm b/Source/Modulos/Contabilidad/Views/uViewDiario.dfm index a173c52c..5501f1b1 100644 --- a/Source/Modulos/Contabilidad/Views/uViewDiario.dfm +++ b/Source/Modulos/Contabilidad/Views/uViewDiario.dfm @@ -4,9 +4,14 @@ inherited frViewDiario: TfrViewDiario DataController.KeyFieldNames = 'ID_ASIENTO;ID_APUNTE' DataController.Summary.FooterSummaryItems = < item - Format = '0 ejercicios' - Kind = skCount - Column = cxGridViewREF_SUBCUENTA + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewDEBE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewHABER end> OptionsBehavior.PullFocusing = True object cxGridViewID_ASIENTO: TcxGridDBColumn @@ -23,13 +28,15 @@ inherited frViewDiario: TfrViewDiario Visible = False end object cxGridViewFECHA_ASIENTO: TcxGridDBColumn + Caption = 'Fecha asiento' DataBinding.FieldName = 'FECHA_ASIENTO' end object cxGridViewORDEN: TcxGridDBColumn - DataBinding.FieldName = 'ORDEN' + Caption = 'Orden asiento' + DataBinding.FieldName = 'ORDEN_ASIENTO' end object cxGridViewREF_SUBCUENTA: TcxGridDBColumn - Caption = 'Referencia' + Caption = 'Ref. subcuenta' DataBinding.FieldName = 'REF_SUBCUENTA' PropertiesClassName = 'TcxTextEditProperties' SortIndex = 0 @@ -37,7 +44,7 @@ inherited frViewDiario: TfrViewDiario Width = 304 end object cxGridViewSUBCUENTA: TcxGridDBColumn - Caption = 'SubCuenta' + Caption = 'Subcuenta' DataBinding.FieldName = 'SUBCUENTA' Visible = False end diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index b55334fa..995d86c9 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 35cdbe95..955d95f1 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,223 +1,219 @@ - + - - {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 - - -FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58 - - - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService -
- - - -
srvEmpresas
- TDARemoteService -
- - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService -
- - - - -
srvAlbaranesProveedor
- TDataAbstractService -
- - - -
srvAlmacenes
- TDARemoteService -
- - - - - - -
srvContabilidad
- TDataAbstractService -
- - - - - - - -
srvContactos
- TDARemoteService -
- - - - -
srvFacturasCliente
- TDataAbstractService -
- - - - -
srvFacturasProveedor
- TDataAbstractService -
- - - - - - - - - -
srvHistoricoMovimientos
- TDataAbstractService -
- - - -
srvInventario
- TDataAbstractService -
- - - - -
srvPedidosProveedor
- TDataAbstractService -
- - - - -
RptPresupuestosCliente
-
- -
srvPresupuestosCliente
- TDataAbstractService -
- - - -
srvRecibosCliente
- TDataAbstractService -
- - - -
srvRecibosProveedor
- TDataAbstractService -
- - - -
srvRemesasCliente
- TDataAbstractService -
- - - -
srvRemesasProveedor
- 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 + + + FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58 + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService +
+ + + +
srvEmpresas
+ TDARemoteService +
+ + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService +
+ + + + +
srvAlbaranesProveedor
+ TDataAbstractService +
+ + + +
srvAlmacenes
+ TDARemoteService +
+ + + + + + +
srvContabilidad
+ TDataAbstractService +
+ + + + + + + +
srvContactos
+ TDARemoteService +
+ + + + +
srvFacturasCliente
+ TDataAbstractService +
+ + + + +
srvFacturasProveedor
+ TDataAbstractService +
+ + + + + + + + + +
srvHistoricoMovimientos
+ TDataAbstractService +
+ + + +
srvInventario
+ TDataAbstractService +
+ + + + +
srvPedidosProveedor
+ TDataAbstractService +
+ + + + +
RptPresupuestosCliente
+
+ +
srvPresupuestosCliente
+ TDataAbstractService +
+ + + +
srvRecibosCliente
+ TDataAbstractService +
+ + + +
srvRecibosProveedor
+ TDataAbstractService +
+ + + +
srvRemesasCliente
+ TDataAbstractService +
+ + + +
srvRemesasProveedor
+ TDataAbstractService +
+ + + + + + +
srvConfiguracion
+ TDataAbstractService +
+ +
frConexionBD
+ TFrame +
+ +
frConfGeneral
+ TFrame +
+ +
fConfiguracion
+ TForm +
+ +
FrameConfiguracion
+ TFrame +
+ +
srvLogin
+ TDARemoteService +
+ +
fAcercaDe
+
+ +
dmServer
+ TDataModule +
+ +
fServerForm
+
+ + + + + + + + +