From 0f266dfbec0ae8c7c91e816d009aba0f4dea5c95 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 12 May 2008 16:41:52 +0000 Subject: [PATCH] Arreglo en Cajas/Bancos para que el objeto de negocio de la vista sea el mismo que el del editor, y cierre de caja git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@219 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 16 +- Resources/Iconos/Cuentas/16x16/cierre.png | Bin 0 -> 1016 bytes Resources/Iconos/Cuentas/24x24/cierre.png | Bin 0 -> 601 bytes Resources/Iconos/Cuentas/28x28/cierre.png | Bin 0 -> 1206 bytes Source/Base/Base.dproj | 82 +- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/Cliente/FactuGES.dproj | 22 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes Source/GUIBase/uEditorDBBase.dfm | 1 + Source/GUIBase/uEditorDBItem.dfm | 4 +- Source/GUIBase/uViewDetallesGenerico.pas | 17 + Source/Informes/InfFacturaCliente.fr3 | 20 +- .../Controller/Contabilidad_controller.dpk | Bin 2300 -> 2374 bytes .../Controller/Contabilidad_controller.dproj | 49 +- .../View/uIEditorExtractoMovimientos.pas | 23 + .../Controller/uApuntesController.pas | 80 +- .../Controller/uAsientosController.pas | 128 +- .../Data/uDataModuleContabilidad.dfm | 18 + .../Data/uDataModuleContabilidad.pas | 20 +- .../Model/Data/uIDataModuleContabilidad.pas | 3 +- .../Model/schContabilidadClient_Intf.pas | 371 +++- .../Model/schContabilidadServer_Intf.pas | 375 +++- .../Contabilidad/Model/uBizAsientosServer.pas | 46 + .../Modulos/Contabilidad/Model/uBizDiario.pas | 127 ++ .../Plugin/uPluginContabilidad.dfm | 90 + .../Plugin/uPluginContabilidad.pas | 21 +- .../Servidor/srvContabilidad_Impl.dfm | 61 +- .../Servidor/srvContabilidad_Impl.pas | 23 +- .../Contabilidad/Views/Contabilidad_view.dpk | Bin 3417 -> 4119 bytes .../Views/Contabilidad_view.dproj | 40 +- .../Views/uContabilidadViewRegister.pas | 4 +- .../Contabilidad/Views/uEditorAsiento.dfm | 140 +- .../Contabilidad/Views/uEditorAsiento.pas | 19 +- .../Contabilidad/Views/uEditorDiario.dfm | 5 - .../Contabilidad/Views/uEditorDiario.pas | 6 +- .../Views/uEditorExtractoMovimientos.dfm | 1618 +++++++++++++++++ .../Views/uEditorExtractoMovimientos.pas | 196 ++ .../Contabilidad/Views/uViewApuntes.dfm | 106 +- .../Contabilidad/Views/uViewApuntes.pas | Bin 5954 -> 6235 bytes .../Contabilidad/Views/uViewDiario.dfm | 10 +- .../Views/uViewExtractoMovimientos.dfm | 188 ++ .../Views/uViewExtractoMovimientos.pas | 258 +++ .../Model/uBizRecibosProveedorServer.pas | 2 +- Source/Servicios/RODLFILE.res | Bin 26675 -> 25804 bytes Source/Servidor/FactuGES_Server.RES | Bin 23488 -> 23340 bytes Source/Servidor/FactuGES_Server.dpr | 7 +- Source/Servidor/FactuGES_Server.dproj | 504 +++-- Source/Servidor/FactuGES_Server.rc | 10 +- 49 files changed, 4086 insertions(+), 632 deletions(-) create mode 100644 Resources/Iconos/Cuentas/16x16/cierre.png create mode 100644 Resources/Iconos/Cuentas/24x24/cierre.png create mode 100644 Resources/Iconos/Cuentas/28x28/cierre.png create mode 100644 Source/Modulos/Contabilidad/Controller/View/uIEditorExtractoMovimientos.pas create mode 100644 Source/Modulos/Contabilidad/Model/uBizAsientosServer.pas create mode 100644 Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.dfm create mode 100644 Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.pas create mode 100644 Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm create mode 100644 Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 652029a7..a0c96888 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1960,6 +1960,7 @@ CREATE VIEW V_CONT_DIARIO( ID_ASIENTO, ID_FACTURA, ID_PAGO, + TIPO, ORDEN_ASIENTO, FECHA_ASIENTO, ID_SUBCUENTA, @@ -1977,6 +1978,7 @@ SELECT CONT_APUNTES.ID_ASIENTO, CONT_ASIENTOS.ID_FACTURA, CONT_ASIENTOS.ID_PAGO, + CONT_ASIENTOS.TIPO, CONT_ASIENTOS.ORDEN, CONT_ASIENTOS.FECHA_ASIENTO, CONT_APUNTES.ID_SUBCUENTA, @@ -4200,7 +4202,10 @@ declare variable debe numeric(11,2); declare variable haber numeric(11,2); begin /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ - SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.REFERENCIA, PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO, + SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, + RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE, + PAGOS_CLIENTE.FECHA_PAGO, + PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION, RECIBOS_CLIENTE.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO FROM PAGOS_CLIENTE LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO) @@ -4287,12 +4292,15 @@ declare variable debe numeric(11,2); declare variable haber numeric(11,2); begin /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/ - SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.REFERENCIA, PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO, + SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, + RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE, + PAGOS_PROVEEDOR.FECHA_PAGO, + PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION, RECIBOS_PROVEEDOR.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO FROM PAGOS_PROVEEDOR LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO) - LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) - LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = FACTURAS_PROVEEDOR.ID_PROVEEDOR) +/* LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) (ya no esta atado a las facturas)*/ + LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = RECIBOS_PROVEEDOR.ID_PROVEEDOR) WHERE PAGOS_PROVEEDOR.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO; diff --git a/Resources/Iconos/Cuentas/16x16/cierre.png b/Resources/Iconos/Cuentas/16x16/cierre.png new file mode 100644 index 0000000000000000000000000000000000000000..8554e1f6208673200d83d8f489e768a40628f0d3 GIT binary patch literal 1016 zcmV z000W>0fLJSS^xk51ZP1_K>z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZq00+ z<<^q6(rHWEnd$VO*$2aBb#GA1|MWk6=ljn2&;OkqB+D`^asxjY?bH-j(w131&5FVFsiRX!%Y2l{ITURdI zd8@CnX$Y5W?h-Q0PtO88PEYdmy7o$!hMO@beN-R$bp*Q(?JmGBKK-t}qPrCb|S=_%KXuiT_*7oCT<|=2g|JEZ2&y zM!LTz1kPviu_)m=03(|s{}uPH2W8C^t;%rdnauiVOdg*02ijq%VF>e?Rc4Hi5<5v=|#Jh8;oKUOeI+HH9gYfU=?b+%DdaSKLaAy2 z0CYvhgEdv3ZjZzSG}t4;gok}5Fzk7N9e6GRWYSaW4l3d0B0X)_Y1JB_L=V($l@sR^eTO>c^Yh5rOPF>Hi3z-6`DdnrNIVX@#R%zjs;o$q zN1j(8`vRdpPU$-i-g{h10x)%33}!gI`MJz4N}(V`EFu|X#KkeVos!5A{%@uJhVJ literal 0 HcmV?d00001 diff --git a/Resources/Iconos/Cuentas/24x24/cierre.png b/Resources/Iconos/Cuentas/24x24/cierre.png new file mode 100644 index 0000000000000000000000000000000000000000..264d020224173f61fa629c8d025d5975769867c7 GIT binary patch literal 601 zcmV-f0;c_mP) z000W>0fLJSS^xk51ZP1_K>z@;j(q!3lK=n!AY({UO#lFTB>(_`g8%^e{{R4h=>PzA zFaQARU;qF*m;eA5Z<1fdMgRZ-&q+iXV>(ze>oM8W-%}@Fp}Ws zdA2bv=f8SnpZ&+HeyAO5G%_$SFff=+D?eL+pG$7<=1;GG z{QQ^6a3}vKb{8-*s)`EnNV2dovB-#th5a(oSfilKrJ=4Y?s9m~=l{>&zsmo8C+IFN zZ!&+ozy8`EQI9)Ha-zYkT>n^}-T!NBXDjJ-_s$QtTX)`U{c$Cr8ecduGcYhPyt<-( zi&t6LR$PonNkEiQ@W;@6?6Ijf@NofBrN4XMA$! zKf~+ypBDc*AAg-tOu_TQm!tPiJbwD_;)}aX{~tVhxBnOGvo>O)ni;`7`0oveBj=}Y npRRp+_9&I%cHTQ;3;+xOJwLS|5t3VT00000NkvXXu0mjf*}xk> literal 0 HcmV?d00001 diff --git a/Resources/Iconos/Cuentas/28x28/cierre.png b/Resources/Iconos/Cuentas/28x28/cierre.png new file mode 100644 index 0000000000000000000000000000000000000000..aac1b08b5b3dc328c87d5bc1484bd0ed23049d68 GIT binary patch literal 1206 zcmV;n1WEgeP)sTCScN-a&PV$(`Zq)%;=KG5Z*FI|kOb!uX3c(h3qqqro~ger@z zFvD8Zp@T5a!oV;K+&lNqT|4+dLZMigsb6xEo0I>&zjMxa&;R?ND2m{D1{UiFAcW5r z?fprMiF^}BIlqUo?r=k3{-wkejpR&$PSgIx9Y~({lW+fTK*>H+p*AD^t7?O;{?V|A zSszYz(SSG+e_+K$TqePqit;i(HhdMhgRVR9g4JqP;Kz3K5oF$%PBiFvQMiGxozsSBzaHw0&lazn>2^M1Kfs% z6@6TQm7QsM+JtZR@6$C)CAg&ju3wxSLd+B?ISG7wJ*)IFU#vanwv`m-o~^0U9}`3o z@4M?0ZC0e0B;j%3t(so5z?fi#=QY|F)E8c<+ue|yq>%LW%!#A@V1S`P3*)MqT=zt_ z4AY%U%G7B(j~*&%KrsX#8wrVn-P~A&LEdB>#)*GT!IoeNM`98N85k+r*^{}$_+mnva{5t%Ceos0xd;v-EsseeD*Zif8xrD zvecBBo1Na()L2&Pa0j7%A_B(mv(sT=u?9>x&ivOSLS=@|7xVS$zr1>Iw@xaPpfu0I zxfxu>3QRGtsWbEL>kG@4rA|%wx}m=4WrB<#({>7s-eXx#>1*X59U0h6P7s=5ryNfI zZHFtspa=vAB7%Z)3}Td8k0Hv_0DOieD`m|!M*SN&iXxAv2rzz65IDKp#Eg#I-s~@j zg4t_JblM^FVu(iaa?*_g5K)M7fQ#Z6JRn2Ng7f9Y+KvLfCf)7`z=_|XNFeS>8Vj@n z&xge3fy?3PVnedpVTly0&dEyCk`xPN2|NgT@kE(YcT@uf{K8YZ2+iJrE-Sjk;Nqj*hdh7LcCWaApB)? zkwR?1XfW{TV@e1c@^iQA!_i&xA`ej%!U)R&zZ;6q87e@@J#E0!=Gv+wu6CN4leE(t zGP!3%p`-*U;CbQcAflzyVFMy7@m&X&Q$w-%{Tgdy=)iB|Hjh;y$HnDR=l23&vmhc3 z=Vv*o|NL?ZjRlCVnem$0prSq@J1h0zybD7fSU7=Gcx(~G|A}CE|JPW{C%WFGu%p3G zlI#(Z;1YeL%S>U!Tf)Gp-gq>^>zAi!=Y=EiI|xu0LsDnK#2Es_Dd6*N_5T)N0B(r- U&AbJ80ssI207*qoM6N<$f+ILS MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 9374a523..0606c27b 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,27 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2200FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.0.0FactuGESFactuGES2.2.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2220FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.2.0FactuGESFactuGES2.2.2.0 + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index ae839dac..7ab0d6ea 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,2,0,0 -PRODUCTVERSION 2,2,0,0 +FILEVERSION 2,2,2,0 +PRODUCTVERSION 2,2,2,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.2.0.0\0" + VALUE "FileVersion", "2.2.2.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.2.0.0\0" + VALUE "ProductVersion", "2.2.2.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 874ce33d6035ff6b7d05cdc45a3ade25bb864ff2..2757621f6e9b91404d926bf22228d339025f13c1 100644 GIT binary patch delta 42 vcmcbxpX - ExplicitTop = 442 - ExplicitWidth = 652 + ExplicitTop = 440 + ExplicitWidth = 650 object imgStatus: TImage Left = 3 Top = 3 diff --git a/Source/GUIBase/uViewDetallesGenerico.pas b/Source/GUIBase/uViewDetallesGenerico.pas index 1689fae0..68acbcc0 100644 --- a/Source/GUIBase/uViewDetallesGenerico.pas +++ b/Source/GUIBase/uViewDetallesGenerico.pas @@ -13,6 +13,8 @@ uses type IViewDetallesGenerico = interface(IViewBase) ['{CA4BD183-1DCD-453D-A1A2-A3B7349BBE40}'] + procedure GotoFirst; + procedure GotoLast; end; TfrViewDetallesGenerico = class(TfrViewBase, IViewDetallesGenerico) @@ -51,6 +53,9 @@ type procedure EliminarInterno; virtual; function GetModified: Boolean; override; + public + procedure GotoFirst; virtual; + procedure GotoLast; virtual; end; implementation @@ -196,6 +201,18 @@ begin Result := DataTableModified(dsDetalles.DataTable) or inherited GetModified; end; +procedure TfrViewDetallesGenerico.GotoFirst; +begin + if Assigned(cxGrid.ActiveView) then + cxGrid.ActiveView.DataController.GotoFirst; +end; + +procedure TfrViewDetallesGenerico.GotoLast; +begin + if Assigned(cxGrid.ActiveView) then + cxGrid.ActiveView.DataController.GotoLast; +end; + function TfrViewDetallesGenerico.HayDatos: Boolean; begin Result := Assigned(dsDetalles.DataTable) and diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3 index 41b58244..a2b5c387 100644 --- a/Source/Informes/InfFacturaCliente.fr3 +++ b/Source/Informes/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -35,16 +35,16 @@ - + - - - - - - - + + + + + + + @@ -75,7 +75,7 @@ - + diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk index dd0ccd806d8c884cb0f01c594927258b0fc8e012..3cc8593a4519a92f53aabc4eb546b06175b3ed10 100644 GIT binary patch delta 71 zcmew(cuZ)+JC4ca?0kY1B}IwJCHcPjWtq8|sd**&lP9u^sA7l~>lGvxt6TGO@p7f+ MrRec;F)%Oy0O@KNX#fBK delta 22 dcmX>m^ha>RI}Sc;UM^m))VvfuUM>a(1^`uy1%Chl diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj index 7a0a1fb2..74948bfa 100644 --- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj +++ b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj @@ -41,36 +41,13 @@ Delphi.Personality Package -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contabilidad_controller.dpk +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contabilidad_controller.dpk MainSource - - - - - - - - - - - - - - - - - - - - - - - @@ -78,6 +55,24 @@ + + + + + + + + + + + + + + + + + + @@ -94,8 +89,14 @@ + + + + + +