Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Barra de operaciones propia de cada editor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@76 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-07-05 19:12:40 +00:00
parent 98f79b4d84
commit b209684daf
32 changed files with 261 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

BIN
Output/Debug/Cliente/FactuGES.exe
View File

Binary file not shown.

BIN
Output/Debug/Servidor/FactuGES_Server.exe
View File

Binary file not shown.

BIN
Source/Base/Base.res
View File

Binary file not shown.

15
Source/Base/GUIBase/uEditorBase.dfm
View File

@ -3,7 +3,7 @@ object fEditorBase: TfEditorBase
Top = 127 Top = 127
Caption = 'EditorBase' Caption = 'EditorBase'
ClientHeight = 458 ClientHeight = 458
ClientWidth = 650 ClientWidth = 795
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -23,7 +23,7 @@ object fEditorBase: TfEditorBase
object JvNavPanelHeader: TJvNavPanelHeader object JvNavPanelHeader: TJvNavPanelHeader
Left = 0 Left = 0
Top = 49 Top = 49
Width = 650 Width = 795
Align = alTop Align = alTop
Caption = 'Editor' Caption = 'Editor'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -37,9 +37,8 @@ object fEditorBase: TfEditorBase
ImageIndex = 0 ImageIndex = 0
StyleManager = dmBase.StyleManager StyleManager = dmBase.StyleManager
ParentStyleManager = False ParentStyleManager = False
ExplicitWidth = 652
object Image1: TImage object Image1: TImage
Left = 625 Left = 768
Top = 0 Top = 0
Width = 27 Width = 27
Height = 27 Height = 27
@ -71,9 +70,8 @@ object fEditorBase: TfEditorBase
object TBXDock: TTBXDock object TBXDock: TTBXDock
Left = 0 Left = 0
Top = 0 Top = 0
Width = 650 Width = 795
Height = 49 Height = 49
AllowDrag = False
object tbxMain: TTBXToolbar object tbxMain: TTBXToolbar
Left = 0 Left = 0
Top = 23 Top = 23
@ -82,7 +80,6 @@ object fEditorBase: TfEditorBase
DockMode = dmCannotFloatOrChangeDocks DockMode = dmCannotFloatOrChangeDocks
DockPos = -23 DockPos = -23
DockRow = 1 DockRow = 1
DragHandleStyle = dhNone
Images = SmallImages Images = SmallImages
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -248,11 +245,9 @@ object fEditorBase: TfEditorBase
object StatusBar: TJvStatusBar object StatusBar: TJvStatusBar
Left = 0 Left = 0
Top = 439 Top = 439
Width = 650 Width = 795
Height = 19 Height = 19
Panels = <> Panels = <>
ExplicitTop = 441
ExplicitWidth = 652
end end
object EditorActionList: TActionList object EditorActionList: TActionList
Images = SmallImages Images = SmallImages

3
Source/Base/GUIBase/uEditorDBBase.dfm
View File

@ -19,6 +19,9 @@ inherited fEditorDBBase: TfEditorDBBase
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 648 Width = 648
ExplicitWidth = 648 ExplicitWidth = 648
inherited tbxMain: TTBXToolbar
ExplicitWidth = 648
end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 648 ExplicitWidth = 648
end end

2
Source/Base/GUIBase/uEditorDBItem.dfm
View File

@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 652 Width = 652
ExplicitWidth = 652 ExplicitWidth = 652
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 599 ExplicitWidth = 605
inherited TBXItem26: TTBXItem inherited TBXItem26: TTBXItem
Visible = False Visible = False
end end

20
Source/Base/GUIBase/uEditorGridBase.dfm
View File

@ -27,8 +27,9 @@ inherited fEditorGridBase: TfEditorGridBase
ExplicitHeight = 75 ExplicitHeight = 75
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
DockPos = 0 DockPos = 0
DragHandleStyle = dhDouble
TabOrder = 1 TabOrder = 1
ExplicitWidth = 448 ExplicitWidth = 457
inherited TBXItem29: TTBXItem inherited TBXItem29: TTBXItem
Visible = False Visible = False
end end
@ -76,7 +77,7 @@ inherited fEditorGridBase: TfEditorGridBase
DockMode = dmCannotFloatOrChangeDocks DockMode = dmCannotFloatOrChangeDocks
DockPos = 0 DockPos = 0
DockRow = 2 DockRow = 2
DragHandleStyle = dhNone DragHandleStyle = dhDouble
Images = SmallImages Images = SmallImages
ParentShowHint = False ParentShowHint = False
Resizable = False Resizable = False
@ -144,6 +145,21 @@ inherited fEditorGridBase: TfEditorGridBase
end end
end end
end end
object TBXTMain2: TTBXToolbar
Left = 337
Top = 49
Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks
DockPos = 334
DockRow = 2
DragHandleStyle = dhDouble
Images = SmallImages
ParentShowHint = False
ShowHint = True
TabOrder = 3
Visible = False
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 425 Top = 425

1
Source/Base/GUIBase/uEditorGridBase.pas
View File

@ -52,6 +52,7 @@ type
TBXItem7: TTBXItem; TBXItem7: TTBXItem;
actFiltrar: TAction; actFiltrar: TAction;
TBXItem37: TTBXItem; TBXItem37: TTBXItem;
TBXTMain2: TTBXToolbar;
procedure tbxEditFiltroChange(Sender: TObject; const Text: String); procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
procedure FormShow(Sender: TObject); override; procedure FormShow(Sender: TObject); override;
procedure actQuitarFiltroExecute(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject);

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "T:\Codigo (Luis Leon)\Source\Iconos\Factuges.ico" MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,8,0 FILEVERSION 2,1,0,0
PRODUCTVERSION 2,0,8,0 PRODUCTVERSION 2,1,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.8.0\0" VALUE "FileVersion", "2.1.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.0.6\0" VALUE "ProductVersion", "2.0.6\0"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

6
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -129,7 +129,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 765 Width = 765
ExplicitWidth = 765 ExplicitWidth = 765
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 482 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -200,6 +200,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

42
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -125,28 +125,36 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
ExplicitWidth = 583 ExplicitWidth = 583
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 583 ExplicitWidth = 583
object TBXItem38: TTBXItem [9] object TBXSeparatorItem17: TTBXSeparatorItem [10]
Action = actEnviar
DisplayMode = nbdmImageAndText
end
object TBXItem40: TTBXItem [10]
Action = actCancelarEnvio
DisplayMode = nbdmImageAndText
end
object TBXItem41: TTBXItem [11]
Action = actConfirmarRecepcion
DisplayMode = nbdmImageAndText
end
object TBXItem39: TTBXItem [12]
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem17: TTBXSeparatorItem [14]
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 583 ExplicitWidth = 583
end end
inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 246
object TBXItem42: TTBXItem
Action = actEnviar
DisplayMode = nbdmImageAndText
end
object TBXItem43: TTBXItem
Action = actCancelarEnvio
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem18: TTBXSeparatorItem
end
object TBXItem44: TTBXItem
Action = actConfirmarRecepcion
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem19: TTBXSeparatorItem
end
object TBXItem45: TTBXItem
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 583 Width = 583

10
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -23,15 +23,17 @@ type
TBXSeparatorItem17: TTBXSeparatorItem; TBXSeparatorItem17: TTBXSeparatorItem;
actEnviar: TAction; actEnviar: TAction;
Serviralbarn1: TMenuItem; Serviralbarn1: TMenuItem;
TBXItem38: TTBXItem;
JsListaFacturasGeneradas: TJSDialog; JsListaFacturasGeneradas: TJSDialog;
JsImprimirDialog: TJSDialog; JsImprimirDialog: TJSDialog;
JsPrevisualizarDialog: TJSDialog; JsPrevisualizarDialog: TJSDialog;
TBXItem39: TTBXItem;
actCancelarEnvio: TAction; actCancelarEnvio: TAction;
TBXItem40: TTBXItem;
actConfirmarRecepcion: TAction; actConfirmarRecepcion: TAction;
TBXItem41: TTBXItem; TBXItem42: TTBXItem;
TBXItem43: TTBXItem;
TBXItem44: TTBXItem;
TBXSeparatorItem18: TTBXSeparatorItem;
TBXItem45: TTBXItem;
TBXSeparatorItem19: TTBXSeparatorItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject); procedure actGenerarFacturaUpdate(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject); procedure actGenerarFacturaExecute(Sender: TObject);

11
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
View File

@ -125,8 +125,15 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar inherited TBXTMain2: TTBXToolbar
inherited TBXItem39: TTBXItem ExplicitWidth = 124
inherited TBXItem43: TTBXItem
Visible = False
end
inherited TBXItem44: TTBXItem
Visible = False
end
inherited TBXItem45: TTBXItem
Caption = 'Generar abono...' Caption = 'Generar abono...'
end end
end end

30
Source/Modulos/Albaranes de cliente/Views/uEditorElegirAlbaranesCliente.dfm
View File

@ -49,12 +49,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 87
Width = 790 Width = 790
Height = 49
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 790 ExplicitWidth = 790
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 117 ExplicitWidth = 126
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -76,18 +74,12 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
inherited TBXSeparatorItem3: TTBXSeparatorItem inherited TBXSeparatorItem3: TTBXSeparatorItem
Visible = False Visible = False
end end
inherited TBXItem38: TTBXItem inherited TBXItem23: TTBXItem
Visible = False
end
inherited TBXItem37: TTBXItem
Visible = False Visible = False
end end
inherited TBXSeparatorItem17: TTBXSeparatorItem inherited TBXSeparatorItem17: TTBXSeparatorItem
Visible = False Visible = False
end end
inherited TBXItem23: TTBXItem
Visible = False
end
inherited TBXItem3: TTBXItem inherited TBXItem3: TTBXItem
Visible = False Visible = False
end end
@ -105,19 +97,29 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 117 Left = 126
Top = 23 Top = 23
DockPos = 104 DockPos = 104
DockRow = 1 DockRow = 1
ExplicitLeft = 117 ExplicitLeft = 126
ExplicitTop = 23 ExplicitTop = 23
ExplicitWidth = 269
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
end end
inherited TBXItem37: TTBXItem
Visible = False
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 790 ExplicitWidth = 790
end end
inherited TBXTMain2: TTBXToolbar
Left = 320
Visible = False
ExplicitLeft = 320
ExplicitWidth = 470
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 790 Width = 790
@ -190,6 +192,10 @@ inherited fEditorElegirAlbaranesCliente: TfEditorElegirAlbaranesCliente
end end
inherited JsNuevoAlbaranDialog: TJSDialog [13] inherited JsNuevoAlbaranDialog: TJSDialog [13]
end end
inherited JsListaFacturasGeneradas: TJSDialog [14]
end
inherited JsImprimirDialog: TJSDialog [15]
end
object EditorSeleccionActionList: TActionList object EditorSeleccionActionList: TActionList
Images = SmallImages Images = SmallImages
Left = 152 Left = 152

14
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -125,16 +125,18 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
ExplicitWidth = 606 ExplicitWidth = 606
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 606 ExplicitWidth = 606
object TBXSeparatorItem17: TTBXSeparatorItem [8]
end
object TBXItem38: TTBXItem [9]
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 606 ExplicitWidth = 606
end end
inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 117
object TBXItem39: TTBXItem
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 606 Width = 606

3
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -17,11 +17,10 @@ uses
type type
TfEditorAlbaranesProveedor = class(TfEditorGridBase, IEditorAlbaranesProveedor) TfEditorAlbaranesProveedor = class(TfEditorGridBase, IEditorAlbaranesProveedor)
actGenerarFactura: TAction; actGenerarFactura: TAction;
TBXSeparatorItem17: TTBXSeparatorItem;
JsNuevoAlbaranDialog: TJSDialog; JsNuevoAlbaranDialog: TJSDialog;
TBXItem38: TTBXItem;
JsPrevisualizarDialog: TJSDialog; JsPrevisualizarDialog: TJSDialog;
JsImprimirDialog: TJSDialog; JsImprimirDialog: TJSDialog;
TBXItem39: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject); procedure actGenerarFacturaExecute(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject); procedure actGenerarFacturaUpdate(Sender: TObject);

13
Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
View File

@ -30,10 +30,10 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 465 ExplicitWidth = 474
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 260 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical] EditOptions = [tboUseEditWhenVertical]
end end
@ -41,6 +41,12 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Visible = False Visible = False
end end
end end
inherited TBXTMain2: TTBXToolbar
Left = 275
DockPos = 275
Visible = False
ExplicitLeft = 275
end
end end
inline frViewAlmacenes1: TfrViewAlmacenes [3] inline frViewAlmacenes1: TfrViewAlmacenes [3]
Left = 0 Left = 0
@ -71,6 +77,9 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Kind = skCount Kind = skCount
Column = frViewAlmacenes1.cxGridViewNOMBRE Column = frViewAlmacenes1.cxGridViewNOMBRE
end> end>
inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase

8
Source/Modulos/Articulos/Views/uEditorArticulos.dfm
View File

@ -29,7 +29,7 @@ inherited fEditorArticulos: TfEditorArticulos
ExplicitWidth = 543 ExplicitWidth = 543
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 260 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical] EditOptions = [tboUseEditWhenVertical]
end end
@ -37,6 +37,12 @@ inherited fEditorArticulos: TfEditorArticulos
Visible = False Visible = False
end end
end end
inherited TBXTMain2: TTBXToolbar
Left = 275
DockPos = 275
Visible = False
ExplicitLeft = 275
end
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
inherited actNuevo: TAction inherited actNuevo: TAction

10
Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm
View File

@ -4,7 +4,6 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
Caption = 'Hist'#243'rico de movimientos de art'#237'culos en almac'#233'n' Caption = 'Hist'#243'rico de movimientos de art'#237'culos en almac'#233'n'
ClientHeight = 540 ClientHeight = 540
ClientWidth = 669 ClientWidth = 669
ExplicitLeft = -61
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 574 ExplicitHeight = 574
PixelsPerInch = 96 PixelsPerInch = 96
@ -138,10 +137,10 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
Width = 669 Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 349 ExplicitWidth = 358
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 260 ExplicitWidth = 269
inherited TBXItem37: TTBXItem inherited TBXItem37: TTBXItem
Visible = False Visible = False
end end
@ -149,6 +148,11 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 669 ExplicitWidth = 669
end end
inherited TBXTMain2: TTBXToolbar
Left = 334
Visible = False
ExplicitLeft = 334
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 521 Top = 521

9
Source/Modulos/Inventario/Views/uEditorInventario.dfm
View File

@ -43,7 +43,7 @@ inherited fEditorInventario: TfEditorInventario
Width = 669 Width = 669
ExplicitWidth = 669 ExplicitWidth = 669
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 659 ExplicitWidth = 668
object TBXSeparatorItem84: TTBXSeparatorItem [6] object TBXSeparatorItem84: TTBXSeparatorItem [6]
end end
object TBXItem54: TTBXItem [7] object TBXItem54: TTBXItem [7]
@ -66,7 +66,7 @@ inherited fEditorInventario: TfEditorInventario
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 260 ExplicitWidth = 269
inherited TBXItem37: TTBXItem inherited TBXItem37: TTBXItem
Visible = False Visible = False
end end
@ -74,6 +74,11 @@ inherited fEditorInventario: TfEditorInventario
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 669 ExplicitWidth = 669
end end
inherited TBXTMain2: TTBXToolbar
Left = 334
Visible = False
ExplicitLeft = 334
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 521 Top = 521

92
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
Caption = 'Seleccionar pedido de cliente' Caption = 'Seleccionar pedido de cliente'
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
@ -48,13 +49,11 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 87
Width = 656 Width = 656
Height = 49
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Align = alRight Align = alRight
ExplicitWidth = 117 ExplicitWidth = 126
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -72,11 +71,11 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 117 Left = 126
Top = 23 Top = 23
DockPos = 115 DockPos = 115
DockRow = 1 DockRow = 1
ExplicitLeft = 117 ExplicitLeft = 126
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -85,6 +84,11 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited TBXTMain2: TTBXToolbar
Left = 334
Visible = False
ExplicitLeft = 334
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 656 Width = 656
@ -130,19 +134,26 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [5] inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [5]
Top = 136 Top = 162
Width = 656 Width = 656
Height = 240 Height = 214
ExplicitTop = 136 ExplicitTop = 162
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 240 ExplicitHeight = 214
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 656 Width = 656
Height = 240 Height = 86
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 240 ExplicitHeight = 86
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum
Position = spFooter
Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 pedidos' Format = '0 pedidos'
@ -154,6 +165,56 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 656
ExplicitWidth = 656
inherited TBXDock1: TTBXDock
Width = 656
ExplicitWidth = 656
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 656
inherited dxLayoutControl1: TdxLayoutControl
Width = 652
ExplicitWidth = 652
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 453
ExplicitLeft = 453
ExplicitWidth = 121
Width = 121
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 652
ExplicitWidth = 652
inherited tbxBotones: TTBXToolbar
Width = 642
ExplicitWidth = 642
end
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 188
ExplicitTop = 188
ExplicitWidth = 656
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 656
ExplicitWidth = 656
inherited TBXToolbar1: TTBXToolbar
Width = 646
ExplicitWidth = 646
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
BuiltInReportLink = True BuiltInReportLink = True
@ -167,6 +228,11 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
Index = 0 Index = 0
end> end>
end end
inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True
end
end
end end
inherited EditorActionList: TActionList [8] inherited EditorActionList: TActionList [8]
Left = 112 Left = 112
@ -194,6 +260,10 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
Left = 80 Left = 80
Top = 192 Top = 192
end end
inherited JsNuevoPedidoProveedorDialog: TJSDialog [14]
end
inherited JsPrevisualizarDialog: TJSDialog [15]
end
object EditorSeleccionActionList: TActionList object EditorSeleccionActionList: TActionList
Images = SmallImages Images = SmallImages
Left = 152 Left = 152

16
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -44,17 +44,19 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700 Width = 700
ExplicitWidth = 700 ExplicitWidth = 700
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 700 ExplicitWidth = 632
object TBXSeparatorItem17: TTBXSeparatorItem [8]
end
object TBXItem38: TTBXItem [9]
Action = actRecibirPedido
DisplayMode = nbdmImageAndText
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 700 ExplicitWidth = 700
end end
inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 119
object TBXItem39: TTBXItem
Action = actRecibirPedido
DisplayMode = nbdmImageAndText
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 700 Width = 700

3
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -20,11 +20,10 @@ type
N4: TMenuItem; N4: TMenuItem;
Cambiarsituacin1: TMenuItem; Cambiarsituacin1: TMenuItem;
actRecibirPedido: TAction; actRecibirPedido: TAction;
TBXSeparatorItem17: TTBXSeparatorItem;
JsNuevoPedidoProveedorDialog: TJSDialog; JsNuevoPedidoProveedorDialog: TJSDialog;
JsPrevisualizarDialog: TJSDialog; JsPrevisualizarDialog: TJSDialog;
JsImprimirDialog: TJSDialog; JsImprimirDialog: TJSDialog;
TBXItem38: TTBXItem; TBXItem39: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actCambiarSituacionExecute(Sender: TObject); procedure actCambiarSituacionExecute(Sender: TObject);
procedure actRecibirPedidoUpdate(Sender: TObject); procedure actRecibirPedidoUpdate(Sender: TObject);

BIN
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.res
View File

Binary file not shown.

21
Source/Modulos/Pedidos de cliente/Views/uEditorElegirPedidosCliente.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorElegirPedidosCliente: TfEditorElegirPedidosCliente
Caption = 'Seleccionar pedido de cliente' Caption = 'Seleccionar pedido de cliente'
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
@ -48,12 +49,10 @@ inherited fEditorElegirPedidosCliente: TfEditorElegirPedidosCliente
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 87 Top = 87
Width = 656 Width = 656
Height = 49
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 117 ExplicitWidth = 126
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -63,9 +62,6 @@ inherited fEditorElegirPedidosCliente: TfEditorElegirPedidosCliente
inherited TBXItem4: TTBXItem inherited TBXItem4: TTBXItem
Visible = False Visible = False
end end
inherited TBXItem43: TTBXItem
Visible = False
end
inherited TBXSeparatorItem3: TTBXSeparatorItem inherited TBXSeparatorItem3: TTBXSeparatorItem
Visible = False Visible = False
end end
@ -77,11 +73,11 @@ inherited fEditorElegirPedidosCliente: TfEditorElegirPedidosCliente
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 117 Left = 126
Top = 23 Top = 23
DockPos = 104 DockPos = 104
DockRow = 1 DockRow = 1
ExplicitLeft = 117 ExplicitLeft = 126
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -90,6 +86,11 @@ inherited fEditorElegirPedidosCliente: TfEditorElegirPedidosCliente
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited TBXTMain2: TTBXToolbar
Left = 334
Visible = False
ExplicitLeft = 334
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 656 Width = 656
@ -174,6 +175,10 @@ inherited fEditorElegirPedidosCliente: TfEditorElegirPedidosCliente
Visible = False Visible = False
end end
end end
inherited JsGenerarDialog: TJSDialog [13]
end
inherited JsPrevisualizarDialog: TJSDialog [14]
end
object EditorSeleccionActionList: TActionList object EditorSeleccionActionList: TActionList
Images = SmallImages Images = SmallImages
Left = 152 Left = 152

16
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
View File

@ -124,13 +124,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
Width = 674 Width = 674
ExplicitWidth = 674 ExplicitWidth = 674
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 674 ExplicitWidth = 632
object TBXSeparatorItem18: TTBXSeparatorItem [8]
end
object TBXItem43: TTBXItem [9]
Action = actGenerar
DisplayMode = nbdmImageAndText
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 674 ExplicitWidth = 674
@ -146,6 +140,14 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
end end
end end
end end
inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 91
object TBXItem40: TTBXItem
Action = actGenerar
DisplayMode = nbdmImageAndText
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 674 Width = 674

3
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
View File

@ -24,13 +24,12 @@ type
TBXItem38: TTBXItem; TBXItem38: TTBXItem;
TBXItem39: TTBXItem; TBXItem39: TTBXItem;
N4: TMenuItem; N4: TMenuItem;
TBXSeparatorItem18: TTBXSeparatorItem;
actGenerar: TAction; actGenerar: TAction;
TBXItem43: TTBXItem;
Generar2: TMenuItem; Generar2: TMenuItem;
JsGenerarDialog: TJSDialog; JsGenerarDialog: TJSDialog;
JsPrevisualizarDialog: TJSDialog; JsPrevisualizarDialog: TJSDialog;
JsImprimirDialog: TJSDialog; JsImprimirDialog: TJSDialog;
TBXItem40: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -97,8 +97,6 @@ uses
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService}, srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
@ -109,8 +107,6 @@ uses
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas', uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService}, srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
@ -119,7 +115,11 @@ uses
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas', schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas'; schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

12
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "T:\Codigo (Luis Leon)\Source\Iconos\Servidor.ico" MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,8,0 FILEVERSION 2,1,0,0
PRODUCTVERSION 2,0,8,0 PRODUCTVERSION 2,1,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0904E4" BLOCK "0C0904E4"
BEGIN BEGIN
VALUE "FileVersion", "2.0.8.0\0" VALUE "FileVersion", "2.1.0.0\0"
VALUE "ProductVersion", "2.0.8.0\0" VALUE "ProductVersion", "2.1.0.0\0"
VALUE "CompileDate", "jueves, 28 de junio de 2007 13:38\0" VALUE "CompileDate", "jueves, 05 de julio de 2007 20:47\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.