From a9da477f7bdfa6b603e051fe74526ba0bb3c67a9 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 20 Jan 2010 12:44:05 +0000 Subject: [PATCH] Repaso general antes de primera subida a produccion git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@44 f33bb606-9f5c-448d-9c99-757f00063c96 --- Database/scripts/factuges_sysdata.sql | 19 +---- Resources/Logotipos/logo.jpg | Bin 0 -> 8079 bytes .../Empresas/Views/uEditorEmpresa.dfm | 16 +++-- .../Empresas/Views/uViewEmpresa.dfm | 11 +++ .../Usuarios/Views/uEditorPerfilUsuario.dfm | 8 ++- .../Usuarios/Views/uEditorPerfilUsuario.pas | 5 +- .../Usuarios/Views/uEditorPerfilesUsuario.dfm | 4 ++ .../Usuarios/Views/uEditorUsuario.dfm | 44 ++++++++++-- .../Usuarios/Views/uEditorUsuario.pas | 11 ++- .../Controladores/uControllerDetallesBase.pas | 2 +- Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.rc | 3 +- Source/Cliente/FactuGES.res | Bin 171980 -> 171932 bytes Source/GUIBase/GUIBase.identcache | Bin 1701 -> 1701 bytes Source/GUIBase/uEditorBase.pas | 4 +- Source/GUIBase/uEditorPreview.dfm | 37 +++++++++- Source/Informes/1/InformeIVAClientes.fr3 | 61 ---------------- .../1/InformeIVAClientesDesglosado.fr3 | 65 ----------------- .../1/InformeListadoFacturasCliente.fr3 | 63 ---------------- ...nformeListadoFacturasClienteDesglosado.fr3 | 68 ------------------ ...nformeListadoFacturasClientePendientes.fr3 | 39 ---------- ...adoFacturasClientePendientesDesglosado.fr3 | 43 ----------- .../1/InformeListadoRecibosCliPendientes.fr3 | 55 -------------- ...eListadoRecibosCliPendientesDesglosado.fr3 | 59 --------------- .../1/InformeListadoRecibosCliente.fr3 | 52 -------------- ...InformeListadoRecibosClienteDesglosado.fr3 | 56 --------------- Source/Informes/2/InformeIVAClientes.fr3 | 61 ---------------- .../2/InformeIVAClientesDesglosado.fr3 | 65 ----------------- .../2/InformeListadoFacturasCliente.fr3 | 63 ---------------- ...nformeListadoFacturasClienteDesglosado.fr3 | 67 ----------------- ...nformeListadoFacturasClientePendientes.fr3 | 39 ---------- ...adoFacturasClientePendientesDesglosado.fr3 | 43 ----------- .../2/InformeListadoRecibosCliPendientes.fr3 | 55 -------------- ...eListadoRecibosCliPendientesDesglosado.fr3 | 59 --------------- .../2/InformeListadoRecibosCliente.fr3 | 52 -------------- ...InformeListadoRecibosClienteDesglosado.fr3 | 56 --------------- .../uAlbaranesClienteController.pas | 2 +- .../uDetallesAlbaranClienteController.pas | 2 +- .../Views/uEditorAlbaranesCliente.dfm | 1 + .../Views/uEditorAlbaranesCliente.pas | 2 +- .../Articulos_controller.identcache | Bin 483 -> 483 bytes .../Controller/uArticulosController.pas | 6 +- .../Articulos/Views/uViewArticulos.dfm | 1 - .../uDetallesFacturaClienteController.pas | 4 +- .../Data/uDataModuleFacturasCliente.pas | 2 +- .../Model/FacturasCliente_model.identcache | Bin 639 -> 639 bytes .../Views/uEditorFacturasClienteReport.dfm | 2 - .../uFacturasProveedorController.pas | 2 +- .../Views/uEditorPedidosProveedor.dfm | 1 + .../Views/uEditorPedidosProveedor.pas | 2 +- .../uDetallesPresupuestoClienteController.pas | 4 +- .../Views/uEditorReciboCliente.dfm | 32 ++++----- .../Views/uViewReciboCliente.dfm | 32 +++++---- .../uGenerarFacturasCliAlbCliUtils.pas | 24 ++++--- .../uGenerarFacturasProvAlbProvUtils.pas | 2 +- .../uGenerarFacturasProvPedUtils.pas | 2 +- .../uGenerarFacturasCliPreCliUtils.pas | 2 +- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 2 +- Source/Servidor/FactuGES_Server.rc | 2 +- 60 files changed, 198 insertions(+), 1218 deletions(-) create mode 100644 Resources/Logotipos/logo.jpg delete mode 100644 Source/Informes/1/InformeIVAClientes.fr3 delete mode 100644 Source/Informes/1/InformeIVAClientesDesglosado.fr3 delete mode 100644 Source/Informes/1/InformeListadoFacturasCliente.fr3 delete mode 100644 Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 delete mode 100644 Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 delete mode 100644 Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 delete mode 100644 Source/Informes/1/InformeListadoRecibosCliPendientes.fr3 delete mode 100644 Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3 delete mode 100644 Source/Informes/1/InformeListadoRecibosCliente.fr3 delete mode 100644 Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3 delete mode 100644 Source/Informes/2/InformeIVAClientes.fr3 delete mode 100644 Source/Informes/2/InformeIVAClientesDesglosado.fr3 delete mode 100644 Source/Informes/2/InformeListadoFacturasCliente.fr3 delete mode 100644 Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3 delete mode 100644 Source/Informes/2/InformeListadoFacturasClientePendientes.fr3 delete mode 100644 Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3 delete mode 100644 Source/Informes/2/InformeListadoRecibosCliPendientes.fr3 delete mode 100644 Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3 delete mode 100644 Source/Informes/2/InformeListadoRecibosCliente.fr3 delete mode 100644 Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3 diff --git a/Database/scripts/factuges_sysdata.sql b/Database/scripts/factuges_sysdata.sql index 77cefb7..9933ca1 100644 --- a/Database/scripts/factuges_sysdata.sql +++ b/Database/scripts/factuges_sysdata.sql @@ -8,20 +8,6 @@ INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO'); SET GENERATOR GEN_CATEGORIAS_ID TO 4; COMMIT WORK; -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (1, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (3, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (4, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de venta promedio', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (5, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por proveedor', 'Informe de ventas por proveedor y artículo', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (6, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por cliente', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (7, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (8, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de última venta', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (9, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult.venta) por clientes', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de última venta', NULL, 'S'); -INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (10, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de última venta', NULL, 'S'); -SET GENERATOR GEN_INFORMES_ID TO 11; -COMMIT WORK; - - INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, 'REF_PEDIDOS_PROVEEDOR', 'PED08/000001', 'Ref. pedidos de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, NULL, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente'); @@ -99,8 +85,9 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24; COMMIT WORK; -INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); -INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (2, '', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (1, 'B-81150278', 'NOVISEDA S.L.', 'NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, NULL, NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL); +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (2, 'B-81159278', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, '', NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL); + SET GENERATOR GEN_EMPRESAS_ID TO 3; COMMIT WORK; diff --git a/Resources/Logotipos/logo.jpg b/Resources/Logotipos/logo.jpg new file mode 100644 index 0000000000000000000000000000000000000000..7c855165c06d986483b4953b33555987ff2a1099 GIT binary patch literal 8079 zcmb_hXH-+)vOgpgL3)*r1yGQp2nZO;AEZl@9-34k6afLLF<3z9UFl6Aw15z*5Kwv* z2m}a4rH3YwUc%$vx87U#zIE4qAKsh2)_jUz**P9~4KQB5e3|w#BP}f>2Ll}g z2RADtBP%yQ$KQybkAv%iIQaOk3knNf=aZ0-l9G^6{%0a%VqjomVPa!uW@BZ#SX`{^ z?5tcuTwFX{Ttbr9`7Y?Xq^P*Cu&}tOw6vt8w6wCa(m$#=Zv&Vv0TrMCFxfQ##6$*W zB0KK@{4dM~fyu}&?EEhxryv7Uf~fvU_V+zT00aV&fx%!9IRzL@aq(p!0L(;AarF+f z3Jay-lWX305k}Wp6aKQ7V#}*;_X%gue|+PfAk#l8|GT2|X@C}d@m?k{6QBefldCDK zsgbLVpc^YnvX=+L(Z|(@R$(QVe(Bp)DcL@U~%g9 zJ@PifHQ(d?kccOutrZn6pSrZ#S9Ql-AidsVn?!6>$dFr*)QLt&B=2qQA*GxJIgn{o zM1w*BNtpDxkJ8?Z7}8bDlQZrmnsL??v1RWV!;QjNh)tGFRW}{F+-JP;H=~r*bc4=v zorUB(XgfNT2maI2znlAiW4g+Se&X?rHQ&+zq>Bn)e&E_W@@Xg}b$-k1d9jrv6NeIf}{V5tnnu9dS#6O)v1VG0KEI>W5oC?QngIz#&7^t*YV+FGyxKwAgKs`=l8*8(XG7lS+*5Mp2uNXbH$$Q#n!bg5$LE_}_FJ36qdr#q z^J=%abi}_JE2IwQ4(aN@`MuDr@~n<0+bHrlGRk{nGZ?LXw~-)V zGj5N!oXj$Lt1jFK{bY`vsj*Vpy$$LU-Cj7IOua^Fe+_g^;M%`sLPGYGl%dY{|I1^- zsYCJsyJs%QNS9{?<6ED1+~!9i9PR;izvZ1rUgaY|YvYd%~jnyuok zI|hR`@T)ns)CrQ;C|#mFDwAc*+YQw%;@tI(n*EYs&Mjo)@EHu`i^da@21c|Uthl- zd~b5lBU{ewuh}~a5OumT9s1n-g(8T6XJq7+l#qz4-pwas(nNcPmVhHSe)yM^UQb+c zxktbyJluemN z9uU;OMHEwn#K5;KTR1gz;hbIqJ`dC@_c%-qP5aZjXS)qSROf(j!)2O3)0Kt zX<6(y8SWfX5!98s{KgpXmdowPrB^yya@Wc&}GwPKQUg@Q46-P5s_b?*iJq%dvn zMvLISThnf}fTB$1^taQ}7MEOia;nPl?LKqI-yL zVn}vplk`=Z^dUCGQr^iR&M7xqw^0T-#YvE!t!mWx)c0olkwH zNL$*s8X`p_&c?#ZM&zH)G+--EfhsTo`=@RXC8}JNfOuWC} zy_q~28TWnxKCvGR3&;Juq0rs?H5*kN(YY7={H91MW;t z#e4?`v9tL2u!rb>4)l&A)vKp0&w*=?QMOiRcf>2JOde0GTxG4J3d?d*qM05xaIEQe z-iLiu_l@4A`@j{j1-(}%f<@VX-D>@*`qq#@HO92##yPTI0W%Lb%JUw6e^&6}9N0;0 zu@rwkHCYSEo+R|?qo!>}jK++xIcRkOcNQrY$^VBG{GW*|a+Jdjg+BW8Gniz4EMej7 z>aO@85-yBFK@+hoPJJyAx)KQ) z@GrQ(>gHOHsN+hvw+!3m5aja;($_bz>ezWqxZ_{`L zly2E-N#72A@22ij-Rn%Aovk+XK|7Xtd9vAUxx~2dYksMu61As*^Z$0b{`<4{U++>y z*p-^^0*=dOJF$=0x7``vE(`ZWGq9~*&qQ|>S3g2XG=}FNh~X;9ll+^k|ALvT%Lg(n z?`(rR!;3?mYXg;x-oU*)iNf8+?`0TNGiDZPbrfiD7M?G!?FtvkYld*KE?^VF2L|Bp z5KlzzXZU&42bf*WwCr40%+V;uVOKnP>AdL<8 z=A4cr)^ZAG+o2}ua>%nz`uQAO`A`vFPF{heG_z3E9TT<3OrI4IGcrf~T53M`6{Q>K z-$A?9lJQ`?Sw}~e3nvr!4hy3cORp0Z5)3J_``5qCp3>gL<4>{)#*AN!-DU&QK6CACDHrkK-(cYf zDJk{k@u2kK>L+9d7e{H~rOTV1zJl$XBYeVpUSHD88cqTfZtlOl3<3Xl45%X+zOe8wBdH`BeZ40+ju zvG_hx(cHZ~<=-w#kf%71$^jTk^?6!nxi3XLGJCSeqkufi7S7{DNJP~wk5jpIcs*x& zr1m0{L9b=e(+^MLDe8NlH7PO?QEc;78(BJ8;=V;V0Yytc%DGKOc;M)18By=@_-ng! zOI;ZklnRA)DZi`-d2p{p*P)Zu;ZREoAe(mnmnEyopI|%}_Prlt>v-GyFTt<&Qgz$a z&417zC4YJ7@9wohl&O(VG|Cb0qasGK@(AB)spva_?lp5W)SUyVA?9c70gqQ~Z;i=^ z3^$cdRh{I0{}qtwH%E$L{}FeOibx0!`oLVs2TdxD!5x%Se8{{e;p5nRTRWlLht1eA zX_qBw6#L*n!hi0E3%2lA$`BR4knU75cI9eoAcQd86tSeu(YJRFXlC92pk{3FUb0k@ zYEs|ezu=mspN+SNbMxbee~8d@nQiM(n3v}`(&1F-NQao!Ue+o9_F*uF!fbt!Aw+p> zC(8*fwzz44+mI6>weo9)-B9GqafqHkVNIn@)iVAY$L}yo{ZnmrN7@>VQXZVBa5z)D z#GU^Xm^hS?X4dhBR_t`cVN!&rU!g+V4Q6#%8m@Jh zgR?9iUr#cdKXQyMZGEYXZ!Yz~a*c;w7g2inSgNHQ=Za=~?hZf{wB$~!r9I}POM-_D zUP0_&Q$#&TSBN#NJJlP@P=1ix%Jm!tZ{tUKf3ynNSaRL>EAcBGi4yaE$$?{@PM;`E zMW2;`;(mfhG7rT4pC7p$xO!WAeyHi+Z{*AQDSyk5_~-`yJ4Nr#r&m?G*Kv}vYed(Y zUt&n4%sEiYU*f%=5U5BkRy48DgPVHhdy3k36`3BL6Em$nFgNDn(g zXFG_*Se1weQI?zo%apC4A?;~*h14=>+fmXC0IE9vSO&9P81g=lGaxV|f+s`Ccd={P zrcLWL-B3Gj3*#Ts1$B;?%?wgdOLiWeV2FMZ?PZIP?>_v`8Yx=~jJ(e*K7T9klWk+Q zPibrxJ$w^nHL&7!l*U7OZ+suRTB@9l-d9xZWktid*l2lV7p?dw$T10XXz$eG#~uyZ zDRAFA$68j-jT7JV6CYR@1TtXCE9U-8FYig?Za2+it72!J7U@M-_TXkFZ4eVgcUV&X z;cS!(L&d_d62W#p@Zl%WH^-8NB;%4;^XR{U1+veiOH*? zD&bHi6`|k94mxo~ar{&?5B^|}LI)~le$O7Uw>Dl)v!H9}c0LEjC4LAwXYBj!VO#bq z+$i-Ey0whvC4MsgtgurEe8JDZg9v1nsU&6pdW%E5le^@tLp(Ou*G6$0m^V7J(R4f4 zUAIP>%bP7XmmaUsMY}N9do5)ueyT93B0*0D@)R~>s9Hx{eKV?r z>dT??S&4j2SUCBs`{zJ%6@Gd5IomnFsL{}J(l2`?RkrATLZ>I+U^ALwv$U*e)XXYi zXh89bzklZ-7G8{aMCMUix=l4>@eKK!`E_se*S$g8i!>$Wj{j22xi zI2^X**{|H(EH^2cd^}nv&jK11A|JRI1$DgZ@sV~FK?=;e?v#Gnb5=S`T#@)AE@eNW zalNQ;wi14~1UPMSvMBkH*MW!K%Y=9-f@4saY%Y&=9XHHDPU6W8 z$54(n86Se_=A&3bDurlvPI3(bG{o?}Hhh|J2e;FA4onV;?Q9BqL7Z!>vJ04?)rLD4pAAQxOAWZHnbC!+Xa`u=O;bUPM?xyI;mH6iJMkmI4rBE z;KF}!O|+J7YbW>~aR%kyY+EI#6?tQD0sG3rC6UyXgi*p=@mVEJ&i4Vl+hZv7$yb4X z{;HJIG&y8Ji3IUau-QFRg<6`hTjk?(Eu&@P+FGUGmPoTO0<(qpiL}r0X2zEo|0A+E zc7P9&YUYh+bMxsLw4e1n9Q@FBX?924zaa+JKcyvqLQ8Xk-h~7&lPf~s>1;uF*SZLC zB3nvT4r3Rseq3>)b!|=1$P?-KXOd*Y?!7_R2&}G?muYZ2%|{s9FSEfjOf-D2KQx&eV0+N)#F0X)ZT-zTg z8acE0@j+9|&4P|lM8@i28i(z>nxSQ0^JbU+y|kKMC*B_Zayt2A`SkvUhqo-V8w?@t z^EPOP(1=b^K8;-#(-px_e*;>#((G5*oF9VL98<%yTLM81$NU0SYw*ceYarXp7N3je ztB#aYs- z`LG2XQ|@28g`?`2{G@Ws+4DJE97HC-1`E!3Q+;WK(LZf1FCVR?Sn~CaL$+q{Wk$$dNAF~-Rfyth=wMgcBwMt8M zRJR&bzt59eG>-HqtY$wULxrN;G>~s;e)y*!#=%Ik=0?W370Mz$3R;c`>@MQ#jHv2U9~AzkYdGh++PT@M?U+JM-@;onIOF*;()^#S;6xl1rpE9S7=GaVG~W~ci@ni9iO9$PTnCdK2|@0VgLhu=Tk!>&Sp(Ff;r zZ^}Cvl(PC803?>Um5tC=xUJTPn(@Y^-uCSYitf%@`ZOj@KM-CcBVj#zbh_WDP{usO zBsd9-FG5?rc?dA5++9t*Wk!~KKvjb13`uCL)Q~k%;d;Jn(q&OYa`oGR%myDWO(-)@ z1MD|Xj{A$)Dja1f?Cj!n^`Hw)DJTf0T9sk5?7jg#hY*#8oPN4HnRAx7uL@k$Sdza; zjUd{T;k(%Y=ZolAq4ZS}9hs;P(A#_iD)QoXKc;P~A76ZtUYoGqREX-nPEP*~wUfDE zYb!?d2#uBYHFB6mt1Ez>=(sH}ivz~D3Ei{qNrDkG;Qwi&9FtU5Gctmq} z=G=H(@2J0gm!B>V2JZ2aZLEeb=I*h*nxr-);!WptbWBfxaeBI_92V?BZ`Pv#m>6uq z{_rLZL;Qw<^3Y(JdP|yQUw)znR?qgAe0Ip&l^f_2Ke?Uquomaxu@F>P7$4~PVaV;wKUFwtMzkV*cM9dk(v%? zMiA(x%xRhbpyv%VIo$lU*xIk)K@9KY!~?z0f|1&lmy8tJs&Nwq))dc8(IsndSTgXT zp~ER7+PB!(qg!4T7or!B&gi(TD#F*(@<(%$Ty~k$7T9AdHe>Z&%b>Sc8=oY?HF=+X zOeZvzsYu^{CeK_9acSWEkS$g%qU!Wo1m)wXySY_XNsqoQSqDB-&9SYe_MbJm>5dM+ zb|Caum{;VEz{d4ghw(~RPhGOYF6$K$eVsPo-smWoLoE~U<9ms2`L)8Wtjf!>W+VnX zpBX#Yy?ur~5j`Y{rDSy4deCy;P`l#QRcJ$cqhJ9^arfB+kn94!gjXmowyc<;l84Qm z)q z+r=K*stFv*GNq{cjY=GD8|*&NE)WnM$@wl4QRZSTBl_DLPkcl)9 zkEt!oXe)n3jbc3WoPf{z?<|vQ?vsceQ!!HBKBYO|^|0jMBlB))kSx{yNQ92d>85dv zLrlaom1(Q1wv89lfwM z1%BZ&#DBnBKWpTK%hdFN;?BcO*Jj?TX12kj7%e zaUiehM6-ab$&(qTb-@mLz4_=rb$3Tk6Fdww)Q3~aF$?zx!=%h%BZ&$%IWrw+j+2OY zszaw?vnMz&y>`7Gqw?-bjY3Q$PdE3@&?7Or-mQ$Xzb=(9n?xQjTNBwlr%K0Ho5sDb zK)EY#^dP!DLVOnwV!uQx+BP`7%x*Xb-foRA%E)S}bBdbj_xbIB#A9Q)?$NmNQu#yh zd)f8Uw`THI8=R~h6!SGBd60*(v!?9h^Fb+*L<8>><^_#6xbd2Km*6c@Fhi=6mJ{R6 zR+XL7#_-gLeH5xV_3jn^@;9j8pV;1DJV$*~jUn>>-J^a&0*^7BhXsXx6mX;4o)t;! zADQDKCoXYwo8pa_7EIwh)T3&bf-{|qwmy!b;RVq*`4Yo1uT4y%MW;VE>Dxun$u}U( zxi@ zZJkfv^Sr4hHl7K-9ctS6j+GNZjfp&SUPY7`71&Pp?(F;~4lhMJU?zkn5$99?0phJ8 AkN^Mx literal 0 HcmV?d00001 diff --git a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm index d432a4a..4babb22 100644 --- a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm +++ b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm @@ -326,8 +326,6 @@ inherited fEditorEmpresa: TfEditorEmpresa StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 165 - ExplicitWidth = 202 - Width = 202 end inherited cbTipoIVA: TcxComboBox Top = 138 @@ -336,8 +334,6 @@ inherited fEditorEmpresa: TfEditorEmpresa StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 138 - ExplicitWidth = 202 - Width = 202 end end end @@ -371,6 +367,18 @@ inherited fEditorEmpresa: TfEditorEmpresa inherited ToolBar1: TToolBar Width = 660 ExplicitWidth = 660 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end end end end diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm index cf5b535..9215ae1 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm +++ b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm @@ -23,6 +23,7 @@ inherited frViewEmpresa: TfrViewEmpresa Width = 23 Height = 22 Action = actEliminar + Enabled = False PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object PngSpeedButton2: TPngSpeedButton @@ -31,6 +32,7 @@ inherited frViewEmpresa: TfrViewEmpresa Width = 23 Height = 22 Action = actAnadir + Enabled = False PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object eCalle: TcxDBTextEdit @@ -148,6 +150,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 388 DataBinding.DataField = 'NOTAS' DataBinding.DataSource = DADataSource + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.LookAndFeel.Kind = lfStandard @@ -329,6 +332,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 277 DataBinding.DataField = 'LOGOTIPO' DataBinding.DataSource = DADataSource + Enabled = False Properties.Stretch = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D @@ -350,6 +354,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 220 DataBinding.DataField = 'PARAM_MARGEN' DataBinding.DataSource = DADataSource + Enabled = False Properties.OnValidate = eParamMargenPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D @@ -375,6 +380,7 @@ inherited frViewEmpresa: TfrViewEmpresa Top = 220 DataBinding.DataField = 'PARAM_TIEMPO' DataBinding.DataSource = DADataSource + Enabled = False Properties.Alignment.Horz = taRightJustify Properties.OnValidate = eParamTiempoPropertiesValidate Style.BorderColor = clWindowFrame @@ -551,6 +557,8 @@ inherited frViewEmpresa: TfrViewEmpresa end object dxLayoutControl1Group13: TdxLayoutGroup Caption = 'Datos cat'#225'logo art'#237'culos' + Enabled = False + Visible = False LayoutDirection = ldHorizontal object dxLayoutControl1Item18: TdxLayoutItem Caption = 'Margen de venta:' @@ -609,6 +617,8 @@ inherited frViewEmpresa: TfrViewEmpresa AlignHorz = ahClient AlignVert = avClient Caption = 'Observaciones' + Enabled = False + Visible = False object dxLayoutControl1Item8: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient @@ -674,6 +684,7 @@ inherited frViewEmpresa: TfrViewEmpresa AlignHorz = ahClient AlignVert = avClient Caption = 'Logotipo' + Enabled = False Visible = False LayoutDirection = ldHorizontal object dxLayoutControl1Item17: TdxLayoutItem diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm index ce97dfe..764caa2 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm @@ -2,6 +2,12 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario Caption = 'fEditorPerfilUsuario' PixelsPerInch = 96 TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + inherited lblDesbloquear: TcxLabel + AnchorX = 821 + AnchorY = 14 + end + end inherited TBXDock: TTBXDock inherited tbxMain: TTBXToolbar ExplicitWidth = 330 @@ -11,7 +17,7 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 638 + ExplicitWidth = 887 ExplicitHeight = 332 end end diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas index 45fb379..5a90110 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas @@ -9,7 +9,8 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase, - uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels; + uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls, + cxContainer, cxEdit, cxLabel; type TfEditorPerfilUsuario = class(TfEditorDBItem, IEditorPerfilUsuario) @@ -74,8 +75,8 @@ end; constructor TfEditorPerfilUsuario.Create(AOwner: TComponent); begin inherited; - pgPaginas.ActivePageIndex := 0; AsignarVista; + pgPaginas.ActivePageIndex := 0; end; destructor TfEditorPerfilUsuario.Destroy; diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm index 5c38073..f74d912 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm @@ -37,5 +37,9 @@ inherited fEditorPerfilesUsuario: TfEditorPerfilesUsuario inherited actDuplicar: TAction Visible = False end + inherited actExportarExcel: TAction + Enabled = False + Visible = False + end end end diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm index 9f64d64..32a573b 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm @@ -2,6 +2,12 @@ inherited fEditorUsuario: TfEditorUsuario Caption = 'fEditorUsuario' PixelsPerInch = 96 TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + inherited lblDesbloquear: TcxLabel + AnchorX = 821 + AnchorY = 14 + end + end inherited TBXDock: TTBXDock inherited tbxMain: TTBXToolbar ExplicitWidth = 465 @@ -22,10 +28,14 @@ inherited fEditorUsuario: TfEditorUsuario end inherited pgPaginas: TPageControl inherited pagGeneral: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 887 + ExplicitHeight = 332 inline frViewUsuario1: TfrViewUsuario Left = 0 Top = 0 - Width = 638 + Width = 887 Height = 332 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -36,14 +46,14 @@ inherited fEditorUsuario: TfEditorUsuario ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 638 + ExplicitWidth = 887 ExplicitHeight = 332 inherited dxLayoutControlArticulo: TdxLayoutControl - Width = 638 + Width = 887 LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 638 + ExplicitWidth = 887 DesignSize = ( - 638 + 887 249) inherited PngSpeedButton3: TPngSpeedButton Top = 84 @@ -51,12 +61,20 @@ inherited fEditorUsuario: TfEditorUsuario end inherited eNombre: TcxDBTextEdit Top = 30 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 30 ExplicitWidth = 164 Width = 164 end inherited eUsuario: TcxDBTextEdit Top = 57 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 ExplicitWidth = 108 Width = 108 @@ -64,22 +82,38 @@ inherited fEditorUsuario: TfEditorUsuario inherited eMail: TcxDBHyperLinkEdit Top = 84 Properties.Prefix = 'mailto:' + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 84 end inherited ePassword: TcxTextEdit Top = 163 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 163 ExplicitWidth = 121 Width = 121 end inherited eConfirmarPassword: TcxTextEdit Top = 190 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 190 ExplicitWidth = 372 Width = 372 end inherited cbPerfil: TcxComboBox Top = 112 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 112 end end diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas index 2a70d10..73e1b92 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas @@ -9,7 +9,7 @@ uses StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane, uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario, - uBizUsuarios, dxLayoutLookAndFeels; + uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel; type TfEditorUsuario = class(TfEditorDBItem, IEditorUsuario) @@ -24,6 +24,7 @@ type procedure actEliminarUpdate(Sender: TObject); procedure actCambiarPasswordExecute(Sender: TObject); procedure actCambiarPasswordUpdate(Sender: TObject); + procedure FormShow(Sender: TObject); private FController : IUsuariosController; FUsuario : IBizUsuario; @@ -57,7 +58,7 @@ implementation {$R *.dfm} uses - uDialogUtils, cxControls; + uDialogUtils; { TfEditorUsuario } @@ -106,6 +107,12 @@ begin end; end; +procedure TfEditorUsuario.FormShow(Sender: TObject); +begin + inherited; +// +end; + function TfEditorUsuario.GetController: IUsuariosController; begin Result := FController; diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas index f1d6220..4139cbd 100644 --- a/Source/Base/Controladores/uControllerDetallesBase.pas +++ b/Source/Base/Controladores/uControllerDetallesBase.pas @@ -300,7 +300,7 @@ procedure TControllerDetallesBase.CalculoDetalleDescuento( ImporteDto : Double; Redondeado : Double;} begin -//Este metodo calcula el descuento por capitulo que no se activa para tecsitel +//Este metodo calcula el descuento por capitulo que no se activa para noviseda { with DataTable do begin if not Editing then Edit; diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index e813878..9276bf9 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1000FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.0.0FactuGES1.0.0.02.0.0.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1000FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.0.0FactuGES1.0.0.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 98e844d..7123305 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -15,8 +15,7 @@ BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "FileVersion", "1.0.0.0\0" VALUE "InternalName", "FactuGES\0" - VALUE "ProductName", "1.0.0.0\0" - VALUE "ProductVersion", "2.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 808c1e5e1928e8ffdb2dbd39085bc6c21a5a3c61..ef3676423ad59b9e4e13001ebad3409d67da8262 100644 GIT binary patch delta 57 zcmX@JpKH#3u7(!IEldaIGVYmva4wTPka{?mDVkAcy6rqBWu_kt)05^g9hx38pGjr9 N%X}t*=^gW#TmZ8g7G3}V delta 100 zcmbQUpXA=}GgL4(S>&a4;}3 v1TYjag$sSB@K%xJWyBIYl=16VsV>-w< gc?wJKBSzI^IV`XOq0OxKPVE_OC delta 77 zcmZ3=yOei=%j7;rjmafUQj>idRVEuSu}$10K6xIi#>5<%$ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeIVAClientesDesglosado.fr3 b/Source/Informes/1/InformeIVAClientesDesglosado.fr3 deleted file mode 100644 index a83d27e..0000000 --- a/Source/Informes/1/InformeIVAClientesDesglosado.fr3 +++ /dev/null @@ -1,65 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasCliente.fr3 b/Source/Informes/1/InformeListadoFacturasCliente.fr3 deleted file mode 100644 index 125e3a9..0000000 --- a/Source/Informes/1/InformeListadoFacturasCliente.fr3 +++ /dev/null @@ -1,63 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 deleted file mode 100644 index 87ba4bf..0000000 --- a/Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3 +++ /dev/null @@ -1,68 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 deleted file mode 100644 index d606d18..0000000 --- a/Source/Informes/1/InformeListadoFacturasClientePendientes.fr3 +++ /dev/null @@ -1,39 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 deleted file mode 100644 index 92daa20..0000000 --- a/Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3 +++ /dev/null @@ -1,43 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/1/InformeListadoRecibosCliPendientes.fr3 deleted file mode 100644 index e474289..0000000 --- a/Source/Informes/1/InformeListadoRecibosCliPendientes.fr3 +++ /dev/null @@ -1,55 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3 deleted file mode 100644 index 78b8dd0..0000000 --- a/Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3 +++ /dev/null @@ -1,59 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosCliente.fr3 b/Source/Informes/1/InformeListadoRecibosCliente.fr3 deleted file mode 100644 index 47ddd65..0000000 --- a/Source/Informes/1/InformeListadoRecibosCliente.fr3 +++ /dev/null @@ -1,52 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3 deleted file mode 100644 index 3b7324a..0000000 --- a/Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3 +++ /dev/null @@ -1,56 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeIVAClientes.fr3 b/Source/Informes/2/InformeIVAClientes.fr3 deleted file mode 100644 index 80da615..0000000 --- a/Source/Informes/2/InformeIVAClientes.fr3 +++ /dev/null @@ -1,61 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeIVAClientesDesglosado.fr3 b/Source/Informes/2/InformeIVAClientesDesglosado.fr3 deleted file mode 100644 index cf3e1e9..0000000 --- a/Source/Informes/2/InformeIVAClientesDesglosado.fr3 +++ /dev/null @@ -1,65 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasCliente.fr3 b/Source/Informes/2/InformeListadoFacturasCliente.fr3 deleted file mode 100644 index 8f71b0f..0000000 --- a/Source/Informes/2/InformeListadoFacturasCliente.fr3 +++ /dev/null @@ -1,63 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3 deleted file mode 100644 index 59ac922..0000000 --- a/Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3 +++ /dev/null @@ -1,67 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/2/InformeListadoFacturasClientePendientes.fr3 deleted file mode 100644 index 256d0bb..0000000 --- a/Source/Informes/2/InformeListadoFacturasClientePendientes.fr3 +++ /dev/null @@ -1,39 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3 deleted file mode 100644 index 4987383..0000000 --- a/Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3 +++ /dev/null @@ -1,43 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/2/InformeListadoRecibosCliPendientes.fr3 deleted file mode 100644 index 191ae4b..0000000 --- a/Source/Informes/2/InformeListadoRecibosCliPendientes.fr3 +++ /dev/null @@ -1,55 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3 deleted file mode 100644 index bd598f6..0000000 --- a/Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3 +++ /dev/null @@ -1,59 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosCliente.fr3 b/Source/Informes/2/InformeListadoRecibosCliente.fr3 deleted file mode 100644 index e11ffda..0000000 --- a/Source/Informes/2/InformeListadoRecibosCliente.fr3 +++ /dev/null @@ -1,52 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3 deleted file mode 100644 index bc4c287..0000000 --- a/Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3 +++ /dev/null @@ -1,56 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index fb03ca2..16835cf 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -167,7 +167,7 @@ uses uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente, schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase, -// Pedidos no estará en TECSITEL +// Pedidos no estará en noviseda // uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, schPedidosClienteClient_Intf, uDialogUtils, Windows, Forms, Dialogs, uGUIBase, uIntegerListUtils, diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas index 0349e82..e2ac039 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas @@ -187,7 +187,7 @@ end; procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno +//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if Assigned(AArticulos) then diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm index 3939739..fb21a9c 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm @@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente Caption = 'Lista de albaranes de cliente' ClientWidth = 583 ExplicitWidth = 591 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas index 970f44b..7c39a8d 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas @@ -91,7 +91,7 @@ implementation uses uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App, uGenerarFacturasCliAlbCliUtils, -//En tecsitel no estaran habilitados los pedidos +//En noviseda no estaran habilitados los pedidos // uPedidosClienteController, uBizPedidosCliente, uDialogUtils, schAlbaranesClienteClient_Intf, // uFacturasClienteController, uBizFacturasCliente, diff --git a/Source/Modulos/Articulos/Controller/Articulos_controller.identcache b/Source/Modulos/Articulos/Controller/Articulos_controller.identcache index 0386652293b96ad2425e21a55458a48c3f94e924..e31e4f4a28d9d2a8bde0ad31ad833d343ca1a28e 100644 GIT binary patch delta 26 icmaFN{Fr%y&BO(~lQS6QC$gkWJQh1KBW`j#V+;V0OA2iO delta 26 icmaFN{Fr%y&BO&dlQkLRCZ36%m|-!|MrU$6V+;V4mI`bD diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 1ae4c614..c073c84 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -182,7 +182,7 @@ function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: In begin ShowHourglassCursor; try -//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente +//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente // if (AClienteID = -1) then Result := BuscarTodos; // else @@ -217,7 +217,7 @@ function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClie begin ShowHourglassCursor; try -//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente +//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente // if (AClienteID = -1) then Result := BuscarTodosPorProveedor; // else @@ -254,7 +254,7 @@ end; function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo; begin -//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente +//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente // if not Assigned(ACliente) then // raise Exception.Create('Falta ACliente: BuscarTodos'); diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.dfm b/Source/Modulos/Articulos/Views/uViewArticulos.dfm index 70ea988..2f91a81 100644 --- a/Source/Modulos/Articulos/Views/uViewArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewArticulos.dfm @@ -159,7 +159,6 @@ inherited frViewArticulos: TfrViewArticulos end inherited pnlAgrupaciones: TTBXDockablePanel Top = 436 - Visible = True ExplicitTop = 436 ExplicitWidth = 715 inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas index 051aa2e..84965e1 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas @@ -158,7 +158,7 @@ end; procedure TDetallesFacturaClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP +//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP // if Assigned(AArticulos) then // ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO // else @@ -173,7 +173,7 @@ end; procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno +//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if Assigned(AArticulos) then diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas index f35d201..43eed2b 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas @@ -66,7 +66,7 @@ end; function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente; begin -// + Result := GetItem(ID_NULO) end; function TDataModuleFacturasCliente._GetDetalles: IBizDetallesFacturaCliente; diff --git a/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache b/Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache index 2a1d9cfadb1374ba8b42a6f10bf038f73d9f3e14..0e3b850f8717abd4496777526190c60c1122ea19 100644 GIT binary patch delta 28 kcmey*@}Gs3je&t7YO(^8!{i=DwTXFmC$eNs-o$to0DDpil>h($ delta 32 ocmey*@}Gs3je&t7cCrGK&17jtp~=%3r6*?Joyd|tc@yJV0G0X*PXGV_ diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm index 2a26cba..d2d644b 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm @@ -2,7 +2,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview Caption = 'Previsualizar la factura' ClientWidth = 622 ExplicitWidth = 630 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -20,7 +19,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview ExplicitWidth = 622 end inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 540 object TBXItem58: TTBXItem [1] Action = actExportarRTF Images = SmallImages diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 75b7f4c..26d77fe 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -1015,7 +1015,7 @@ begin ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID); ARecibosProveedorController.EliminarTodo(ARecibos); - //Se cambia la lógica a peticion de tecsitel, en el caso de meter una fecha de vencimiento, + //Se cambia la lógica a peticion de noviseda, en el caso de meter una fecha de vencimiento, //los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento //de la factura. With AFormaPago.Plazos.DataTable do diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm index c454b88..01d48fb 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm @@ -5,6 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor ClientWidth = 700 Position = poDesigned ExplicitWidth = 708 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas index 30e8d6b..c249a2e 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas @@ -345,7 +345,7 @@ procedure TfEditorPedidosProveedor.NuevoInterno; begin inherited; -// Para Tecsitel: No preguntar si hacer el pedido de proveedor +// Para noviseda: No preguntar si hacer el pedido de proveedor // basado en pedido de cliente. { Respuesta := JsNuevoPedidoProveedorDialog.Execute; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas index 60a056c..4dafade 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas @@ -162,7 +162,7 @@ end; procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP +//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP // if Assigned(AArticulos) then // ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO // else @@ -177,7 +177,7 @@ end; procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin -//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno +//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos. if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then if Assigned(AArticulos) then diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index 1ee7574..573c75e 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -68,8 +68,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Left = 0 Top = 0 Width = 677 - Height = 335 - Align = alTop + Height = 301 + Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 @@ -82,12 +82,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitHeight = 335 inherited dxLayoutControl1: TdxLayoutControl Width = 677 - Height = 335 + Height = 301 ExplicitWidth = 677 ExplicitHeight = 335 DesignSize = ( 677 - 335) + 301) inherited eReferencia: TcxDBTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -123,53 +123,53 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Width = 315 end inherited eFechaEmision: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eFormaPago: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eNombreCliente: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end inherited eNifCif: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end @@ -206,12 +206,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Width = 217 end inherited eCuenta: TcxDBTextEdit - Left = 441 + Left = 438 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 438 ExplicitWidth = 214 Width = 214 end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm index 09f0e75..94ff798 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm @@ -1,22 +1,24 @@ inherited frViewReciboCliente: TfrViewReciboCliente - Width = 795 - Height = 333 - ExplicitWidth = 795 - ExplicitHeight = 333 + Width = 856 + Height = 450 + ExplicitWidth = 856 + ExplicitHeight = 450 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 795 - Height = 333 + Width = 856 + Height = 450 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 795 + ExplicitHeight = 333 DesignSize = ( - 795 - 333) + 856 + 450) object eReferencia: TcxDBTextEdit Left = 120 Top = 30 @@ -126,7 +128,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 314 end object eFechaEmision: TcxDBTextEdit - Left = 545 + Left = 529 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' @@ -156,7 +158,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eFormaPago: TcxDBTextEdit - Left = 545 + Left = 529 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FORMA_PAGO_FACTURA' @@ -186,7 +188,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eImporteTotal: TcxDBCurrencyEdit - Left = 545 + Left = 529 Top = 111 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' @@ -222,7 +224,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eNombreCliente: TcxDBTextEdit - Left = 545 + Left = 529 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_CLIENTE' @@ -252,7 +254,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 228 end object eNifCif: TcxDBTextEdit - Left = 545 + Left = 529 Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_CLIENTE' @@ -400,7 +402,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 216 end object eCuenta: TcxDBTextEdit - Left = 545 + Left = 529 Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DATOS_BANCARIOS' @@ -498,6 +500,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object dxLayoutControl1Group8: TdxLayoutGroup AutoAligns = [aaVertical] + AlignHorz = ahClient Caption = 'New Group' ShowCaption = False ShowBorder = False @@ -548,6 +551,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object dxLayoutControl1Group7: TdxLayoutGroup AutoAligns = [aaHorizontal] + AlignVert = avClient Caption = 'Observaciones' object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaHorizontal] diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas index b61ef6b..f02a9a2 100644 --- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas @@ -220,8 +220,9 @@ begin // if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del albaran seleccionados a su factura correspondiente?', [])) = IDYES) then // Result := GenerarFacturaCliAlb(AAlbaran) // else +// Result := GenerarFacturaCliAlb(AAlbaran, False); //Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1. - Result := GenerarFacturaCliAlb(AAlbaran, False); + Result := GenerarFacturaCliAlb(AAlbaran); end; if Assigned(AAlbaranesClienteController) then @@ -299,10 +300,13 @@ begin if Assigned(AAlbaranes) then begin - if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then - Result := GenerarFacturaCliAlb(AAlbaranes) - else - Result := GenerarFacturaCliAlb(AAlbaranes, False); +// if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then +// Result := GenerarFacturaCliAlb(AAlbaranes) +// else +// Result := GenerarFacturaCliAlb(AAlbaranes, False); +//Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1. + Result := GenerarFacturaCliAlb(AAlbaranes); + end; if Assigned(AAlbaranesClienteController) then @@ -357,7 +361,9 @@ begin AAlbaranesController.RecuperarCliente(AListaAlbaranes); AListaAlbaranes.Cliente.DataTable.Active := True; AFacturas.Cliente := AListaAlbaranes.Cliente; - AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO; + AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO; + AFacturas.DATOS_BANCARIOS := AListaAlbaranes.DATOS_BANCARIOS; + AFacturas.PERSONA_CONTACTO := AListaAlbaranes.PERSONA_CONTACTO; //Si el albaran es de tipo devolución hacemos la factura de tipo abono if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then @@ -385,7 +391,7 @@ begin Edit; CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el + IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; @@ -404,7 +410,8 @@ begin // Añado el contenido del albarán CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles); - AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO); +//No hay porte en noviseda +{ AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO); with AFacturaActual.Detalles do begin Edit; @@ -413,6 +420,7 @@ begin IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE; Post; end; +} // Añado el resumen AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL); diff --git a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas index a8bb813..d0d4414 100644 --- a/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas +++ b/Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas @@ -402,7 +402,7 @@ begin Edit; CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el + IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas index e1462b2..6c0bceb 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas @@ -361,7 +361,7 @@ begin Edit; CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el + IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas index ea200d8..9d5d0c6 100644 --- a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas +++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas @@ -353,7 +353,7 @@ begin Edit; CONCEPTO := 'Presupuesto ' + AListaPresupuestos.REFERENCIA; CANTIDAD := 1; - IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los presupuestos por lo tanto el + IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los presupuestos por lo tanto el //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE) Post; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index e8dd9443c23787908d58272582b85a2f18e6e8db..be644cdaa0ea96e69bf88ae04daaffd757ce86e8 100644 GIT binary patch delta 83 zcmZ3mm2t&Z#tnBO7}rd`8zB!Q|3*YJa!rnmRAziOxi+$zIg3Gc^6yA_@l1x73`Gpd n4EYQ>45s7)%*V7#Jo;M!5q3{}~xP delta 75 zcmZ3nm2tsV#tnBO7?(`G8zB!Q|3*YJvP_PQRAziIxi+$zIfX%K^6yA_!9<24h7yKU ehGGUC1_cH~2FuBYQR?iL3|0)r42F{vquc=@`4?;e diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 4c7f5c0..28d8ace 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -35,7 +35,7 @@ Delphi.Personality - FalseTrueFalse/standaloneTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0viernes, 15 de enero de 2010 17:13 + FalseTrueFalse/standaloneTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0miércoles, 20 de enero de 2010 11:54 ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 04fb6da..62f8a20 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "martes, 19 de enero de 2010 19:31\0" + VALUE "CompileDate", "miércoles, 20 de enero de 2010 12:54\0" END END BLOCK "VarFileInfo"