AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio para que se vea opcion en lugar de refencia del presupuesto en la factura de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@45 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2019-07-16 10:56:05 +00:00
parent f36e5794ec
commit 1da2bbb082
22 changed files with 145 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BD/BASEDATOS.FDB
View File

Binary file not shown.

8
Base/BaseD7.dof
View File

@ -168,8 +168,8 @@ Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=16
Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@ -189,8 +189,8 @@ Count=1
Item0=.\
[HistoryLists\hlOutputDirectorry]
Count=2
Item0=..\Output\Servidor
Item1=..\Output\Cliente
Item0=..\Output\Cliente
Item1=..\Output\Servidor
[HistoryLists\hlBPLOutput]
Count=3
Item0=..\..\..\Output\Cliente

4
Base/uDataModuleBase.dfm
View File

@ -1,8 +1,8 @@
object dmBase: TdmBase
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
Left = 1374
Top = 266
Left = 1377
Top = 310
Height = 368
Width = 494
object SmallImages: TPngImageList

4
Base/uEditorBase.dfm
View File

@ -1,6 +1,6 @@
object fEditorBase: TfEditorBase
Left = 586
Top = 118
Left = 587
Top = 137
Width = 670
Height = 512
Caption = 'EditorBase'

2
Base/uEditorDBItem.dfm
View File

@ -1,5 +1,5 @@
inherited fEditorDBItem: TfEditorDBItem
Left = 674
Left = 675
Caption = 'fEditorDBItem'
PixelsPerInch = 96
TextHeight = 13

4
Base/uEditorGrid.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorGrid: TfEditorGrid
Left = 386
Top = 150
Left = 387
Top = 175
Width = 714
Height = 485
Caption = 'fEditorGrid'

2
Base/uViewGrid.dfm
View File

@ -149,7 +149,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.PageSize.Y = 297000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 43563.775367581020000000
ReportDocument.CreationDate = 43647.535044629630000000
OptionsCharts.Transparent = True
OptionsFormatting.SuppressBackgroundBitmaps = True
OptionsOnEveryPage.Caption = False

14
Cliente/FactuGES.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=6
Release=3
Release=4
Build=0
Debug=0
PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys]
CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=1.6.3.0
FileVersion=1.6.4.0
InternalName=FactuGES
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES
ProductVersion=1.6.3.0
ProductVersion=1.6.4.0
Comments=
[Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
@ -183,8 +183,8 @@ Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=16
Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@ -204,8 +204,8 @@ Count=1
Item0=.\
[HistoryLists\hlOutputDirectorry]
Count=2
Item0=..\Output\Servidor
Item1=..\Output\Cliente
Item0=..\Output\Cliente
Item1=..\Output\Servidor
[HistoryLists\hlBPLOutput]
Count=3
Item0=..\..\..\Output\Cliente

BIN
Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Iconos/LOGO ALONSO Y SAL_2.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 29 KiB

6
Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm
View File

@ -106,9 +106,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
end
inherited ToolBar2: TToolBar
Width = 182
end
inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
end
@ -134,7 +131,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited frViewPresupuestoFactura1: TfrViewPresupuestoFactura
inherited edtlReferencia: TcxDBTextEdit
DataBinding.DataField = 'REFERENCIA'
DataBinding.DataField = 'REFERENCIA_MONTAJE_PRE'
DataBinding.DataSource = dsDataTable
end
end
end

3
Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas
View File

@ -86,11 +86,12 @@ begin
frViewDatosFacturaCliente1.DADataSource.DataTable := DADataSource.DataTable;
frViewObservaciones1.DADataSource.DataTable := DADataSource.DataTable;
frViewFormaPago1.DADataSource.DataTable := DADataSource.DataTable;
frViewPresupuestoFactura1.DADataSource.DataTable := DADataSource.DataTable;
frViewDatosYSeleccionContacto1.Contacto := FFacturaCliente.Cliente;
frViewDatosYSeleccionContacto1.OnContactoChanged := OnContactoChanged;
frViewPresupuestoFactura1.Presupuesto := dmPresupuestos.GetPresupuesto(FFacturaCliente.CODIGOALBARAN);
frViewPresupuestoFactura1.Presupuesto := dmPresupuestos.GetPresupuesto(FFacturaCliente.CODIGOPRESUPUESTO);
frViewPresupuestoFactura1.OnPresupuestoChanged := OnPresupuestoChanged;
end;

7
Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.dfm Normal file
View File

@ -0,0 +1,7 @@
inherited frViewPresupuestoFactura: TfrViewPresupuestoFactura
inherited ActionList1: TActionList
inherited actElegirPresupuesto: TAction
OnExecute = actElegirPresupuestoExecute
end
end
end

64
Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.pas Normal file
View File

@ -0,0 +1,64 @@
unit uViewPresupuestoFactura;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewPresupuestoRelacionado, DB, uDADataTable, ImgList,
PngImageList, ActnList, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, ComCtrls, ToolWin, ExtCtrls, StdCtrls;
type
TfrViewPresupuestoFactura = class(TfrViewPresupuestoRelacionado)
procedure actElegirPresupuestoExecute(Sender: TObject);
procedure actVerPresupuestoUpdate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frViewPresupuestoFactura: TfrViewPresupuestoFactura;
implementation
{$R *.dfm}
uses uBizPresupuestosCliente, uDataModulePresupuestos, schFacturasClienteClient_Intf,
uDAInterfaces;
procedure TfrViewPresupuestoFactura.actElegirPresupuestoExecute(Sender: TObject);
var
APresupuesto : IBizPresupuestos;
begin
inherited;
if Length(edtlReferencia.Text) > 0 then
if (MessageBox(0, 'Esta factura ya tiene asociado un presupuesto/albarán. '+#13+#10+
'Si elige otro presupuesto/albarán, se cambiará en esta factura el cliente y los conceptos '+#13+#10+
'para hacerlos coincidir con el presupuesto/albarán elegido. '+#13+#10+
'¿Desea continuar?', 'Confirmación', MB_ICONQUESTION or MB_YESNO) = idNo) then
Exit;
APresupuesto := dmPresupuestos.GetPresupuestos;
try
if APresupuesto.ShowForSelect = mrOK then
begin
Self.Presupuesto := dmPresupuestos.GetItemsSeleccionados(APresupuesto)
end;
finally
APresupuesto := NIL;
end;
end;
procedure TfrViewPresupuestoFactura.actVerPresupuestoUpdate(
Sender: TObject);
begin
// inherited;
if assigned(DADataSource) then
begin
(Sender as TAction).Enabled := not VarIsNull(edtlReferencia.EditValue);
end;
end;
end.

4
Modulos/Montajes/Cliente/uDataModuleMontajes.dfm
View File

@ -10,8 +10,8 @@ object dmMontajes: TdmMontajes
ParamType = fResult
DataType = rtString
end>
Left = 423
Top = 115
Left = 424
Top = 134
Height = 335
Width = 536
object RORemoteService: TRORemoteService

55
Modulos/Montajes/Cliente/uEditorMontaje.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorMontaje: TfEditorMontaje
Left = 297
Top = 103
Left = 298
Top = 120
Width = 766
Height = 497
HorzScrollBar.Visible = False
@ -139,8 +139,8 @@ inherited fEditorMontaje: TfEditorMontaje
ReadOnly = False
inherited cxGrid: TcxGrid
Width = 750
Height = 213
TabOrder = 2
Height = 187
TabOrder = 3
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
IsCaptionAssigned = True
@ -181,7 +181,18 @@ inherited fEditorMontaje: TfEditorMontaje
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter [4]
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 314
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 750
inherited TBXToolbar1: TTBXToolbar
Width = 740
end
end
end
inherited ActionList2: TActionList [5]
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
Active = False
Component = nil
@ -189,15 +200,11 @@ inherited fEditorMontaje: TfEditorMontaje
BuiltInReportLink = True
end
end
inherited dxPSEngineController1: TdxPSEngineController [5]
inherited PngImageList: TPngImageList [9]
end
inherited cxStyleRepository1: TcxStyleRepository [6]
inherited PngImageList2: TPngImageList [10]
end
inherited PngImageList: TPngImageList [7]
end
inherited PngImageList2: TPngImageList [8]
end
inherited ActionList1: TActionList [9]
inherited ActionList1: TActionList [11]
inherited actRecibirPedido: TAction
OnExecute = frViewPedidosMontajeactRecibirPedidoExecute
OnUpdate = frViewPedidosMontajeactRecibirPedidoUpdate
@ -224,7 +231,7 @@ inherited fEditorMontaje: TfEditorMontaje
ReadOnly = False
inherited cxGrid: TcxGrid
Width = 750
Height = 213
Height = 187
end
inherited ToolBar1: TToolBar
Width = 750
@ -256,6 +263,15 @@ inherited fEditorMontaje: TfEditorMontaje
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 314
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 750
inherited TBXToolbar1: TTBXToolbar
Width = 740
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38751.760538553240000000
@ -283,8 +299,8 @@ inherited fEditorMontaje: TfEditorMontaje
ReadOnly = False
inherited cxGrid: TcxGrid
Width = 750
Height = 213
TabOrder = 2
Height = 187
TabOrder = 3
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -338,6 +354,15 @@ inherited fEditorMontaje: TfEditorMontaje
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 314
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 750
inherited TBXToolbar1: TTBXToolbar
Width = 740
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
Active = False

15
Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm
View File

@ -74,21 +74,6 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Top = 25
inherited TBXDock1: TTBXDock
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Width = 465
end
inherited edtFechaIniFiltro: TcxDateEdit
Width = 245
end
inherited edtFechaFinFiltro: TcxDateEdit
Width = 204
end
end
end
end
end
inherited ActionList1: TActionList
Images = PngImageList

2
Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm
View File

@ -34,14 +34,12 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
OptionsSelection.CellSelect = True
object cxGridViewRecID: TcxGridDBColumn
DataBinding.FieldName = 'RecID'
Visible = False
end
object cxGridViewCODIGOMONTAJE: TcxGridDBColumn
DataBinding.FieldName = 'CODIGOMONTAJE'
end
object cxGridViewNUMCONCEPTO: TcxGridDBColumn
DataBinding.FieldName = 'NUMCONCEPTO'
Visible = False
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
DataBinding.FieldName = 'DESCRIPCION'

4
Modulos/Montajes/Servidor/srvMontajes_Impl.dfm
View File

@ -5,8 +5,8 @@ object srvMontajes: TsrvMontajes
ConnectionName = 'IBX'
ServiceSchema = schMontajes
ServiceAdapter = DABINAdapter
Left = 1065
Top = 212
Left = 1067
Top = 247
Height = 356
Width = 300
object bpMontajes: TDABusinessProcessor

4
Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorPresupuestos: TfEditorPresupuestos
Left = 491
Top = 241
Left = 492
Top = 281
Width = 901
Caption = 'Lista de presupuestos'
PixelsPerInch = 96

8
Servidor/FactuGES_Server.dof
View File

@ -183,8 +183,8 @@ Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=16
Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@ -204,8 +204,8 @@ Count=1
Item0=.\
[HistoryLists\hlOutputDirectorry]
Count=2
Item0=..\Output\Servidor
Item1=..\Output\Cliente
Item0=..\Output\Cliente
Item1=..\Output\Servidor
[HistoryLists\hlBPLOutput]
Count=3
Item0=..\..\..\Output\Cliente

2
Servidor/fServerForm.pas
View File

@ -7,7 +7,7 @@ uses
uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, frxClass, frxPreview,
JvComponent, JvTrayIcon, ActnList, Menus, XPMan, JvExControls,
JvGradient, JvGIF, ExtCtrls;
JvGradient, JvGIF, ExtCtrls, JvComponentBase;
type
TServerForm = class(TForm)