Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de inventario

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@734 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-05 19:43:24 +00:00
parent eec2a14c35
commit c873e7235f
17 changed files with 107 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Cliente/FactuGES.dpr
View File

@ -2,7 +2,6 @@ program FactuGES;
uses uses
// ExceptionLog, // ExceptionLog,
ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, SysUtils,

6
Source/Cliente/FactuGES.dproj
View File

@ -54,11 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">2</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,4,2,0 FILEVERSION 1,4,3,0
PRODUCTVERSION 1,4,2,0 PRODUCTVERSION 1,4,3,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.4.2.0\0" VALUE "FileVersion", "1.4.3.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.4.2.0\0" VALUE "ProductVersion", "1.4.3.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Almacenes/Model/Almacenes_model.res
View File

Binary file not shown.

2
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
View File

@ -122,7 +122,7 @@ object srvAlmacenes: TsrvAlmacenes
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'ALMACEN'#39#10 + 'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'ALMACEN'#39#10 +
#10 'order by NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

2
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas
View File

@ -87,7 +87,7 @@ begin
ALista := TStringList.Create; ALista := TStringList.Create;
try try
dsData.Active := True; dsData.Active := True;
ALista.Sorted := True; // ALista.Sorted := True;
while not dsData.EOF do while not dsData.EOF do
begin begin
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger])); ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));

5
Source/Modulos/Inventario/Model/uBizInventario.pas
View File

@ -97,6 +97,7 @@ var
Contador: Integer; Contador: Integer;
begin begin
inherited; inherited;
{
DesconectarTabla(Sender); DesconectarTabla(Sender);
Sender.First; Sender.First;
Contador := 1; Contador := 1;
@ -109,7 +110,7 @@ begin
Sender.Next; Sender.Next;
end; end;
ConectarTabla(Sender); ConectarTabla(Sender);
}
// //
end; end;
@ -139,7 +140,7 @@ end;
procedure TBizInventario.OnCalcFields(Sender: TDADataTable); procedure TBizInventario.OnCalcFields(Sender: TDADataTable);
begin begin
inherited; inherited;
ID := Self.DataTable.RecIDValue; // ID := Self.DataTable.RecIDValue;
end; end;
procedure TBizInventario.OnNewRecord(Sender: TDADataTable); procedure TBizInventario.OnNewRecord(Sender: TDADataTable);

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

@ -153,7 +153,6 @@ inherited fEditorInventario: TfEditorInventario
Width = 669 Width = 669
Height = 250 Height = 250
TabOrder = 2 TabOrder = 2
ExplicitTop = 143
ExplicitWidth = 669 ExplicitWidth = 669
ExplicitHeight = 250 ExplicitHeight = 250
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -273,8 +272,6 @@ inherited fEditorInventario: TfEditorInventario
end end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 669 Width = 669
ExplicitLeft = 0
ExplicitTop = 102
ExplicitWidth = 669 ExplicitWidth = 669
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter

20
Source/Modulos/Inventario/Views/uEditorInventario.pas
View File

@ -89,7 +89,7 @@ implementation
{$R *.DFM} {$R *.DFM}
uses uses
cxControls, uGridStatusUtils, uDataModuleInventario, uDataModuleUsuarios, Variants, cxControls, uGridStatusUtils, uDataModuleInventario, uDataModuleUsuarios,
uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView, uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView,
uAlmacenesController, uFactuGES_App, uGenerarAlbaranesProvUtils, uAlmacenesController, uFactuGES_App, uGenerarAlbaranesProvUtils,
schInventarioClient_Intf, uBizObras; schInventarioClient_Intf, uBizObras;
@ -111,19 +111,25 @@ begin
end; end;
function TfEditorInventario.DarIDAlmacenSeleccionado(Descripcion: String): Integer; function TfEditorInventario.DarIDAlmacenSeleccionado(Descripcion: String): Integer;
var
IDAlmacen: Variant;
begin begin
if (ViewGrid._Grid.ActiveLevel.Tag = -1) then IDAlmacen := (ViewGrid as IViewInventario).DarIDAlmacenObraSeleccionada;
Result := Seleccionar(Descripcion, tAlmacen) if not VarIsNull(IDAlmacen) then
Result := IDAlmacen
else else
Result := ViewGrid._Grid.ActiveLevel.Tag; Result := Seleccionar(Descripcion, tAlmacen)
end; end;
function TfEditorInventario.DarIDObraSeleccionada(Descripcion: String): Integer; function TfEditorInventario.DarIDObraSeleccionada(Descripcion: String): Integer;
var
IDObra: Variant;
begin begin
if (ViewGrid._Grid.ActiveLevel.Tag = -1) then IDObra := (ViewGrid as IViewInventario).DarIDAlmacenObraSeleccionada;
Result := Seleccionar(Descripcion, TObra) if not VarIsNull(IDObra) then
Result := IDObra
else else
Result := ViewGrid._Grid.ActiveLevel.Tag; Result := Seleccionar(Descripcion, TObra)
end; end;
destructor TfEditorInventario.Destroy; destructor TfEditorInventario.Destroy;

66
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -1,13 +1,16 @@
inherited frViewInventario: TfrViewInventario inherited frViewInventario: TfrViewInventario
Width = 674 Width = 678
Height = 607 Height = 607
ExplicitWidth = 674 OnShow = CustomViewShow
ExplicitWidth = 678
ExplicitHeight = 607 ExplicitHeight = 607
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 143 Top = 143
Width = 674 Width = 678
Height = 438 Height = 438
RootLevelOptions.DetailTabsPosition = dtpTop ExplicitTop = 143
ExplicitWidth = 674
ExplicitHeight = 438
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -51,9 +54,6 @@ inherited frViewInventario: TfrViewInventario
Kind = skSum Kind = skSum
Column = cxGridViewPENDIENTE_RECEPCION Column = cxGridViewPENDIENTE_RECEPCION
end> end>
OptionsCustomize.ColumnGrouping = False
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True
object cxGridViewID: TcxGridDBColumn object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID' DataBinding.FieldName = 'ID'
Visible = False Visible = False
@ -164,21 +164,21 @@ inherited frViewInventario: TfrViewInventario
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Tag = -1 Tag = -1
Caption = 'Todos los almacenes'
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 674 Width = 678
ExplicitWidth = 674
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 674
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 674 Width = 678
ExplicitWidth = 674
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 510
Width = 510
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -197,45 +197,63 @@ inherited frViewInventario: TfrViewInventario
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 674 Width = 678
ExplicitWidth = 674
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 664 Width = 668
ExplicitWidth = 664
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 581 Top = 581
ExplicitTop = 581
ExplicitWidth = 674
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 674 Width = 678
ExplicitWidth = 674
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 664 Width = 668
ExplicitWidth = 664
end end
end end
end end
object Panel1: TPanel [3] object Panel1: TPanel [3]
Left = 0 Left = 0
Top = 102 Top = 102
Width = 674 Width = 678
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
ExplicitLeft = 160 ExplicitWidth = 674
ExplicitTop = 96 DesignSize = (
ExplicitWidth = 185 678
object cxListaAlmacenesObras: TcxComboBox 41)
object eAlmacen: TLabel
Left = 10 Left = 10
Top = 16
Width = 71
Height = 13
Caption = 'Almac'#233'n:'
end
object cxListaAlmacenesObras: TcxComboBox
Left = 87
Top = 14 Top = 14
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.OnEditValueChanged = cxListaObrasPropertiesEditValueChanged Properties.OnEditValueChanged = cxListaObrasPropertiesEditValueChanged
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Width = 587 Width = 581
end end
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter

37
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -30,6 +30,7 @@ type
function GetObras: TStringList; function GetObras: TStringList;
procedure SetObras(const Value: TStringList); procedure SetObras(const Value: TStringList);
property Obras: TStringList read GetObras write SetObras; property Obras: TStringList read GetObras write SetObras;
function DarIDAlmacenObraSeleccionada: Variant;
end; end;
TfrViewInventario = class(TfrViewGrid, IViewInventario) TfrViewInventario = class(TfrViewGrid, IViewInventario)
@ -52,10 +53,12 @@ type
cxStyleArticuloConStock: TcxStyle; cxStyleArticuloConStock: TcxStyle;
Panel1: TPanel; Panel1: TPanel;
cxListaAlmacenesObras: TcxComboBox; cxListaAlmacenesObras: TcxComboBox;
eAlmacen: TLabel;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle); AStyle: TcxStyle);
procedure cxListaObrasPropertiesEditValueChanged(Sender: TObject); procedure cxListaObrasPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -75,6 +78,7 @@ type
property Inventario: IBizInventario read GetInventario write SetInventario; property Inventario: IBizInventario read GetInventario write SetInventario;
procedure AnadirOtrosFiltros; override; procedure AnadirOtrosFiltros; override;
destructor Destroy; override; destructor Destroy; override;
function DarIDAlmacenObraSeleccionada: Variant;
end; end;
implementation implementation
@ -85,20 +89,13 @@ uses uDataModuleInventario, schInventarioClient_Intf;
procedure TfrViewInventario.AnadirFiltroAlmacenesObras; procedure TfrViewInventario.AnadirFiltroAlmacenesObras;
var var
FFiltro : TcxFilterCriteriaItemList; FFiltro : TcxFilterCriteriaItemList;
CodigoAlmacen: String; CodigoAlmacen: Variant;
begin begin
FFiltro := AddFilterGrid(fboAnd); FFiltro := AddFilterGrid(fboAnd);
//INV_ALMACENES CodigoAlmacen := DarIDAlmacenObraSeleccionada;
if Assigned(FAlmacenes) then
CodigoAlmacen := FAlmacenes.Values[cxListaAlmacenesObras.EditValue]
//INV_OBRAS
else if Assigned(FObras) then
CodigoAlmacen := FObras.Values[cxListaAlmacenesObras.EditValue]
else
Raise Exception.Create('No se ha asignado ninguna lista de ALMACENES');
if CodigoAlmacen <> '' then if not VarIsNull(CodigoAlmacen) then
begin begin
FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen); FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
cxGridViewALMACEN.Visible := False; cxGridViewALMACEN.Visible := False;
@ -120,6 +117,12 @@ begin
cxGrid.ActiveLevel.GridView := cxGridView; cxGrid.ActiveLevel.GridView := cxGridView;
end; end;
procedure TfrViewInventario.CustomViewShow(Sender: TObject);
begin
inherited;
cxListaAlmacenesObras.ItemIndex := 0;
end;
procedure TfrViewInventario.cxGridViewStylesGetContentStyle(Sender: procedure TfrViewInventario.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle); TcxCustomGridTableItem; out AStyle: TcxStyle);
@ -146,6 +149,18 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
function TfrViewInventario.DarIDAlmacenObraSeleccionada: Variant;
begin
//INV_ALMACENES
if Assigned(FAlmacenes) then
Result := FAlmacenes.Values[cxListaAlmacenesObras.EditValue]
//INV_OBRAS
else if Assigned(FObras) then
Result := FObras.Values[cxListaAlmacenesObras.EditValue]
else
Raise Exception.Create('No se ha asignado ninguna lista de ALMACENES');
end;
destructor TfrViewInventario.Destroy; destructor TfrViewInventario.Destroy;
begin begin
FAlmacenes := Nil; FAlmacenes := Nil;
@ -175,6 +190,7 @@ var
i: integer; i: integer;
begin begin
FAlmacenes := Value; FAlmacenes := Value;
eAlmacen.Caption := 'Almacén';
if Assigned(FAlmacenes) then if Assigned(FAlmacenes) then
begin begin
@ -213,6 +229,7 @@ var
i: integer; i: integer;
begin begin
FObras := Value; FObras := Value;
eAlmacen.Caption := 'Obra';
if Assigned(FObras) then if Assigned(FObras) then
begin begin

14
Source/Modulos/Obras/Servidor/srvObras_Impl.dfm
View File

@ -39,11 +39,11 @@ object srvObras: TsrvObras
Top = 82 Top = 82
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="1202" Height="535">'#13#10' <Entity Name="ObrasEjecucionesPed' + 'idth="1202" Height="535">'#13#10' <Entity Name="Obras" Left="0,00" ' +
'idosProveedor" Left="426,74" Top="188,62" />'#13#10' <Entity Name="' + 'Top="110,00" />'#13#10' <Entity Name="ObrasEjecucionesPresupuestos"' +
'ObrasEjecuciones" Left="180,50" Top="0,00" />'#13#10' <Entity Name=' + ' Left="426,48" Top="0,02" />'#13#10' <Entity Name="ObrasEjecuciones' +
'"ObrasEjecucionesPresupuestos" Left="426,48" Top="0,02" />'#13#10' ' + '" Left="180,50" Top="0,00" />'#13#10' <Entity Name="ObrasEjecucione' +
'<Entity Name="Obras" Left="0,00" Top="110,00" />'#13#10' </Diagram>'#13#10 + 'sPedidosProveedor" Left="426,74" Top="188,62" />'#13#10' </Diagram>'#13#10 +
'</Diagrams>'#13#10 '</Diagrams>'#13#10
end end
object DataDictionary: TDADataDictionary object DataDictionary: TDADataDictionary
@ -403,7 +403,9 @@ object srvObras: TsrvObras
Default = True Default = True
TargetTable = 'OBRAS' TargetTable = 'OBRAS'
Name = 'IBX' Name = 'IBX'
SQL = 'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'OBRA'#39#10#10 SQL =
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'OBRA'#39#10'ord' +
'er by NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

2
Source/Modulos/Obras/Servidor/srvObras_Impl.pas
View File

@ -426,7 +426,7 @@ begin
ALista := TStringList.Create; ALista := TStringList.Create;
try try
dsData.Active := True; dsData.Active := True;
ALista.Sorted := True; // ALista.Sorted := True;
while not dsData.EOF do while not dsData.EOF do
begin begin
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger])); ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<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 Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">2</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.4.2.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">1.4.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 03 de noviembre de 2008 12:55</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</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.4.3.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">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 04 de noviembre de 2008 20:22</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,4,2,0 FILEVERSION 1,4,3,0
PRODUCTVERSION 1,4,2,0 PRODUCTVERSION 1,4,3,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.4.2.0\0" VALUE "FileVersion", "1.4.3.0\0"
VALUE "ProductVersion", "1.4.2.0\0" VALUE "ProductVersion", "1.4.3.0\0"
VALUE "CompileDate", "martes, 04 de noviembre de 2008 20:22\0" VALUE "CompileDate", "miércoles, 05 de noviembre de 2008 20:14\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"