From c85cae7c75b78d332d94920f66608085ae237b8c Mon Sep 17 00:00:00 2001 From: david Date: Mon, 1 Dec 2008 11:39:43 +0000 Subject: [PATCH] =?UTF-8?q?En=20los=20albaranes=20a=20proveedor=20poder=20?= =?UTF-8?q?elegir=20una=20direcci=C3=B3n=20si=20el=20proveedor=20tiene=20v?= =?UTF-8?q?arias=20sucursales.=20Lo=20mismo=20para=20personas=20de=20conta?= =?UTF-8?q?cto.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@788 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Database/scripts/factuges.sql | 8 +- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 172156 -> 171984 bytes .../Data/uDataModuleAlbaranesProveedor.dfm | 14 + .../Model/AlbaranesProveedor_model.dproj | 6 +- .../schAlbaranesProveedorClient_Intf.pas | 144 +++- .../schAlbaranesProveedorServer_Intf.pas | 94 ++- .../Reports/uRptAlbaranesProveedor_Server.pas | 2 +- .../Servidor/srvAlbaranesProveedor_Impl.dfm | 125 +++- .../Views/AlbaranesProveedor_view.dpk | Bin 2660 -> 2828 bytes .../Views/AlbaranesProveedor_view.dproj | 22 +- .../Views/uEditorAlbaranProveedor.dfm | 139 ++-- .../Views/uEditorAlbaranProveedor.pas | 14 +- .../Views/uViewAlbaranProveedor.dfm | 199 ++++-- .../Views/uViewAlbaranProveedor.pas | 65 +- .../uViewDatosYSeleccionProveedorAlbaran.dfm | 657 ++++++++++++++++++ .../uViewDatosYSeleccionProveedorAlbaran.pas | 421 +++++++++++ Source/Servidor/FactuGES_Server.RES | Bin 23488 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 638 ++++++++--------- Source/Servidor/FactuGES_Server.rc | 10 +- 21 files changed, 1953 insertions(+), 613 deletions(-) create mode 100644 Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm create mode 100644 Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index a151aece..660ca6a5 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -400,6 +400,8 @@ CREATE TABLE ALBARANES_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, ID_PROVEEDOR TIPO_ID, + ID_DIRECCION TIPO_ID, + PERSONA_CONTACTO_PROV VARCHAR(255), FECHA_ALBARAN DATE, ID_PEDIDO TIPO_ID, ID_FACTURA TIPO_ID, @@ -1471,8 +1473,10 @@ FROM CREATE VIEW V_ALBARANES_PROVEEDOR( ID, ID_EMPRESA, - ID_PROVEEDOR, + ID_PROVEEDOR, NOMBRE, + ID_DIRECCION, + PERSONA_CONTACTO_PROV, FECHA_ALBARAN, REFERENCIA, REFERENCIA_PROVEEDOR, @@ -1512,6 +1516,8 @@ SELECT ALBARANES_PROVEEDOR.ID_EMPRESA, ALBARANES_PROVEEDOR.ID_PROVEEDOR, CONTACTOS.NOMBRE, + ALBARANES_PROVEEDOR.ID_DIRECCION, + ALBARANES_PROVEEDOR.PERSONA_CONTACTO_PROV, ALBARANES_PROVEEDOR.FECHA_ALBARAN, ALBARANES_PROVEEDOR.REFERENCIA, ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR, 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.rc b/Source/Cliente/FactuGES.rc index a8fe5655..f435b57c 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 1,4,6,0 -PRODUCTVERSION 1,4,6,0 +FILEVERSION 1,4,7,0 +PRODUCTVERSION 1,4,7,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "1.4.6.0\0" + VALUE "FileVersion", "1.4.7.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.4.6.0\0" + VALUE "ProductVersion", "1.4.7.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index d85cfece0fec747107cbfbcd6e3c3bd17bb3063a..82920b0d62e875506aacbb3464df0b0e6e5ddf19 100644 GIT binary patch delta 284 zcmY+9u?m7v6o$Wh(^8WVS{#K48XA0oK$;vI+AC=2Eplk^0fIYeYeQpujg3A-b3+dh z)D=bPhr{9HKj(1%&)q3*PI3@eX=MA*b6gq;Ts#j1K0CAQ4H+Qu{mOfEq0>-mgFz5f z-q`}PC4H?+7}nkZdM%AvVG%`@Ihlh^99NVs!C}3w7mv^ilR>W142=e41!DdHmD>;tEIX)HG@NcfRLrFYZfmAo6~5nG^X zG>rCHg|(7-jB8-wc}B}@sFchjlWA3aztlEiy=08 MainSource - - - + + + diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas index a25402b8..ebbabc19 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas @@ -9,8 +9,8 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_AlbaranesProveedor = '{BB462AD6-B2B8-4657-AD65-71223BAA1B84}'; - RID_AlbaranesProveedor_Detalles = '{522B12F2-7A2E-40D5-B022-10C07D3DA1B3}'; + RID_AlbaranesProveedor = '{53E15711-9D7A-4623-9F91-5C032C3C9418}'; + RID_AlbaranesProveedor_Detalles = '{1E0933DA-42E0-4523-9E38-7C83457FEAA1}'; { Data table names } nme_AlbaranesProveedor = 'AlbaranesProveedor'; @@ -21,6 +21,8 @@ const fld_AlbaranesProveedorID_EMPRESA = 'ID_EMPRESA'; fld_AlbaranesProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; fld_AlbaranesProveedorNOMBRE = 'NOMBRE'; + fld_AlbaranesProveedorID_DIRECCION = 'ID_DIRECCION'; + fld_AlbaranesProveedorPERSONA_CONTACTO_PROV = 'PERSONA_CONTACTO_PROV'; fld_AlbaranesProveedorFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA'; fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; @@ -60,39 +62,41 @@ const idx_AlbaranesProveedorID_EMPRESA = 1; idx_AlbaranesProveedorID_PROVEEDOR = 2; idx_AlbaranesProveedorNOMBRE = 3; - idx_AlbaranesProveedorFECHA_ALBARAN = 4; - idx_AlbaranesProveedorREFERENCIA = 5; - idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 6; - idx_AlbaranesProveedorTIPO = 7; - idx_AlbaranesProveedorID_ALMACEN = 8; - idx_AlbaranesProveedorTIPO_ALMACEN = 9; - idx_AlbaranesProveedorNOMBRE_ALMACEN = 10; - idx_AlbaranesProveedorID_PEDIDO = 11; - idx_AlbaranesProveedorREF_PED_PROVEEDOR = 12; - idx_AlbaranesProveedorID_FACTURA = 13; - idx_AlbaranesProveedorREF_FACTURA = 14; - idx_AlbaranesProveedorREF_FACTURA_PROV = 15; - idx_AlbaranesProveedorCALLE = 16; - idx_AlbaranesProveedorCODIGO_POSTAL = 17; - idx_AlbaranesProveedorPOBLACION = 18; - idx_AlbaranesProveedorPROVINCIA = 19; - idx_AlbaranesProveedorPERSONA_CONTACTO = 20; - idx_AlbaranesProveedorTELEFONO = 21; - idx_AlbaranesProveedorIMPORTE_NETO = 22; - idx_AlbaranesProveedorIMPORTE_PORTE = 23; - idx_AlbaranesProveedorDESCUENTO = 24; - idx_AlbaranesProveedorIMPORTE_DESCUENTO = 25; - idx_AlbaranesProveedorBASE_IMPONIBLE = 26; - idx_AlbaranesProveedorIVA = 27; - idx_AlbaranesProveedorIMPORTE_IVA = 28; - idx_AlbaranesProveedorIMPORTE_TOTAL = 29; - idx_AlbaranesProveedorOBSERVACIONES = 30; - idx_AlbaranesProveedorINCIDENCIAS = 31; - idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 32; - idx_AlbaranesProveedorFECHA_ALTA = 33; - idx_AlbaranesProveedorFECHA_MODIFICACION = 34; - idx_AlbaranesProveedorUSUARIO = 35; - idx_AlbaranesProveedorID_FORMA_PAGO = 36; + idx_AlbaranesProveedorID_DIRECCION = 4; + idx_AlbaranesProveedorPERSONA_CONTACTO_PROV = 5; + idx_AlbaranesProveedorFECHA_ALBARAN = 6; + idx_AlbaranesProveedorREFERENCIA = 7; + idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 8; + idx_AlbaranesProveedorTIPO = 9; + idx_AlbaranesProveedorID_ALMACEN = 10; + idx_AlbaranesProveedorTIPO_ALMACEN = 11; + idx_AlbaranesProveedorNOMBRE_ALMACEN = 12; + idx_AlbaranesProveedorID_PEDIDO = 13; + idx_AlbaranesProveedorREF_PED_PROVEEDOR = 14; + idx_AlbaranesProveedorID_FACTURA = 15; + idx_AlbaranesProveedorREF_FACTURA = 16; + idx_AlbaranesProveedorREF_FACTURA_PROV = 17; + idx_AlbaranesProveedorCALLE = 18; + idx_AlbaranesProveedorCODIGO_POSTAL = 19; + idx_AlbaranesProveedorPOBLACION = 20; + idx_AlbaranesProveedorPROVINCIA = 21; + idx_AlbaranesProveedorPERSONA_CONTACTO = 22; + idx_AlbaranesProveedorTELEFONO = 23; + idx_AlbaranesProveedorIMPORTE_NETO = 24; + idx_AlbaranesProveedorIMPORTE_PORTE = 25; + idx_AlbaranesProveedorDESCUENTO = 26; + idx_AlbaranesProveedorIMPORTE_DESCUENTO = 27; + idx_AlbaranesProveedorBASE_IMPONIBLE = 28; + idx_AlbaranesProveedorIVA = 29; + idx_AlbaranesProveedorIMPORTE_IVA = 30; + idx_AlbaranesProveedorIMPORTE_TOTAL = 31; + idx_AlbaranesProveedorOBSERVACIONES = 32; + idx_AlbaranesProveedorINCIDENCIAS = 33; + idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 34; + idx_AlbaranesProveedorFECHA_ALTA = 35; + idx_AlbaranesProveedorFECHA_MODIFICACION = 36; + idx_AlbaranesProveedorUSUARIO = 37; + idx_AlbaranesProveedorID_FORMA_PAGO = 38; { AlbaranesProveedor_Detalles fields } fld_AlbaranesProveedor_DetallesID = 'ID'; @@ -135,7 +139,7 @@ const type { IAlbaranesProveedor } IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) - ['{F1E38E39-40C8-49FC-B3F5-47F528563F9B}'] + ['{F4357865-BECE-4FC7-95C0-DDE7FABBDFF0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -153,6 +157,14 @@ type procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; procedure SetNOMBREIsNull(const aValue: Boolean); + function GetID_DIRECCIONValue: Integer; + procedure SetID_DIRECCIONValue(const aValue: Integer); + function GetID_DIRECCIONIsNull: Boolean; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); + function GetPERSONA_CONTACTO_PROVValue: String; + procedure SetPERSONA_CONTACTO_PROVValue(const aValue: String); + function GetPERSONA_CONTACTO_PROVIsNull: Boolean; + procedure SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean); function GetFECHA_ALBARANValue: DateTime; procedure SetFECHA_ALBARANValue(const aValue: DateTime); function GetFECHA_ALBARANIsNull: Boolean; @@ -294,6 +306,10 @@ type property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property PERSONA_CONTACTO_PROV: String read GetPERSONA_CONTACTO_PROVValue write SetPERSONA_CONTACTO_PROVValue; + property PERSONA_CONTACTO_PROVIsNull: Boolean read GetPERSONA_CONTACTO_PROVIsNull write SetPERSONA_CONTACTO_PROVIsNull; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; @@ -387,6 +403,14 @@ type procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; + function GetPERSONA_CONTACTO_PROVValue: String; virtual; + procedure SetPERSONA_CONTACTO_PROVValue(const aValue: String); virtual; + function GetPERSONA_CONTACTO_PROVIsNull: Boolean; virtual; + procedure SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean); virtual; function GetFECHA_ALBARANValue: DateTime; virtual; procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; function GetFECHA_ALBARANIsNull: Boolean; virtual; @@ -527,6 +551,10 @@ type property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property PERSONA_CONTACTO_PROV: String read GetPERSONA_CONTACTO_PROVValue write SetPERSONA_CONTACTO_PROVValue; + property PERSONA_CONTACTO_PROVIsNull: Boolean read GetPERSONA_CONTACTO_PROVIsNull write SetPERSONA_CONTACTO_PROVIsNull; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; @@ -602,7 +630,7 @@ type { IAlbaranesProveedor_Detalles } IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{DE04C3FD-7982-4432-9F46-7BBBD5D47EE5}'] + ['{C3CD4BF2-4FBF-40E1-9F50-7994CDDE3956}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -946,6 +974,48 @@ begin DataTable.Fields[idx_AlbaranesProveedorNOMBRE].AsVariant := Null; end; +function TAlbaranesProveedorDataTableRules.GetID_DIRECCIONValue: Integer; +begin + result := DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].AsInteger; +end; + +procedure TAlbaranesProveedorDataTableRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].AsInteger := aValue; +end; + +function TAlbaranesProveedorDataTableRules.GetID_DIRECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].IsNull; +end; + +procedure TAlbaranesProveedorDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesProveedorID_DIRECCION].AsVariant := Null; +end; + +function TAlbaranesProveedorDataTableRules.GetPERSONA_CONTACTO_PROVValue: String; +begin + result := DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].AsString; +end; + +procedure TAlbaranesProveedorDataTableRules.SetPERSONA_CONTACTO_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].AsString := aValue; +end; + +function TAlbaranesProveedorDataTableRules.GetPERSONA_CONTACTO_PROVIsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].IsNull; +end; + +procedure TAlbaranesProveedorDataTableRules.SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesProveedorPERSONA_CONTACTO_PROV].AsVariant := Null; +end; + function TAlbaranesProveedorDataTableRules.GetFECHA_ALBARANValue: DateTime; begin result := DataTable.Fields[idx_AlbaranesProveedorFECHA_ALBARAN].AsDateTime; diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas index 7486df3e..4343853b 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas @@ -9,18 +9,20 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_AlbaranesProveedorDelta = '{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}'; - RID_AlbaranesProveedor_DetallesDelta = '{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}'; + RID_AlbaranesProveedorDelta = '{467DAA7D-392D-4AB6-BCC2-65A785D65AC7}'; + RID_AlbaranesProveedor_DetallesDelta = '{C386AE7F-4999-4952-95E5-6798E0E4CA00}'; type { IAlbaranesProveedorDelta } IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) - ['{AD8DEBAC-BCFA-4B95-A6B5-9C8948F7A56C}'] + ['{467DAA7D-392D-4AB6-BCC2-65A785D65AC7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBREValue : String; + function GetOldID_DIRECCIONValue : Integer; + function GetOldPERSONA_CONTACTO_PROVValue : String; function GetOldFECHA_ALBARANValue : DateTime; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; @@ -60,6 +62,8 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE : String read GetOldNOMBREValue; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; + property OldPERSONA_CONTACTO_PROV : String read GetOldPERSONA_CONTACTO_PROVValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; @@ -128,6 +132,18 @@ type function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + function GetOldID_DIRECCIONValue: Integer; virtual; + function GetOldID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; + function GetPERSONA_CONTACTO_PROVValue: String; virtual; + function GetPERSONA_CONTACTO_PROVIsNull: Boolean; virtual; + function GetOldPERSONA_CONTACTO_PROVValue: String; virtual; + function GetOldPERSONA_CONTACTO_PROVIsNull: Boolean; virtual; + procedure SetPERSONA_CONTACTO_PROVValue(const aValue: String); virtual; + procedure SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean); virtual; function GetFECHA_ALBARANValue: DateTime; virtual; function GetFECHA_ALBARANIsNull: Boolean; virtual; function GetOldFECHA_ALBARANValue: DateTime; virtual; @@ -342,6 +358,14 @@ type property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; + property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull; + property PERSONA_CONTACTO_PROV : String read GetPERSONA_CONTACTO_PROVValue write SetPERSONA_CONTACTO_PROVValue; + property PERSONA_CONTACTO_PROVIsNull : Boolean read GetPERSONA_CONTACTO_PROVIsNull write SetPERSONA_CONTACTO_PROVIsNull; + property OldPERSONA_CONTACTO_PROV : String read GetOldPERSONA_CONTACTO_PROVValue; + property OldPERSONA_CONTACTO_PROVIsNull : Boolean read GetOldPERSONA_CONTACTO_PROVIsNull; property FECHA_ALBARAN : DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARANIsNull : Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; @@ -483,7 +507,7 @@ type { IAlbaranesProveedor_DetallesDelta } IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) - ['{67FD1B90-D35D-4B44-9D07-57DDA0EE7407}'] + ['{C386AE7F-4999-4952-95E5-6798E0E4CA00}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -867,6 +891,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNOMBRE] := Null; end; +function TAlbaranesProveedorBusinessProcessorRules.GetID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION]; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION]); +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_DIRECCION]; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_DIRECCION]); +end; + +procedure TAlbaranesProveedorBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION] := aValue; +end; + +procedure TAlbaranesProveedorBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_DIRECCION] := Null; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetPERSONA_CONTACTO_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV]; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetPERSONA_CONTACTO_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV]); +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTO_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV]; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTO_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV]); +end; + +procedure TAlbaranesProveedorBusinessProcessorRules.SetPERSONA_CONTACTO_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV] := aValue; +end; + +procedure TAlbaranesProveedorBusinessProcessorRules.SetPERSONA_CONTACTO_PROVIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorPERSONA_CONTACTO_PROV] := Null; +end; + function TAlbaranesProveedorBusinessProcessorRules.GetFECHA_ALBARANValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorFECHA_ALBARAN]; diff --git a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas index 409a9431..98d58bb6 100644 --- a/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas +++ b/Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas @@ -108,7 +108,7 @@ begin AInforme := DarRutaFichero(DarRutaInformes, rptInforme); if VarIsNull(AInforme) then - raise Exception.Create (('Error Servidor: GenerarAlbaran, no encuentra informe' + rptInforme)); + raise Exception.Create (('Error Servidor: GenerarAlbaran, no encuentra informe ' + rptInforme)); frxReport.LoadFromFile(AInforme, True); frxReport.PrepareReport(False); diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm index db1b5643..221963f3 100644 --- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm +++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm @@ -169,6 +169,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor item DatasetField = 'TIPO_ALMACEN' TableField = 'TIPO_ALMACEN' + end + item + DatasetField = 'ID_DIRECCION' + TableField = 'ID_DIRECCION' + end + item + DatasetField = 'PERSONA_CONTACTO_PROV' + TableField = 'PERSONA_CONTACTO_PROV' end> end> Name = 'AlbaranesProveedor' @@ -198,6 +206,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor ServerAutoRefresh = True DictionaryEntry = 'AlbaranesProveedor_NOMBRE' end + item + Name = 'ID_DIRECCION' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_ID_DIRECCION' + end + item + Name = 'PERSONA_CONTACTO_PROV' + DataType = datString + Size = 255 + DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO_PROV' + end item Name = 'FECHA_ALBARAN' DataType = datDateTime @@ -231,6 +250,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DataType = datString Size = 10 ServerAutoRefresh = True + DictionaryEntry = 'AlbaranesProveedor_TIPO_ALMACEN' end item Name = 'NOMBRE_ALMACEN' @@ -578,6 +598,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Commands = < item Params = < + item + Name = 'PERSONA_CONTACTO_PROV' + Value = '' + end + item + Name = 'ID_DIRECCION' + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -714,24 +742,25 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor TargetTable = 'ALBARANES_PROVEEDOR' SQL = 'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' + - '_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' + - ' TIPO,'#10' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTUR' + - 'A_PROV,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINC' + - 'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' + - 'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' + - 'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' + - 'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,' + - #10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORT' + - 'E_PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,' + - #10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,' + - #10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PR' + - 'OV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINC' + - 'IA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' ' + - ' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IV' + - 'A,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' ' + - ' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,' + - #10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE' + - '_NETO,'#10' :IMPORTE_PORTE);'#10 + '_PROVEEDOR,'#10' ID_DIRECCION,'#10' PERSONA_CONTACTO_PROV,'#10' FEC' + + 'HA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' TIPO,'#10' REFEREN' + + 'CIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV,'#10' CALLE,'#10 + + ' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA,'#10' PERSONA_CON' + + 'TACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,'#10' IMPO' + + 'RTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ' + + 'OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FEC' + + 'HA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ' + + ' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' VALUES (' + + #10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :ID_DIRECCION,' + + #10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,' + + #10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA,'#10' :REFERENCIA_PR' + + 'OVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10 + + ' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELE' + + 'FONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENT' + + 'O,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVAC' + + 'IONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_AL' + + 'TA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' ' + + ':ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -757,6 +786,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor end item Params = < + item + Name = 'PERSONA_CONTACTO_PROV' + Value = '' + end + item + Name = 'ID_DIRECCION' + Value = '' + end item Name = 'ID' Value = '' @@ -895,23 +932,24 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor TargetTable = 'ALBARANES_PROVEEDOR' SQL = 'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA = ' + - ':ID_EMPRESA,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN' + - ' = :FECHA_ALBARAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = ' + - ':ID_FACTURA,'#10' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA,'#10' ' + - ' REFERENCIA_PROVEEDOR = :REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_P' + - 'ROV = :REF_FACTURA_PROV,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL =' + - ' :CODIGO_POSTAL,'#10' POBLACION = :POBLACION,'#10' PROVINCIA = :PR' + - 'OVINCIA,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEFONO ' + - '= :TELEFONO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO' + - ' = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' I' + - 'VA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :' + - 'IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCI' + - 'AS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVA' + - 'S,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA' + - '_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMA' + - 'CEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMP' + - 'ORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :O' + - 'LD_ID);'#10 + ':ID_EMPRESA,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' ID_DIRECCION ' + + '= :ID_DIRECCION,'#10' PERSONA_CONTACTO_PROV = :PERSONA_CONTACTO_P' + + 'ROV,'#10' FECHA_ALBARAN = :FECHA_ALBARAN,'#10' ID_PEDIDO = :ID_PED' + + 'IDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' TIPO = :TIPO,'#10' REFEREN' + + 'CIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFERENCIA_PROVEE' + + 'DOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CALLE = :CALL' + + 'E,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION = :POBLACIO' + + 'N,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = :PERSONA_C' + + 'ONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE = :BASE_IM' + + 'PONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IM' + + 'PORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,' + + #10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERV' + + 'ACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' + + ' = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' + + '_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' + + ' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' + + ' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PO' + + 'RTE'#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1505,6 +1543,23 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DataType = datString Size = 255 DisplayLabel = 'Ref. factura prov' + end + item + Name = 'AlbaranesProveedor_ID_DIRECCION' + DataType = datInteger + DisplayLabel = 'ID_DIRECCION' + end + item + Name = 'AlbaranesProveedor_PERSONA_CONTACTO_PROV' + DataType = datString + Size = 255 + DisplayLabel = 'Contacto del proveedor' + end + item + Name = 'AlbaranesProveedor_TIPO_ALMACEN' + DataType = datString + Size = 10 + ServerAutoRefresh = True end> Left = 48 Top = 128 diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk index 6d5038f98deeb0d297bbabd08115ed77b3653a3e..6b6abfdf0f689d32f41a7e7aa6fc365d5317fda8 100644 GIT binary patch delta 198 zcmaDN(j&Iv9ixI%VsWYtFPDOXd#ERz?O0HdlbM`Yl9`{k`6FXGM?F|YX;@}zxl3Y6 zesN@QYEEi$GEh38D8DQ MainSource - - - - - - - - + + + + + + + + + +
fEditorAlbaranDevProveedor
@@ -106,6 +108,10 @@
frViewAlbaranProveedor
TFrame + +
fruViewDatosYSeleccionProveedorAlbaran
+ TCustomView +
frViewDetallesAlbaranProveedor
TFrame diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm index d1ce38b8..f7548248 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm @@ -188,102 +188,103 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor ExplicitHeight = 426 inherited ToolBar1: TToolBar Width = 751 - Height = 51 + Height = 46 ExplicitWidth = 751 - ExplicitHeight = 51 - inherited ToolButton14: TToolButton [3] + ExplicitHeight = 46 + inherited ToolButton3: TToolButton + Wrap = False + end + inherited ToolButton4: TToolButton Left = 278 Top = 0 + Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end - inherited FontName: TJvFontComboBox - Left = 343 - Top = 0 - ExplicitLeft = 343 - ExplicitTop = 0 + inherited ToolButton14: TToolButton + Left = 0 + Wrap = False + ExplicitLeft = 0 end - inherited FontSize: TEdit [5] - Left = 488 - Top = 0 + inherited FontName: TJvFontComboBox + Left = 65 + Top = 22 + ExplicitLeft = 65 + ExplicitTop = 22 + end + inherited FontSize: TEdit + Left = 210 + Top = 22 Width = 90 - ExplicitLeft = 488 - ExplicitTop = 0 + ExplicitLeft = 210 + ExplicitTop = 22 ExplicitWidth = 90 end - inherited UpDown1: TUpDown [6] - Left = 578 - Top = 0 - ExplicitLeft = 578 - ExplicitTop = 0 + inherited UpDown1: TUpDown + Left = 300 + Top = 22 + ExplicitLeft = 300 + ExplicitTop = 22 end - inherited ToolButton13: TToolButton [7] - Left = 0 - Top = 0 - Wrap = True - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitHeight = 27 + inherited ToolButton13: TToolButton + Left = 317 + Top = 22 + ExplicitLeft = 317 + ExplicitTop = 22 end - inherited ToolButton4: TToolButton [8] - Top = 27 + inherited ToolButton6: TToolButton + Left = 325 + Top = 22 + ExplicitLeft = 325 + ExplicitTop = 22 end - inherited ToolButton6: TToolButton [9] - Left = 56 - Top = 27 - ExplicitLeft = 56 - ExplicitTop = 27 + inherited ToolButton7: TToolButton + Left = 391 + Top = 22 + ExplicitLeft = 391 + ExplicitTop = 22 end - inherited ToolButton7: TToolButton [10] - Left = 122 - Top = 27 - Wrap = False - ExplicitLeft = 122 - ExplicitTop = 27 + inherited ToolButton8: TToolButton + Left = 458 + Top = 22 + ExplicitLeft = 458 + ExplicitTop = 22 end - inherited ToolButton8: TToolButton [11] - Left = 189 - Top = 27 - ExplicitLeft = 189 - ExplicitTop = 27 + inherited ToolButton12: TToolButton + Left = 541 + Top = 22 + ExplicitLeft = 541 + ExplicitTop = 22 end - inherited ToolButton12: TToolButton [12] - Left = 272 - Top = 27 - Wrap = False - ExplicitLeft = 272 - ExplicitTop = 27 - ExplicitHeight = 22 + inherited ToolButton9: TToolButton + Left = 549 + Top = 22 + ExplicitLeft = 549 + ExplicitTop = 22 end - inherited ToolButton9: TToolButton [13] - Left = 280 - Top = 27 - ExplicitLeft = 280 - ExplicitTop = 27 + inherited ToolButton10: TToolButton + Left = 694 + Top = 22 + ExplicitLeft = 694 + ExplicitTop = 22 end - inherited ToolButton10: TToolButton [14] - Left = 425 - Top = 27 - ExplicitLeft = 425 - ExplicitTop = 27 - end - inherited ToolButton11: TToolButton [15] - Left = 550 - Top = 27 - ExplicitLeft = 550 - ExplicitTop = 27 + inherited ToolButton11: TToolButton + Left = 819 + Top = 22 + ExplicitLeft = 819 + ExplicitTop = 22 end end inherited cxGrid: TcxGrid - Top = 77 + Top = 72 Width = 751 - Height = 349 + Height = 354 ExplicitTop = 77 ExplicitWidth = 751 ExplicitHeight = 349 end inherited TBXDock1: TTBXDock - Top = 51 + Top = 46 Width = 751 ExplicitTop = 51 ExplicitWidth = 751 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index 1e254108..d1f483fd 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas @@ -291,7 +291,6 @@ begin if Assigned(FController) then begin - ViewAlbaran.ViewProveedorAlbaran.Controller := Controller.ProveedorController; frViewDetallesAlbaranProveedor1.Controller := Controller.DetallesController; end; end; @@ -308,11 +307,14 @@ begin if Assigned(FViewAlbaran) then begin - FViewAlbaran.Albaran := FAlbaran; - ViewAlbaran.ViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor; - ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged; - frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles; - frViewDetallesAlbaranProveedor1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el proveedor seleccionado + ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := NIL; + try + FViewAlbaran.Albaran := FAlbaran; + frViewDetallesAlbaranProveedor1.Detalles := FAlbaran.Detalles; + frViewDetallesAlbaranProveedor1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el proveedor seleccionado + finally + ViewAlbaran.ViewProveedorAlbaran.OnProveedorChanged := OnProveedorChanged; + end; end; end; end; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm index c17dbaca..3537cd71 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm @@ -30,19 +30,23 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.Color = clInfoBk Style.HotTrack = False Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.Shadow = False Style.ButtonStyle = bts3D Style.ButtonTransparency = ebtNone Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 2 Width = 325 end object memObservaciones: TcxDBMemo - Left = 474 - Top = 276 + Left = 434 + Top = 235 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -51,9 +55,13 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.BorderStyle = ebs3D Style.HotTrack = False Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 11 Height = 287 Width = 331 @@ -72,79 +80,18 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.Color = clWindow Style.HotTrack = False Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 0 Width = 325 end - inline frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor - Left = 474 - Top = 28 - Width = 331 - Height = 212 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 10 - ReadOnly = False - ExplicitLeft = 474 - ExplicitTop = 28 - ExplicitWidth = 331 - ExplicitHeight = 212 - inherited dxLayoutControl1: TdxLayoutControl - Width = 331 - ExplicitWidth = 331 - inherited edtlNombre: TcxDBTextEdit - ExplicitWidth = 257 - Width = 257 - end - inherited edtNIFCIF: TcxDBTextEdit - ExplicitWidth = 257 - Width = 257 - end - inherited edtCalle: TcxDBTextEdit - ExplicitWidth = 257 - Width = 257 - end - inherited edtPoblacion: TcxDBTextEdit - ExplicitWidth = 139 - Width = 139 - end - inherited edtProvincia: TcxDBTextEdit - ExplicitWidth = 257 - Width = 257 - end - inherited edtCodigoPostal: TcxDBTextEdit - Left = 239 - ExplicitLeft = 239 - end - inherited Button3: TBitBtn - Left = 123 - ExplicitLeft = 123 - end - end - inherited DADataSource: TDADataSource - Top = 72 - end - inherited ActionList1: TActionList - Top = 72 - inherited actElegirContacto: TAction - OnUpdate = frViewProveedorAlbaranactElegirContactoUpdate - end - inherited actAnadirContacto: TAction - OnUpdate = frViewProveedorAlbaranactAnadirContactoUpdate - end - end - inherited PngImageList: TPngImageList - Top = 72 - end - end inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv Left = 22 Top = 249 @@ -176,13 +123,17 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor ExplicitWidth = 402 end inherited cbLista: TcxDBLookupComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 402 Width = 402 end inherited bModificar: TBitBtn - Left = 284 + Left = 244 Top = 279 - ExplicitLeft = 284 + ExplicitLeft = 244 ExplicitTop = 279 end inherited txtDireccion: TStaticText @@ -192,6 +143,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor ExplicitHeight = 140 end inherited cbListaObras: TcxDBLookupComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 402 Width = 402 end @@ -224,19 +179,23 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 7 Width = 187 end object bFormasPago: TButton - Left = 312 + Left = 272 Top = 192 Width = 132 Height = 21 @@ -257,18 +216,22 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 3 Width = 187 end object Button1: TButton - Left = 312 + Left = 272 Top = 109 Width = 132 Height = 23 @@ -290,14 +253,18 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 5 Width = 325 end @@ -314,11 +281,15 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.Color = clWindow Style.HotTrack = False Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 Width = 325 end @@ -336,17 +307,98 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' StyleDisabled.Color = clMenuBar StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 6 Width = 325 end + inline frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran + Left = 434 + Top = 28 + Width = 411 + Height = 171 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 10 + ReadOnly = False + ExplicitLeft = 434 + ExplicitTop = 28 + ExplicitWidth = 411 + inherited dxLayoutControl1: TdxLayoutControl + Width = 411 + ExplicitWidth = 411 + inherited edtlNombre: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 224 + Width = 224 + end + inherited edtNIFCIF: TcxDBTextEdit + Left = 258 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 258 + end + inherited edtPersonaContacto: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 283 + Width = 283 + end + inherited edtDireccion: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 121 + Width = 121 + end + inherited Button4: TButton + Left = 338 + ExplicitLeft = 338 + end + inherited Button5: TButton + Left = 338 + ExplicitLeft = 338 + end + inherited Button3: TBitBtn + Left = 163 + ExplicitLeft = 163 + end + end + inherited dsProveedor: TDADataSource + Left = 288 + Top = 24 + end + inherited ActionList1: TActionList + Left = 312 + Top = 65528 + end + inherited dsAlbaran: TDADataSource + Left = 280 + Top = 65528 + end + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -450,7 +502,9 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor object dxLayoutControl1Group2: TdxLayoutGroup Caption = 'Datos del proveedor' object dxLayoutControl1Item1: TdxLayoutItem - Control = frViewProveedorAlbaran + Caption = 'New Item' + ShowCaption = False + Control = frViewDatosYSeleccionProveedorAlbaran1 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end @@ -478,7 +532,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Top = 120 object actElegirDireccion: TAction Caption = 'Elegir una direcci'#243'n de env'#237'o...' - OnExecute = actElegirDireccionExecute OnUpdate = actElegirDireccionUpdate end object actVerPedido: TAction diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas index e572e701..ba92b0f5 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas @@ -7,13 +7,13 @@ uses Dialogs, uViewBase, uBizAlbaranesProveedor, DB, uDADataTable, uCustomView, AppEvnts, StdCtrls, Mask, DBCtrls, - uViewObservaciones, uViewDatosYSeleccionProveedor, + uViewObservaciones, cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizPedidosProveedor, uPedidosProveedorController, uBizFormasPago, - uDAInterfaces; + uDAInterfaces, uViewDatosYSeleccionProveedorAlbaran; type IViewAlbaranProveedor = interface(IViewBase) @@ -22,9 +22,8 @@ type procedure SetAlbaran(const Value: IBizAlbaranProveedor); property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran; - function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor; - procedure SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor); - property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor read GetViewProveedorAlbaran write SetViewProveedorAlbaran; + function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran; + property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran read GetViewProveedorAlbaran; end; TfrViewAlbaranProveedor = class(TfrViewBase, IViewAlbaranProveedor) @@ -43,8 +42,6 @@ type dxLayoutControl1Group7: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup; - dxLayoutControl1Item1: TdxLayoutItem; - frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor; ActionList1: TActionList; actElegirDireccion: TAction; dxLayoutControl1Item4: TdxLayoutItem; @@ -67,9 +64,10 @@ type eReferenciaProveedor: TcxDBTextEdit; dxLayoutControl1Item12: TdxLayoutItem; eReferenciaFacturaProveedor: TcxDBTextEdit; + frViewDatosYSeleccionProveedorAlbaran1: TfrViewDatosYSeleccionProveedorAlbaran; + dxLayoutControl1Item1: TdxLayoutItem; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); - procedure actElegirDireccionExecute(Sender: TObject); procedure frViewProveedorAlbaranButton1Click(Sender: TObject); procedure frViewProveedorAlbaranButton2Click(Sender: TObject); procedure bFormasPagoClick(Sender: TObject); @@ -82,7 +80,7 @@ type protected FAlbaran : IBizAlbaranProveedor; - FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedor; + FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedorAlbaran; FFormasPago : IBizFormaPago; FFormasPagoController : IFormasPagoController; FPedidoAsociado : IBizPedidoProveedor; @@ -90,12 +88,10 @@ type function GetAlbaran: IBizAlbaranProveedor; procedure SetAlbaran(const Value: IBizAlbaranProveedor); virtual; - function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor; - procedure SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor); - + function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran; public property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran; - property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor read GetViewProveedorAlbaran; + property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran read GetViewProveedorAlbaran; end; implementation @@ -109,27 +105,6 @@ uses schAlbaranesProveedorClient_Intf; -procedure TfrViewAlbaranProveedor.actElegirDireccionExecute(Sender: TObject); -{var - AProveedoresController : IProveedoresController; - AAlbaranController : IAlbaranesProveedorController; - ADireccion : IBizDireccionesContacto;} -begin - inherited; -{ AProveedoresController := TProveedoresController.Create; - AAlbaranController := TAlbaranesProveedorController.Create; - try - ADireccion := AProveedoresController.ElegirDireccionEntrega(FAlbaran.Proveedor.Direcciones, - 'Seleccione la dirección del Proveedor que quiere utilizar como dirección de envio de este Albaran.'); - if Assigned(ADireccion) then - AAlbaranController.CopiarDireccionEnvio(ADireccion, FAlbaran); - finally - AProveedoresController := NIL; - AAlbaranController := NIL; - end; -} -end; - procedure TfrViewAlbaranProveedor.actElegirDireccionUpdate(Sender: TObject); begin inherited; @@ -172,8 +147,7 @@ begin FPedidoController := TPedidosProveedorController.Create; FFormasPago := Nil; FFormasPagoController := TFormasPagoController.Create; - FViewProveedorAlbaran := frViewProveedorAlbaran; - FViewProveedorAlbaran.MsgElegirProveedor := 'Elija el proveedor de este albarán.'; + FViewProveedorAlbaran := frViewDatosYSeleccionProveedorAlbaran1; eReferencia.Enabled := False; end; @@ -181,10 +155,10 @@ end; procedure TfrViewAlbaranProveedor.CustomViewDestroy(Sender: TObject); begin FPedidoController := NIL; - FFormasPago := Nil; + FFormasPago := NIL; FFormasPagoController := NIL; FPedidoAsociado := NIL; - FViewProveedorAlbaran := Nil; + FViewProveedorAlbaran := NIL; inherited; end; @@ -208,7 +182,7 @@ begin if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos de la orden de devolución actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then Exit; end; - frViewProveedorAlbaran.actElegirContacto.Execute; + FViewProveedorAlbaran.ElegirProveedor; end; procedure TfrViewAlbaranProveedor.frViewProveedorAlbaranButton2Click(Sender: TObject); @@ -219,7 +193,7 @@ begin if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del la orden de devolución actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then Exit; end; - frViewProveedorAlbaran.actAnadirContacto.Execute; + FViewProveedorAlbaran.AnadirNuevoProveedor; end; function TfrViewAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor; @@ -227,7 +201,7 @@ begin Result := FAlbaran; end; -function TfrViewAlbaranProveedor.GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor; +function TfrViewAlbaranProveedor.GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran; begin Result := FViewProveedorAlbaran; end; @@ -243,7 +217,7 @@ begin dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable.Active := True; - frViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor; + FViewProveedorAlbaran.Albaran := FAlbaran; frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran; eReferenciaPedidoCli.Enabled := False; @@ -267,14 +241,9 @@ begin else begin DADataSource.DataTable := NIL; dsFormaPago.DataTable := NIL; - frViewProveedorAlbaran.Proveedor := nil; + FViewProveedorAlbaran.Albaran := nil; frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := Nil; end; end; -procedure TfrViewAlbaranProveedor.SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor); -begin - FViewProveedorAlbaran := Value; -end; - end. diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm new file mode 100644 index 00000000..63e7dd9e --- /dev/null +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm @@ -0,0 +1,657 @@ +inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran + Width = 505 + Height = 171 + ExplicitWidth = 505 + ExplicitHeight = 171 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 505 + Height = 171 + Margins.Left = 0 + Margins.Top = 0 + Margins.Right = 0 + Margins.Bottom = 0 + Align = alClient + ParentBackground = True + TabOrder = 0 + TabStop = False + AutoContentSizes = [acsWidth, acsHeight] + DesignSize = ( + 505 + 171) + object edtlNombre: TcxDBTextEdit + Left = 63 + Top = 41 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + DataBinding.DataField = 'NOMBRE' + DataBinding.DataSource = dsProveedor + Enabled = False + ParentFont = False + Properties.ReadOnly = True + Properties.UseLeftAlignmentOnEditing = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 2 + Height = 21 + Width = 224 + end + object edtNIFCIF: TcxDBTextEdit + Left = 392 + Top = 41 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + DataBinding.DataField = 'NIF_CIF' + DataBinding.DataSource = dsProveedor + Enabled = False + ParentFont = False + Properties.ReadOnly = True + Properties.UseLeftAlignmentOnEditing = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 3 + Height = 21 + Width = 103 + end + object edtPersonaContacto: TcxDBTextEdit + Left = 63 + Top = 101 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + DataBinding.DataField = 'PERSONA_CONTACTO_PROV' + DataBinding.DataSource = dsAlbaran + ParentFont = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 6 + Height = 21 + Width = 283 + end + object edtDireccion: TcxTextEdit + Left = 63 + Top = 70 + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 4 + Width = 121 + end + object Button4: TButton + Left = 472 + Top = 68 + Width = 23 + Height = 25 + Action = actElegirDireccion + TabOrder = 5 + end + object Button5: TButton + Left = 472 + Top = 99 + Width = 23 + Height = 25 + Action = actElegirPersonaContacto + TabOrder = 7 + end + object Button3: TBitBtn + Left = 297 + Top = 130 + Width = 198 + Height = 25 + Action = actVerContacto + Caption = 'Ver ficha completa del proveedor...' + TabOrder = 8 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000000000000000000000000000000000000FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D3BDAE006543 + 2E0065432E0065432E0065432E0065432E0065432E0065432E0065432E006543 + 2E0065432E0065432E0065432E0065432E0065432E0065432E00D3BDAE00F6F1 + EE00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F + 8F00B49F8F00B49F8F00B49F8F00B49F8F00B49F8F0065432E00D3BDAE00241B + 7C00190B6B00190B6B00190B6B00190B6B00190B6B00190B6B00241B7C00E2D3 + CC00DFCFC700DECDC400DBC9BF00DAC7BD00B49F8F0065432E00D3BDAE00584D + A5002C2D870031299D003123A1003123A20030299B002B2C8900190B6B00E6DA + D3009E7058009E7058009E7058009E705800B49F8F0065432E00D3BDAE007C75 + B9002D2B92003223A300402F9800412F9B003324A4002D299200190B6B00E9DF + D800E6DAD300E3D5CE00E1D1C900DECDC400B49F8F0065432E00D3BDAE00CFCB + E700473DA400412A90006D8BA8006B8DA300422D8E00190B6B00EEE7E200ECE3 + DE009E7058009E7058009E7058009E705800B49F8F0065432E00D3BDAE00FFFF + FF00C7B6DC004B9A9D005198C6004A93C0004A8A8B00ADA5C000F1EBE700EEE7 + E200ECE3DE00E9DFD800E6DAD300E3D5CE00B49F8F0065432E00D3BDAE00FFFF + FF00A2CBE70059A6DC0058A6DC0053A1D7004D97CA009DB7C800F5EFEC00F1EB + E700EEE7E200ECE3DE00E9DFD800E6DAD300B49F8F0065432E00D3BDAE00EBF6 + FA0068B6DE0061AEE40061ADE4005BA8DE00529FD500649BBC00F7F4F000F5EF + EC00F1EBE700EEE7E200ECE3DE00E9DFD800B49F8F0065432E00D3BDAE00E8F6 + FA0057ADD30058A3D30061ACDE005EABE10054A0D6002F81A400FAF8F600F7F4 + F000F79D6F00F79D6F00F79D6F00F79D6F00B49F8F0065432E00D3BDAE00F4FA + FC0074BEDC00529DCB00529AC8004F99C8004089B8002F81A400FDFCFB00FAF8 + F600F7F4F000F5EFEC00F1EBE700EEE7E200B49F8F0065432E00D3BDAE00FFFF + FF00CCE9F4005EB2DD0059A4D300478EBC002F81A400C4DBE500FFFFFF00FDFC + FB00F79D6F00F79D6F00F79D6F00F79D6F00B49F8F0065432E00D3BDAE00FFFF + FF00FFFFFF00CCE9F400A2CBE700A2CBE700CCE9F400FFFFFF00FFFFFF00FFFF + FF00FEFEFD00FCFAF900F9F6F400F6F1EE00F2EDE90065432E00D3BDAE00D3BD + AE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BD + AE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00D3BDAE00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} + end + object Button1: TBitBtn + Left = 10 + Top = 10 + Width = 120 + Height = 25 + Action = actElegirContacto + Caption = 'Elegir un proveedor' + TabOrder = 0 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000000000000000000000000000000000000FF00FF00FF00 + FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10 + AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00B118C10040407B00344A830031498F002F4596002F4499002F4597003148 + 900033498500374678005A3E5300D201D200FF00FF00FF00FF00FF00FF00FF00 + FF004E42860035508100314990002E429C002C3CA6002B3AAA002B3BA7002D40 + 9E0030479200344F840038577500A0189F00FF00FF00FF00FF00FF00FF00FF00 + FF004C428900334D89002F4499002B3CA8002835B4002631BB002734B6002A3A + AB002E429C00324B8C0036537B00B015B100FF00FF00FF00FF00FF00FF00FF00 + FF008726B300324A8D002D409E002938AF003138B6007A7BCB002830BF002835 + B2002D3FA10031499000483B8700EC01EC00FF00FF00FF00FF00FF00FF00FF00 + FF00F002F60051379D002D409F002937B000808AA300D2D3D3008181BB002834 + B2002D3FA2003A3F9300C511CE00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00EE02F4007324B7003C359300598CAE00498CBB004A81A600392A + 71005929A600D608E100FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B + C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F + D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4 + D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7 + DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9 + DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198 + C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F + A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378 + AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116 + E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} + end + object BitBtn1: TBitBtn + Left = 136 + Top = 10 + Width = 149 + Height = 25 + Action = actAnadirContacto + Caption = 'Dar de alta un proveedor' + TabOrder = 1 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000000000000000000000000000000000000FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947 + 3100694731006947310069473100694731006947310069473100694731006947 + 3100694731006947310069473100694731006947310069473100D5BFB100F6F2 + EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2 + 9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB100271E + 80001C0D6F001C0D6F001C0D6F001C0D6F001C0D6F001C0D6F00271E8000E3D5 + CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB1005C51 + A8002F308B00352CA0003526A4003526A500332C9E002E2F8D001C0D6F00E7DB + D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB1008079 + BC00302E95003626A60044329B0045329E003727A700302C95001C0D6F00EAE0 + DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100D1CD + E8004B41A700452D9400718FAB006F91A600463092001C0D6F00EFE8E300EDE4 + DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF + FF00C9B9DD004F9DA000559BC8004E96C2004E8E8F00B0A8C200F2ECE800EFE8 + E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF + FF00A5CDE8005DA9DD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC + E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6 + FA006CB9DF0065B1E50065B0E5005FABDF0056A2D700689EBE00F7F4F100F5F0 + ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6 + FA005BB0D5005CA6D50065AFDF0062AEE20058A3D8003285A700FAF8F600F7F4 + F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA + FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060 + 0000006000000060000040D86500006000000060000000600000D5BFB100FFFF + FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060 + 000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF + FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060 + 000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF + B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF + B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group1: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item7: TdxLayoutItem + ShowCaption = False + Control = Button1 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item10: TdxLayoutItem + ShowCaption = False + Control = BitBtn1 + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group4: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item1: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Nombre:' + Control = edtlNombre + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item2: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + Caption = 'NIF/CIF:' + Control = edtNIFCIF + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group3: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item4: TdxLayoutItem + AutoAligns = [] + AlignHorz = ahClient + AlignVert = avCenter + Caption = 'Direcci'#243'n' + Control = edtDireccion + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item5: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + Caption = 'Button4' + ShowCaption = False + Control = Button4 + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group5: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group2: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item3: TdxLayoutItem + AutoAligns = [] + AlignHorz = ahClient + AlignVert = avCenter + Caption = 'Contacto:' + Control = edtPersonaContacto + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item6: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + ShowCaption = False + Control = Button5 + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Item9: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + ShowCaption = False + Control = Button3 + ControlOptions.ShowBorder = False + end + end + end + end + object dsProveedor: TDADataSource + Left = 400 + Top = 8 + end + object ActionList1: TActionList + Images = PngImageList + Left = 368 + Top = 8 + object actElegirContacto: TAction + Caption = 'Elegir un proveedor' + ImageIndex = 1 + OnExecute = actElegirContactoExecute + end + object actAnadirContacto: TAction + Caption = 'Dar de alta un proveedor' + ImageIndex = 0 + OnExecute = actAnadirContactoExecute + end + object actVerContacto: TAction + Caption = 'Ver ficha completa del proveedor...' + ImageIndex = 2 + OnExecute = actVerContactoExecute + OnUpdate = actVerContactoUpdate + end + object actElegirDireccion: TAction + Caption = '...' + OnExecute = actElegirDireccionExecute + OnUpdate = actElegirDireccionUpdate + end + object actElegirPersonaContacto: TAction + Caption = '...' + OnExecute = actElegirPersonaContactoExecute + OnUpdate = actElegirPersonaContactoUpdate + end + end + object dsAlbaran: TDADataSource + Left = 336 + Top = 8 + end + object PngImageList: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000002254944415478DA95936D48535118 + C7FFB7E58535192C322B880A217A238841238212E94B048EA217E88B26158210 + 548322082422FD52862D30823230BF14A4511823D2185834B60537F37DA516B2 + B6B6E6BABB77F7DC97EE3DE6192303F7C0E1790E9CFFEFFFF0F01C0EA5443D0C + 567782B312D7DB3F642C55EF7DB41D1D1DF5686CEC446FDD1018A0B67A1BBD88 + 89287ECF0CD3BA7CFD56382A76CD3F3AC531485BFB499C3FD7CDEE0C60897F84 + FC90E608E28914E2D959EC3FE1C7DAAA3D1460394B8A8244364B8F5577DD1A9C + 071CDABB015383D7F1EB6B0C9A66620D0D994C06493985A39742283B6D638E67 + 2E57E37EEB407107073DAB301EB800E438ACB0DB613301393187E8F418BC17DF + 83A81AAE3D056E0ED871B8C98D6777C3B853D387078F9F2F002AF13DD80C5ECE + C39AB34214C89284597525DCC7DBA0AA3A85ACF139997311C09A413CD20D71E2 + 95D53F544290CD29D0377A51B5FB18155B670144888637EF3E160362810F087E + BB812D3A6F7690475806DCEB1AB0F940CD3F622B07434201E071AAE8F75DC1CF + A482CA861D20CB74241F0E6372F2337CE302155FBDFDA268273C3B5717008EC0 + 138CBEEC814BE621963B613397CC2ECE215596C7D854124D42843993BF9D8485 + 9102406A6FC1CC1701152A8FE50AE88EE6791D691BC1742C85B391105AEE05FE + DF41B4EE08D26971D1F575B91CA8ED7B4D5D35DDA05937F3A7D18902609F7B13 + BA7ADE96F4AFAC6080E6567FC962B68986B1E4CFB868FC01A6204E3EB3788BD6 + 0000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AC400000AC401666D82D400000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000002B44944415478DA7D925F4853511C + C77F67F75EF7A799BB9A6E3A5B85A0203EA820F892502121119A523E14141A41 + F5A244819144E4430F452F99580385A4D0CC2009410B940CCC4CA60BB2F04F43 + 65B639B7DD6DF7EEFED93D9D2D144DE60F0E07CEF97D3FE7F7FBFE0EC218433C + 1042B01973AFAF5C0088DDF007B82CCF7AD0E15C70DFBF63774EC0B6D8D2FD0F + 70F65C6C345BD8673C1FD5F8FD41F0F903E0F571FCA8E34F4DE7E0FCC89E80BE + E6727D7E699ECBA0D7668A920CA15004DCDE0028B204EE7561AEA9FD5B19490D + 2707DCABA8CC31A70F531A0A045186154F042C19FBC1A803F8E5F2E0B61EE7C9 + F9656E2429E0537B75E34658B2CB0A02D6B41FF20F9A00A90A48621478418047 + 2FA71ABA865D5D4901939DD575D66C733FCD3089B398A2804CCA97451144318A + EFDA271BFBC7579203DEB41DCD2EC93FEC6252521204555549FF72C2038E8B28 + 35AD1F2A577DE2E89E5398B6D7F6A6A51ACE25920820168B5721C3C4ECEADCE5 + C79315E4D8BB27A0BBB9DC5A54689E326A198B4AEEE26D6C04C3D2ADE7D34D5F + 7EF83B928E311E2DD6828C9C5CE629C2A6B3D67A1B4A05F20722C49BDE0D9C6B + 084E3804E1EA8BEF4B33DB3FD416A0E550119B9E478F6762B590151408D5D543 + 71552DAC0DBC0561F01504F631E0A534A121257466646CE1E32E40EBF1D227AC + 1E5D677919D8A8025AD041E6892A08BF1F8010B1D46F60C8A2614DC4CB0FBE3A + 4A30877D3B00B74F95B94C14B699C8EB6904601463A0555490290491140A823A + 1A027A1AFC64B77B17EBD7C6BC7D3B00374F972DA6D2E8489AF84F6C9054A055 + 6222F156603410D652C011711CD4BDFCFB9AE7B3BB6307E0FCB1E24B590C7A98 + C150E946ACA2F8EB14B9520940A43410411A08A8587AA78DCDFE1C9A69C01276 + EE9A0219E5019D8D2E305A0C36D05384031A2C2AB2129579C52773FC6ACC4DD2 + 968826B0A9F90BC88690F0ED1F7E3F0000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001FA4944415478DA + A5934B6813511486BF342610A2C50A86A220150BA2145C58D120828ABA2AD2BA + F0B510C48D1B1154A828A55D5877825474AB45375D58A80B9385292DA8A8B151 + 6B6D8DB50F43C1B4C624364C1E73E7E19DA96408B50BCDC0E5CC65E6FFFE7FCE + DCE3324D936A2E577FE46355041BD076B0C9DE280B23E412E3F6FD9A4DDBF107 + 76965F3464524D33109A8E2A7459350E1FBFEC002CF1FCEB1EF28B82F98534C9 + 5C9203A7EFB2A1712F9A6E70A557AD706EA88970FFD1C012E0E8BECDCC3EEF22 + 33338DAECBA7A64E36FB8B5431C389EBB12557B93461D8CED6FE71F8A5036809 + AE271EBA0879177E9F0FB704284A9ED8B7498EB5476D71671F2B276809D63337 + D481B75892EEC86F5429140A7CD7D6D17CEA4E85B3D5070B181A8A3A00AB07C9 + B70F512643567E8410E4F22A46432B8D7B4E2E130BD9C4672F629580A9D02B86 + E76EB0CDF0CA0425A205D8B5F11C5B8F1C5A26B6D6F09B0F0E2058AB11B97495 + D44F95FAB34D881A831F0F26989A9EA0FDEB275B7CEDD6938A1EECDE117000FE + 701FF1A703D4153D28AB6B71E3C2A72C92F6A8C413292E8CBD2F3B8B3F67213A + 3AEE000AB7BB49CC8E11D03CAC92BFDB251D4A5E93B45B90984973FEDD08DDF7 + C22B27889D69239355FE7A54EBD6FA690D0FDAAEBA61DAD59075F4F31707B0BF + 790BBDFD83FF3C076540D7CD9EFF1FA66AC7F93783B161288AF0DFC000000000 + 49454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end> + Left = 432 + Top = 8 + Bitmap = {} + end +end diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas new file mode 100644 index 00000000..9bbc40bc --- /dev/null +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.pas @@ -0,0 +1,421 @@ +unit uViewDatosYSeleccionProveedorAlbaran; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel, + cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos, + ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit, + pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask, + DBCtrls, uProveedoresController, dxLayoutControl, Buttons, uDAInterfaces, + cxMaskEdit, cxButtonEdit, uBizAlbaranesProveedor, uBizDireccionesContacto, + uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons; + +type + IViewDatosYSeleccionProveedorAlbaran = interface(IViewBase) + ['{F1E1FFC0-02C9-47F5-92BC-BE10FA2C5134}'] + function GetAlbaran: IBizAlbaranProveedor; + procedure SetAlbaran(const Value: IBizAlbaranProveedor); + property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran; + + function GetProveedor: IBizProveedor; + procedure SetProveedor(Value: IBizProveedor); + property Proveedor: IBizProveedor read GetProveedor write SetProveedor; + + function GetID_Proveedor: integer; + procedure SetID_Proveedor(const Value: integer); + property ID_Proveedor: integer read GetID_Proveedor write SetID_Proveedor; + + function GetOnProveedorChanged : TNotifyEvent; + procedure SetOnProveedorChanged (const Value : TNotifyEvent); + property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged + write SetOnProveedorChanged; + + procedure ElegirPersonaContacto; + procedure ElegirDireccionProveedor; + procedure ElegirProveedor; + procedure VerFichaProveedor; + procedure AnadirNuevoProveedor; + procedure RefrescarDireccion; + end; + + TfrViewDatosYSeleccionProveedorAlbaran = class(TfrViewBase, IViewDatosYSeleccionProveedorAlbaran) + dsProveedor: TDADataSource; + ActionList1: TActionList; + actElegirContacto: TAction; + actAnadirContacto: TAction; + actVerContacto: TAction; + dxLayoutControl1Group_Root: TdxLayoutGroup; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Item1: TdxLayoutItem; + edtlNombre: TcxDBTextEdit; + dxLayoutControl1Item2: TdxLayoutItem; + edtNIFCIF: TcxDBTextEdit; + dsAlbaran: TDADataSource; + actElegirDireccion: TAction; + actElegirPersonaContacto: TAction; + dxLayoutControl1Item3: TdxLayoutItem; + edtPersonaContacto: TcxDBTextEdit; + dxLayoutControl1Group4: TdxLayoutGroup; + dxLayoutControl1Item4: TdxLayoutItem; + edtDireccion: TcxTextEdit; + Button4: TButton; + dxLayoutControl1Item5: TdxLayoutItem; + dxLayoutControl1Group3: TdxLayoutGroup; + dxLayoutControl1Item6: TdxLayoutItem; + Button5: TButton; + dxLayoutControl1Group5: TdxLayoutGroup; + dxLayoutControl1Item9: TdxLayoutItem; + Button3: TBitBtn; + dxLayoutControl1Group2: TdxLayoutGroup; + dxLayoutControl1Item7: TdxLayoutItem; + Button1: TBitBtn; + dxLayoutControl1Item10: TdxLayoutItem; + BitBtn1: TBitBtn; + dxLayoutControl1Group1: TdxLayoutGroup; + PngImageList: TPngImageList; + procedure actElegirContactoExecute(Sender: TObject); + procedure actAnadirContactoExecute(Sender: TObject); + procedure actVerContactoUpdate(Sender: TObject); + procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure edtDireccionPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure actVerContactoExecute(Sender: TObject); + procedure actElegirDireccionUpdate(Sender: TObject); + procedure actElegirDireccionExecute(Sender: TObject); + procedure actElegirPersonaContactoExecute(Sender: TObject); + procedure actElegirPersonaContactoUpdate(Sender: TObject); + + private + FOnProveedorChanged : TNotifyEvent; + FMsgElegirProveedor: String; + protected + FProveedoresController : IProveedoresController; + FDireccionesController : IDireccionesContactoController; + FAlbaran : IBizAlbaranProveedor; + FProveedor : IBizProveedor; + FDireccion : IBizDireccionesContacto; + function GetProveedor: IBizProveedor; virtual; + procedure SetProveedor(Value: IBizProveedor); virtual; + function GetOnProveedorChanged : TNotifyEvent; + procedure SetOnProveedorChanged (const Value : TNotifyEvent); + procedure SetReadOnly(Value: Boolean); override; + function GetID_Proveedor: integer; virtual; + procedure SetID_Proveedor(const Value: integer); virtual; + function GetAlbaran: IBizAlbaranProveedor; + procedure SetAlbaran(const Value: IBizAlbaranProveedor); + procedure EscribirTextoDireccion; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure ElegirPersonaContacto; + procedure ElegirDireccionProveedor; + procedure ElegirProveedor; + procedure VerFichaProveedor; + procedure AnadirNuevoProveedor; + procedure RefrescarDireccion; + property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran; + property Proveedor: IBizProveedor read GetProveedor write SetProveedor; + property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged write SetOnProveedorChanged; + property ID_Proveedor: integer read GetID_Proveedor write SetID_Proveedor; + end; + +implementation + +{$R *.dfm} + +uses + uDataModuleProveedores, Math, uCustomView, uBizContactosPersonal, uDialogUtils; + + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirContactoExecute(Sender: TObject); +begin + ElegirProveedor; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirDireccionExecute( + Sender: TObject); +begin + inherited; + ElegirDireccionProveedor; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirDireccionUpdate( + Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := not ReadOnly and Assigned(FProveedor.Direcciones) and + (FProveedor.Direcciones.Active) and (FProveedor.Direcciones.RecordCount > 0); +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirPersonaContactoExecute( + Sender: TObject); +begin + inherited; + ElegirPersonaContacto; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actElegirPersonaContactoUpdate( + Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := not ReadOnly and Assigned(FProveedor.Personal) and + (FProveedor.Personal.Active) and (FProveedor.Personal.RecordCount > 0); +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actAnadirContactoExecute( + Sender: TObject); +begin + AnadirNuevoProveedor; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actVerContactoExecute( + Sender: TObject); +begin + inherited; + VerFichaProveedor; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.actVerContactoUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0); +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.AnadirNuevoProveedor; +var + AProveedor : IBizProveedor; +begin + inherited; + AProveedor := (FProveedoresController.Nuevo as IBizProveedor); + FProveedoresController.Ver(AProveedor); + Self.Proveedor := AProveedor; +end; + +constructor TfrViewDatosYSeleccionProveedorAlbaran.Create(AOwner: TComponent); +begin + inherited; + FMsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.'; + FProveedoresController := TProveedoresController.Create; + FDireccionesController := TDireccionesContactoController.Create; + + edtlNombre.Enabled := False; + edtNIFCIF.Enabled := False; + edtDireccion.Enabled := False; + edtPersonaContacto.Enabled := False; +end; + +destructor TfrViewDatosYSeleccionProveedorAlbaran.Destroy; +begin + FProveedoresController := NIL; + FDireccionesController := NIL; + inherited; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.edtDireccionPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + inherited; + ElegirDireccionProveedor; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.edtPersonaContactoPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + inherited; + ElegirPersonaContacto; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.ElegirProveedor; +var + AProveedor : IBizProveedor; +begin + inherited; + + AProveedor := (FProveedoresController.ElegirContacto(FProveedoresController.BuscarTodos, FMsgElegirProveedor, False) as IBizProveedor); + + if Assigned(AProveedor) then + Self.Proveedor := AProveedor; + AProveedor := Nil; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.ElegirDireccionProveedor; +var + ADireccion : IBizDireccionesContacto; +begin + inherited; + ADireccion := FProveedoresController.ElegirDireccionEntrega(FProveedor, ' '); + + if Assigned(ADireccion) then + begin + FDireccion := ADireccion; + FAlbaran.Edit; + + if FDireccion.IDIsNull then + begin + FAlbaran.ClearField('ID_DIRECCION'); + FAlbaran.ClearField('IMPORTE_PORTE'); + end + else begin + FAlbaran.ID_DIRECCION := FDireccion.ID; + FAlbaran.IMPORTE_PORTE := FDireccion.PORTE; + end; + FAlbaran.PERSONA_CONTACTO_PROV := FDireccion.PERSONA_CONTACTO; + + EscribirTextoDireccion; + end; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.ElegirPersonaContacto; +var + APersona : IBizContactoPersonal; +begin + inherited; + APersona := FProveedoresController.ElegirPersonaContacto(FProveedor.Personal, + 'El proveedor dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.'); + if Assigned(APersona) then + begin + FAlbaran.Edit; + FAlbaran.PERSONA_CONTACTO_PROV := APersona.NOMBRE; + end; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.EscribirTextoDireccion; +var + ACadena : String; +begin + ACadena := ''; + + if Assigned(FDireccion) then + ACadena := Format('%s %s %s %s', + [FDireccion.CALLE, FDireccion.POBLACION, + FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]); + + edtDireccion.Text := ACadena; +end; + +function TfrViewDatosYSeleccionProveedorAlbaran.GetProveedor: IBizProveedor; +begin + Result := FProveedor; +end; + +function TfrViewDatosYSeleccionProveedorAlbaran.GetID_Proveedor: integer; +begin + Result := -1; + if Assigned(FProveedor) then + Result := FProveedor.ID; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.SetProveedor(Value: IBizProveedor); +begin + FProveedor := Value; + if Assigned(FProveedor) then + begin + dsProveedor.DataTable := FProveedor.DataTable; + + if not FProveedor.DataTable.Active then + FProveedor.DataTable.Active := True; + + edtPersonaContacto.Enabled := True; + + if FProveedor.Direcciones.RecordCount > 0 then + ElegirDireccionProveedor + else begin + FAlbaran.Edit; + FAlbaran.PERSONA_CONTACTO_PROV := FProveedor.PERSONA_CONTACTO; + RefrescarDireccion; + end; + end + else begin + dsProveedor.DataTable := NIL; + FProveedor := NIL; + FDireccion := NIL; + edtPersonaContacto.Enabled := False; + end; + + if Assigned(FOnProveedorChanged) then + FOnProveedorChanged(Self); +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.SetID_Proveedor(const Value: integer); +begin + Self.Proveedor := IBizProveedor(FProveedoresController.Buscar(Value)); +end; + +function TfrViewDatosYSeleccionProveedorAlbaran.GetOnProveedorChanged: TNotifyEvent; +begin + Result := FOnProveedorChanged; +end; + +function TfrViewDatosYSeleccionProveedorAlbaran.GetAlbaran: IBizAlbaranProveedor; +begin + Result := FAlbaran; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.RefrescarDireccion; +begin + FDireccion := FDireccionesController.Nuevo; + + if (not FAlbaran.ID_DIRECCIONIsNull) and + (FDireccionesController.Localizar(FProveedor.Direcciones, FAlbaran.ID_DIRECCION)) then + FDireccionesController.CopiarDireccion(FProveedor.Direcciones, FDireccion) + else + FDireccionesController.CopiarDireccionFiscal(FProveedor, FDireccion); + + EscribirTextoDireccion; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.SetOnProveedorChanged( + const Value: TNotifyEvent); +begin + FOnProveedorChanged := Value; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.SetAlbaran( + const Value: IBizAlbaranProveedor); +begin + FAlbaran := Value; + if Assigned(FAlbaran) then + begin + dsAlbaran.DataTable := FAlbaran.DataTable; + + FProveedor := FAlbaran.Proveedor; + dsProveedor.DataTable := FProveedor.DataTable; + + if not FProveedor.DataTable.Active then + FProveedor.DataTable.Active := True; + + edtPersonaContacto.Enabled := True; + RefrescarDireccion; + end + else begin + dsAlbaran.DataTable := NIL; + FProveedor := NIL; + FDireccion := NIL; + end; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.SetReadOnly(Value: Boolean); +begin + inherited; + + if (csLoading in Self.ComponentState) then + Exit; + + actAnadirContacto.Enabled := not ReadOnly; + actElegirContacto.Enabled := not ReadOnly; + edtPersonaContacto.Enabled := not ReadOnly; +end; + +procedure TfrViewDatosYSeleccionProveedorAlbaran.VerFichaProveedor; +begin + if not Assigned(Proveedor) then + ShowErrorMessage('No se ha indicado un proveedor', 'El pedido no tiene ningún proveedor asociado a mostrar.') + else begin + FProveedoresController.Ver(Proveedor); + end; +end; + +end. diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index b10c6f1069c56bff54b5e7d889b601f66e40c15b..7e7c906b2914d1d1e4167ffb362ce9215a22f4a6 100644 GIT binary patch delta 249 zcmX@GopHrh#tkJASq1`JJPdHa$iT)RAi%)D$RNRx!3v_`JQfB9CI$rsh};Se1_ovX z52%BM!N342$H&0Hir}d-0L^4zSi?B^UW6PIkop(lA;JPQ85M9bPL7IHVtU3fxh_&{ z@{>q|$#d&3K%jOau`w>To@7=N`N#7*nEh3VIxKpM@yAT(}q5-!`Rq(ZNkz^ONG_8#ZXI^MwWfk)>umsBj4Ac?SRM(S0Pz6i~p|PwE zREkL;qoRs-yTI0fS}_sZ0X>0lQ~o$xCflELwyv1v+BT)uLylBUBzNKU)>^^m6&sOeuLA;-% zYJbel%CnDvN?m&Mf_F=Xk9+Du_5=@1GAqr!?iMD4V(~1tim~{V4tYavM7s&Ula?dO sFW0V&(2~FIW@AW34^y5o_8_nio41M~xFy0=+FoP%5JxybNBZ9BKM_t!)c^nh diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 7321eaa9..61627ba3 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,323 +1,323 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - -FalseTrueFalse/standaloneTrueFalse1470FalseFalseFalseFalseFalse308212521.4.7.01.4.7.0jueves, 27 de noviembre de 2008 16:53FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - -
srvTiposIVA
- 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 + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + + FalseTrueFalse/standaloneTrueFalse1470FalseFalseFalseFalseFalse308212521.4.7.01.4.7.0jueves, 27 de noviembre de 2008 16:53FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +