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

Compare commits

base: Archivado:4e7f349b52f3b7f605d3cb8ec3da3811a38a03c5
Branches Tags
Archivado:master
Archivado:2.1.4
Archivado:2.1.3
Archivado:2.1.2
Archivado:2.1.1
Archivado:DA5-D2007
Archivado:Mis%20documentos
Archivado:DA3-D7
Archivado:1.1.1
Archivado:1.1.0
...
compare: Archivado:317f5186b4fd28f9e5cb78ef27286751f409d609
Branches Tags
Archivado:master
Archivado:2.1.4
Archivado:2.1.3
Archivado:2.1.2
Archivado:2.1.1
Archivado:DA5-D2007
Archivado:Mis%20documentos
Archivado:DA3-D7
Archivado:1.1.1
Archivado:1.1.0

10 Commits
4e7f349b52 ... 317f5186b4

Author SHA1 Message Date
roberto
317f5186b4 Se arregla la vista RDX_V_VENTASEDI_RESUELTAS para que se coja el valor y cantidad del articulo corregido 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@129 1c943782-d109-9647-9548-93b3ac332352
 2009-09-23 16:54:23 +00:00
roberto
c81c21ce62 git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@128 1c943782-d109-9647-9548-93b3ac332352 2009-09-23 16:30:42 +00:00
david
4c9129f541 Lib. GUISDK -> Cambio de ruta 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@127 1c943782-d109-9647-9548-93b3ac332352
 2009-02-27 10:46:22 +00:00
david
0a0319219b - Incremento de versión en el cliente (2.1.6) 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@126 1c943782-d109-9647-9548-93b3ac332352
 2008-10-16 16:20:07 +00:00
david
c10fbb7772 - Máscaras de formato en sumatorios del grid: en ciertos casos, se falsean los valores. 
- Poner en el grid de devoluciones y traspasos el código del artículo en las cabeceras de los grupos.


git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@125 1c943782-d109-9647-9548-93b3ac332352
 2008-10-16 16:11:19 +00:00
david
2fcba2db5f Se cambia la vista RDX_V_STOCK_INVENTARIO para que tenga en cuenta los ajustes de traspasos que habian dejado de tenerse en cuenta, y se arreglan las recepciones que no se podía hacer ajustes 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@124 1c943782-d109-9647-9548-93b3ac332352
 2008-07-09 11:01:22 +00:00
david
e2a1f9f312 Arreglado fallo en el esquema del módulo de recepciones porque no se podía cambiar de estado a las tuplas. 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@122 1c943782-d109-9647-9548-93b3ac332352
 2008-05-19 15:04:59 +00:00
david
014683ebe3 - Incremento de versión (2.1.3) 
- Arreglos en filtros de stock.

git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@120 1c943782-d109-9647-9548-93b3ac332352
 2008-05-10 11:41:06 +00:00
david
ec81aadb4d Ignorar directorio 'Installer' 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@118 1c943782-d109-9647-9548-93b3ac332352
 2008-05-08 13:48:10 +00:00
david
aadab9491f - Ajustes para nuevas tallas 'jeans' 36-46 en ventas 
- Repaso general


git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@117 1c943782-d109-9647-9548-93b3ac332352
 2008-05-07 16:47:05 +00:00
60 changed files with 3652 additions and 494 deletions
Show Stats Expand all files Collapse all files

12
Database/2.2 - vistas ventas.sql
View File

@ -148,12 +148,14 @@ SELECT
TIPO_PRODUTO = ISNULL(PRODUTOS.TIPO_PRODUTO, RDX_V_VENTASEDI.TIPO_PRODUTO),
GRUPO_PRODUTO = ISNULL(PRODUTOS.GRUPO_PRODUTO, RDX_V_VENTASEDI.GRUPO_PRODUTO),
PRODUTOS.COLECAO,
DESC_COLECAO = ISNULL(COLECOES.DESC_COLECAO, RDX_V_VENTASEDI.DESC_COLECAO),
RDX_V_VENTASEDI.VALVEN,
RDX_V_VENTASEDI.CANVEN,
DESC_COLECAO = ISNULL(COLECOES.DESC_COLECAO, RDX_V_VENTASEDI.DESC_COLECAO),
VALVEN = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.VALVEN, RDX_V_VENTASEDI.VALVEN),
CANVEN = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CANVEN, RDX_V_VENTASEDI.CANVEN),
RDX_V_VENTASEDI.CANDEV,
RDX_V_VENTASEDI.CANVENNET,
RDX_V_VENTASEDI.CANESP
CANVENNET = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CANVENNET, RDX_V_VENTASEDI.CANVENNET),
CANESP = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CANESP, RDX_V_VENTASEDI.CANESP)
FROM RDX_V_VENTASEDI
LEFT JOIN RDX_V_REFERENCIAS_RESUELTAS ON (
(RDX_V_REFERENCIAS_RESUELTAS.NUMINF = RDX_V_VENTASEDI.NUMINF) AND

3
Database/2.3 - vistas stock.sql
View File

@ -94,8 +94,7 @@ FULL OUTER JOIN RDX_V_TRASPASOS_AJUSTES_DESGLOSADO ON
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) AND
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TIPO = RDX_V_INVENTARIOEDI.TIPOCANT)
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA)
FULL OUTER JOIN RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO ON
(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND
(RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIOEDI.CENTRO2) AND

35
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -46,6 +46,27 @@
<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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</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>
@ -60,13 +81,13 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\Base.dcp" />
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\dbrtl.dcp" />
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\pckMD5.dcp" />
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\pckUserControl_RT.dcp" />
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\rtl.dcp" />
<DCCReference Include="C:\UserControl\Demos\8 UCControls Sample2 - ADO\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="Empresas\Data\uDataModuleEmpresas.pas">
<Form>DataModuleEmpresasObj</Form>
</DCCReference>

1
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm
View File

@ -1,5 +1,6 @@
inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
Caption = 'fEditorPerfilUsuario'
ExplicitWidth = 320
ExplicitHeight = 492
PixelsPerInch = 96
TextHeight = 13

8
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas
View File

@ -33,7 +33,7 @@ type
procedure GuardarInterno;
procedure EliminarInterno;
procedure ActualizarEstadoEditor;
function HayDatos: Boolean;
//Si queremos crear otra vista para el editor heredado solo tendriamos que
//sobreescribir este metodo
procedure AsignarVista; virtual;
@ -179,12 +179,6 @@ begin
end;
end;
function TfEditorPerfilUsuario.HayDatos: Boolean;
begin
Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive)
and (not dsDataTable.DataTable.IsEmpty);
end;
procedure TfEditorPerfilUsuario.PonerTitulos(const ATitulo: string);
var
FTitulo : String;

6
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm
View File

@ -1,5 +1,6 @@
inherited fEditorUsuario: TfEditorUsuario
Caption = 'fEditorUsuario'
ExplicitWidth = 320
ExplicitHeight = 492
PixelsPerInch = 96
TextHeight = 13
@ -42,9 +43,12 @@ inherited fEditorUsuario: TfEditorUsuario
ReadOnly = False
ExplicitLeft = 8
ExplicitTop = 8
ExplicitWidth = 656
ExplicitHeight = 370
inherited dxLayoutControlArticulo: TdxLayoutControl
Width = 656
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 656
inherited PngSpeedButton3: TPngSpeedButton
Top = 84
ExplicitTop = 84
@ -113,6 +117,8 @@ inherited fEditorUsuario: TfEditorUsuario
end
inherited JvFormStorage: TJvFormStorage [7]
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [8]
end
inherited dsDataTable: TDADataSource
OnDataChange = dsDataTableDataChange
Top = 80

7
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas
View File

@ -45,7 +45,6 @@ type
procedure ActualizarEstadoEditor;
procedure PonerTitulos(const ATitulo: string = '');
function HayDatos: Boolean;
function GetViewUsuario: IViewUsuario;
procedure SetViewUsuario(const Value: IViewUsuario);
property ViewUsuario: IViewUsuario read GetViewUsuario write SetViewUsuario;
@ -225,12 +224,6 @@ begin
end
end;
function TfEditorUsuario.HayDatos: Boolean;
begin
Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive)
and (not dsDataTable.DataTable.IsEmpty);
end;
procedure TfEditorUsuario.PonerTitulos(const ATitulo: string);
var
FTitulo : String;

9
Source/ApplicationBase/Usuarios/Views/uEditorUsuarios.pas
View File

@ -35,7 +35,6 @@ type
private
FUsuarios : IBizUsuario;
FController : IUsuariosController;
function HayDatos: Boolean;
protected
function GetController : IUsuariosController;
procedure SetController (const Value : IUsuariosController);
@ -43,7 +42,7 @@ type
function GetUsuarios: IBizUsuario;
procedure SetUsuarios(const Value: IBizUsuario);
procedure ActualizarEstadoEditor;
procedure ActualizarEstadoEditor;
procedure NuevoInterno;
procedure EliminarInterno;
procedure ModificarInterno;
@ -90,12 +89,6 @@ begin
FController.AdministrarAccesos(FUsuarios);
end;
function TfEditorUsuarios.HayDatos: Boolean;
begin
Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive)
and (not dsDataTable.DataTable.IsEmpty);
end;
procedure TfEditorUsuarios.actControlAccesoUpdate(Sender: TObject);
begin
inherited;

6
Source/Base/Base.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/Base.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\Base.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8F.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2C.tmp */

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Base/uEditorBase.dfm
View File

@ -15,6 +15,8 @@ object fEditorBase: TfEditorBase
Position = poDefault
OnCloseQuery = FormCloseQuery
OnShow = FormShow
InstanceID = 0
ReadOnly = False
PixelsPerInch = 96
TextHeight = 13
object JvNavPanelHeader: TJvNavPanelHeader

BIN
Source/Base/uEditorBase.pas
View File

Binary file not shown.

7
Source/Base/uEditorDBBase.pas
View File

@ -36,6 +36,7 @@ type
{ Private declarations }
protected
function GetModified: Boolean; override;
function HayDatos: Boolean; virtual;
published
end;
@ -200,6 +201,12 @@ begin
Result := DataTableModified(dsDataTable.DataTable) or inherited GetModified;
end;
function TfEditorDBBase.HayDatos: Boolean;
begin
Result := Assigned(dsDataTable.DataTable) and (dsDataTable.DataTable.State <> dsInactive)
and (not dsDataTable.DataTable.IsEmpty);
end;
procedure TfEditorDBBase.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin

3
Source/Base/uEditorGridBase.dfm
View File

@ -66,7 +66,7 @@ inherited fEditorGridBase: TfEditorGridBase
CloseButton = False
DefaultDock = TBXDock
DockMode = dmCannotFloatOrChangeDocks
DockPos = 392
DockPos = 440
DockRow = 1
DragHandleStyle = dhNone
Images = SmallImages
@ -134,6 +134,7 @@ inherited fEditorGridBase: TfEditorGridBase
Caption = 'Quitar filtro y ver todo'
ImageIndex = 19
OnExecute = actQuitarFiltroExecute
OnUpdate = actQuitarFiltroUpdate
end
object actDuplicar: TAction
Category = 'Archivo'

BIN
Source/Base/uEditorGridBase.pas
View File

Binary file not shown.

7
Source/Base/uEditorItem.dfm
View File

@ -25,13 +25,8 @@ inherited fEditorItem: TfEditorItem
ActivePage = pagGeneral
Align = alClient
TabOrder = 1
ExplicitHeight = 406
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
end
inherited TBXDock: TTBXDock
@ -55,7 +50,7 @@ inherited fEditorItem: TfEditorItem
inherited StatusBar: TStatusBar
Top = 489
Width = 678
ExplicitTop = 482
ExplicitTop = 489
ExplicitWidth = 678
end
inherited EditorActionList: TActionList

2
Source/Base/uEditorPreview.dfm
View File

@ -5,8 +5,6 @@ inherited fEditorPreview: TfEditorPreview
WindowState = wsMaximized
OnDestroy = FormDestroy
OnResize = FormResize
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

2
Source/CargaEDI/CargaEDI.dproj
View File

@ -43,7 +43,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">2</VersionInfo><VersionInfo Name="MinorVer">1</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">2.1.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">2.1.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">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">6</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.1.6.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">2.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

4
Source/CargaEDI/CargaEDI.drc
View File

@ -12,7 +12,7 @@ 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\Source\CargaEDI\uCargaEDI.dfm */
/* C:\Varela_D2007\Source\CargaEDI\CargaEDI.res */
/* C:\Varela_D2007\Source\CargaEDI\CargaEDI.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf46.tmp */

8
Source/CargaEDI/CargaEDI.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\CargaEDI.ico"
1 VERSIONINFO
FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,2,0
FILEVERSION 2,1,6,0
PRODUCTVERSION 2,1,6,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,8 +12,8 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "2.1.2.0\0"
VALUE "ProductVersion", "2.1.2.0\0"
VALUE "FileVersion", "2.1.6.0\0"
VALUE "ProductVersion", "2.1.6.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/CargaEDI/CargaEDI.res
View File

Binary file not shown.

2
Source/Cliente/AdminPV.dproj
View File

@ -42,7 +42,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</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">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">6</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">2.1.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Administración de puntos de venta</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 16 de octubre de 2008 13:41</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>

4
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 */
/* 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\dtf44.tmp */

10
Source/Cliente/AdminPV.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Cliente.ico"
1 VERSIONINFO
FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,2,0
FILEVERSION 2,1,6,0
PRODUCTVERSION 2,1,6,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,11 +13,11 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.2.0\0"
VALUE "FileVersion", "2.1.6.0\0"
VALUE "InternalName", "Administración de puntos de venta\0"
VALUE "ProductName", "Administración de puntos de venta\0"
VALUE "ProductVersion", "2.1.2.0\0"
VALUE "CompileDate", "martes, 06 de mayo de 2008 16:51\0"
VALUE "ProductVersion", "2.1.6.0\0"
VALUE "CompileDate", "jueves, 16 de octubre de 2008 18:17\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/AdminPV.res
View File

Binary file not shown.

2
Source/ControlesBase/ControlesBase.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\ControlesBase.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf91.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2E.tmp */

16
Source/Modulos/Devoluciones/Cliente/Devoluciones.dpk
View File

@ -65,13 +65,25 @@ requires
bdertl,
VclSmp,
dxLayoutControlD10,
Parametros;
Parametros,
dxPScxCommonD10,
dxPSLnksD10,
designide,
xmlrtl,
vclshlctrls,
dxPScxGridLnkD10,
dclcxLibraryD10,
DataAbstract_Core_D11,
RemObjects_Core_D11,
cfpack_d11,
ccpackD11;
contains
uPluginControllerDevoluciones in 'uPluginControllerDevoluciones.pas' {ModuleDevoluciones: TModuleController},
uBizDevoluciones in '..\Reglas\uBizDevoluciones.pas',
uDataModuleDevoluciones in 'uDataModuleDevoluciones.pas' {dmDevoluciones: TDAClientDataModule},
uEditorListaDevoluciones in 'uEditorListaDevoluciones.pas' {fEditorListaDevoluciones: TCustomEditor},
uEditorAjustarDevoluciones in 'uEditorAjustarDevoluciones.pas' {fEditorAjustarRecepciones};
uEditorAjustarDevoluciones in 'uEditorAjustarDevoluciones.pas' {fEditorAjustarRecepciones},
uViewListaDevoluciones in 'uViewListaDevoluciones.pas';
end.

15
Source/Modulos/Devoluciones/Cliente/Devoluciones.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{b18cc884-6459-4d3a-be2f-ae618ad4aa76}</ProjectGuid>
<MainSource>Devoluciones.dpk</MainSource>
@ -56,6 +57,8 @@
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="ControlesBase.dcp" />
<DCCReference Include="cxDataD10.dcp" />
<DCCReference Include="cxEditorsD10.dcp" />
@ -65,11 +68,17 @@
<DCCReference Include="cxLibraryD10.dcp" />
<DCCReference Include="cxPageControlD10.dcp" />
<DCCReference Include="cxTreeListD10.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD10.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD10.dcp" />
<DCCReference Include="dxLayoutControlD10.dcp" />
<DCCReference Include="dxPSCoreD10.dcp" />
<DCCReference Include="dxPScxCommonD10.dcp" />
<DCCReference Include="dxPScxGridLnkD10.dcp" />
<DCCReference Include="dxPSLnksD10.dcp" />
<DCCReference Include="dxThemeD10.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="Jcl.dcp" />
@ -84,6 +93,7 @@
<DCCReference Include="PluginSDK_D11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_D10.dcp" />
<DCCReference Include="tbx_D10.dcp" />
@ -102,12 +112,15 @@
<Form>ModuleDevoluciones</Form>
<DesignClass>TModuleController</DesignClass>
</DCCReference>
<DCCReference Include="uViewListaDevoluciones.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="VclSmp.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN
END
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.DFM */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uDataModuleDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uViewListaDevoluciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\uEditorListaDevoluciones.dfm */
/* 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:\Varela_D2007\Source\Modulos\Devoluciones\Cliente\Devoluciones.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3E.tmp */

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

@ -23,7 +23,7 @@ inherited frViewListaDevoluciones: TfrViewListaDevoluciones
Column = cxGridViewDIFERENCIA
end
item
Format = 'Diferencia: ,0 unidades;Diferencia: -,0 unidades'
Format = ',0;-,0'
Kind = skSum
Column = cxGridViewDIFERENCIA
end>

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

@ -634,7 +634,7 @@ var
begin
inherited;
Val1 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewPRODUCTO.Index];
Val1 := AText + ' ' + Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewPRODUCTO.Index];
Val2 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewCOLOR.Index];
AText := 'Producto: ' + Val1 + ' - Color: ' + Val2;
end;

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\dtf97.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf34.tmp */

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\dtf93.tmp */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30.tmp */

8
Source/Modulos/Recepciones/Cliente/Recepciones.dpk
View File

@ -70,7 +70,10 @@ requires
dxPSLnksD10,
designide,
vclshlctrls,
dclcxLibraryD10;
dclcxLibraryD10,
dxLayoutControlD10,
DataAbstract_Core_D11,
RemObjects_Core_D11;
contains
uPluginControllerRecepciones in 'uPluginControllerRecepciones.pas' {ModuleRecepciones: TModuleController},
@ -79,6 +82,7 @@ contains
uViewListaRecepciones in 'uViewListaRecepciones.pas' {frViewListaRecepciones: TCustomView},
uEditorListaRecepciones in 'uEditorListaRecepciones.pas' {fEditorListaRecepciones: TCustomEditor},
uViewListaRecepcionesAlbaran in 'uViewListaRecepcionesAlbaran.pas' {frViewListaRecepcionesAlbaran: TCustomView},
uEditorListaRecepcionesAlbaran in 'uEditorListaRecepcionesAlbaran.pas' {fEditorListaRecepcionesAlbaran: TCustomEditor};
uEditorListaRecepcionesAlbaran in 'uEditorListaRecepcionesAlbaran.pas' {fEditorListaRecepcionesAlbaran: TCustomEditor},
uEditorAjustarRecepciones in 'uEditorAjustarRecepciones.pas' {fEditorAjustarRecepciones: TCustomEditor};
end.

99
Source/Modulos/Recepciones/Cliente/Recepciones.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{5990f68e-d16f-46ae-93db-ba7d141d4021}</ProjectGuid>
<MainSource>Recepciones.dpk</MainSource>
@ -46,8 +47,6 @@
<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">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</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">1</VersionInfo><VersionInfo Name="MinorVer">0</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.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Recepciones.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -57,55 +56,52 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Reglas\uBizRecepciones.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ControlesBase.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\dclcxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.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\dxPScxCommonD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.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\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCustomD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Parametros.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.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\vclshlctrls.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="ControlesBase.dcp" />
<DCCReference Include="cxDataD10.dcp" />
<DCCReference Include="cxEditorsD10.dcp" />
<DCCReference Include="cxExportD10.dcp" />
<DCCReference Include="cxExtEditorsD10.dcp" />
<DCCReference Include="cxGridD10.dcp" />
<DCCReference Include="cxLibraryD10.dcp" />
<DCCReference Include="cxPageControlD10.dcp" />
<DCCReference Include="cxTreeListD10.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD10.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD10.dcp" />
<DCCReference Include="dxLayoutControlD10.dcp" />
<DCCReference Include="dxPSCoreD10.dcp" />
<DCCReference Include="dxPScxCommonD10.dcp" />
<DCCReference Include="dxPScxGridLnkD10.dcp" />
<DCCReference Include="dxPSLnksD10.dcp" />
<DCCReference Include="dxThemeD10.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCustomD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="Parametros.dcp" />
<DCCReference Include="PluginSDK_D11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_D10.dcp" />
<DCCReference Include="tbx_D10.dcp" />
<DCCReference Include="uDataModuleRecepciones.pas">
<Form>dmRecepciones</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uEditorAjustarRecepciones.pas" />
<DCCReference Include="uEditorListaRecepciones.pas">
<Form>fEditorListaRecepciones</Form>
<DesignClass>TCustomEditor</DesignClass>
@ -126,6 +122,13 @@
<Form>frViewListaRecepcionesAlbaran</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="VclSmp.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -12,11 +12,12 @@ STRINGTABLE
BEGIN
END
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.DFM */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uDataModuleRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorListaRecepciones.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uViewListaRecepcionesAlbaran.dfm */
/* C:\Varela_D2007\Source\Modulos\Recepciones\Cliente\uEditorListaRecepcionesAlbaran.dfm */
/* 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:\Varela_D2007\Source\Modulos\Recepciones\Cliente\Recepciones.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3C.tmp */

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

@ -76,7 +76,6 @@ object dmRecepciones: TdmRecepciones
Name = 'ALBARAN'
DataType = datString
Size = 7
LogChanges = False
ReadOnly = True
DictionaryEntry = 'Recepciones_ALBARAN'
end
@ -377,7 +376,6 @@ object dmRecepciones: TdmRecepciones
Name = 'ALBARAN'
DataType = datString
Size = 7
LogChanges = False
ReadOnly = True
DictionaryEntry = 'Recepciones_ALBARAN'
end
@ -678,7 +676,6 @@ object dmRecepciones: TdmRecepciones
Name = 'ALBARAN'
DataType = datString
Size = 7
LogChanges = False
ReadOnly = True
DictionaryEntry = 'Recepciones_ALBARAN'
end
@ -920,7 +917,6 @@ object dmRecepciones: TdmRecepciones
Name = 'ALBARAN'
DataType = datString
Size = 7
LogChanges = False
ReadOnly = True
DictionaryEntry = 'Recepciones_ALBARAN'
end

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

@ -4,6 +4,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
Caption = 'Control de recepciones'
ClientHeight = 664
ClientWidth = 816
ExplicitTop = -106
ExplicitWidth = 824
ExplicitHeight = 691
PixelsPerInch = 96
@ -117,7 +118,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
Column = frViewListaRecepciones1.cxGridBandedViewDIFERENCIA
end
item
Format = 'Diferencia: ,0 unidades;Diferencia: -,0 unidades'
Format = ',0;-,0'
Kind = skSum
Column = frViewListaRecepciones1.cxGridBandedViewDIFERENCIA
end>
@ -1634,7 +1635,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones
inherited dsDataTable: TDADataSource [10]
Top = 136
end
inherited GridPopupMenu: TPopupMenu
inherited GridPopupMenu: TPopupMenu [11]
Left = 112
Top = 128
object Cambiarelestado1: TMenuItem [3]

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

@ -23,7 +23,7 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones
Column = cxGridBandedViewDIFERENCIA
end
item
Format = 'Diferencia: ,0 unidades;Diferencia: -,0 unidades'
Format = ',0;-,0'
Kind = skSum
Column = cxGridBandedViewDIFERENCIA
end>

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

@ -1320,162 +1320,153 @@ object srvRecepciones: TsrvRecepciones
DataType = datString
Size = 7
Value = ''
ParamType = daptInput
end
item
Name = 'ESTADO_ALBARAN'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES_ALBARAN'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CONTABILIZAR_ALBARAN'
DataType = datString
Size = 1
Value = ''
ParamType = daptInput
end
item
Name = 'RR36'
DataType = datInteger
Value = ''
end
item
Name = 'RR38'
DataType = datFloat
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'RR40'
DataType = datFloat
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'RR42'
DataType = datFloat
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'RR44'
DataType = datFloat
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'RR46'
DataType = datFloat
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'RR48'
DataType = datFloat
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'APROBADO'
DataType = datString
Size = 1
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'CENTRO'
DataType = datString
Size = 17
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
Value = ''
ParamType = daptInput
end
item
Name = 'COLOR'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_RECEPCION'
SQL =
'begin'#10' declare @rowcount_var int'#10' declare @ALBARAN char(7)' +
#10' declare @ESTADO_ALBARAN varchar(20)'#10' declare @OBSERVACIO' +
'NES_ALBARAN varchar(255)'#10' declare @CONTABILIZAR_ALBARAN char(' +
'1)'#10#10' declare @RR38 numeric(15,0)'#10' declare @RR40 numeric(15' +
',0)'#10' declare @RR42 numeric(15,0)'#10' declare @RR44 numeric(15' +
',0)'#10' declare @RR46 numeric(15,0)'#10' declare @RR48 numeric(15' +
',0)'#10' declare @RR_S numeric(15,0)'#10' declare @RR_M numeric(15' +
',0)'#10' declare @RR_L numeric(15,0)'#10' declare @RR_XL numeric(1' +
'5,0)'#10#10' declare @APROBADO char(1)'#10' declare @FECHA datetime'#10 +
' declare @CENTRO varchar(17)'#10' declare @CODIGO varchar(12)'#10 +
' declare @COLOR varchar(10)'#10' '#10' declare @TIPO_TALLAJE sm' +
'allint'#10#10' set @ALBARAN = :ALBARAN'#10' set @ESTADO_ALBARAN = :E' +
'STADO_ALBARAN'#10' set @OBSERVACIONES_ALBARAN = :OBSERVACIONES_AL' +
'BARAN'#10' set @CONTABILIZAR_ALBARAN = :CONTABILIZAR_ALBARAN'#10#10' ' +
' set @RR38 = :RR38'#10' set @RR40 = :RR40'#10' set @RR42 = :RR42'#10' ' +
' set @RR44 = :RR44'#10' set @RR46 = :RR46'#10' set @RR48 = :RR48' +
#10' set @RR_S = :RR38'#10' set @RR_M = :RR40'#10' set @RR_L = :RR' +
'42'#10' set @RR_XL = :RR44'#10#10' set @APROBADO = :APROBADO'#10' set' +
' @FECHA = :FECHA'#10' set @CENTRO = :CENTRO'#10' set @CODIGO = :CO' +
'DIGO'#10' set @COLOR = :COLOR'#10#10#10' /* **************************' +
'********* */'#10' if @ALBARAN <> '#39#39#10' begin'#10' update RDX' +
'_AJUSTES_ALBARAN set'#10#9' ESTADO = @ESTADO_ALBARAN,'#10#9' O' +
'BSERVACIONES = @OBSERVACIONES_ALBARAN,'#10#9' CONTABILIZAR = @C' +
'ONTABILIZAR_ALBARAN'#10' where RDX_AJUSTES_ALBARAN.ALBARAN =' +
' @ALBARAN'#10#10#9' select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10' if @ROW' +
'COUNT_VAR = 0'#10#9' begin'#10' insert into RDX_AJUSTES_ALBAR' +
'AN'#10' (ALBARAN, ESTADO, OBSERVACIONES, CONTABIL' +
'IZAR)'#10' values (@ALBARAN, @ESTADO_ALBARAN,'#10' ' +
' @OBSERVACIONES_ALBARAN, @CONTABILIZAR_ALBARAN)'#10#10' ' +
' select @ROWCOUNT_VAR = @@ROWCOUNT'#10' end'#10' end'#10 +
#10#10' /* ARREGLO PARA QUE SOPORTE LOS NUEVOS TALLAJES*** */'#10' ' +
#10' execute RDX_P_TIPO_TALLAJE @CODIGO, @TIPO_TALLAJE OUTPUT'#10#10' ' +
' if @TIPO_TALLAJE = 1'#10' begin'#10' set @RR_S = NULL'#10' ' +
' set @RR_M = NULL'#10' set @RR_L = NULL'#10' set @RR_XL = NU' +
'LL'#10' end'#10#10' if @TIPO_TALLAJE = 2'#10' begin'#10' set @RR38 ' +
'= NULL'#10' set @RR40 = NULL'#10' set @RR42 = NULL'#10' se' +
't @RR44 = NULL'#10' set @RR46 = NULL'#10' set @RR48 = NULL'#10' ' +
' end'#10#10' '#10' /* *********************************** */'#10#9'upda' +
'te RDX_RECEPCION_AJUSTES set'#10#9' CANT38 = @RR38,'#10#9' ' +
' CANT40 = @RR40,'#10#9' CANT42 = @RR42,'#10#9' CAN' +
'T44 = @RR44,'#10#9' CANT46 = @RR46,'#10#9' CANT48 = @R' +
'R48,'#10#9' CANT_S = @RR_S,'#10#9' CANT_M = @RR_M,'#10#9' ' +
' CANT_L = @RR_L,'#10#9' CANT_XL = @RR_XL,'#10' ' +
' APROBADO = @APROBADO,'#10' FECHACAMBIO = CURRENT' +
'_TIMESTAMP'#10#9'where'#10' (RDX_RECEPCION_AJUSTES.CENTRO = @' +
'CENTRO and'#10#9' RDX_RECEPCION_AJUSTES.CODIGO = @CODIGO and'#10#9' ' +
' RDX_RECEPCION_AJUSTES.COLOR = @COLOR and'#10#9' RDX_RECEPCIO' +
'N_AJUSTES.FECHA = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9 +
'if @ROWCOUNT_VAR = 0'#10' begin'#10' insert into RDX_RECE' +
'PCION_AJUSTES'#10' (FECHA, CENTRO, CODIGO, COLOR,'#10' ' +
' APROBADO, FECHACAMBIO,'#10' CANT38, CA' +
'NT40, CANT42,'#10' CANT44, CANT46, CANT48,'#10' ' +
' CANT_S, CANT_M, CANT_L, CANT_XL)'#10' values ('#10' ' +
' @FECHA, @CENTRO, @CODIGO,'#10' @COLOR, @' +
'APROBADO, CURRENT_TIMESTAMP,'#10' @RR38, @RR40, @RR4' +
'2,'#10' @RR44, @RR46, @RR48,'#10' @RR_S,' +
' @RR_M, @RR_L, @RR_XL)'#10#10' select @ROWCOUNT_VAR = @@ROWCOU' +
'NT'#10' end'#10'end'#10
'1)'#10#10' declare @RR36 numeric(15,0)'#10' declare @RR38 numeric(15' +
',0)'#10' declare @RR40 numeric(15,0)'#10' declare @RR42 numeric(15' +
',0)'#10' declare @RR44 numeric(15,0)'#10' declare @RR46 numeric(15' +
',0)'#10' declare @RR48 numeric(15,0)'#10' declare @RR_S numeric(15' +
',0)'#10' declare @RR_M numeric(15,0)'#10' declare @RR_L numeric(15' +
',0)'#10' declare @RR_XL numeric(15,0)'#10#10' declare @APROBADO char' +
'(1)'#10' declare @FECHA datetime'#10' declare @CENTRO varchar(17)'#10 +
' declare @CODIGO varchar(12)'#10' declare @COLOR varchar(10)'#10' ' +
' '#10' declare @TIPO_TALLAJE smallint'#10#10' set @ALBARAN = :ALBA' +
'RAN'#10' set @ESTADO_ALBARAN = :ESTADO_ALBARAN'#10' set @OBSERVACI' +
'ONES_ALBARAN = :OBSERVACIONES_ALBARAN'#10' set @CONTABILIZAR_ALBA' +
'RAN = :CONTABILIZAR_ALBARAN'#10#10' set @RR36 = :RR36'#10' set @RR38' +
' = :RR38'#10' set @RR40 = :RR40'#10' set @RR42 = :RR42'#10' set @RR' +
'44 = :RR44'#10' set @RR46 = :RR46'#10' set @RR48 = :RR48'#10' set @' +
'RR_S = :RR38'#10' set @RR_M = :RR40'#10' set @RR_L = :RR42'#10' set' +
' @RR_XL = :RR44'#10#10' set @APROBADO = :APROBADO'#10' set @FECHA = ' +
':FECHA'#10' set @CENTRO = :CENTRO'#10' set @CODIGO = :CODIGO'#10' s' +
'et @COLOR = :COLOR'#10#10#10' /* *********************************** ' +
'*/'#10' if @ALBARAN <> '#39#39#10' begin'#10' update RDX_AJUSTES_A' +
'LBARAN set'#10#9' ESTADO = @ESTADO_ALBARAN,'#10#9' OBSERVACION' +
'ES = @OBSERVACIONES_ALBARAN,'#10#9' CONTABILIZAR = @CONTABILIZA' +
'R_ALBARAN'#10' where RDX_AJUSTES_ALBARAN.ALBARAN = @ALBARAN'#10 +
#10#9' select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10' if @ROWCOUNT_VAR ' +
'= 0'#10#9' begin'#10' insert into RDX_AJUSTES_ALBARAN'#10' ' +
' (ALBARAN, ESTADO, OBSERVACIONES, CONTABILIZAR)'#10' ' +
' values (@ALBARAN, @ESTADO_ALBARAN,'#10' ' +
' @OBSERVACIONES_ALBARAN, @CONTABILIZAR_ALBARAN)'#10#10' se' +
'lect @ROWCOUNT_VAR = @@ROWCOUNT'#10' end'#10' end'#10#10#10' /* A' +
'RREGLO PARA QUE SOPORTE LOS NUEVOS TALLAJES*** */'#10' '#10' execu' +
'te RDX_P_TIPO_TALLAJE @CODIGO, @TIPO_TALLAJE OUTPUT'#10#10' if @TIP' +
'O_TALLAJE = 1'#10' begin'#10' set @RR_S = NULL'#10' set @RR_M' +
' = NULL'#10' set @RR_L = NULL'#10' set @RR_XL = NULL'#10' end' +
#10#10' if @TIPO_TALLAJE = 2'#10' begin'#10' set @RR36 = NULL'#10' ' +
' set @RR38 = NULL'#10' set @RR40 = NULL'#10' set @RR42 = ' +
'NULL'#10' set @RR44 = NULL'#10' set @RR46 = NULL'#10' set ' +
'@RR48 = NULL'#10' end'#10#10' '#10' /* ******************************' +
'***** */'#10#9'update RDX_RECEPCION_AJUSTES set'#10#9' CANT36 = ' +
'@RR36,'#10#9' CANT38 = @RR38,'#10#9' CANT40 = @RR40,'#10#9 +
' CANT42 = @RR42,'#10#9' CANT44 = @RR44,'#10#9' ' +
' CANT46 = @RR46,'#10#9' CANT48 = @RR48,'#10#9' CANT_' +
'S = @RR_S,'#10#9' CANT_M = @RR_M,'#10#9' CANT_L = @RR_' +
'L,'#10#9' CANT_XL = @RR_XL,'#10' APROBADO = @APRO' +
'BADO,'#10' FECHACAMBIO = CURRENT_TIMESTAMP'#10#9'where'#10' ' +
' (RDX_RECEPCION_AJUSTES.CENTRO = @CENTRO and'#10#9' RDX_' +
'RECEPCION_AJUSTES.CODIGO = @CODIGO and'#10#9' RDX_RECEPCION_AJUS' +
'TES.COLOR = @COLOR and'#10#9' RDX_RECEPCION_AJUSTES.FECHA = @FEC' +
'HA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUNT'#10#10#9'if @ROWCOUNT_VAR = 0'#10' ' +
' begin'#10' insert into RDX_RECEPCION_AJUSTES'#10' ' +
' (FECHA, CENTRO, CODIGO, COLOR,'#10' APROBADO' +
', FECHACAMBIO, CANT36,'#10' CANT38, CANT40, CANT42,'#10 +
' CANT44, CANT46, CANT48,'#10' CANT_S' +
', CANT_M, CANT_L, CANT_XL)'#10' values ('#10' @F' +
'ECHA, @CENTRO, @CODIGO,'#10' @COLOR, @APROBADO, CURR' +
'ENT_TIMESTAMP, @RR36,'#10' @RR38, @RR40, @RR42,'#10' ' +
' @RR44, @RR46, @RR48,'#10' @RR_S, @RR_M,' +
' @RR_L, @RR_XL)'#10#10' select @ROWCOUNT_VAR = @@ROWCOUNT'#10' ' +
' end'#10'end'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1578,9 +1569,7 @@ object srvRecepciones: TsrvRecepciones
Name = 'Recepciones_ALBARAN'
DataType = datString
Size = 7
LogChanges = False
DisplayLabel = 'ALBARAN'
ReadOnly = True
end
item
Name = 'Recepciones_ESTADO_ALBARAN'

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

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN
END
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.DFM */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uDataModuleReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uViewListaReferenciaGenerica.dfm */
/* C:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\uEditorListaReferenciaGenerica.dfm */
/* 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:\Varela_D2007\Source\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf3A.tmp */

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

@ -110,8 +110,10 @@ inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica
end
inherited pnlAgrupaciones: TTBXAlignmentPanel
Width = 476
ExplicitLeft = 425
ExplicitTop = 19
ExplicitWidth = 476
inherited TBXButton3: TTBXButton
inherited Button1: TButton
Action = actRefrescar
end
end
@ -1627,7 +1629,7 @@ inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica
inherited dsDataTable: TDADataSource [10]
Top = 136
end
inherited GridPopupMenu: TPopupMenu
inherited GridPopupMenu: TPopupMenu [11]
Left = 112
Top = 128
object Cambiarelestado1: TMenuItem [3]

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

@ -1,9 +1,9 @@
inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
Width = 504
ExplicitWidth = 504
Width = 898
ExplicitWidth = 898
inherited cxGrid: TcxGrid
Top = 60
Width = 504
Width = 898
Height = 208
ExplicitTop = 60
ExplicitWidth = 504
@ -134,6 +134,7 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
FloatingHeight = 60
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 1
ExplicitWidth = 504
inline frViewParametrosCentro1: TfrViewParametrosCentro
Left = 0
Top = 19
@ -157,40 +158,41 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica
object TBXLabel1: TTBXLabel
Left = 0
Top = 0
Width = 504
Width = 898
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 = 504
end
object pnlAgrupaciones: TTBXAlignmentPanel
Left = 425
Top = 19
Width = 79
Width = 473
Height = 41
Align = alClient
AutoSize = True
Color = clBtnFace
TabOrder = 2
object TBXButton3: TTBXButton
Tag = 3
Left = 8
ExplicitLeft = 421
ExplicitTop = 13
ExplicitWidth = 79
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/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas
View File

@ -58,7 +58,7 @@ type
frViewParametrosCentro1: TfrViewParametrosCentro;
TBXLabel1: TTBXLabel;
pnlAgrupaciones: TTBXAlignmentPanel;
TBXButton3: TTBXButton;
Button1: TButton;
procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);

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

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN
END
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.DFM */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uDataModuleStock.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDI.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockPrendasCentros.dfm */
/* C:\Varela_D2007\Source\Modulos\Stock\Cliente\uViewControGridStockEDIInventario.dfm */
@ -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:\Varela_D2007\Source\Modulos\Stock\Cliente\Stock.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf42.tmp */

4
Source/Modulos/Stock/Cliente/uDataModuleStock.dfm
View File

@ -1,8 +1,8 @@
object dmStock: TdmStock
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
Height = 322
Width = 267
Height = 331
Width = 500
object RORemoteService: TRORemoteService
Message = dmBase.ROMessage
Channel = dmBase.ROChannel

2
Source/Modulos/Stock/Cliente/uEditorControlStockEDI.dfm
View File

@ -182,7 +182,7 @@ inherited fEditorControlStockEDI: TfEditorControlStockEDI
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
ActivePage = tabInventario
ActivePage = tabDesglose
Align = alClient
MultiLine = True
TabHeight = 10

114
Source/Modulos/Stock/Reglas/uBizStock.pas
View File

@ -30,15 +30,31 @@ type
end;
TBizStockEDIDataTableRules = class(TStockEDIDataTableRules, IBizStockEDI)
procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
public
constructor Create(aDataTable: TDADataTable); override;
end;
TBizStockEDIInventarioDataTableRules = class(TStockEDIInventarioDataTableRules, IBizStockEDIInventario)
procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
public
constructor Create(aDataTable: TDADataTable); override;
end;
TBizStockVARELADataTableRules = class(TStockVARELADataTableRules, IBizStockVARELA)
procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
public
constructor Create(aDataTable: TDADataTable); override;
end;
TBizStockPrendasCentrosDataTableRules = class(TStockPrendasCentrosDataTableRules, IBizStockPrendasCentros)
procedure OnBeforeDataRequestCall(DataTable: TDADataTable; Request: TDARemoteRequest);
procedure OnBeforeSchemaCall(DataTable: TDADataTable; Request: TDARemoteRequest);
public
constructor Create(aDataTable: TDADataTable); override;
end;
@ -47,6 +63,104 @@ implementation
{uses
Dialogs, uEditorUtils, uDataModuleVentasTerminadas;}
{ TBizStockPrendasCentrosDataTableRules }
constructor TBizStockPrendasCentrosDataTableRules.Create(
aDataTable: TDADataTable);
begin
inherited;
if Assigned(DataTable) then
begin
DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
end;
end;
procedure TBizStockPrendasCentrosDataTableRules.OnBeforeDataRequestCall(
DataTable: TDADataTable; Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
procedure TBizStockPrendasCentrosDataTableRules.OnBeforeSchemaCall(
DataTable: TDADataTable; Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
{ TBizStockEDIDataTableRules }
constructor TBizStockEDIDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
if Assigned(DataTable) then
begin
DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
end;
end;
procedure TBizStockEDIDataTableRules.OnBeforeDataRequestCall(
DataTable: TDADataTable; Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
procedure TBizStockEDIDataTableRules.OnBeforeSchemaCall(DataTable: TDADataTable;
Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
{ TBizStockEDIInventarioDataTableRules }
constructor TBizStockEDIInventarioDataTableRules.Create(
aDataTable: TDADataTable);
begin
inherited;
if Assigned(DataTable) then
begin
DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
end;
end;
procedure TBizStockEDIInventarioDataTableRules.OnBeforeDataRequestCall(
DataTable: TDADataTable; Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
procedure TBizStockEDIInventarioDataTableRules.OnBeforeSchemaCall(
DataTable: TDADataTable; Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
{ TBizStockVARELADataTableRules }
constructor TBizStockVARELADataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
if Assigned(DataTable) then
begin
DataTable.OnBeforeDataRequestCall := OnBeforeDataRequestCall;
DataTable.OnBeforeSchemaCall := OnBeforeSchemaCall;
end;
end;
procedure TBizStockVARELADataTableRules.OnBeforeDataRequestCall(
DataTable: TDADataTable; Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
procedure TBizStockVARELADataTableRules.OnBeforeSchemaCall(
DataTable: TDADataTable; Request: TDARemoteRequest);
begin
Request.ParamByName('UserFilter').AsString := DataTable.Where.Clause;
end;
initialization
RegisterDataTableRules(BIZ_STOCK_EDI, TBizStockEDIDataTableRules);
RegisterDataTableRules(BIZ_STOCK_EDIINVENTARIO, TBizStockEDIInventarioDataTableRules);

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

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN
END
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uDataModuleTraspasos.DFM */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uDataModuleTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uViewListaTraspasos.dfm */
/* C:\Varela_D2007\Source\Modulos\Traspasos\Cliente\uEditorListaTraspasos.dfm */
/* 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:\Varela_D2007\Source\Modulos\Traspasos\Cliente\Traspasos.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf40.tmp */

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

@ -581,7 +581,7 @@ var
begin
inherited;
Val1 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewPRODUCTO.Index];
Val1 := AText + ' ' + Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewPRODUCTO.Index];
Val2 := Sender.GridView.DataController.DisplayTexts[ARecordIndex, cxGridViewCOLOR.Index];
AText := 'Producto: ' + Val1 + ' - Color: ' + Val2;
end;

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

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN
END
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uDataModuleVentasProceso.DFM */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uDataModuleVentasProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uViewControlesVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uEditorControlesVentaProceso.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\uPluginControllerVentasProceso.dfm */
@ -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:\Varela_D2007\Source\Modulos\VentasProceso\Cliente\VentasProceso.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf38.tmp */

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

@ -12,7 +12,7 @@ STRINGTABLE
BEGIN
END
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uDataModuleVentasTerminadas.DFM */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uDataModuleVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControlesVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uEditorControlesVentasTerminadas.dfm */
/* C:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\uViewControGridlVentasTerminadas.dfm */
@ -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:\Varela_D2007\Source\Modulos\VentasTerminadas\Cliente\VentasTerminadas.drf */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf36.tmp */

411
Source/Servidor/AdminPV_Server.dproj
View File

@ -1,227 +1,192 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{86364157-b301-43dd-bfad-250a58064559}</ProjectGuid>
<MainSource>AdminPV_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\AdminPV_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dbxcds;DbxCommonDriver;dbexpress;dsnapcon;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;xmlrtl;RemObjects_Core_D10;RemObjects_WebBroker_D10;RemObjects_RODX_D10;RemObjects_BPDX_D10;RemObjects_Synapse_D10;RemObjects_Indy_D10;DataAbstract_Core_D10;DataAbstract_IDE_D10;DataAbstract_DBXDriver_D10B;DataAbstract_SQLiteDriver_D10;DataAbstract_Scripting_D10;PascalScript_RO_D10;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;fqb100;frx10;frxADO10;frxBDE10;frxDB10;frxe10;frxIBX10;fs10;fsADO10;fsBDE10;fsDB10;fsIBX10;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;ccpack10dsg;ccpack10;EasyListviewD10;GUISDK_D10;JvAppFrmD10R;JvCoreD10R;JclVcl;Jcl;JvSystemD10R;JvStdCtrlsD10R;JvBandsD10R;JvDBD10R;JvDlgsD10R;JvBDED10R;JvCmpD10R;JvCryptD10R;JvCtrlsD10R;JvCustomD10R;JvDockingD10R;JvDotNetCtrlsD10R;JvEDID10R;JvGlobusD10R;JvHMID10R;JvInterpreterD10R;JvJansD10R;JvManagedThreadsD10R;JvMMD10R;JvPageCompsD10R;JvPrintPreviewD10R;JvRuntimeDesignD10R;JvTimeFrameworkD10R;JvUIBD10R;JvValidatorsD10R;JvWizardD10R;JvXPCtrlsD10R;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;RemObjects_DataSnap_D10</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">2</VersionInfo><VersionInfo Name="MinorVer">1</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">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">AdminPV_Server</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AdminPV_Server.dpr</Source></Source><Excluded_Packages>
<Excluded_Packages Name="C:\Varela_D2007\Lib\DevExpressVCL\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</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>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="AdminPV_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Base\Utiles\uDataTableUtils.pas" />
<DCCReference Include="..\Base\Utiles\uDBSelectionList.pas" />
<DCCReference Include="..\Base\Utiles\uIntegerList.pas" />
<DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas" />
<DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas" />
<DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas">
<Form>srvControles</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas">
<Form>srvDevoluciones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas" />
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas">
<Form>srvParametros</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas">
<Form>srvRecepciones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas" />
<DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas">
<Form>srvReferenciaGenerica</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas" />
<DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas" />
<DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas">
<Form>srvStock</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas">
<Form>srvTraspasos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas" />
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas" />
<DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas">
<Form>srvVentasEnProceso</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas" />
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas" />
<DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas">
<Form>srvVentasTerminadas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\VARELA_Intf.pas" />
<DCCReference Include="..\Servicios\VARELA_Invk.pas" />
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfFicherosEDI.pas">
<Form>frConfFicherosEDI</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="EDI\EDI_Inventary_Impl.pas" />
<DCCReference Include="EDI\EDI_INVRPT.pas" />
<DCCReference Include="EDI\EDI_Log_Impl.pas" />
<DCCReference Include="EDI\EDI_Reader.pas" />
<DCCReference Include="EDI\EDI_Sales_Impl.pas" />
<DCCReference Include="EDI\EDI_SLSRPT.pas" />
<DCCReference Include="fServerForm.pas">
<Form>ServerForm</Form>
</DCCReference>
<DCCReference Include="Login_Impl.pas" />
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas" />
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas" />
<DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas" />
<DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas">
<Form>dmEDIInventary</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas" />
<DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas" />
<DCCReference Include="Services\EDI_Sales\uBizEDISales.pas" />
<DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas">
<Form>dmEDISales</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Services\Login\srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas">
<Form>srvTransfereciaFicheros</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Utiles\EDI_Utils.pas" />
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{86364157-b301-43dd-bfad-250a58064559}</ProjectGuid>
<MainSource>AdminPV_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\AdminPV_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dbxcds;DbxCommonDriver;dbexpress;dsnapcon;vclib;ibxpress;adortl;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;xmlrtl;RemObjects_Core_D10;RemObjects_WebBroker_D10;RemObjects_RODX_D10;RemObjects_BPDX_D10;RemObjects_Synapse_D10;RemObjects_Indy_D10;DataAbstract_Core_D10;DataAbstract_IDE_D10;DataAbstract_DBXDriver_D10B;DataAbstract_SQLiteDriver_D10;DataAbstract_Scripting_D10;PascalScript_RO_D10;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;fqb100;frx10;frxADO10;frxBDE10;frxDB10;frxe10;frxIBX10;fs10;fsADO10;fsBDE10;fsDB10;fsIBX10;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;ccpack10dsg;ccpack10;EasyListviewD10;GUISDK_D10;JvAppFrmD10R;JvCoreD10R;JclVcl;Jcl;JvSystemD10R;JvStdCtrlsD10R;JvBandsD10R;JvDBD10R;JvDlgsD10R;JvBDED10R;JvCmpD10R;JvCryptD10R;JvCtrlsD10R;JvCustomD10R;JvDockingD10R;JvDotNetCtrlsD10R;JvEDID10R;JvGlobusD10R;JvHMID10R;JvInterpreterD10R;JvJansD10R;JvManagedThreadsD10R;JvMMD10R;JvPageCompsD10R;JvPrintPreviewD10R;JvRuntimeDesignD10R;JvTimeFrameworkD10R;JvUIBD10R;JvValidatorsD10R;JvWizardD10R;JvXPCtrlsD10R;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;RemObjects_DataSnap_D10</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_UnitSearchPath>..\Lib;..\Base</DCC_UnitSearchPath>
<DCC_ResourcePath>..\Lib;..\Base</DCC_ResourcePath>
<DCC_ObjPath>..\Lib;..\Base</DCC_ObjPath>
<DCC_IncludePath>..\Lib;..\Base</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">4</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">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">AdminPV_Server</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 16 de octubre de 2008 13:41</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AdminPV_Server.dpr</Source></Source><Excluded_Packages>
<Excluded_Packages Name="C:\Varela_D2007\Lib\DevExpressVCL\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</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>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="AdminPV_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Base\Utiles\uDataTableUtils.pas"/>
<DCCReference Include="..\Base\Utiles\uDBSelectionList.pas"/>
<DCCReference Include="..\Base\Utiles\uIntegerList.pas"/>
<DCCReference Include="..\ControlesBase\Reglas\schControlesClient_Intf.pas"/>
<DCCReference Include="..\ControlesBase\Reglas\schControlesServer_Intf.pas"/>
<DCCReference Include="..\ControlesBase\Servidor\srvControles_Impl.pas">
<Form>srvControles</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas">
<Form>srvDevoluciones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogClient_Intf.pas"/>
<DCCReference Include="..\Modulos\FicherosEDI\Reglas\schEDILogServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Parametros\Reglas\schParametrosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Parametros\Servidor\srvParametros_Impl.pas">
<Form>srvParametros</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recepciones\Servidor\srvRecepciones_Impl.pas">
<Form>srvRecepciones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas"/>
<DCCReference Include="..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas">
<Form>srvReferenciaGenerica</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Stock\Reglas\schStockServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Stock\Servidor\srvStock_Impl.pas">
<Form>srvStock</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas">
<Form>srvTraspasos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasProceso\Servidor\srvVentasEnProceso_Impl.pas">
<Form>srvVentasEnProceso</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas">
<Form>srvVentasTerminadas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\VARELA_Intf.pas"/>
<DCCReference Include="..\Servicios\VARELA_Invk.pas"/>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfFicherosEDI.pas">
<Form>frConfFicherosEDI</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="EDI\EDI_Inventary_Impl.pas"/>
<DCCReference Include="EDI\EDI_INVRPT.pas"/>
<DCCReference Include="EDI\EDI_Log_Impl.pas"/>
<DCCReference Include="EDI\EDI_Reader.pas"/>
<DCCReference Include="EDI\EDI_Sales_Impl.pas"/>
<DCCReference Include="EDI\EDI_SLSRPT.pas"/>
<DCCReference Include="fServerForm.pas">
<Form>ServerForm</Form>
</DCCReference>
<DCCReference Include="Login_Impl.pas"/>
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryClient_Intf.pas"/>
<DCCReference Include="Services\EDI_Inventary\schEDIInventaryServer_Intf.pas"/>
<DCCReference Include="Services\EDI_Inventary\uBizEDIInventary.pas"/>
<DCCReference Include="Services\EDI_Inventary\uDataModuleEDI_Inventary.pas">
<Form>dmEDIInventary</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Services\EDI_Sales\schEDISalesClient_Intf.pas"/>
<DCCReference Include="Services\EDI_Sales\schEDISalesServer_Intf.pas"/>
<DCCReference Include="Services\EDI_Sales\uBizEDISales.pas"/>
<DCCReference Include="Services\EDI_Sales\uDataModuleEDI_Sales.pas">
<Form>dmEDISales</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Services\Login\srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="Services\TransferenciaFicheros\srvTransfereciaFicheros_Impl.pas">
<Form>srvTransfereciaFicheros</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Utiles\EDI_Utils.pas"/>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2973
Source/Servidor/AdminPV_Server.drc
View File

File diff suppressed because it is too large Load Diff

10
Source/Servidor/AdminPV_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Varela_D2007\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,1,2,0
PRODUCTVERSION 2,1,2,0
FILEVERSION 2,1,4,0
PRODUCTVERSION 2,1,4,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.1.2.0\0"
VALUE "FileVersion", "2.1.4.0\0"
VALUE "ProductName", "AdminPV_Server\0"
VALUE "ProductVersion", "2.1.2.0\0"
VALUE "CompileDate", "martes, 06 de mayo de 2008 16:51\0"
VALUE "ProductVersion", "2.1.4.0\0"
VALUE "CompileDate", "jueves, 16 de octubre de 2008 18:17\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/AdminPV_Server.res
View File

Binary file not shown.

8
Source/Servidor/EDI/EDI_Inventary_Impl.dfm
View File

@ -1,7 +1,9 @@
inherited EDI_Inventary: TEDI_Inventary
object EDI_Inventary: TEDI_Inventary
OldCreateOrder = True
Left = 200
Top = 200
OnAfterProcessTransactionAction = pptaNone
ExportedDataTables = <>
CacheElements = <>
Options = [rsoProcessDeltasWithoutUpdateRules]
Height = 300
Width = 300
end

113
Source/Servidor/EDI/EDI_Inventary_Impl.pas
View File

@ -12,7 +12,7 @@ unit EDI_Inventary_Impl;
interface
uses
{vcl:} Classes, SysUtils,
{vcl:} Classes, SysUtils,
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Required:} uRORemoteDataModule,
{Ancestor Implementation:} DARemoteService_Impl,
@ -23,6 +23,7 @@ type
{ TEDI_Inventary }
TEDI_Inventary = class(TDARemoteService, IEDI_Inventary)
private
procedure InsertarLog(OK: Boolean; Error_msg: String);
protected
{ IEDI_Inventary methods }
function CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean;
@ -32,7 +33,8 @@ implementation
{$R *.dfm}
uses
{Generated:} VARELA_Invk;
{Generated:} VARELA_Invk, uDataModuleServer,
EDI_Log_Impl, JclFileUtils, DateUtils, uDataModuleEDI_Inventary;
procedure Create_EDI_Inventary(out anInstance : IUnknown);
begin
@ -41,9 +43,116 @@ end;
{ EDI_Inventary }
function TEDI_Inventary.CargarFicheroEDI(const FicheroCAB: String; const FicheroLIN: String; const FicheroCANT: String; out MsgError: String): Boolean;
var
ADirEntrada : String;
ADirTemp : String;
NumRegNuevos : Integer;
bCargarFicheros: Boolean;
procedure GuardarFicheros;
var
AAlmacen : String;
ADate : String;
begin
DateTimeToString(ADate, 'yyyymmddhhnn', Now);
AAlmacen := PathAddSeparator(dmServer.FDirAlmacen);
AAlmacen := PathAddSeparator(AAlmacen + ADate);
if not DirectoryExists(AAlmacen) then
ForceDirectories(AAlmacen);
FileMove(ADirTemp + FicheroCAB, AAlmacen + FicheroCAB);
FileMove(ADirTemp + FicheroLIN, AAlmacen + FicheroLIN);
FileMove(ADirTemp + FicheroCANT, AAlmacen + FicheroCANT);
DeleteDirectory(ADirTemp, False);
end;
begin
Result := False;
// Hay que comprobar que existen los ficheros.
ADirEntrada := PathAddSeparator(dmServer.FDirEntrada);
if not FileExists(ADirEntrada + FicheroCAB) or
not FileExists(ADirEntrada + FicheroLIN) or
not FileExists(ADirEntrada + FicheroCANT) then
begin
MsgError := 'No hay ficheros de datos';
InsertarLog(False, MsgError + ' (CargarFicheroEDI1 INV)');
end
else begin
// Muevo los ficheros de carga a un directorio temporal
ADirTemp := PathAddSeparator(ADirEntrada + GetTempDirectory(ADirEntrada));
try
if not DirectoryExists(ADirTemp) then
ForceDirectories(ADirTemp);
if not FileMove(ADirEntrada + FicheroCAB, ADirTemp + FicheroCAB) then
begin
MsgError := 'No se ha podido mover FicheroCAB';
bCargarFicheros := False;
end;
if not FileMove(ADirEntrada + FicheroLIN, ADirTemp + FicheroLIN) then
begin
MsgError := 'No se ha podido mover FicheroLIN';
bCargarFicheros := False;
end;
if not FileMove(ADirEntrada + FicheroCANT, ADirTemp + FicheroCANT) then
begin
MsgError := 'No se ha podido mover FicheroCANT';
bCargarFicheros := False;
end;
except
on E: Exception do
begin
MsgError := E.Message;
InsertarLog(False, MsgError + ' (CargarFicheroEDI2 INV)');
Exit;
end;
end;
try
if bCargarFicheros then
begin
try
dmEDIInventary.CargarFicheros (ADirTemp + FicheroCAB, ADirTemp + FicheroLIN, ADirTemp + FicheroCANT, NumRegNuevos);
if NumRegNuevos > 0 then
InsertarLog(True, Format('Se han cargado %d registros de inventario nuevos', [NumRegNuevos]))
else
InsertarLog(True, 'El fichero se ha cargado pero no hay registros de inventario nuevos');
Result := True;
finally
GuardarFicheros;
dmServer.BorrarFicherosDeCargaAntiguos;
end;
end
else
InsertarLog(False, MsgError + ' (CargarFicheroEDI3 INV)');
except
on E: Exception do
begin
MsgError := E.Message;
InsertarLog(False, MsgError + ' (CargarFicheroEDI3 INV)');
end;
end;
end;
end;
procedure TEDI_Inventary.InsertarLog(OK: Boolean; Error_msg: String);
var
LogService : IEDI_Log;
begin
LogService := EDI_Log_Impl.TEDI_Log.Create(Self);
try
LogService.InsertarLog(Now, 'INVRPT', OK, Error_msg);
finally
LogService := nil;
end;
end;
initialization
TROClassFactory.Create('EDI_Inventary', Create_EDI_Inventary, TEDI_Inventary_Invoker);

BIN
Tools/midas.dll Normal file
View File

Binary file not shown.