Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso a los módulos que tienen filtro por tienda. NO funcionaba bien.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@111 1c943782-d109-9647-9548-93b3ac332352
This commit is contained in:
David Arranz 2008-04-16 08:48:53 +00:00
parent aad361f8ac
commit 80b830fccc
59 changed files with 251 additions and 616 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Base/BaseD10.dproj
View File

@ -40,6 +40,12 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">True</Package_Options></Package_Options><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">2</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">2.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">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>

2
Source/Base/BaseD10.drc
View File

@ -29,4 +29,4 @@ END
/* C:\Varela_D2007\Source\Base\uViewBarraSeleccion.dfm */
/* C:\Varela_D2007\Source\Base\uViewGrid.dfm */
/* C:\Varela_D2007\Source\Base\BaseD10.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf21.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2.tmp */

2
Source/CargaEDI/CargaEDI.drc
View File

@ -15,4 +15,4 @@ END
/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
/* C:\Varela_D2007\Source\CargaEDI\uCargaEDI.dfm */
/* C:\Varela_D2007\Source\CargaEDI\CargaEDI.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3B.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C.tmp */

8
Source/Cliente/AdminPV.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN
END
/* c:\archivos de programa\codegear\rad studio\5.0\Lib\WindowsXP.res */
/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
/* C:\Varela_D2007\Lib\JVCL\JvXPCore.res */
/* uSplash.dfm */
/* uAcercaDe.dfm */
/* C:\Varela_D2007\Source\Cliente\uSplash.dfm */
/* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */
/* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */
/* C:\Varela_D2007\Source\Cliente\AdminPV.res */
/* C:\Varela_D2007\Source\Cliente\AdminPV.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1A.tmp */

2
Source/Cliente/AdminPV.rc
View File

@ -17,7 +17,7 @@ BEGIN
VALUE "InternalName", "Administración de puntos de venta\0"
VALUE "ProductName", "Administración de puntos de venta\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 15 de abril de 2008 10:40\0"
VALUE "CompileDate", "miércoles, 16 de abril de 2008 10:43\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/AdminPV.res
View File

Binary file not shown.

23
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -499,23 +499,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
object Archivo2_OLD: TMenuItem
Tag = -90000
Caption = 'Archivo'
object Cambiarmicontrasea2_OLD: TMenuItem
Tag = 1
Action = actCambiarPass
end
object N3_OLD: TMenuItem
Tag = 2
Caption = '-'
end
object Paneldeadministracin2_OLD: TMenuItem
Tag = 4
Action = actAdministracion
Visible = False
end
object N4_OLD: TMenuItem
Tag = 5
Caption = '-'
end
object Salir2_OLD: TMenuItem
Tag = 6
Action = actSalir
@ -535,9 +518,9 @@ object fPantallaPrincipal: TfPantallaPrincipal
object Opciones1_OLD: TMenuItem
Tag = -70000
Caption = 'Opciones'
object Configuraractualizaciones1: TMenuItem
Tag = 100
Action = actActualizaciones
object Cambiarmicontrasea2_OLD: TMenuItem
Tag = 1
Action = actCambiarPass
end
object Configurarconexin2_OLD: TMenuItem
Tag = 101

4
Source/Cliente/uPantallaPrincipal.pas
View File

@ -44,10 +44,7 @@ type
Archivo2_OLD: TMenuItem;
Ayuda2_OLD: TMenuItem;
Cambiarmicontrasea2_OLD: TMenuItem;
N3_OLD: TMenuItem;
Configurarconexin2_OLD: TMenuItem;
Paneldeadministracin2_OLD: TMenuItem;
N4_OLD: TMenuItem;
Salir2_OLD: TMenuItem;
Acercade2_OLD: TMenuItem;
lblBienvenido: TLabel;
@ -63,7 +60,6 @@ type
Label1: TLabel;
Image1: TImage;
actActualizaciones: TAction;
Configuraractualizaciones1: TMenuItem;
actVerPanel: TAction;
actVerBarraEstado: TAction;
Paneldeexploracin1: TMenuItem;

2
Source/ControlesBase/ControlesBaseD10.drc
View File

@ -26,4 +26,4 @@ END
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uEditorControlBase.dfm */
/* C:\Varela_D2007\Source\ControlesBase\Cliente\uViewPeriodoFechas.dfm */
/* C:\Varela_D2007\Source\ControlesBase\ControlesBaseD10.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf23.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf4.tmp */

2
Source/Modulos/Devoluciones/Cliente/Devoluciones.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uPluginControllerDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorAjustarDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf33.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf14.tmp */

83
Source/Modulos/Devoluciones/Cliente/uDataModuleDevoluciones.dfm
View File

@ -803,92 +803,9 @@ object dmDevoluciones: TdmDevoluciones
end
object DARemoteDataAdapter: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetSchemaCall.MethodName = 'GetSchemaAsXML'
GetSchemaCall.Params = <
item
Name = 'Result'
DataType = rtString
Flag = fResult
end>
GetSchemaCall.Default = False
GetSchemaCall.IncomingSchemaParameter = 'Result'
GetSchemaCall.OutgoingFilterParameter = 'aFilter'
GetDataCall.RemoteService = RORemoteService
GetDataCall.MethodName = 'GetDatasetDataEx'
GetDataCall.Params = <
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
Value = Null
end
item
Name = 'DatasetName'
DataType = rtString
Flag = fIn
end
item
Name = 'Params'
DataType = rtUserDefined
Flag = fIn
TypeName = 'TDADatasetParamArray'
Value = Null
end
item
Name = 'UserFilter'
DataType = rtString
Flag = fIn
Value = Null
end
item
Name = 'IncludeSchema'
DataType = rtBoolean
Flag = fIn
end
item
Name = 'MaxRecords'
DataType = rtInteger
Flag = fIn
end>
GetDataCall.Default = False
GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
GetDataCall.IncomingDataParameter = 'Result'
GetDataCall.OutgoingParamsParameter = 'Params'
GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema'
GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords'
UpdateDataCall.RemoteService = RORemoteService
UpdateDataCall.MethodName = 'UpdateData'
UpdateDataCall.Params = <
item
Name = 'Delta'
DataType = rtBinary
Flag = fIn
end
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
end>
UpdateDataCall.Default = False
UpdateDataCall.OutgoingDeltaParameter = 'Delta'
UpdateDataCall.IncomingDeltaParameter = 'Result'
GetScriptsCall.RemoteService = RORemoteService
GetScriptsCall.MethodName = 'GetDatasetScripts'
GetScriptsCall.Params = <
item
Name = 'DatasetNames'
DataType = rtString
Flag = fIn
end
item
Name = 'Result'
DataType = rtString
Flag = fResult
end>
GetScriptsCall.Default = False
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
GetScriptsCall.IncomingScriptParameter = 'Result'
RemoteService = RORemoteService
DataStreamer = dmBase.DABINAdapter
Left = 40

15
Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
ClientHeight = 637
ClientWidth = 901
ExplicitWidth = 909
ExplicitHeight = 671
ExplicitHeight = 664
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -21,7 +21,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
Width = 901
ExplicitWidth = 901
inherited tbxMain: TTBXToolbar
ExplicitWidth = 583
ExplicitWidth = 581
object TBXSubmenuItem2: TTBXSubmenuItem [5]
Caption = 'Cambiar el estado'
DropdownCombo = True
@ -49,8 +49,8 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
ExplicitWidth = 901
end
inherited tbxFiltro: TTBXToolbar
Left = 583
ExplicitLeft = 583
Left = 581
ExplicitLeft = 581
end
end
inherited StatusBar: TStatusBar
@ -103,7 +103,6 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
inherited cxGrid: TcxGrid
Width = 901
Height = 453
ExplicitTop = 60
ExplicitWidth = 901
ExplicitHeight = 453
inherited cxGridView: TcxGridDBTableView
@ -128,7 +127,6 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 901
inherited frViewParametrosCentro1: TfrViewParametrosCentro
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox
Width = 392
@ -139,12 +137,11 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones
inherited TBXLabel1: TTBXLabel
Width = 901
ExplicitWidth = 901
ExplicitHeight = 19
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 476
ExplicitHeight = 41
inherited TBXButton3: TTBXButton
ExplicitWidth = 476
inherited Button1: TButton
Action = actRefrescar
end
end

6
Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas
View File

@ -18,7 +18,7 @@ uses
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, TBXDkPanels,
uViewParametrosControlGrid, uViewParametrosCentro, uDAInterfaces;
uViewParametrosControlGrid, uViewParametrosCentro, uDAInterfaces, pngimage;
type
@ -184,6 +184,7 @@ end;
procedure TfEditorListaDevoluciones.actRefrescarExecute(Sender: TObject);
begin
ShowHourglassCursor;
actRefrescar.Enabled := False;
Items.DataTable.Active := False;
Application.ProcessMessages;
ViewGrid._FocusedView.BeginUpdate;
@ -211,9 +212,10 @@ begin
finally
ViewGrid._FocusedView.EndUpdate;
HideHourglassCursor;
ViewGrid.ExpandirTodo;
ViewGrid.GotoFirst;
actRefrescar.Enabled := True;
HideHourglassCursor;
end;
end;

24
Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm
View File

@ -1,11 +1,11 @@
inherited frViewListaDevoluciones: TfrViewListaDevoluciones
Width = 466
Width = 829
Height = 477
ExplicitWidth = 466
ExplicitWidth = 829
ExplicitHeight = 477
inherited cxGrid: TcxGrid
Top = 60
Width = 466
Width = 829
Height = 417
ExplicitTop = 60
ExplicitWidth = 466
@ -317,6 +317,7 @@ inherited frViewListaDevoluciones: TfrViewListaDevoluciones
FloatingHeight = 60
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 1
ExplicitWidth = 466
inline frViewParametrosCentro1: TfrViewParametrosCentro
Left = 0
Top = 19
@ -340,40 +341,39 @@ inherited frViewListaDevoluciones: TfrViewListaDevoluciones
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
Width = 466
Width = 829
Height = 19
Margins.Left = 5
Margins.Top = 5
Align = alTop
Caption = 'Par'#225'metros de consulta'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
ExplicitWidth = 466
end
object pnlAgrupaciones: TTBXAlignmentPanel
Left = 425
Top = 19
Width = 41
Width = 404
Height = 41
Align = alClient
AutoSize = True
Color = clBtnFace
TabOrder = 2
object TBXButton3: TTBXButton
Tag = 3
Left = 8
ExplicitWidth = 41
object Button1: TButton
Left = 6
Top = 10
Width = 90
Height = 21
AutoSize = False
Caption = 'Consultar'
ImageIndex = 0
TabOrder = 0
Wrapping = twEndEllipsis
end
end
end

6
Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas
View File

@ -91,7 +91,7 @@ type
frViewParametrosCentro1: TfrViewParametrosCentro;
TBXLabel1: TTBXLabel;
pnlAgrupaciones: TTBXAlignmentPanel;
TBXButton3: TTBXButton;
Button1: TButton;
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure cxGridBandedViewRR38GetDisplayText(
@ -539,7 +539,7 @@ begin
if Assigned(FItems) then
Items.DataTable.Active := False;
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados;
ShowHourglassCursor;
try
@ -552,7 +552,7 @@ begin
Exit;
end
else begin
AWhereCentro := AWhereCentro + ' FILIAL in (';
AWhereCentro := AWhereCentro + ' CENTRO in (';
for i := 0 to ACentrosList.Count - 1 do
begin
if i > 0 then

8
Source/Modulos/Devoluciones/Servidor/srvDevoluciones_Impl.pas
View File

@ -10,16 +10,16 @@ unit srvDevoluciones_Impl;
interface
uses
{vcl:} Classes, SysUtils,
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DARemoteService_Impl,
{Used RODLs:} DataAbstract3_Intf,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} VARELA_Intf, uDAScriptingProvider, uDABusinessProcessor,
uDAClasses, uDADataTable, uDABINAdapter, uDADataStreamer;
type
{ TsrvDevoluciones }
TsrvDevoluciones = class(TDARemoteService, IsrvDevoluciones)
TsrvDevoluciones = class(TDataAbstractService, IsrvDevoluciones)
bpDevoluciones: TDABusinessProcessor;
bpDevolucionesAprobadas: TDABusinessProcessor;
bpDevolucionesPendientes: TDABusinessProcessor;

2
Source/Modulos/FicherosEDI/Cliente/FicherosEDI.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uEditorHistorialCargasEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\uPluginControllerFicherosEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\FicherosEDI\Cliente\FicherosEDI.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf29.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA.tmp */

1
Source/Modulos/Parametros/Cliente/Parametros.dpk
View File

@ -31,7 +31,6 @@ requires
BaseD10,
ControlesBaseD10;
contains
uDataModuleParametros in 'uDataModuleParametros.pas' {dmParametros: TDAClientDataModule},
schParametrosClient_Intf in '..\Reglas\schParametrosClient_Intf.pas',

5
Source/Modulos/Parametros/Cliente/Parametros.dproj
View File

@ -54,13 +54,8 @@
</DelphiCompile>
<DCCReference Include="..\Reglas\schParametrosClient_Intf.pas" />
<DCCReference Include="..\Reglas\uBizParametros.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\BaseD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ControlesBaseD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uDataModuleParametros.pas">

2
Source/Modulos/Parametros/Cliente/Parametros.drc
View File

@ -17,4 +17,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosColeccion.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\uViewParametrosFecha.dfm */
/* C:\Varela_D2007\Source\Modulos\Parametros\Cliente\Parametros.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf25.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf6.tmp */

2
Source/Modulos/Recepciones/Cliente/Recepciones.drc
View File

@ -20,4 +20,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uPluginControllerRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorAjustarRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf31.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf12.tmp */

87
Source/Modulos/Recepciones/Cliente/uDataModuleRecepciones.dfm
View File

@ -971,96 +971,9 @@ object dmRecepciones: TdmRecepciones
end
object DARemoteDataAdapter: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetSchemaCall.MethodName = 'GetSchemaAsXML'
GetSchemaCall.Params = <
item
Name = 'Result'
DataType = rtString
Flag = fResult
Value = Null
end>
GetSchemaCall.Default = False
GetSchemaCall.IncomingSchemaParameter = 'Result'
GetSchemaCall.OutgoingFilterParameter = 'aFilter'
GetDataCall.RemoteService = RORemoteService
GetDataCall.MethodName = 'GetDatasetDataEx'
GetDataCall.Params = <
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
Value = Null
end
item
Name = 'DatasetName'
DataType = rtString
Flag = fIn
Value = 'Recepciones'
end
item
Name = 'Params'
DataType = rtUserDefined
Flag = fIn
TypeName = 'TDADatasetParamArray'
Value = Null
end
item
Name = 'UserFilter'
DataType = rtString
Flag = fIn
Value = Null
end
item
Name = 'IncludeSchema'
DataType = rtBoolean
Flag = fIn
Value = False
end
item
Name = 'MaxRecords'
DataType = rtInteger
Flag = fIn
Value = -1
end>
GetDataCall.Default = False
GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
GetDataCall.IncomingDataParameter = 'Result'
GetDataCall.OutgoingParamsParameter = 'Params'
GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema'
GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords'
UpdateDataCall.RemoteService = RORemoteService
UpdateDataCall.MethodName = 'UpdateData'
UpdateDataCall.Params = <
item
Name = 'Delta'
DataType = rtBinary
Flag = fIn
end
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
end>
UpdateDataCall.Default = False
UpdateDataCall.OutgoingDeltaParameter = 'Delta'
UpdateDataCall.IncomingDeltaParameter = 'Result'
GetScriptsCall.RemoteService = RORemoteService
GetScriptsCall.MethodName = 'GetDatasetScripts'
GetScriptsCall.Params = <
item
Name = 'DatasetNames'
DataType = rtString
Flag = fIn
end
item
Name = 'Result'
DataType = rtString
Flag = fResult
end>
GetScriptsCall.Default = False
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
GetScriptsCall.IncomingScriptParameter = 'Result'
RemoteService = RORemoteService
DataStreamer = dmBase.DABINAdapter
Left = 64

2
Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm
View File

@ -151,7 +151,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
Height = 41
ExplicitWidth = 391
ExplicitHeight = 41
inherited TBXButton3: TTBXButton
inherited Button1: TButton
Action = actRefrescar
end
end

4
Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas
View File

@ -18,7 +18,7 @@ uses
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, StdCtrls, TBXDkPanels,
uViewParametrosCentro, uViewParametrosControlGrid, uDAInterfaces;
uViewParametrosCentro, uViewParametrosControlGrid, uDAInterfaces, pngimage;
const
CM_SETFOCUSEDRECORD = WM_USER + 1002;
@ -188,6 +188,7 @@ end;
procedure TfEditorListaRecepciones.actRefrescarExecute(Sender: TObject);
begin
ShowHourglassCursor;
actRefrescar.Enabled := False;
Items.DataTable.Active := False;
Application.ProcessMessages;
ViewGrid._FocusedView.BeginUpdate;
@ -214,6 +215,7 @@ begin
inherited;
finally
ViewGrid._FocusedView.EndUpdate;
actRefrescar.Enabled := True;
HideHourglassCursor;
ViewGrid.ExpandirTodo;
ViewGrid.GotoFirst;

31
Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
ClientHeight = 637
ClientWidth = 842
ExplicitWidth = 850
ExplicitHeight = 671
ExplicitHeight = 664
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -94,7 +94,6 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
inherited cxGrid: TcxGrid
Width = 842
Height = 453
ExplicitTop = 60
ExplicitWidth = 842
ExplicitHeight = 453
inherited cxGridView: TcxGridDBTableView
@ -114,28 +113,28 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran
end
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 842
inherited frViewParametrosCentro1: TfrViewParametrosCentro
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox
Width = 392
ExplicitWidth = 392
end
end
end
inherited TBXLabel1: TTBXLabel
Width = 842
ExplicitWidth = 842
ExplicitHeight = 19
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 417
ExplicitWidth = 417
ExplicitHeight = 41
inherited TBXButton3: TTBXButton
Width = 297
ExplicitWidth = 297
inherited Button1: TButton
Action = actRefrescar
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited frViewParametrosCentro1: TfrViewParametrosCentro
Align = alLeft
inherited dxLayoutControl1: TdxLayoutControl
inherited ccbCentro: TJvCheckedComboBox
Width = 392
ExplicitWidth = 392
end
end
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink1: TdxGridReportLink

4
Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas
View File

@ -17,7 +17,7 @@ uses
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock,
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, StdCtrls,
uViewListaRecepcionesAlbaran, uDAInterfaces;
uViewListaRecepcionesAlbaran, uDAInterfaces, pngimage;
type
@ -145,6 +145,7 @@ end;
procedure TfEditorListaRecepcionesAlbaran.actRefrescarExecute(Sender: TObject);
begin
ShowHourglassCursor;
actRefrescar.Enabled := False;
Items.DataTable.Active := False;
Application.ProcessMessages;
ViewGrid._FocusedView.BeginUpdate;
@ -175,6 +176,7 @@ begin
_FocusedView.EndUpdate;
GotoFirst;
end;
actRefrescar.Enabled := True;
HideHourglassCursor;
end;
end;

21
Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm
View File

@ -4,9 +4,9 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
ExplicitWidth = 695
ExplicitHeight = 477
inherited cxGrid: TcxGrid
Top = 128
Top = 61
Width = 695
Height = 349
Height = 416
ExplicitTop = 128
ExplicitWidth = 695
ExplicitHeight = 349
@ -350,7 +350,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Left = 0
Top = 19
Width = 425
Height = 109
Height = 42
Align = alLeft
TabOrder = 0
ReadOnly = False
@ -375,12 +375,12 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Margins.Top = 5
Align = alTop
Caption = 'Par'#225'metros de consulta'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
@ -388,21 +388,20 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Left = 425
Top = 19
Width = 270
Height = 109
Height = 42
Align = alClient
AutoSize = True
Color = clBtnFace
TabOrder = 2
object TBXButton3: TTBXButton
Tag = 3
Left = 8
ExplicitLeft = 431
ExplicitTop = 0
object Button1: TButton
Left = 6
Top = 10
Width = 90
Height = 21
AutoSize = False
Caption = 'Consultar'
ImageIndex = 0
TabOrder = 0
Wrapping = twEndEllipsis
end
end
end

6
Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas
View File

@ -92,7 +92,7 @@ type
frViewParametrosCentro1: TfrViewParametrosCentro;
TBXLabel1: TTBXLabel;
pnlAgrupaciones: TTBXAlignmentPanel;
TBXButton3: TTBXButton;
Button1: TButton;
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure cxGridBandedViewRR38GetDisplayText(
@ -540,7 +540,7 @@ begin
if Assigned(FItems) then
Items.DataTable.Active := False;
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados;
ShowHourglassCursor;
try
@ -553,7 +553,7 @@ begin
Exit;
end
else begin
AWhereCentro := AWhereCentro + ' FILIAL in (';
AWhereCentro := AWhereCentro + ' CENTRO in (';
for i := 0 to ACentrosList.Count - 1 do
begin
if i > 0 then

64
Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm
View File

@ -99,26 +99,6 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
FloatingHeight = 60
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 1
inline frViewParametrosCentro1: TfrViewParametrosCentro
Left = 0
Top = 19
Width = 425
Height = 41
Align = alLeft
TabOrder = 0
ReadOnly = False
ExplicitTop = 19
ExplicitWidth = 425
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl
Width = 425
ExplicitWidth = 425
inherited ccbCentro: TJvCheckedComboBox
Width = 392
ExplicitWidth = 392
end
end
end
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
@ -128,34 +108,58 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran
Margins.Top = 5
Align = alTop
Caption = 'Par'#225'metros de consulta'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
object pnlAgrupaciones: TTBXAlignmentPanel
Left = 425
Left = 545
Top = 19
Width = 270
Width = 150
Height = 41
Align = alClient
AutoSize = True
TabOrder = 2
object TBXButton3: TTBXButton
Tag = 3
Left = 8
Color = clBtnFace
TabOrder = 1
object Button1: TButton
Left = 6
Top = 10
Width = 90
Height = 21
AutoSize = False
Caption = 'Consultar'
ImageIndex = 0
TabOrder = 0
Wrapping = twEndEllipsis
end
end
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
Top = 19
Width = 545
Height = 41
Align = alLeft
TabOrder = 2
inline frViewParametrosCentro1: TfrViewParametrosCentro
Left = 0
Top = 0
Width = 545
Height = 41
Align = alClient
TabOrder = 0
ReadOnly = False
ExplicitWidth = 545
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl
Width = 545
ExplicitWidth = 545
inherited ccbCentro: TJvCheckedComboBox
Width = 392
ExplicitWidth = 392
end
end
end
end
end

7
Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas
View File

@ -64,7 +64,8 @@ type
frViewParametrosCentro1: TfrViewParametrosCentro;
TBXLabel1: TTBXLabel;
pnlAgrupaciones: TTBXAlignmentPanel;
TBXButton3: TTBXButton;
TBXAlignmentPanel1: TTBXAlignmentPanel;
Button1: TButton;
procedure cxGridViewALBARANGetDataText(Sender: TcxCustomGridTableItem;
ARecordIndex: Integer; var AText: String);
protected
@ -125,7 +126,7 @@ begin
if Assigned(FItems) then
Items.DataTable.Active := False;
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados;
ShowHourglassCursor;
try
@ -138,7 +139,7 @@ begin
Exit;
end
else begin
AWhereCentro := AWhereCentro + ' FILIAL in (';
AWhereCentro := AWhereCentro + ' CENTRO in (';
for i := 0 to ACentrosList.Count - 1 do
begin
if i > 0 then

7
Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.dfm
View File

@ -1,13 +1,10 @@
object srvRecepciones: TsrvRecepciones
OldCreateOrder = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ServiceSchema = schRecepciones
ServiceAdapter = DABINAdapter
OnAfterProcessTransactionAction = pptaNone
ServiceDataStreamer = DABINAdapter
AllowWhereSQL = True
ExportedDataTables = <>
CacheElements = <>
Options = [rsoProcessDeltasWithoutUpdateRules]
Height = 300
Width = 300
object schRecepciones: TDASchema

6
Source/Modulos/Recepciones/Servidor/srvRecepciones_Impl.pas
View File

@ -12,15 +12,15 @@ interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DARemoteService_Impl,
{Used RODLs:} DataAbstract3_Intf,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
uDAScriptingProvider, uDABusinessProcessor,
{Generated:} VARELA_Intf, uDAClasses,
uDAInterfaces, uDADataTable, uDABINAdapter, uDADataStreamer;
type
{ TsrvRecepciones }
TsrvRecepciones = class(TDARemoteService, IsrvRecepciones)
TsrvRecepciones = class(TDataAbstractService, IsrvRecepciones)
bpRecepciones: TDABusinessProcessor;
bpRecepcionesAprobadas: TDABusinessProcessor;
bpRecepcionesPendientes: TDABusinessProcessor;

78
Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dproj
View File

@ -53,60 +53,64 @@
<DelphiCompile Include="ReferenciaGenerica.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\..\Lib\BaseD10.dcp" />
<DCCReference Include="..\..\..\Lib\ControlesBaseD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxDataD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxEditorsD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxExportD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxExtEditorsD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxGridD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxLibraryD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxPageControlD10.dcp" />
<DCCReference Include="..\..\..\Lib\cxTreeListD10.dcp" />
<DCCReference Include="..\..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\..\Lib\dxComnD10.dcp" />
<DCCReference Include="..\..\..\Lib\dxPSCoreD10.dcp" />
<DCCReference Include="..\..\..\Lib\dxThemeD10.dcp" />
<DCCReference Include="..\..\..\Lib\GUISDK_D10.dcp" />
<DCCReference Include="..\..\..\Lib\Jcl.dcp" />
<DCCReference Include="..\..\..\Lib\JclVcl.dcp" />
<DCCReference Include="..\..\..\Lib\JvCoreD10R.dcp" />
<DCCReference Include="..\..\..\Lib\JvCustomD10R.dcp" />
<DCCReference Include="..\..\..\Lib\JvGlobusD10R.dcp" />
<DCCReference Include="..\..\..\Lib\JvPageCompsD10R.dcp" />
<DCCReference Include="..\..\..\Lib\JvStdCtrlsD10R.dcp" />
<DCCReference Include="..\..\..\Lib\JvSystemD10R.dcp" />
<DCCReference Include="..\..\..\Lib\Parametros.dcp" />
<DCCReference Include="..\..\..\Lib\PluginSDK_D10R.dcp" />
<DCCReference Include="..\..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\..\Lib\tb2k_D10.dcp" />
<DCCReference Include="..\..\..\Lib\tbx_D10.dcp" />
<DCCReference Include="..\..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\..\Lib\vclx.dcp" />
<DCCReference Include="..\Reglas\schReferenciaGenericaClient_Intf.pas" />
<DCCReference Include="..\Reglas\schReferenciaGenericaServer_Intf.pas" />
<DCCReference Include="..\Reglas\uBizReferenciaGenerica.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\BaseD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ControlesBaseD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDataModuleReferenciaGenerica.pas">
<Form>dmReferenciaGenerica</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uEditorCambioReferenciaGenerica.pas">
<Form>fEditorCambioReferenciaGenerica</Form>
</DCCReference>
<DCCReference Include="uEditorListaReferenciaGenerica.pas">
<Form>fEditorListaReferenciaGenerica</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uPluginControllerReferenciaGenerica.pas">
<Form>ModuleReferenciaGenerica</Form>
<DesignClass>TModuleController</DesignClass>
</DCCReference>
<DCCReference Include="uViewListaReferenciaGenerica.pas">
<Form>frViewListaReferenciaGenerica</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
</ItemGroup>
</Project>

2
Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uPluginControllerReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorCambioReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2F.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf10.tmp */

113
Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm
View File

@ -7,107 +7,12 @@ object dmReferenciaGenerica: TdmReferenciaGenerica
Message = dmBase.ROMessage
Channel = dmBase.ROChannel
ServiceName = 'srvReferenciaGenerica'
Left = 40
Top = 32
Left = 56
Top = 40
end
object ds_ReferenciaGenerica: TDADataSource
Left = 192
Top = 96
end
object DARemoteDataAdapter: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetSchemaCall.MethodName = 'GetSchemaAsXML'
GetSchemaCall.Params = <
item
Name = 'Result'
DataType = rtString
Flag = fResult
Value = Null
end>
GetSchemaCall.Default = False
GetSchemaCall.IncomingSchemaParameter = 'Result'
GetSchemaCall.OutgoingFilterParameter = 'aFilter'
GetDataCall.RemoteService = RORemoteService
GetDataCall.MethodName = 'GetDatasetData'
GetDataCall.Params = <
item
Name = 'DatasetName'
DataType = rtString
Flag = fIn
Value = 'ReferenciaGenerica'
end
item
Name = 'Params'
DataType = rtString
Flag = fIn
Value = Null
end
item
Name = 'IncludeSchema'
DataType = rtBoolean
Flag = fIn
Value = False
end
item
Name = 'MaxRecords'
DataType = rtInteger
Flag = fIn
Value = -1
end
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
Value = Null
end>
GetDataCall.Default = False
GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
GetDataCall.IncomingDataParameter = 'Result'
GetDataCall.OutgoingParamsParameter = 'Params'
GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema'
GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords'
UpdateDataCall.RemoteService = RORemoteService
UpdateDataCall.MethodName = 'UpdateData'
UpdateDataCall.Params = <
item
Name = 'Delta'
DataType = rtBinary
Flag = fIn
end
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
end>
UpdateDataCall.Default = False
UpdateDataCall.OutgoingDeltaParameter = 'Delta'
UpdateDataCall.IncomingDeltaParameter = 'Result'
GetScriptsCall.RemoteService = RORemoteService
GetScriptsCall.MethodName = 'GetDatasetScripts'
GetScriptsCall.Params = <
item
Name = 'DatasetNames'
DataType = rtString
Flag = fIn
end
item
Name = 'Result'
DataType = rtString
Flag = fResult
end>
GetScriptsCall.Default = False
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
GetScriptsCall.IncomingScriptParameter = 'Result'
RemoteService = RORemoteService
DataStreamer = DABinDataStreamer1
Left = 40
Top = 96
end
object DABinDataStreamer1: TDABinDataStreamer
IsCompatibleV4 = False
Left = 40
Top = 160
Top = 104
end
object tbl_ReferenciaGenerica: TDACDSDataTable
RemoteUpdatesOptions = []
@ -218,7 +123,7 @@ object dmReferenciaGenerica: TdmReferenciaGenerica
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = DARemoteDataAdapter
RemoteDataAdapter = DARemoteDataAdapter1
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ReferenciaGenerica'
@ -226,4 +131,14 @@ object dmReferenciaGenerica: TdmReferenciaGenerica
Left = 192
Top = 40
end
object DARemoteDataAdapter1: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = dmBase.DABINAdapter
Left = 56
Top = 104
end
end

BIN
Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.pas
View File

Binary file not shown.

1
Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm
View File

@ -107,7 +107,6 @@ inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica
inherited TBXLabel1: TTBXLabel
Width = 901
ExplicitWidth = 901
ExplicitHeight = 19
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 476

4
Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas
View File

@ -18,7 +18,7 @@ uses
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uBizReferenciaGenerica, uCustomView, uViewBase,
uViewControlGrid, uViewListaReferenciaGenerica, uViewGridBase, uViewGrid,
JvTabBar, Grids, DBGrids, StdCtrls, Buttons, uDAInterfaces;
JvTabBar, Grids, DBGrids, StdCtrls, Buttons, uDAInterfaces, pngimage;
type
IEditorListaReferenciaGenerica = interface(IEditorGridBase)
@ -338,9 +338,7 @@ begin
inherited;
finally
dsDataTable.DataTable := Items.DataTable;
ViewGrid._FocusedView.EndUpdate;
Items.DataTable.Active := True;
ViewGrid.ContraerTodo;
ViewGrid.GotoFirst;
HideHourglassCursor;

8
Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm
View File

@ -5,7 +5,9 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
Top = 60
Width = 504
Height = 208
ExplicitTop = 60
ExplicitWidth = 504
ExplicitHeight = 208
inherited cxGridView: TcxGridDBTableView
OnMouseDown = cxGridViewMouseDown
FilterBox.Visible = fvNever
@ -132,9 +134,6 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
FloatingHeight = 60
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 1
ExplicitLeft = 8
ExplicitTop = 8
ExplicitWidth = 128
inline frViewParametrosCentro1: TfrViewParametrosCentro
Left = 0
Top = 19
@ -172,8 +171,6 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
ParentColor = True
ParentFont = False
Underline = True
ExplicitWidth = 128
ExplicitHeight = 32
end
object pnlAgrupaciones: TTBXAlignmentPanel
Left = 425
@ -183,7 +180,6 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
Align = alClient
AutoSize = True
TabOrder = 2
ExplicitWidth = 251
object TBXButton3: TTBXButton
Tag = 3
Left = 8

11
Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas
View File

@ -186,13 +186,14 @@ var
ACentrosList : TStringList;
AWhereCentro : String;
AWhere : String;
AWhereBuilder : TDAWhereBuilder;
i : integer;
begin
ACentrosList := Nil;
if Assigned(FItems) then
Items.DataTable.Active := False;
ACentrosList := frViewParametrosCentro1.CentrosSeleccionados;
ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados;
ShowHourglassCursor;
try
@ -205,7 +206,7 @@ begin
Exit;
end
else begin
AWhereCentro := AWhereCentro + ' FILIAL in (';
AWhereCentro := AWhereCentro + ' CODCENTRO in (';
for i := 0 to ACentrosList.Count - 1 do
begin
if i > 0 then
@ -218,12 +219,10 @@ begin
AWhere := '';
if AWhereCentro <> '' then
begin
AWhere := AWhere + AWhereCentro;
end;
// Items.DataTable.Where.Clear;
// Items.DataTable.Where.AddText(AWhere, False);
Items.DataTable.Where.Clear;
Items.DataTable.Where.AddText(AWhere, False);
Items.DataTable.Active := True;
finally

35
Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm
View File

@ -2,13 +2,10 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
AcquireConnection = True
ServiceSchema = schReferenciaGenerica
ServiceAdapter = DABINAdapter
OnAfterProcessTransactionAction = pptaNone
ServiceDataStreamer = DABINAdapter
AllowWhereSQL = True
ExportedDataTables = <>
CacheElements = <>
Options = [rsoProcessDeltasWithoutUpdateRules]
Height = 362
Width = 469
object schReferenciaGenerica: TDASchema
@ -292,8 +289,8 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
' CODVENDEDOR + '#39' - '#39' + VENDEDOR'#10' ' +
' END,'#10' NUMTALON, CODIGO_BARRA, CODIGO, PRODUCTO, COLOR, TA' +
'LLA, VTAPROCESO,'#10' VTAFINAL, VTATERM, VALTOT, ESTADO, FECHACAM' +
'BIO'#10' FROM'#10' RDX_V_REFERENCIA_GENERICA'#10'ORDER BY CENTRO, VENDED' +
'OR, FECHA'#10
'BIO'#10' FROM'#10' RDX_V_REFERENCIA_GENERICA'#10'WHERE {where}'#10'ORDER BY ' +
'CENTRO, VENDEDOR, FECHA'#10
StatementType = stSQL
ColumnMappings = <
item
@ -774,21 +771,21 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
ReferencedDataset = 'ReferenciaGenerica'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Left = 200
Top = 32
end
object frxDBCabecera: TfrxDBDataset
UserName = 'frxReferenciasGenericas'
CloseDataSource = False
DataSource = dsReferenciasGenericas
Left = 120
Top = 128
Left = 136
Top = 104
end
object dsReferenciasGenericas: TDADataSource
DataSet = tbl_ReferenciasGenericas.Dataset
DataTable = tbl_ReferenciasGenericas
Left = 120
Top = 176
Left = 136
Top = 152
end
object frxReport1: TfrxReport
Version = '3.23.7'
@ -813,8 +810,8 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
''
'end.')
StoreInDFM = False
Left = 40
Top = 128
Left = 56
Top = 104
Datasets = <
item
DataSet = frxDBCabecera
@ -870,8 +867,8 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <>
Left = 120
Top = 232
Left = 136
Top = 208
end
object ADOConnection1: TADOConnection
ConnectionString =
@ -880,7 +877,7 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
'st'
Provider = 'SQLNCLI.1'
Left = 344
Top = 136
Top = 104
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
@ -924,12 +921,12 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica
'FROM RDX_V_REFERENCIA_GENERICA'
'ORDER BY CENTRO, VENDEDOR, FECHA')
Left = 344
Top = 200
Top = 168
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 240
Top = 144
Top = 104
end
object DABINAdapter: TDABINAdapter
Left = 336

10
Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.pas
View File

@ -12,8 +12,8 @@ interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DARemoteService_Impl,
{Used RODLs:} DataAbstract3_Intf,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} VARELA_Intf, uDAClasses, uDAScriptingProvider,
uDABusinessProcessor, uDADataTable, uDACDSDataTable, frxClass, DB,
frxDBSet, ADODB, uDAInterfaces, uROClient, uROEventRepository,
@ -21,7 +21,7 @@ uses
type
{ TsrvReferenciaGenerica }
TsrvReferenciaGenerica = class(TDARemoteService, IsrvReferenciaGenerica)
TsrvReferenciaGenerica = class(TDataAbstractService, IsrvReferenciaGenerica)
bpReferenciaGenerica: TDABusinessProcessor;
frxDBCabecera: TfrxDBDataset;
dsReferenciasGenericas: TDADataSource;
@ -102,8 +102,8 @@ begin
ds.Where.AddText(AWhere);
AStream.Clear;
ServiceAdapter.WriteDataset(AStream, ds, [woRows, woSchema], -1);
ServiceAdapter.ReadDataset(AStream, tbl_ReferenciasGenericas, TRUE, '', TRUE, TRUE);
ServiceDataStreamer.WriteDataset(AStream, ds, [woRows, woSchema], -1);
ServiceDataStreamer.ReadDataset(AStream, tbl_ReferenciasGenericas, TRUE, '', TRUE, TRUE);
frxReport1.LoadFromFile(DarRutaInformes + 'InformeReferenciaGenerica.fr3', True);
frxReport1.PrepareReport;

2
Source/Modulos/Stock/Cliente/Stock.drc
View File

@ -21,4 +21,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uEditorControlStockVARELA.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uPluginControllerStock.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf37.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf18.tmp */

2
Source/Modulos/Traspasos/Cliente/Traspasos.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uPluginControllerTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorAjustarTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf35.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16.tmp */

83
Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm
View File

@ -636,92 +636,9 @@ object dmTraspasos: TdmTraspasos
end
object DARemoteDataAdapter: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetSchemaCall.MethodName = 'GetSchemaAsXML'
GetSchemaCall.Params = <
item
Name = 'Result'
DataType = rtString
Flag = fResult
end>
GetSchemaCall.Default = False
GetSchemaCall.IncomingSchemaParameter = 'Result'
GetSchemaCall.OutgoingFilterParameter = 'aFilter'
GetDataCall.RemoteService = RORemoteService
GetDataCall.MethodName = 'GetDatasetDataEx'
GetDataCall.Params = <
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
Value = Null
end
item
Name = 'DatasetName'
DataType = rtString
Flag = fIn
end
item
Name = 'Params'
DataType = rtUserDefined
Flag = fIn
TypeName = 'TDADatasetParamArray'
Value = Null
end
item
Name = 'UserFilter'
DataType = rtString
Flag = fIn
Value = Null
end
item
Name = 'IncludeSchema'
DataType = rtBoolean
Flag = fIn
end
item
Name = 'MaxRecords'
DataType = rtInteger
Flag = fIn
end>
GetDataCall.Default = False
GetDataCall.OutgoingTableNamesParameter = 'DatasetName'
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
GetDataCall.IncomingDataParameter = 'Result'
GetDataCall.OutgoingParamsParameter = 'Params'
GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema'
GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords'
UpdateDataCall.RemoteService = RORemoteService
UpdateDataCall.MethodName = 'UpdateData'
UpdateDataCall.Params = <
item
Name = 'Delta'
DataType = rtBinary
Flag = fIn
end
item
Name = 'Result'
DataType = rtBinary
Flag = fResult
end>
UpdateDataCall.Default = False
UpdateDataCall.OutgoingDeltaParameter = 'Delta'
UpdateDataCall.IncomingDeltaParameter = 'Result'
GetScriptsCall.RemoteService = RORemoteService
GetScriptsCall.MethodName = 'GetDatasetScripts'
GetScriptsCall.Params = <
item
Name = 'DatasetNames'
DataType = rtString
Flag = fIn
end
item
Name = 'Result'
DataType = rtString
Flag = fResult
end>
GetScriptsCall.Default = False
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
GetScriptsCall.IncomingScriptParameter = 'Result'
RemoteService = RORemoteService
DataStreamer = dmBase.DABINAdapter
Left = 40

11
Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos
ClientHeight = 625
ClientWidth = 901
ExplicitWidth = 909
ExplicitHeight = 659
ExplicitHeight = 652
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -21,7 +21,7 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos
Width = 901
ExplicitWidth = 901
inherited tbxMain: TTBXToolbar
ExplicitWidth = 571
ExplicitWidth = 569
object TBXSubmenuItem2: TTBXSubmenuItem [5]
Caption = 'Cambiar el estado'
DropdownCombo = True
@ -49,8 +49,8 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos
ExplicitWidth = 901
end
inherited tbxFiltro: TTBXToolbar
Left = 571
ExplicitLeft = 571
Left = 569
ExplicitLeft = 569
end
end
inherited StatusBar: TStatusBar
@ -124,12 +124,11 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos
inherited TBXLabel1: TTBXLabel
Width = 901
ExplicitWidth = 901
ExplicitHeight = 19
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 476
ExplicitWidth = 476
inherited TBXButton3: TTBXButton
inherited Button1: TButton
Action = actRefrescar
end
end

4
Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas
View File

@ -18,7 +18,7 @@ uses
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, StdCtrls,
uViewListaTraspasos, uBizTraspasos, uDAInterfaces;
uViewListaTraspasos, uBizTraspasos, uDAInterfaces, pngimage;
const
CM_SETFOCUSEDRECORD = WM_USER + 1002;
@ -189,6 +189,7 @@ end;
procedure TfEditorListaTraspasos.actRefrescarExecute(Sender: TObject);
begin
ShowHourglassCursor;
actRefrescar.Enabled := False;
Items.DataTable.Active := False;
Application.ProcessMessages;
ViewGrid._FocusedView.BeginUpdate;
@ -220,6 +221,7 @@ begin
Items.DataTable.Active := True;
ViewGrid.ContraerTodo;
ViewGrid.GotoFirst;
actRefrescar.Enabled := True;
HideHourglassCursor;
end;
end;

11
Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm
View File

@ -250,12 +250,12 @@ inherited frViewListaTraspasos: TfrViewListaTraspasos
Margins.Top = 5
Align = alTop
Caption = 'Par'#225'metros de consulta'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
Underline = True
end
@ -266,18 +266,15 @@ inherited frViewListaTraspasos: TfrViewListaTraspasos
Height = 41
Align = alClient
AutoSize = True
Color = clBtnFace
TabOrder = 2
object TBXButton3: TTBXButton
Tag = 3
Left = 8
object Button1: TButton
Left = 6
Top = 10
Width = 90
Height = 21
AutoSize = False
Caption = 'Consultar'
ImageIndex = 0
TabOrder = 0
Wrapping = twEndEllipsis
end
end
end

2
Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas
View File

@ -82,7 +82,7 @@ type
frViewParametrosCentro1: TfrViewParametrosCentro;
TBXLabel1: TTBXLabel;
pnlAgrupaciones: TTBXAlignmentPanel;
TBXButton3: TTBXButton;
Button1: TButton;
procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure cxGridBandedViewRR38GetDisplayText(

6
Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.pas
View File

@ -12,14 +12,14 @@ interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DARemoteService_Impl,
{Used RODLs:} DataAbstract3_Intf,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} VARELA_Intf, uDADataTable, uDABINAdapter, uDAClasses,
uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer;
type
{ TsrvTraspasos }
TsrvTraspasos = class(TDARemoteService, IsrvTraspasos)
TsrvTraspasos = class(TDataAbstractService, IsrvTraspasos)
DABINAdapter: TDABINAdapter;
bpTraspasos: TDABusinessProcessor;
bpTraspasosAprobadas: TDABusinessProcessor;

2
Source/Modulos/VentasProceso/Cliente/VentasProceso.drc
View File

@ -20,4 +20,4 @@ END
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2D.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfE.tmp */

2
Source/Modulos/VentasTerminadas/Cliente/VentasTerminadas.drc
View File

@ -22,4 +22,4 @@ END
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uPluginControllerVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2B.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC.tmp */

16
Source/Servicios/VARELA_Intf.pas
View File

@ -309,7 +309,7 @@ type
end;
{ IsrvReferenciaGenerica }
IsrvReferenciaGenerica = interface(IDARemoteService)
IsrvReferenciaGenerica = interface(IDataAbstractService)
['{994518CC-96BD-4976-ABC6-9B421A4B65D3}']
function GetProducto(const Codigo: String; const Talla: String; const Color: String; out CodigoBarras: String; out Descripcion: String): Boolean;
function GenerateReport(const Centro: String; const Vendedor: String; const Estado: String; const FiltroUsuario: String): Binary;
@ -322,7 +322,7 @@ type
end;
{ TsrvReferenciaGenerica_Proxy }
TsrvReferenciaGenerica_Proxy = class(TDARemoteService_Proxy, IsrvReferenciaGenerica)
TsrvReferenciaGenerica_Proxy = class(TDataAbstractService_Proxy, IsrvReferenciaGenerica)
protected
function __GetInterfaceName:string; override;
@ -332,7 +332,7 @@ type
end;
{ IsrvRecepciones }
IsrvRecepciones = interface(IDARemoteService)
IsrvRecepciones = interface(IDataAbstractService)
['{02EB4B9C-155E-477C-AE2D-3E73B7846AB3}']
end;
@ -342,14 +342,14 @@ type
end;
{ TsrvRecepciones_Proxy }
TsrvRecepciones_Proxy = class(TDARemoteService_Proxy, IsrvRecepciones)
TsrvRecepciones_Proxy = class(TDataAbstractService_Proxy, IsrvRecepciones)
protected
function __GetInterfaceName:string; override;
end;
{ IsrvDevoluciones }
IsrvDevoluciones = interface(IDARemoteService)
IsrvDevoluciones = interface(IDataAbstractService)
['{87C31D12-C353-437F-A7A3-10882373AB54}']
end;
@ -359,14 +359,14 @@ type
end;
{ TsrvDevoluciones_Proxy }
TsrvDevoluciones_Proxy = class(TDARemoteService_Proxy, IsrvDevoluciones)
TsrvDevoluciones_Proxy = class(TDataAbstractService_Proxy, IsrvDevoluciones)
protected
function __GetInterfaceName:string; override;
end;
{ IsrvTraspasos }
IsrvTraspasos = interface(IDARemoteService)
IsrvTraspasos = interface(IDataAbstractService)
['{47DA82A0-51AD-477A-85B3-CE9EEAAB29D6}']
end;
@ -376,7 +376,7 @@ type
end;
{ TsrvTraspasos_Proxy }
TsrvTraspasos_Proxy = class(TDARemoteService_Proxy, IsrvTraspasos)
TsrvTraspasos_Proxy = class(TDataAbstractService_Proxy, IsrvTraspasos)
protected
function __GetInterfaceName:string; override;

8
Source/Servicios/VARELA_Invk.pas
View File

@ -88,7 +88,7 @@ type
procedure Invoke_InsertarLog(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvReferenciaGenerica_Invoker = class(TDARemoteService_Invoker)
TsrvReferenciaGenerica_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
@ -97,19 +97,19 @@ type
procedure Invoke_PasarProductosAEspera(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvRecepciones_Invoker = class(TDARemoteService_Invoker)
TsrvRecepciones_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
end;
TsrvDevoluciones_Invoker = class(TDARemoteService_Invoker)
TsrvDevoluciones_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
end;
TsrvTraspasos_Invoker = class(TDARemoteService_Invoker)
TsrvTraspasos_Invoker = class(TDataAbstractService_Invoker)
private
protected
published

2
Source/Servidor/AdminPV_Server.drc
View File

@ -2995,4 +2995,4 @@ END
/* C:\Varela_D2007\Source\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.dfm */
/* C:\Varela_D2007\Source\Servidor\AdminPV_Server.res */
/* C:\Varela_D2007\Source\Servidor\RODLFILE.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3D.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E.tmp */

2
Source/Servidor/AdminPV_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.1.1.0\0"
VALUE "ProductName", "AdminPV_Server\0"
VALUE "ProductVersion", "2.1.1.0\0"
VALUE "CompileDate", "martes, 15 de abril de 2008 10:40\0"
VALUE "CompileDate", "miércoles, 16 de abril de 2008 10:43\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/AdminPV_Server.res
View File

Binary file not shown.

BIN
Source/Servidor/RODLFILE.res
View File

Binary file not shown.

8
Source/Servidor/VARELA.RODL
View File

@ -248,7 +248,7 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvReferenciaGenerica" UID="{2773FD2C-DFC2-4DDD-AD15-E6F49907A242}" Ancestor="DARemoteService">
<Service Name="srvReferenciaGenerica" UID="{2773FD2C-DFC2-4DDD-AD15-E6F49907A242}" Ancestor="DataAbstractService">
<Group Under="{F921F66F-3B11-4F41-9F34-A7CC0F70D469}" />
<Interfaces>
<Interface Name="Default" UID="{994518CC-96BD-4976-ABC6-9B421A4B65D3}">
@ -295,7 +295,7 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvRecepciones" UID="{34E045B5-AAE5-42E4-B592-C9B1F330246C}" Ancestor="DARemoteService">
<Service Name="srvRecepciones" UID="{34E045B5-AAE5-42E4-B592-C9B1F330246C}" Ancestor="DataAbstractService">
<Group Under="{72073AAC-CB8D-4D49-A2E8-84A9C49EB4DE}" />
<Interfaces>
<Interface Name="Default" UID="{02EB4B9C-155E-477C-AE2D-3E73B7846AB3}">
@ -304,7 +304,7 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvDevoluciones" UID="{2B0A931F-F69F-40D0-980B-4B77E64BFDA7}" Ancestor="DARemoteService">
<Service Name="srvDevoluciones" UID="{2B0A931F-F69F-40D0-980B-4B77E64BFDA7}" Ancestor="DataAbstractService">
<Group Under="{72073AAC-CB8D-4D49-A2E8-84A9C49EB4DE}" />
<Interfaces>
<Interface Name="Default" UID="{87C31D12-C353-437F-A7A3-10882373AB54}">
@ -313,7 +313,7 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvTraspasos" UID="{4011A8C7-19DF-41C6-BDAA-6E11AADE57B0}" Ancestor="DARemoteService">
<Service Name="srvTraspasos" UID="{4011A8C7-19DF-41C6-BDAA-6E11AADE57B0}" Ancestor="DataAbstractService">
<Group Under="{72073AAC-CB8D-4D49-A2E8-84A9C49EB4DE}" />
<Interfaces>
<Interface Name="Default" UID="{47DA82A0-51AD-477A-85B3-CE9EEAAB29D6}">