From abac284ad0238f97cc7beaa6be6f86d909d5782d Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 11 Jan 2008 10:54:29 +0000
Subject: [PATCH] =?UTF-8?q?Se=20habilita=20la=20generaci=C3=B3n=20de=20fac?=
 =?UTF-8?q?turas=20a=20partir=20de=20los=20albaranes,=20se=20tiene=20que?=
 =?UTF-8?q?=20modificar=20AlbCli=5FfacCli=5Frelation=20porque=20el=20compo?=
 =?UTF-8?q?rtamiento=20de=20los=20dataabstract=20al=20hacer=20dos=20insert?=
 =?UTF-8?q?=20seguidos=20inplica=20un=20post=20(Despues=20de=20hacer=20el?=
 =?UTF-8?q?=20seguimiento=20se=20observa=20que=20el=20autoinc=20de=20los?=
 =?UTF-8?q?=20campos=20claves,=20provoca=20un=20cambio=20en=20la=20variabl?=
 =?UTF-8?q?e=20modified=20que=20provoca=20el=20post=20en=20el=20dataset=20?=
 =?UTF-8?q?de=20delphi.?=
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.Acana_FactuGES2/trunk@98 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Views/FacturasCliente_view.dpk            |   3 +-
 .../Views/FacturasCliente_view.dproj          |  52 ++++--------------
 .../Views/FacturasCliente_view.res            | Bin 32 -> 5056 bytes
 .../Views/uEditorFacturasCliente.pas          |   4 +-
 .../AlbCli_FacCli_relation.dpk                |  20 ++-----
 .../AlbCli_FacCli_relation.res                | Bin 32 -> 5056 bytes
 .../uGenerarFacturasCliAlbCliUtils.pas        |   2 +-
 7 files changed, 19 insertions(+), 62 deletions(-)

diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
index e0e2a530..730b5d39 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk	
@@ -29,7 +29,8 @@ requires
   FacturasCliente_model,
   FacturasCliente_controller,
   Contactos_view,
-  Articulos_view;
+  Articulos_view,
+  AlbCli_FacCli_relation;
 
 contains
   uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
index 2f2f0dbb..b7de9dad 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
@@ -41,53 +41,14 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">3082</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">FacturasCliente_view.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="FacturasCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
     <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
     <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
     <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
@@ -95,15 +56,19 @@
     <DCCReference Include="..\..\Lib\GUIBase.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
       <Form>fEditorElegirArticulosFacturaCliente</Form>
+      <DesignClass>TForm</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirFacturasCliente.pas">
       <Form>fEditorElegirFacturasCliente</Form>
+      <DesignClass>TfEditorElegirFacturasCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorFacturaCliente.pas">
       <Form>fEditorFacturaCliente</Form>
+      <DesignClass>TfEditorFacturaCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorFacturasCliente.pas">
       <Form>fEditorFacturasCliente</Form>
+      <DesignClass>TfEditorFacturasCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorFacturasClienteReport.pas">
       <Form>fEditorFacturasClientePreview</Form>
@@ -111,19 +76,22 @@
     <DCCReference Include="uFacturasClienteViewRegister.pas" />
     <DCCReference Include="uViewDetallesFacturaCliente.pas">
       <Form>frViewDetallesFacturaCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewElegirArticulosFacturasCliente.pas">
       <Form>frViewElegirArticulosFacturasCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewFacturaCliente.pas">
       <Form>frViewFacturaCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewFacturasCliente.pas">
       <Form>frViewFacturasCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644
GIT binary patch
literal 5056
zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA
z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^
zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%<H)w9v)iTH127q{qXp)&8xW)6MlQro{s1I
z=>Llk7>S*pvE<P%TA%O5t8M1iio?{LPxr*;#4S`z+Fc)g#h&&g#=PVuPjYGN#$r5b
z0WYwr!x9ILIX>7;Yjz^+ljNYba;|&8!P>=GYp<<v7!SPQ(0Ax>9J^QiRC`-*du(Wb
zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@
zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu
zrr<Dd%05f0<E5wmw6kBlO~$hRp_>{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW
zo|xv^j<v+dlz&dYi}m1xf#%TNTCbSw2flJQGT|Qme&q4!Z=2Tp)Y}^E12Hw&$pK$*
zm$1cwzUC4it>nf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3
z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x
z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9
zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT
z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW
z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^
z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59<wkq`a8
z|7xSx>r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+Ro<w-
zxM?i0@cc%=r;&5D2EGT2a=)RW;79${*WQ}(j%ID*T^sfXZk6J+*7rx=&tqNQNpZ;U
zcGj%odtY~*e|IFtY`p*c{Hae(F!*tQkqcdDcW%;74O4603-KFjtixJ-orSp9&@Vm0
zA%AF$^MgKq1M!~wxcb~v!`T!sV!-DP<hzPo$wx)>Hfz^$cuqg(^F;eqz6WUMUE^m$
z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h<I-Q_(4d*IMSn_5gC=6SDP
z#9=t|Gce#X^~>1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo
zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$
zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N
zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY
zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU
zF#m_6?>Cia!<S9h99+1nv0b}mwLU+z&(yl%2({x~SDWXTOMm`DzA#22S4C6LC0UGk
z*FS#qfm?Q9kL<4P+a0?uf6s0!^S*s$4;1yY$LvVejuh_LRdImP8_Kq!(Fb<l9@?Jb
zznAJg^==OU+a8lSuW9C6`@*pv3iGbk?hmm$_OhZgc2}{F6g|egYwrj>E%D)b;IaF{
zzPG~QEyw>z^LKm}whzS<wRh}mt&Aslj&YwWV$Z(Ry8H5v>>Dx3Ct`1w98?Y5<V|m^
zK-B0{#XeBB@1*@;g`ugI=w6OlRllnJb=MWO2aOse!)s1-*Lf$aaW~E0^pg+@_qFPt
NBBy(C`N|)c{soGtd8+^b

delta 5
McmX@0t}sCX00sd8xBvhE

diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
index d9b3e817..6de0b1e1 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas	
@@ -64,7 +64,7 @@ implementation
 uses
   uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
 //  uPedidosClienteController, uBizPedidosCliente,
-//  uGenerarFacturasCliAlbCliUtils,
+  uGenerarFacturasCliAlbCliUtils,
   uBizAlbaranesCliente,
   uEditorBase,  uGridUtils, uDBSelectionListUtils;
 
@@ -304,7 +304,7 @@ begin
                   end;}
                 end;
       200   : begin   // Utilizar albaranes
-//                  GenerarFacturaCli;
+                  GenerarFacturaCli;
                   actRefrescar.Execute;
       end;
       100    : begin   // Albaran nuevo vacio
diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk
index 6e8e712a..23f76caa 100644
--- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk	
+++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk	
@@ -22,25 +22,13 @@ package AlbCli_FacCli_relation;
 {$WRITEABLECONST OFF}
 {$MINENUMSIZE 1}
 {$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
 
 requires
-  rtl,
-  Base,
-  ControllerBase,
-  Contactos_model,
-  Contactos_controller,
-  PNG_D10,
-  vcl,
-  JSDialog100,
-  vclx,
-  vclactnband,
-  xmlrtl,
-  designide,
-  AlbaranesCliente_controller,
   AlbaranesCliente_model,
-  FacturasCliente_controller,
-  FacturasCliente_model;
+  FacturasCliente_model,
+  AlbaranesCliente_controller,
+  FacturasCliente_controller;
 
 contains
   uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCli},
diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res
index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644
GIT binary patch
literal 5056
zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA
z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^
zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%<H)w9v)iTH127q{qXp)&8xW)6MlQro{s1I
z=>Llk7>S*pvE<P%TA%O5t8M1iio?{LPxr*;#4S`z+Fc)g#h&&g#=PVuPjYGN#$r5b
z0WYwr!x9ILIX>7;Yjz^+ljNYba;|&8!P>=GYp<<v7!SPQ(0Ax>9J^QiRC`-*du(Wb
zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@
zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu
zrr<Dd%05f0<E5wmw6kBlO~$hRp_>{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW
zo|xv^j<v+dlz&dYi}m1xf#%TNTCbSw2flJQGT|Qme&q4!Z=2Tp)Y}^E12Hw&$pK$*
zm$1cwzUC4it>nf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3
z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x
z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9
zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT
z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW
z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^
z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59<wkq`a8
z|7xSx>r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+Ro<w-
zxM?i0@cc%=r;&5D2EGT2a=)RW;79${*WQ}(j%ID*T^sfXZk6J+*7rx=&tqNQNpZ;U
zcGj%odtY~*e|IFtY`p*c{Hae(F!*tQkqcdDcW%;74O4603-KFjtixJ-orSp9&@Vm0
zA%AF$^MgKq1M!~wxcb~v!`T!sV!-DP<hzPo$wx)>Hfz^$cuqg(^F;eqz6WUMUE^m$
z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h<I-Q_(4d*IMSn_5gC=6SDP
z#9=t|Gce#X^~>1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo
zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$
zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N
zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY
zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU
zF#m_6?>Cia!<S9h99+1nv0b}mwLU+z&(yl%2({x~SDWXTOMm`DzA#22S4C6LC0UGk
z*FS#qfm?Q9kL<4P+a0?uf6s0!^S*s$4;1yY$LvVejuh_LRdImP8_Kq!(Fb<l9@?Jb
zznAJg^==OU+a8lSuW9C6`@*pv3iGbk?hmm$_OhZgc2}{F6g|egYwrj>E%D)b;IaF{
zzPG~QEyw>z^LKm}whzS<wRh}mt&Aslj&YwWV$Z(Ry8H5v>>Dx3Ct`1w98?Y5<V|m^
zK-B0{#XeBB@1*@;g`ugI=w6OlRllnJb=MWO2aOse!)s1-*Lf$aaW~E0^pg+@_qFPt
NBBy(C`N|)c{soGtd8+^b

delta 5
McmX@0t}sCX00sd8xBvhE

diff --git a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
index 71e2f6b1..328269d0 100644
--- a/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas	
+++ b/Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas	
@@ -188,7 +188,7 @@ begin
      AAlbaran.DataTable.Active := True;
 
   try
-     AFacturasNuevas := AFacturasClienteController.Nuevo;
+     AFacturasNuevas := AFacturasClienteController.Buscar(-100); //Nuevo; OJO pendiente de arreglar
      if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then
      begin
        if AFacturasNuevas.DataTable.RecordCount = 1 then