diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 4728ed9..6df9029 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -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 ****/ -/******************************************************************************/ diff --git a/Source/Base/Base.RES b/Source/Base/Base.RES index 8b251f3..1641339 100644 Binary files a/Source/Base/Base.RES and b/Source/Base/Base.RES differ diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index d5cb626..f4eef3b 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -45,8 +45,6 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -64,59 +62,59 @@
DataModuleRegistroCorreos
TDataModule + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Base/Conexion/uDataModuleConexion.dfm b/Source/Base/Conexion/uDataModuleConexion.dfm index e96d43e..a873f60 100644 --- a/Source/Base/Conexion/uDataModuleConexion.dfm +++ b/Source/Base/Conexion/uDataModuleConexion.dfm @@ -5,6 +5,7 @@ object dmConexion: TdmConexion Height = 177 Width = 265 object ROMessage: TROBinMessage + Envelopes = <> Left = 42 Top = 88 end diff --git a/Source/Base/Utiles/uPasswordUtils.pas b/Source/Base/Utiles/uPasswordUtils.pas index 13cae92..c07d2b8 100644 --- a/Source/Base/Utiles/uPasswordUtils.pas +++ b/Source/Base/Utiles/uPasswordUtils.pas @@ -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. diff --git a/Source/Base/Utiles/uStringsUtils.pas b/Source/Base/Utiles/uStringsUtils.pas index 68ad755..91b86a5 100644 --- a/Source/Base/Utiles/uStringsUtils.pas +++ b/Source/Base/Utiles/uStringsUtils.pas @@ -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. diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index a62b147..39f4304 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -59,30 +59,30 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 8b251f3..1641339 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc new file mode 100644 index 0000000..58f94b1 --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc @@ -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 */ diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas index 6f083cb..de3d4c4 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas +++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas @@ -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; diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc new file mode 100644 index 0000000..a71d000 --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc @@ -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 */ diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc new file mode 100644 index 0000000..2e39b2d --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc @@ -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 */ diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc new file mode 100644 index 0000000..12f4bba --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc @@ -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 */ diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc new file mode 100644 index 0000000..7cbdb75 --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc @@ -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 */ diff --git a/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.dproj b/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.dproj index de82ce3..5b25dd3 100644 --- a/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.dproj +++ b/Source/Modulos/Remesas de cliente/Controller/RemesasCliente_controller.dproj @@ -47,58 +47,18 @@ Delphi.Personality Package - - False - True - False - - - True - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - RemesasCliente_controller.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RemesasCliente_controller.dpk MainSource - - - - - + + + + + @@ -106,10 +66,9 @@ -