Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Subida de modificaciones sobre contabilidad

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@62 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2007-12-13 20:13:31 +00:00
parent 33e03de872
commit ae571b7016
13 changed files with 363 additions and 286 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Source/Modulos/Contabilidad/Controller/uApuntesController.pas
View File

@ -82,7 +82,10 @@ end;
procedure TApuntesController.Anadir(AApunte: IBizApunte); procedure TApuntesController.Anadir(AApunte: IBizApunte);
begin begin
AApunte.Insert; // AApunte.DataTable.DisableControls;
// AApunte.Last;
AApunte.Append;
// AApunte.DataTable.EnableControls;
end; end;
procedure TApuntesController.AsignarDataModule; procedure TApuntesController.AsignarDataModule;
@ -171,6 +174,9 @@ begin
end; end;
function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean; function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean;
var
Descuadre : Double;
begin begin
Result := False; Result := False;
@ -185,37 +191,26 @@ begin
raise Exception.Create('El asiento debe tener algún apunte'); raise Exception.Create('El asiento debe tener algún apunte');
AApunte.DataTable.DisableControls; AApunte.DataTable.DisableControls;
Descuadre := 0;
AApunte.DataTable.First; AApunte.DataTable.First;
while not AApunte.DataTable.EOF do while not AApunte.DataTable.EOF do
begin begin
if AApunte.ID_SUBCUENTAIsNull then if AApunte.ID_SUBCUENTAIsNull then
begin begin
AApunte.DataTable.EnableControls; AApunte.DataTable.EnableControls;
raise Exception.Create('Todo apunte debe tener una subcuenta asociada'); raise Exception.Create('Todo apunte debe tener una subcuenta asociada');
end; end;
Descuadre := Descuadre + AApunte.DEBE;
Descuadre := Descuadre - AApunte.HABER;
AApunte.DataTable.Next; AApunte.DataTable.Next;
end; 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; Result := True;
end; end;

9
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
View File

@ -47,10 +47,10 @@ object PluginContabilidad: TPluginContabilidad
Caption = 'Subcuentas' Caption = 'Subcuentas'
OnExecute = actSubCuentasExecute OnExecute = actSubCuentasExecute
end end
object actAsientos: TAction object actDiario: TAction
Category = 'Contabilidad' Category = 'Contabilidad'
Caption = 'Asientos' Caption = 'Libro de diario'
OnExecute = actAsientosExecute OnExecute = actDiarioExecute
end end
end end
object MainMenu: TMainMenu object MainMenu: TMainMenu
@ -76,7 +76,8 @@ object PluginContabilidad: TPluginContabilidad
Action = actSubCuentas Action = actSubCuentas
end end
object Asientos1: TMenuItem object Asientos1: TMenuItem
Action = actAsientos Tag = 19005
Action = actDiario
end end
end end
object Contabilidad2: TMenuItem object Contabilidad2: TMenuItem

6
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas
View File

@ -30,14 +30,14 @@ type
Cuentas1: TMenuItem; Cuentas1: TMenuItem;
actSubCuentas: TAction; actSubCuentas: TAction;
Subcuentas1: TMenuItem; Subcuentas1: TMenuItem;
actAsientos: TAction; actDiario: TAction;
Asientos1: TMenuItem; Asientos1: TMenuItem;
procedure actEpigrafesExecute(Sender: TObject); procedure actEpigrafesExecute(Sender: TObject);
procedure actBalancesExecute(Sender: TObject); procedure actBalancesExecute(Sender: TObject);
procedure actCuentasEspecialesExecute(Sender: TObject); procedure actCuentasEspecialesExecute(Sender: TObject);
procedure actCuentasExecute(Sender: TObject); procedure actCuentasExecute(Sender: TObject);
procedure actSubCuentasExecute(Sender: TObject); procedure actSubCuentasExecute(Sender: TObject);
procedure actAsientosExecute(Sender: TObject); procedure actDiarioExecute(Sender: TObject);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -63,7 +63,7 @@ end;
exports exports
GetModule name GET_MODULE_FUNC; GetModule name GET_MODULE_FUNC;
procedure TPluginContabilidad.actAsientosExecute(Sender: TObject); procedure TPluginContabilidad.actDiarioExecute(Sender: TObject);
var var
AAsientosController : IAsientosController; AAsientosController : IAsientosController;
ADiario : IBizDiario; ADiario : IBizDiario;

18
Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm
View File

@ -97,6 +97,7 @@ inherited fEditorAsiento: TfEditorAsiento
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 632 Width = 632
ActivePage = pagApuntes
ExplicitWidth = 632 ExplicitWidth = 632
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
@ -125,6 +126,7 @@ inherited fEditorAsiento: TfEditorAsiento
Properties.DisplayFormat = '0' Properties.DisplayFormat = '0'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET Style.Font.Charset = DEFAULT_CHARSET
@ -145,11 +147,12 @@ inherited fEditorAsiento: TfEditorAsiento
Width = 168 Width = 168
end end
object edtFecha: TcxDBDateEdit object edtFecha: TcxDBDateEdit
Left = 361 Left = 303
Top = 10 Top = 10
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ASIENTO' DataBinding.DataField = 'FECHA_ASIENTO'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clInfoBk Style.Color = clInfoBk
@ -163,7 +166,7 @@ inherited fEditorAsiento: TfEditorAsiento
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 158 Width = 253
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -214,9 +217,14 @@ inherited fEditorAsiento: TfEditorAsiento
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 ejercicios' Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skCount Kind = skSum
Column = frViewApuntes1.cxGridViewID_ASIENTO Column = frViewApuntes1.cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = frViewApuntes1.cxGridViewHABER
end> end>
end end
end end

4
Source/Modulos/Contabilidad/Views/uEditorAsiento.pas
View File

@ -114,9 +114,9 @@ begin
if Assigned(Asiento) then if Assigned(Asiento) then
begin begin
if Asiento.EsNuevo then if Asiento.EsNuevo then
FTitulo := 'Nueva Asiento - ' + AppFactuGES.EjercicioActivo.NOMBRE FTitulo := 'Nueva Asiento - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE
else else
FTitulo := 'Asiento' + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; // + ' - ' + Asiento.DESCRIPCION; FTitulo := 'Asiento' + ' ' + IntToStr(Asiento.ORDEN) + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE;
end; end;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);

22
Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
View File

@ -70,17 +70,6 @@ inherited fEditorDiario: TfEditorDiario
Height = 195 Height = 195
ExplicitWidth = 543 ExplicitWidth = 543
ExplicitHeight = 195 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 end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 543 Width = 543
@ -90,9 +79,19 @@ inherited fEditorDiario: TfEditorDiario
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -108,6 +107,7 @@ inherited fEditorDiario: TfEditorDiario
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 297 Top = 297
ExplicitTop = 297 ExplicitTop = 297
ExplicitWidth = 543
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543

2
Source/Modulos/Contabilidad/Views/uEditorDiario.pas
View File

@ -93,7 +93,7 @@ procedure TfEditorDiario.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
begin begin
FTitulo := 'Lista de Asientos - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE; FTitulo := 'Libro de diario - ' + AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + AppFactuGES.EjercicioActivo.NOMBRE;
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;

60
Source/Modulos/Contabilidad/Views/uViewApuntes.dfm
View File

@ -1,18 +1,33 @@
inherited frViewApuntes: TfrViewApuntes inherited frViewApuntes: TfrViewApuntes
Width = 623
ExplicitWidth = 623
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 623
ExplicitWidth = 623
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 ejercicios' Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skCount Kind = skSum
Column = cxGridViewREF_SUBCUENTA Column = cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewHABER
end> end>
DataController.Summary.OnAfterSummary = cxGridViewDataControllerSummaryAfterSummary
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
OptionsView.CellAutoHeight = False
OptionsView.Footer = True
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
Visible = True Visible = True
SortIndex = 0
SortOrder = soAscending
end end
object cxGridViewID_ASIENTO: TcxGridDBColumn object cxGridViewID_ASIENTO: TcxGridDBColumn
DataBinding.FieldName = 'ID_ASIENTO' DataBinding.FieldName = 'ID_ASIENTO'
Options.Sorting = False
end end
object cxGridViewREF_SUBCUENTA: TcxGridDBColumn object cxGridViewREF_SUBCUENTA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
@ -25,8 +40,7 @@ inherited frViewApuntes: TfrViewApuntes
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = cxGridViewREF_SUBCUENTAPropertiesButtonClick Properties.OnButtonClick = cxGridViewREF_SUBCUENTAPropertiesButtonClick
SortIndex = 0 Options.Sorting = False
SortOrder = soAscending
Width = 119 Width = 119
end end
object cxGridViewSUBCUENTA: TcxGridDBColumn object cxGridViewSUBCUENTA: TcxGridDBColumn
@ -34,16 +48,19 @@ inherited frViewApuntes: TfrViewApuntes
DataBinding.FieldName = 'SUBCUENTA' DataBinding.FieldName = 'SUBCUENTA'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True Properties.ReadOnly = True
Options.Sorting = False
Width = 86 Width = 86
end end
object cxGridViewCONCEPTO: TcxGridDBColumn object cxGridViewCONCEPTO: TcxGridDBColumn
Caption = 'Concepto' Caption = 'Concepto'
DataBinding.FieldName = 'CONCEPTO' DataBinding.FieldName = 'CONCEPTO'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Options.Sorting = False
Width = 109 Width = 109
end end
object cxGridViewDOCUMENTO: TcxGridDBColumn object cxGridViewDOCUMENTO: TcxGridDBColumn
DataBinding.FieldName = 'DOCUMENTO' DataBinding.FieldName = 'DOCUMENTO'
Options.Sorting = False
Width = 58 Width = 58
end end
object cxGridViewDEBE: TcxGridDBColumn object cxGridViewDEBE: TcxGridDBColumn
@ -51,6 +68,7 @@ inherited frViewApuntes: TfrViewApuntes
DataBinding.FieldName = 'DEBE' DataBinding.FieldName = 'DEBE'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.OnEditValueChanged = cxGridViewDEBEPropertiesEditValueChanged Properties.OnEditValueChanged = cxGridViewDEBEPropertiesEditValueChanged
Options.Sorting = False
Width = 59 Width = 59
end end
object cxGridViewHABER: TcxGridDBColumn object cxGridViewHABER: TcxGridDBColumn
@ -58,11 +76,14 @@ inherited frViewApuntes: TfrViewApuntes
DataBinding.FieldName = 'HABER' DataBinding.FieldName = 'HABER'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.OnEditValueChanged = cxGridViewHABERPropertiesEditValueChanged Properties.OnEditValueChanged = cxGridViewHABERPropertiesEditValueChanged
Options.Sorting = False
Width = 58 Width = 58
end end
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 623
ExplicitWidth = 623
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0 Top = 0
ExplicitTop = 0 ExplicitTop = 0
@ -91,6 +112,35 @@ inherited frViewApuntes: TfrViewApuntes
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 117 ExplicitWidth = 117
end 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 end
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
object actElegirSubCuenta: TAction object actElegirSubCuenta: TAction

32
Source/Modulos/Contabilidad/Views/uViewApuntes.pas
View File

@ -15,7 +15,7 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
cxImageComboBox, cxTextEdit, cxCurrencyEdit, ComCtrls, ToolWin, cxButtonEdit, cxImageComboBox, cxTextEdit, cxCurrencyEdit, ComCtrls, ToolWin, cxButtonEdit,
uApuntesController; uApuntesController, StdCtrls, cxContainer;
type type
IViewApuntes = interface IViewApuntes = interface
@ -35,12 +35,16 @@ type
cxGridViewDOCUMENTO: TcxGridDBColumn; cxGridViewDOCUMENTO: TcxGridDBColumn;
cxGridViewID_ASIENTO: TcxGridDBColumn; cxGridViewID_ASIENTO: TcxGridDBColumn;
actElegirSubCuenta: TAction; actElegirSubCuenta: TAction;
eDescuadre: TcxCurrencyEdit;
ToolButton3: TToolButton;
Label1: TLabel;
procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure cxGridViewREF_SUBCUENTAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure cxGridViewREF_SUBCUENTAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure actElegirSubCuentaExecute(Sender: TObject); procedure actElegirSubCuentaExecute(Sender: TObject);
procedure cxGridViewDEBEPropertiesEditValueChanged(Sender: TObject); procedure cxGridViewDEBEPropertiesEditValueChanged(Sender: TObject);
procedure cxGridViewHABERPropertiesEditValueChanged(Sender: TObject); procedure cxGridViewHABERPropertiesEditValueChanged(Sender: TObject);
procedure cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary);
protected protected
FApuntes: IBizApunte; FApuntes: IBizApunte;
FController : IApuntesController; FController : IApuntesController;
@ -93,7 +97,8 @@ end;
procedure TfrViewApuntes.AnadirInterno; procedure TfrViewApuntes.AnadirInterno;
begin begin
inherited; // inherited;
FController.Anadir(Apuntes);
// try // try
// with TApuntesController.Create do // with TApuntesController.Create do
// begin // begin
@ -112,16 +117,32 @@ begin
FController := TApuntesController.Create; FController := TApuntesController.Create;
end; 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); procedure TfrViewApuntes.cxGridViewDEBEPropertiesEditValueChanged(Sender: TObject);
begin begin
inherited; inherited;
{
//Tengo que hacer esto para que se haga un post del apunte y pueda ver el nuevo valor //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; cxGridView.Controller.EditingController.Edit.PostEditValue;
FController.AsignarDEBE(Apuntes); FController.AsignarDEBE(Apuntes);
}
end; end;
procedure TfrViewApuntes.cxGridViewHABERPropertiesEditValueChanged( procedure TfrViewApuntes.cxGridViewHABERPropertiesEditValueChanged(
@ -129,11 +150,10 @@ procedure TfrViewApuntes.cxGridViewHABERPropertiesEditValueChanged(
begin begin
inherited; inherited;
//Tengo que hacer esto para que se haga un post del apunte y pueda ver el nuevo valor //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; cxGridView.Controller.EditingController.Edit.PostEditValue;
FController.AsignarHABER(Apuntes); FController.AsignarHABER(Apuntes);
}
end; end;
procedure TfrViewApuntes.cxGridViewIDCustomDrawCell( procedure TfrViewApuntes.cxGridViewIDCustomDrawCell(

19
Source/Modulos/Contabilidad/Views/uViewDiario.dfm
View File

@ -4,9 +4,14 @@ inherited frViewDiario: TfrViewDiario
DataController.KeyFieldNames = 'ID_ASIENTO;ID_APUNTE' DataController.KeyFieldNames = 'ID_ASIENTO;ID_APUNTE'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 ejercicios' Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skCount Kind = skSum
Column = cxGridViewREF_SUBCUENTA Column = cxGridViewDEBE
end
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Column = cxGridViewHABER
end> end>
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
object cxGridViewID_ASIENTO: TcxGridDBColumn object cxGridViewID_ASIENTO: TcxGridDBColumn
@ -23,13 +28,15 @@ inherited frViewDiario: TfrViewDiario
Visible = False Visible = False
end end
object cxGridViewFECHA_ASIENTO: TcxGridDBColumn object cxGridViewFECHA_ASIENTO: TcxGridDBColumn
Caption = 'Fecha asiento'
DataBinding.FieldName = 'FECHA_ASIENTO' DataBinding.FieldName = 'FECHA_ASIENTO'
end end
object cxGridViewORDEN: TcxGridDBColumn object cxGridViewORDEN: TcxGridDBColumn
DataBinding.FieldName = 'ORDEN' Caption = 'Orden asiento'
DataBinding.FieldName = 'ORDEN_ASIENTO'
end end
object cxGridViewREF_SUBCUENTA: TcxGridDBColumn object cxGridViewREF_SUBCUENTA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Ref. subcuenta'
DataBinding.FieldName = 'REF_SUBCUENTA' DataBinding.FieldName = 'REF_SUBCUENTA'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
SortIndex = 0 SortIndex = 0
@ -37,7 +44,7 @@ inherited frViewDiario: TfrViewDiario
Width = 304 Width = 304
end end
object cxGridViewSUBCUENTA: TcxGridDBColumn object cxGridViewSUBCUENTA: TcxGridDBColumn
Caption = 'SubCuenta' Caption = 'Subcuenta'
DataBinding.FieldName = 'SUBCUENTA' DataBinding.FieldName = 'SUBCUENTA'
Visible = False Visible = False
end end

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

434
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,223 +1,219 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <ItemGroup>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <DelphiCompile Include="FactuGES_Server.dpr">
</ProjectExtensions> <MainSource>MainSource</MainSource>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </DelphiCompile>
<ItemGroup> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DelphiCompile Include="FactuGES_Server.dpr"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <Form>srvEjercicios</Form>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> </DCCReference>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<Form>srvEjercicios</Form> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
</DCCReference> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
</DCCReference> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <Form>srvContabilidad</Form>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <Form>srvHistoricoMovimientos</Form>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
</DCCReference> <Form>srvInventario</Form>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>srvPresupuestosCliente</Form>
<Form>RptPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
</DCCReference> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
</DCCReference> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
</DCCReference> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
</DCCReference> <Form>srvRemesasProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <Form>srvConfiguracion</Form>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> </DCCReference>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>srvConfiguracion</Form> <Form>frConexionBD</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConexionBD</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>frConfGeneral</Form> <Form>fConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>FrameConfiguracion</Form> <Form>srvLogin</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>srvLogin</Form> <Form>fAcercaDe</Form>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="uAcercaDe.pas"> <Form>dmServer</Form>
<Form>fAcercaDe</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>dmServer</Form> <Form>fServerForm</Form>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<Form>fServerForm</Form> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
</DCCReference> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> </ItemGroup>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "domingo, 09 de diciembre de 2007 18:02\0" VALUE "CompileDate", "jueves, 13 de diciembre de 2007 13:39\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"