diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index edecce87c..6fabb13d8 100644
Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ
diff --git a/Contabilidad/OCDetalleAlmacen.aspx b/Contabilidad/OCDetalleAlmacen.aspx
index 49a17fbd0..c9cd7bbd9 100644
--- a/Contabilidad/OCDetalleAlmacen.aspx
+++ b/Contabilidad/OCDetalleAlmacen.aspx
@@ -37,7 +37,8 @@
                 <asp:BoundField DataField="Cargo" HeaderText="Cargo"  DataFormatString="{0:C2}" ></asp:BoundField>                              
                 <asp:BoundField DataField="Abono" HeaderText="Abono"  DataFormatString="{0:C2}"></asp:BoundField>                              
                 <asp:BoundField DataField="Dif" HeaderText="Dif"  DataFormatString="{0:C2}" ></asp:BoundField>                              
-                <asp:BoundField DataField="CveCompra" HeaderText="CveCompra"></asp:BoundField>     
+                <asp:BoundField DataField="CveCompra" HeaderText="CveCompra"></asp:BoundField>   
+                 <asp:BoundField DataField="Fecha" HeaderText="Fecha"></asp:BoundField>
                                          
             </Columns>
         </asp:GridView>
diff --git a/Contabilidad/OCDetalleAlmacen.aspx.vb b/Contabilidad/OCDetalleAlmacen.aspx.vb
index 1c74b5520..840691ef0 100644
--- a/Contabilidad/OCDetalleAlmacen.aspx.vb
+++ b/Contabilidad/OCDetalleAlmacen.aspx.vb
@@ -35,7 +35,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
 
 
 
-        If ObjConta.GetOCDetalleAlmacen(1000D, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetOCDetalleAlmacen(100000D, UsuarioActual.CveEmpresa) Then
 
             If ObjConta.DtResultados.Rows.Count > 0 Then
                 DTDatos = ObjConta.DtResultados
@@ -95,7 +95,7 @@ Partial Class Contabilidad_OCDetalleAlmacen
 
 
             If Chk IsNot Nothing AndAlso Chk.Checked Then
-                CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, modulo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
                 GvDrow.Cells(1).Text = CvePrePoliza.ToString
                 mensaje = mensaje & $"CvePrePoliza {CvePrePoliza  }  OC: {Folio}  Importe :{Diferencia} <br>"