From 8fd114c8a005d8ba954ebaa9e8116078a4f97256 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 17 Sep 2010 16:30:58 +0000 Subject: [PATCH] Tienda web git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@74 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- Database/scripts/factuges.sql | 287 ++++++++++++------ Source/Base/Base.RES | Bin 384 -> 4748 bytes Source/Base/Base.dproj | 106 ++++--- Source/Base/Conexion/uDataModuleConexion.dfm | 1 + Source/Base/Utiles/uPasswordUtils.pas | 29 ++ Source/Base/Utiles/uStringsUtils.pas | 10 +- Source/GUIBase/GUIBase.dproj | 48 +-- Source/GUIBase/GUIBase.res | Bin 384 -> 4748 bytes .../Controller/PedidosCliente_controller.drc | 16 + .../Controller/uPedidosClienteController.pas | 22 ++ .../Data/PedidosCliente_data.drc | 17 ++ .../Model/PedidosCliente_model.drc | 16 + .../Plugin/PedidosCliente_plugin.drc | 17 ++ .../Views/PedidosCliente_view.drc | 28 ++ .../RemesasCliente_controller.dproj | 55 +--- .../Controller/RemesasCliente_controller.res | Bin 384 -> 4748 bytes .../Data/RemesasCliente_data.dproj | 49 +-- .../Data/RemesasCliente_data.res | Bin 384 -> 4748 bytes .../Model/RemesasCliente_model.dproj | 52 +--- .../Model/RemesasCliente_model.res | Bin 384 -> 4748 bytes .../Plugin/RemesasCliente_plugin.dproj | 6 +- .../Plugin/RemesasCliente_plugin.res | Bin 384 -> 4748 bytes .../RemesasCliente_Group.groupproj | 36 ++- .../Views/RemesasCliente_view.dproj | 65 +--- .../Views/RemesasCliente_view.res | Bin 384 -> 4748 bytes 25 files changed, 493 insertions(+), 367 deletions(-) create mode 100644 Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc create mode 100644 Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc create mode 100644 Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc create mode 100644 Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc create mode 100644 Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc 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 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 @@ -