From b7a11db79b9937f6afb50cafda765c2409f3b378 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 6 Mar 2008 20:35:50 +0000 Subject: [PATCH] Informe de facturas y recibos finalizados y arreglo de los detallles para que cuando se mete cantidad no nos ponga en el primer registro de los detalles git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@168 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/Informes/InfFacturaCliente.fr3 | 31 +- Source/Informes/InfReciboCliente.fr3 | 106 ++-- .../AlbaranesCliente_Group.groupproj | 18 +- .../uAlbaranesClienteController.pas | 10 + .../Views/uViewDetallesAlbaranCliente.dfm | 9 - .../uAlbaranesProveedorController.pas | 13 +- .../Contabilidad/Data/Contabilidad_data.res | Bin 4748 -> 384 bytes .../Model/schContabilidadClient_Intf.pas | 26 +- .../Model/schFacturasClienteClient_Intf.pas | 6 +- .../uFacturasProveedorController.pas | 13 +- .../uPedidosProveedorController.pas | 14 +- .../uPresupuestosClienteController.pas | 14 +- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23200 bytes Source/Servidor/FactuGES_Server.dproj | 505 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 16 files changed, 413 insertions(+), 354 deletions(-) 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/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3 index 7f53d2ca..6d50561d 100644 --- a/Source/Informes/InfFacturaCliente.fr3 +++ b/Source/Informes/InfFacturaCliente.fr3 @@ -1,11 +1,9 @@ - + - - @@ -18,26 +16,27 @@ - - + + - + - - + + + + - + - @@ -49,14 +48,14 @@ - - + + - - + + @@ -72,11 +71,11 @@ - + - + diff --git a/Source/Informes/InfReciboCliente.fr3 b/Source/Informes/InfReciboCliente.fr3 index f1234f8c..f29b06ef 100644 --- a/Source/Informes/InfReciboCliente.fr3 +++ b/Source/Informes/InfReciboCliente.fr3 @@ -1,59 +1,59 @@ - + - - - - + + + + + + - - - - - - + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - + + - - - + + + @@ -75,15 +75,27 @@ - - + + + + + + + + + + + + + + - + diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj index ad79133b..2451b83c 100644 --- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj +++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj @@ -11,6 +11,7 @@ + @@ -21,7 +22,7 @@ Default.Personality - + @@ -131,14 +132,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 45bb65d0..c4ad12c3 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -1036,6 +1036,7 @@ end; procedure TAlbaranesClienteController.RecalcularImportes(AAlbaran: IBizAlbaranCliente); var bEnEdicion : Boolean; + ADetallePosAct : Integer; begin if not Assigned(AAlbaran) then raise Exception.Create ('Albarán no asignado (RecalcularImportes)'); @@ -1043,6 +1044,13 @@ begin if AAlbaran.DataTable.Active then AAlbaran.DataTable.Active := True; + { Hay que guardar la posición en la que estamos en los detalles por que + la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE + (ver más adelante) colocan el puntero en la tabla detalle al principio. + No he encontrado la razón por la que mueve el puntero. } + + ADetallePosAct := AAlbaran.Detalles.POSICION; + bEnEdicion := (AAlbaran.DataTable.State in dsEditModes); if not bEnEdicion then AAlbaran.Edit; @@ -1056,6 +1064,8 @@ begin AAlbaran.Post; finally HideHourglassCursor; + // Restaurar la posición que teníamos en los detalles. + FDetallesController.LocalizarPosicion(AAlbaran.Detalles, ADetallePosAct); end; end; diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm index 1ef65893..5840a6e2 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm @@ -1,15 +1,6 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView - inherited cxGridViewID: TcxGridDBColumn - Visible = False - end - inherited cxGridViewPOSICION: TcxGridDBColumn - Visible = False - end - inherited cxGridViewTIPO: TcxGridDBColumn - Visible = False - end inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn Visible = False end diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 2cd370d6..169b767e 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -834,10 +834,10 @@ begin Result := not (AAlbaran.ID_FACTURA > 0); end; -procedure TAlbaranesProveedorController.RecalcularImportes( - AAlbaran: IBizAlbaranProveedor); +procedure TAlbaranesProveedorController.RecalcularImportes(AAlbaran: IBizAlbaranProveedor); var bEnEdicion : Boolean; + ADetallePosAct : Integer; begin if not Assigned(AAlbaran) then raise Exception.Create ('Albarán no asignado (RecalcularImportes)'); @@ -845,6 +845,13 @@ begin if AAlbaran.DataTable.Active then AAlbaran.DataTable.Active := True; + { Hay que guardar la posición en la que estamos en los detalles por que + la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE + (ver más adelante) colocan el puntero en la tabla detalle al principio. + No he encontrado la razón por la que mueve el puntero. } + + ADetallePosAct := AAlbaran.Detalles.POSICION; + bEnEdicion := (AAlbaran.DataTable.State in dsEditModes); if not bEnEdicion then AAlbaran.Edit; @@ -858,6 +865,8 @@ begin AAlbaran.Post; finally HideHourglassCursor; + // Restaurar la posición que teníamos en los detalles. + FDetallesController.LocalizarPosicion(AAlbaran.Detalles, ADetallePosAct); end; end; diff --git a/Source/Modulos/Contabilidad/Data/Contabilidad_data.res b/Source/Modulos/Contabilidad/Data/Contabilidad_data.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/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas index eac3d5db..df38b082 100644 --- a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas +++ b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas @@ -3,7 +3,7 @@ unit schContabilidadClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -249,7 +249,7 @@ type end; { TDarIDCuentaDataTableRules } - TDarIDCuentaDataTableRules = class(TDADataTableRules, IDarIDCuenta) + TDarIDCuentaDataTableRules = class(TIntfObjectDADataTableRules, IDarIDCuenta) private protected { Property getters and setters } @@ -284,7 +284,7 @@ type end; { TDarCodigoContableTiendaDataTableRules } - TDarCodigoContableTiendaDataTableRules = class(TDADataTableRules, IDarCodigoContableTienda) + TDarCodigoContableTiendaDataTableRules = class(TIntfObjectDADataTableRules, IDarCodigoContableTienda) private protected { Property getters and setters } @@ -319,7 +319,7 @@ type end; { TDarMaxRefSubCuentaDataTableRules } - TDarMaxRefSubCuentaDataTableRules = class(TDADataTableRules, IDarMaxRefSubCuenta) + TDarMaxRefSubCuentaDataTableRules = class(TIntfObjectDADataTableRules, IDarMaxRefSubCuenta) private protected { Property getters and setters } @@ -354,7 +354,7 @@ type end; { TExisteSubCuentaDataTableRules } - TExisteSubCuentaDataTableRules = class(TDADataTableRules, IExisteSubCuenta) + TExisteSubCuentaDataTableRules = class(TIntfObjectDADataTableRules, IExisteSubCuenta) private protected { Property getters and setters } @@ -473,7 +473,7 @@ type end; { TDiarioDataTableRules } - TDiarioDataTableRules = class(TDADataTableRules, IDiario) + TDiarioDataTableRules = class(TIntfObjectDADataTableRules, IDiario) private protected { Property getters and setters } @@ -652,7 +652,7 @@ type end; { TApuntesDataTableRules } - TApuntesDataTableRules = class(TDADataTableRules, IApuntes) + TApuntesDataTableRules = class(TIntfObjectDADataTableRules, IApuntes) private protected { Property getters and setters } @@ -771,7 +771,7 @@ type end; { TAsientosDataTableRules } - TAsientosDataTableRules = class(TDADataTableRules, IAsientos) + TAsientosDataTableRules = class(TIntfObjectDADataTableRules, IAsientos) private protected { Property getters and setters } @@ -890,7 +890,7 @@ type end; { TSubCuentasDataTableRules } - TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas) + TSubCuentasDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentas) private protected { Property getters and setters } @@ -1039,7 +1039,7 @@ type end; { TCuentasDataTableRules } - TCuentasDataTableRules = class(TDADataTableRules, ICuentas) + TCuentasDataTableRules = class(TIntfObjectDADataTableRules, ICuentas) private protected { Property getters and setters } @@ -1140,7 +1140,7 @@ type end; { TCuentasEspecialesDataTableRules } - TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales) + TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales) private protected { Property getters and setters } @@ -1217,7 +1217,7 @@ type end; { TEpigrafesDataTableRules } - TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes) + TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes) private protected { Property getters and setters } @@ -1330,7 +1330,7 @@ type end; { TBalancesDataTableRules } - TBalancesDataTableRules = class(TDADataTableRules, IBalances) + TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances) private protected { Property getters and setters } diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 99cadd81..7c3cb5a1 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -366,7 +366,7 @@ type end; { TFacturasClienteDataTableRules } - TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) + TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -702,7 +702,7 @@ type end; { TFacturasCliente_DetallesDataTableRules } - TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles) + TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 62401d9b..f84c8681 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -778,10 +778,10 @@ begin Result := (AFactura.SITUACION = CTE_PENDIENTE); end; -procedure TFacturasProveedorController.RecalcularImportes( - FFactura: IBizFacturaProveedor); +procedure TFacturasProveedorController.RecalcularImportes(FFactura: IBizFacturaProveedor); var bEnEdicion : Boolean; + ADetallePosAct : Integer; begin if not Assigned(FFactura) then raise Exception.Create ('Factura no asignada (RecalcularImportes)'); @@ -789,6 +789,13 @@ begin if FFactura.DataTable.Active then FFactura.DataTable.Active := True; + { Hay que guardar la posición en la que estamos en los detalles por que + la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE + (ver más adelante) colocan el puntero en la tabla detalle al principio. + No he encontrado la razón por la que mueve el puntero. } + + ADetallePosAct := FFactura.Detalles.POSICION; + bEnEdicion := (FFactura.DataTable.State in dsEditModes); if not bEnEdicion then FFactura.Edit; @@ -802,6 +809,8 @@ begin FFactura.Post; finally HideHourglassCursor; + // Restaurar la posición que teníamos en los detalles. + FDetallesController.LocalizarPosicion(FFactura.Detalles, ADetallePosAct); end; end; diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index 7d9117c8..5ca8803d 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -565,10 +565,11 @@ begin Result := (APedido.SITUACION <> SITUACION_PEDIDO_RECIBIDO); end; -procedure TPedidosProveedorController.RecalcularImportes( - APedido: IBizPedidoProveedor); +procedure TPedidosProveedorController.RecalcularImportes(APedido: IBizPedidoProveedor); var bEnEdicion : Boolean; + ADetallePosAct : Integer; + begin if not Assigned(APedido) then raise Exception.Create ('Pedido no asignado (RecalcularImportes)'); @@ -576,6 +577,13 @@ begin if APedido.DataTable.Active then APedido.DataTable.Active := True; + { Hay que guardar la posición en la que estamos en los detalles por que + la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE + (ver más adelante) colocan el puntero en la tabla detalle al principio. + No he encontrado la razón por la que mueve el puntero. } + + ADetallePosAct := APedido.Detalles.POSICION; + bEnEdicion := (APedido.DataTable.State in dsEditModes); if not bEnEdicion then APedido.Edit; @@ -589,6 +597,8 @@ begin APedido.Post; finally HideHourglassCursor; + // Restaurar la posición que teníamos en los detalles. + FDetallesController.LocalizarPosicion(APedido.Detalles, ADetallePosAct); end; end; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 6b086fa4..d5b872d8 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -528,10 +528,11 @@ begin Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE); end; -procedure TPresupuestosClienteController.RecalcularImportes( - APresupuesto: IBizPresupuestoCliente); +procedure TPresupuestosClienteController.RecalcularImportes(APresupuesto: IBizPresupuestoCliente); var bEnEdicion : Boolean; + ADetallePosAct : Integer; + begin if not Assigned(APresupuesto) then raise Exception.Create ('Presupuesto no asignado (RecalcularImportes)'); @@ -539,6 +540,13 @@ begin if APresupuesto.DataTable.Active then APresupuesto.DataTable.Active := True; + { Hay que guardar la posición en la que estamos en los detalles por que + la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE + (ver más adelante) colocan el puntero en la tabla detalle al principio. + No he encontrado la razón por la que mueve el puntero. } + + ADetallePosAct := APresupuesto.Detalles.POSICION; + bEnEdicion := (APresupuesto.DataTable.State in dsEditModes); if not bEnEdicion then APresupuesto.Edit; @@ -552,6 +560,8 @@ begin APresupuesto.Post; finally HideHourglassCursor; + // Restaurar la posición que teníamos en los detalles. + FDetallesController.LocalizarPosicion(APresupuesto.Detalles, ADetallePosAct); end; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index a9e12b0aa82a28cf3e1dd9717876dd5b2bcb80f7..fd57e58a80bec5ad9fbf630053b75808fe8635e7 100644 GIT binary patch delta 65 zcmZ3mm2tsV#tjjXj4YEQBb6B+Os&Hn*2LbRyd2Hlp&R&42X*vbQlyE3>eHN UYeuQF8!}ii7%^B*j*M~#0H{O}%K!iX delta 65 zcmZ3mm2tsV#tjjXj7*awBb6ENO|FfsW=>*IocuddRxpR5lp&8Hm7$nHhe3hCfWdgO Vc9c4&0fQBTF@re+!{o>)cL1U15mo>I diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b2b45ecd..aa47131b 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,257 +1,256 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - -FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58 - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - -
srvTiposVenta
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + + FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58 + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + +
srvTiposVenta
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +