Tienda web

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@74 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-09-17 16:30:58 +00:00
parent e6fde69207
commit 8fd114c8a0
25 changed files with 493 additions and 367 deletions

View File

@ -3011,8 +3011,6 @@ GROUP BY ID_ALMACEN,
ARTICULOS.REFERENCIA_FABR,
ARTICULOS.UNIDAD_MEDIDA,
ARTICULOS.PRECIO_NETO
;
/*QUITAMOS AQUELLAS TUPLAS DE LAS QUE NO TENEMOS UNIDADES EN EL ALAMCEN, NO HAY RESERVAS NI PEDIDOS PENDIENTES DE RECIBIR*/
HAVING ((SUM(STOCK) <> 0 ) OR (SUM(RESERVA) <> 0) OR (SUM(PENDIENTE_RECEPCION) <> 0))
@ -4347,14 +4345,209 @@ CREATE INDEX REMESAS_PROVEEDOR_IDX1 ON REMESAS_PROVEEDOR (FECHA_REMESA);
/******************************************************************************/
/**** Stored Procedures ****/
/******************************************************************************/
/******************************************************************************/
/**** Generated by IBExpert 2007.05.03 16/09/2010 12:53:40 ****/
/******************************************************************************/
SET SQL DIALECT 3;
SET NAMES ISO8859_1;
SET TERM ^ ;
/******************************************************************************/
/**** Stored Procedures ****/
/******************************************************************************/
CREATE PROCEDURE PRO_ANADIR_EMPRESA (
ID_EMPRESA INTEGER)
AS
BEGIN
EXIT;
END^
CREATE PROCEDURE PRO_ANADIR_MARCA_ENVIO_CORREO (
TABLA VARCHAR(255),
ID_TABLA INTEGER)
AS
BEGIN
EXIT;
END^
CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
TABLA VARCHAR(255),
ID_TABLA INTEGER)
AS
BEGIN
EXIT;
END^
CREATE PROCEDURE PRO_ART_RECALCULAR_PVP (
ID_EMPRESA INTEGER,
PARAM_MARGEN NUMERIC(2,2),
PARAM_TIEMPO NUMERIC(11,2))
AS
BEGIN
EXIT;
END^
CREATE PROCEDURE PRO_PRES_CAPITULOS (
AID INTEGER)
RETURNS (
ID INTEGER,
ID_PRESUPUESTO INTEGER,
POSICION INTEGER,
TIPO_DETALLE VARCHAR(25),
CONCEPTO VARCHAR(2000),
IMPORTE_TOTAL NUMERIC(11,2),
VISIBLE SMALLINT)
AS
BEGIN
SUSPEND;
END^
CREATE PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
AID INTEGER)
RETURNS (
ID INTEGER,
ID_PRESUPUESTO INTEGER,
POSICION INTEGER,
TIPO_DETALLE VARCHAR(25),
ID_CAPITULO INTEGER,
ID_ARTICULO INTEGER,
REFERENCIA VARCHAR(255),
CONCEPTO VARCHAR(2000),
CANTIDAD NUMERIC(11,2),
UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD NUMERIC(11,2),
DESCUENTO NUMERIC(2,2),
IMPORTE_PORTE NUMERIC(11,2),
IMPORTE_TOTAL NUMERIC(11,2),
VISIBLE SMALLINT)
AS
BEGIN
SUSPEND;
END^
CREATE PROCEDURE PRO_PRES_RESUMEN (
AID INTEGER)
RETURNS (
ID INTEGER,
ID_PRESUPUESTO INTEGER,
POSICION INTEGER,
TIPO_DETALLE VARCHAR(25),
CONCEPTO VARCHAR(2000),
IMPORTE_TOTAL NUMERIC(11,2),
VISIBLE SMALLINT)
AS
BEGIN
SUSPEND;
END^
SET TERM ; ^
/******************************************************************************/
/**** Stored Procedures ****/
/******************************************************************************/
SET TERM ^ ;
ALTER PROCEDURE PRO_ANADIR_EMPRESA (
ID_EMPRESA INTEGER)
AS
begin
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_FACTURAS_CLIENTE', 'EL/0001', :ID_EMPRESA, 'Ref. facturas de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_PEDIDOS_CLIENTE', '00001', :ID_EMPRESA, 'Ref. pedidos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_PEDIDOS_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. pedidos de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_CLIENTE', '00001', :ID_EMPRESA, 'Ref. albaranes de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. albaranes de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_REMESAS_CLIENTE', '00001', :ID_EMPRESA, 'Ref. remesas de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_COMISIONES', '00001', :ID_EMPRESA, 'Ref. liquidaciones de comision');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_FACTURAS_PROVEEDOR', '2010/0001', :ID_EMPRESA, 'Ref. facturas de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_DEV_CLIENTE', '00001', :ID_EMPRESA, 'Ref. ordenes de devolucion de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_DEV_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. ordenes de devolucion de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_REMESAS_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. remesas de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ABONOS_CLIENTE', 'AB-EL/0001', :ID_EMPRESA, 'Ref. abonos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ABONOS_PROVEEDOR', 'A. 2010/0001', :ID_EMPRESA, 'Ref. abonos de proveedor');
suspend;
end
^
ALTER PROCEDURE PRO_ANADIR_MARCA_ENVIO_CORREO (
TABLA VARCHAR(255),
ID_TABLA INTEGER)
AS
declare variable id integer;
begin
select ID
from REGISTRO_CORREOS
where ID_TABLA = :ID_TABLA
and TABLA = UPPER(:TABLA)
into :ID;
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemento */
if (ID > 0) then
begin
update REGISTRO_CORREOS
set NUM_CORREOS = NUM_CORREOS + 1
where ID = :ID;
end
else
begin
insert into REGISTRO_CORREOS (ID, TABLA, ID_TABLA, NUM_CORREOS)
values (GEN_ID(GEN_REGISTRO_CORREOS_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
end
suspend;
end
^
ALTER PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
TABLA VARCHAR(255),
ID_TABLA INTEGER)
AS
declare variable id integer;
begin
select ID
from IMPRESIONES
where ID_TABLA = :ID_TABLA
and TABLA = UPPER(:TABLA)
into :ID;
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
if (ID > 0) then
begin
update IMPRESIONES
set NUM_COPIAS = NUM_COPIAS + 1
where ID = :ID;
end
else
begin
insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
end
suspend;
end
^
ALTER PROCEDURE PRO_ART_RECALCULAR_PVP (
ID_EMPRESA INTEGER,
PARAM_MARGEN NUMERIC(2,2),
PARAM_TIEMPO NUMERIC(11,2))
AS
declare variable id_articulo integer;
declare variable mano_obra numeric(11,2);
begin
@ -4380,8 +4573,7 @@ begin
end
^
CREATE PROCEDURE PRO_PRES_CAPITULOS (
ALTER PROCEDURE PRO_PRES_CAPITULOS (
AID INTEGER)
RETURNS (
ID INTEGER,
@ -4469,8 +4661,7 @@ begin
end
^
CREATE PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
ALTER PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
AID INTEGER)
RETURNS (
ID INTEGER,
@ -4523,8 +4714,7 @@ do
end
^
CREATE PROCEDURE PRO_PRES_RESUMEN (
ALTER PROCEDURE PRO_PRES_RESUMEN (
AID INTEGER)
RETURNS (
ID INTEGER,
@ -4637,88 +4827,7 @@ begin
end
^
SET TERM ; ^
CREATE PROCEDURE PRO_ANADIR_MARCA_ENVIO_CORREO (
tabla varchar(255),
id_tabla integer)
as
declare variable id integer;
begin
select ID
from REGISTRO_CORREOS
where ID_TABLA = :ID_TABLA
and TABLA = UPPER(:TABLA)
into :ID;
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemento */
if (ID > 0) then
begin
update REGISTRO_CORREOS
set NUM_CORREOS = NUM_CORREOS + 1
where ID = :ID;
end
else
begin
insert into REGISTRO_CORREOS (ID, TABLA, ID_TABLA, NUM_CORREOS)
values (GEN_ID(GEN_REGISTRO_CORREOS_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
end
suspend;
end;
CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
tabla varchar(255),
id_tabla integer)
as
declare variable id integer;
begin
select ID
from IMPRESIONES
where ID_TABLA = :ID_TABLA
and TABLA = UPPER(:TABLA)
into :ID;
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
if (ID > 0) then
begin
update IMPRESIONES
set NUM_COPIAS = NUM_COPIAS + 1
where ID = :ID;
end
else
begin
insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
end
suspend;
end;
SET TERM ^ ;
CREATE PROCEDURE PRO_ANADIR_EMPRESA (
id_empresa integer)
as
begin
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_FACTURAS_CLIENTE', 'EL/0001', :ID_EMPRESA, 'Ref. facturas de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_PEDIDOS_CLIENTE', '00001', :ID_EMPRESA, 'Ref. pedidos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_PEDIDOS_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. pedidos de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_CLIENTE', '00001', :ID_EMPRESA, 'Ref. albaranes de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. albaranes de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_REMESAS_CLIENTE', '00001', :ID_EMPRESA, 'Ref. remesas de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_COMISIONES', '00001', :ID_EMPRESA, 'Ref. liquidaciones de comision');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_FACTURAS_PROVEEDOR', '2010/0001', :ID_EMPRESA, 'Ref. facturas de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_DEV_CLIENTE', '00001', :ID_EMPRESA, 'Ref. ordenes de devolucion de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ALBARANES_DEV_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. ordenes de devolucion de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_REMESAS_PROVEEDOR', '00001', :ID_EMPRESA, 'Ref. remesas de proveedor');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ABONOS_CLIENTE', 'AB-EL/0001', :ID_EMPRESA, 'Ref. abonos de cliente');
INSERT INTO REFERENCIAS (ID, CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES (GEN_ID(GEN_REFERENCIAS_ID, 1), 'REF_ABONOS_PROVEEDOR', 'A. 2010/0001', :ID_EMPRESA, 'Ref. abonos de proveedor');
suspend;
end^
SET TERM ; ^
/******************************************************************************/
/**** Descriptions ****/
/******************************************************************************/

Binary file not shown.

View File

@ -45,8 +45,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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -64,59 +62,59 @@
<Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.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\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.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\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.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\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.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\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.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\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

View File

@ -5,6 +5,7 @@ object dmConexion: TdmConexion
Height = 177
Width = 265
object ROMessage: TROBinMessage
Envelopes = <>
Left = 42
Top = 88
end

View File

@ -3,6 +3,7 @@ unit uPasswordUtils;
interface
function EncriptarPassword(const password : string): String;
function EncriptarPasswordOSC(const password : string): String;
implementation
@ -19,4 +20,32 @@ begin
Result := LowerCase(pass_encriptada);
end;
function EncriptarPasswordOSC(const password : string): String;
var
t : TMD5Digest;
salt : String;
pass_encriptada : String;
i : integer;
begin
// for ($i=0; $i<10; $i++) {
// $password .= tep_rand();
// }
//
// $salt = substr(md5($password), 0, 2);
//
// $password = md5($salt . $plain) . ':' . $salt;
pass_encriptada := '';
Randomize;
for I := 0 to 9 do
pass_encriptada := pass_encriptada + FloatToStr(Random(10000000000));
t := MD5String(password);
salt := Copy(MD5DigestToStr(t), 0, 2);
t := MD5String(salt + password);
pass_encriptada := MD5DigestToStr(t);
Result := LowerCase(pass_encriptada) + ':' + salt;
end;
end.

View File

@ -14,12 +14,12 @@ function StringsToString(Source:TStrings; Delimiter:char):string;
function EsCadenaVacia(const S: AnsiString): Boolean; overload;
function EsCadenaVacia(const S: Variant): Boolean; overload;
function EsNumerico(Cadena: String) : Boolean;
function EscaparCadena (Cadena: String): String;
implementation
uses
Variants, SysUtils;
Variants, SysUtils, JclStrings;
{ Convierte una cadena con items separados con un delimitador en un TString }
procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
@ -62,5 +62,11 @@ begin
Result := (Codigo = 0)
end;
function EscaparCadena (Cadena: String): String;
begin
Result := StringReplace(Cadena, '''', '\\''', []);
Result := StrStringToEscaped(Result);
end;
end.

View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

Binary file not shown.

View File

@ -0,0 +1,16 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */

View File

@ -64,6 +64,8 @@ type
function DarListaAnosPedidos: TStringList;
procedure FiltrarAno(APedido: IBizPedidoCliente; ADynWhereDataTable: WideString; const Ano: String);
function Localizar(APedidos: IBizPedidoCliente; const ID : Integer): Boolean;
end;
TPedidosClienteController = class(TControllerBase, IPedidosClienteController)
@ -140,6 +142,7 @@ type
function DarListaAnosPedidos: TStringList;
procedure FiltrarAno(APedido: IBizPedidoCliente; ADynWhereDataTable: WideString; const Ano: String);
function Localizar(APedidos: IBizPedidoCliente; const ID : Integer): Boolean;
end;
implementation
@ -881,6 +884,25 @@ begin
end;
end;
function TPedidosClienteController.Localizar(APedidos: IBizPedidoCliente;
const ID: Integer): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with APedidos.DataTable do
begin
DisableControls;
First;
if not Locate(fld_PedidosClienteID, ID, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
function TPedidosClienteController.Nuevo: IBizPedidoCliente;
var
APedido : IBizPedidoCliente;

View File

@ -0,0 +1,17 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
/* c:\temp\dtf19E.tmp */

View File

@ -0,0 +1,16 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
/* c:\temp\dtf19C.tmp */

View File

@ -0,0 +1,17 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
/* c:\temp\dtf1FE.tmp */

View File

@ -0,0 +1,28 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uDialogOpcionesImpresionPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCli.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewDetallesPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
/* c:\temp\dtf1FC.tmp */

View File

@ -47,58 +47,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <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>
<Source>
<Source Name="MainSource">RemesasCliente_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</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><Source><Source Name="MainSource">RemesasCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RemesasCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_data.dcp" />
<DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Base.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RecibosCliente_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_data.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_model.dcp" />
<DCCReference Include="uRemesasClienteController.pas" />
<DCCReference Include="uRemesasClienteReportController.pas" />
<DCCReference Include="View\uIEditorRemesaCliente.pas" />
@ -106,10 +66,9 @@
<DCCReference Include="View\uIEditorRemesasClientePreview.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

View File

@ -47,64 +47,23 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <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>
<Source>
<Source Name="MainSource">RemesasCliente_data.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</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><Source><Source Name="MainSource">RemesasCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RemesasCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\..\Lib\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Base.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_model.dcp" />
<DCCReference Include="uDataModuleRemesasCliente.pas">
<Form>DataModuleRemesasCliente</Form>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

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>{e4f81792-84cf-4900-a6ab-18f6dd2c7ada}</ProjectGuid>
<MainSource>RemesasCliente_model.dpk</MainSource>
@ -47,55 +48,15 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <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>
<Source>
<Source Name="MainSource">RemesasCliente_model.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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><Source><Source Name="MainSource">RemesasCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RemesasCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Pedidos a proveedor\Model\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Model\RecibosCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RecibosCliente_model.dcp" />
<DCCReference Include="Data\uIDataModuleRemesasCliente.pas" />
<DCCReference Include="Data\uIDataModuleRemesasClienteReport.pas" />
<DCCReference Include="schRemesasClienteClient_Intf.pas" />
@ -103,10 +64,9 @@
<DCCReference Include="uBizRemesasCliente.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

View File

@ -46,9 +46,9 @@
<DelphiCompile Include="RemesasCliente_plugin.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\RemesasCliente_controller.dcp" />
<DCCReference Include="..\RemesasCliente_model.dcp" />
<DCCReference Include="..\RemesasCliente_view.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_view.dcp" />
<DCCReference Include="uPluginRemesasCliente.pas">
<Form>PluginRemesasCliente</Form>
</DCCReference>

View File

@ -10,8 +10,11 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" />
<Projects Include="..\Tienda web\Controller\TiendaWeb_controller.dproj" />
<Projects Include="..\Tienda web\Data\TiendaWeb_data.dproj" />
<Projects Include="..\Tienda web\Model\TiendaWeb_model.dproj" />
<Projects Include="..\Tienda web\Plugin\TiendaWeb_plugin.dproj" />
<Projects Include="..\Tienda web\Views\TiendaWeb_view.dproj" />
<Projects Include="Controller\RemesasCliente_controller.dproj" />
<Projects Include="Data\RemesasCliente_data.dproj" />
<Projects Include="Model\RemesasCliente_model.dproj" />
@ -141,14 +144,41 @@
<Target Name="TiendaWeb_data:Make">
<MSBuild Projects="..\Tienda web\Data\TiendaWeb_data.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_controller">
<MSBuild Projects="..\Tienda web\Controller\TiendaWeb_controller.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_controller:Clean">
<MSBuild Projects="..\Tienda web\Controller\TiendaWeb_controller.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_controller:Make">
<MSBuild Projects="..\Tienda web\Controller\TiendaWeb_controller.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_view">
<MSBuild Projects="..\Tienda web\Views\TiendaWeb_view.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_view:Clean">
<MSBuild Projects="..\Tienda web\Views\TiendaWeb_view.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_view:Make">
<MSBuild Projects="..\Tienda web\Views\TiendaWeb_view.dproj" Targets="Make" />
</Target>
<Target Name="TiendaWeb_plugin">
<MSBuild Projects="..\Tienda web\Plugin\TiendaWeb_plugin.dproj" Targets="" />
</Target>
<Target Name="TiendaWeb_plugin:Clean">
<MSBuild Projects="..\Tienda web\Plugin\TiendaWeb_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="TiendaWeb_plugin:Make">
<MSBuild Projects="..\Tienda web\Plugin\TiendaWeb_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view;TiendaWeb_model;TiendaWeb_data" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view;TiendaWeb_model;TiendaWeb_data;TiendaWeb_controller;TiendaWeb_view;TiendaWeb_plugin" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean;TiendaWeb_controller:Clean;TiendaWeb_view:Clean;TiendaWeb_plugin:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make;TiendaWeb_model:Make;TiendaWeb_data:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make;TiendaWeb_model:Make;TiendaWeb_data:Make;TiendaWeb_controller:Make;TiendaWeb_view:Make;TiendaWeb_plugin:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

View File

@ -47,63 +47,23 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <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>
<Source>
<Source Name="MainSource">RemesasCliente_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</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><Source><Source Name="MainSource">RemesasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RemesasCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Familias_controller.dcp" />
<DCCReference Include="Familias_model.dcp" />
<DCCReference Include="frxTee11.dcp" />
<DCCReference Include="fsTee11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemesasCliente_controller.dcp" />
<DCCReference Include="RemesasCliente_model.dcp" />
<DCCReference Include="tee.dcp" />
<DCCReference Include="teeUI.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Familias_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\Familias_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\frxTee11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\fsTee11.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_controller.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\RemesasCliente_model.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\tee.dcp" />
<DCCReference Include="..\..\Pedidos de cliente\teeUI.dcp" />
<DCCReference Include="uEditorRemesaCliente.pas">
<Form>fEditorRemesaCliente</Form>
<DesignClass>TfEditorRemesaCliente</DesignClass>
@ -131,10 +91,9 @@
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1