diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb
index 729e1c1f4..b93b363dc 100644
--- a/App_Code/ClsSubProyectos.vb
+++ b/App_Code/ClsSubProyectos.vb
@@ -387,7 +387,7 @@ Public Class ClsSubProyectos
     Public Function UpdateCentroCosto(CveSubProyecto As Integer, SubProyecto As String, IdSegNeg As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveProyecto As Integer, Optional Serie As String = "", Optional IVA As Double = 0.0, Optional Calle As String = "", Optional NoExt As String = "",
                          Optional NoInt As String = "", Optional Colonia As String = "", Optional Localidad As String = "", Optional Municipio As String = "", Optional Estado As String = "", Optional Pais As String = "", Optional CP As String = "", Optional TipoSucursal As Integer = 0, Optional EsSucursal As Integer = 0,
                                        Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1, Optional AplicaComercioExterior As Boolean = False, Optional Correo As String = "", Optional CvePrecioLista As Integer = -1,
-                                      Optional Telefono As String = "") As Boolean
+                                      Optional Telefono As String = "", Optional HorarioVerano As Integer = Nothing, Optional HorarioInvierno As Integer = Nothing) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_CentroCostoUpdate")
@@ -421,6 +421,8 @@ Public Class ClsSubProyectos
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@HorarioVerano", SqlDbType.Int).Value = HorarioVerano
+            .Add("@HorarioInvierno", SqlDbType.Int).Value = HorarioInvierno
         End With
 
         Try
diff --git a/App_Code/ClsTSoft.vb b/App_Code/ClsTSoft.vb
index 201d58cd6..02b128961 100644
--- a/App_Code/ClsTSoft.vb
+++ b/App_Code/ClsTSoft.vb
@@ -30,10 +30,12 @@ Public Class ClsTSoft
         End With
 
         Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex2 As SqlClient.SqlException
+            GuardaLogAD(String.Format("Ocurrió un Error al agregar la Remision.{0}{1}", ex2.ToString, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()), "LogGPS")
         Catch ex As Exception
-            OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index f5d08a7ca..651133fb9 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1981,7 +1981,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime) As Boolean
+    Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleAdd")
 
@@ -2003,6 +2003,7 @@ Public Class ClsVentas
             .Add("@AplicaDomingo", SqlDbType.Bit).Value = AplicaDomingo
             .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio
             .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin
+            .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
         End With
 
         Try
@@ -2014,7 +2015,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime) As Boolean
+    Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleUpdate")
 
@@ -2037,6 +2038,7 @@ Public Class ClsVentas
             .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio
             .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin
             .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
+            .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima
         End With
 
         Try
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 33322b9bd..6f69c7760 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -206,6 +206,8 @@ Partial Class Bancos_RepEgresosSinComprobante
                 If gr.FCCheckBox("Chk").Checked Then
                     Dim CveCuenta As Integer = 0
                     Dim IdCtaContable As Integer = 0
+                    Dim TipoMovtoOtIngresos As Boolean = True
+                    Dim TipoMovtoConcepto As Boolean = False
                     Dim CveConceptoContable As Integer
 
                     Select Case gr.DataKey("CveConceptoContable").ToEntero
@@ -213,6 +215,8 @@ Partial Class Bancos_RepEgresosSinComprobante
                             CveConceptoContable = 21
                         Case 28
                             CveConceptoContable = 29
+                            TipoMovtoOtIngresos = False
+                            TipoMovtoConcepto = True
                         Case 37
                             CveConceptoContable = 43
                         Case 42
@@ -236,14 +240,14 @@ Partial Class Bancos_RepEgresosSinComprobante
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 892ab282d..af1d633b9 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14402,7 +14402,7 @@ Partial Class Compras_Compras
             If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
                 Select Case DdlOCVinculaInv.SelectedValue.ToEntero
                     Case 176
-                        DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario = 3 AND CveTipoPS = 2) OR CveTipoPS = 1")
+                        DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1")
                     Case 205
                         DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (1,2) AND CveTipoPS = 2) OR CveTipoPS = 1")
                 End Select
diff --git a/Empresas/Grales/Formatos/EntradaSalida.rdlc b/Empresas/Grales/Formatos/EntradaSalida.rdlc
index ab4023c24..8310200d3 100644
--- a/Empresas/Grales/Formatos/EntradaSalida.rdlc
+++ b/Empresas/Grales/Formatos/EntradaSalida.rdlc
@@ -6,36 +6,27 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.3062cm</Width>
+              <Width>1.72112cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.91752cm</Width>
+              <Width>2.33244cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>6.8596cm</Width>
+              <Width>7.27452cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.28535cm</Width>
+              <Width>2.70027cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.48327cm</Width>
+              <Width>1.89819cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.45899cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>1.42465cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>1.65165cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>1.83539cm</Width>
+              <Width>1.87391cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.42054cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -54,7 +45,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Center</TextAlign>
+                            <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -99,7 +90,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Center</TextAlign>
+                            <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -144,7 +135,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Center</TextAlign>
+                            <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -189,7 +180,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Center</TextAlign>
+                            <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -234,7 +225,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Center</TextAlign>
+                            <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -279,7 +270,7 @@
                             </TextRun>
                           </TextRuns>
                           <Style>
-                            <TextAlign>Center</TextAlign>
+                            <TextAlign>Left</TextAlign>
                           </Style>
                         </Paragraph>
                       </Paragraphs>
@@ -307,145 +298,10 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox13">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Unidad Medida</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox13</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <TopBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </TopBorder>
-                        <BottomBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </BottomBorder>
-                        <BackgroundColor>White</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox17">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Precio</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox17</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <TopBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </TopBorder>
-                        <BottomBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </BottomBorder>
-                        <BackgroundColor>White</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox19">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Importe</Value>
-                              <Style>
-                                <FontSize>8pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox19</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <TopBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </TopBorder>
-                        <BottomBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </BottomBorder>
-                        <BackgroundColor>White</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.36717cm</Height>
+              <Height>0.69042cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -458,12 +314,14 @@
                             <TextRun>
                               <Value>=Fields!Cantidad.Value</Value>
                               <Style>
-                                <FontSize>7.5pt</FontSize>
-                                <Format>N2</Format>
+                                <FontSize>10.5pt</FontSize>
+                                <Format>0;(0)</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>
-                          <Style />
+                          <Style>
+                            <TextAlign>Left</TextAlign>
+                          </Style>
                         </Paragraph>
                       </Paragraphs>
                       <rd:DefaultName>Cantidad</rd:DefaultName>
@@ -489,7 +347,7 @@
                             <TextRun>
                               <Value>=Fields!Codigo.Value</Value>
                               <Style>
-                                <FontSize>7.5pt</FontSize>
+                                <FontSize>10.5pt</FontSize>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -521,7 +379,7 @@
                             <TextRun>
                               <Value>=Fields!PS.Value</Value>
                               <Style>
-                                <FontSize>7.5pt</FontSize>
+                                <FontSize>10.5pt</FontSize>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -551,7 +409,7 @@
                             <TextRun>
                               <Value>=Fields!SerieLote.Value</Value>
                               <Style>
-                                <FontSize>7.5pt</FontSize>
+                                <FontSize>10.5pt</FontSize>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -581,7 +439,7 @@
                             <TextRun>
                               <Value>=Fields!Lote.Value</Value>
                               <Style>
-                                <FontSize>7.5pt</FontSize>
+                                <FontSize>10.5pt</FontSize>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -611,7 +469,7 @@
                             <TextRun>
                               <Value>=Fields!Batch.Value</Value>
                               <Style>
-                                <FontSize>7.5pt</FontSize>
+                                <FontSize>10.5pt</FontSize>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -630,106 +488,6 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="UnidadMedida">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!UnidadMedida.Value</Value>
-                              <Style>
-                                <FontSize>7.5pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>UnidadMedida</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="PU">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!PU.Value</Value>
-                              <Style>
-                                <FontSize>7.5pt</FontSize>
-                                <Format>N2</Format>
-                                <Language>Es-MX</Language>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>PU</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Total">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!Total.Value</Value>
-                              <Style>
-                                <FontSize>7.5pt</FontSize>
-                                <Format>N2</Format>
-                                <Language>Es-MX</Language>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Total</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
               </TablixCells>
             </TablixRow>
           </TablixRows>
@@ -750,9 +508,6 @@
                 <Hidden>=IIF(String.IsNullOrEmpty(Fields!Batch.Value), True,False)</Hidden>
               </Visibility>
             </TablixMember>
-            <TablixMember />
-            <TablixMember />
-            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -768,8 +523,8 @@
         <DataSetName>DsInventarios</DataSetName>
         <Top>0.17639cm</Top>
         <Left>0.12931cm</Left>
-        <Height>0.96717cm</Height>
-        <Width>20.22262cm</Width>
+        <Height>1.11095cm</Height>
+        <Width>17.80043cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -793,8 +548,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>1.35263cm</Top>
-        <Left>0.12931cm</Left>
+        <Top>1.39318cm</Top>
+        <Left>0.16459cm</Left>
         <Height>0.6cm</Height>
         <Width>11.36782cm</Width>
         <ZIndex>1</ZIndex>
@@ -812,7 +567,7 @@
     <Height>0.82291in</Height>
     <Style />
   </Body>
-  <Width>8.03498in</Width>
+  <Width>7.12873in</Width>
   <Page>
     <PageHeader>
       <Height>3.79401cm</Height>
@@ -860,6 +615,7 @@
                 <TextRun>
                   <Value>=Parameters!Concepto.Value</Value>
                   <Style>
+                    <FontSize>12pt</FontSize>
                     <FontWeight>Bold</FontWeight>
                   </Style>
                 </TextRun>
@@ -870,7 +626,7 @@
           <rd:DefaultName>Textbox34</rd:DefaultName>
           <Top>1.02789cm</Top>
           <Left>3.73711cm</Left>
-          <Height>0.6cm</Height>
+          <Height>0.95277cm</Height>
           <Width>8.10916cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
@@ -1028,78 +784,6 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
-        <Textbox Name="Textbox8">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Fecha Impresion:</Value>
-                  <Style>
-                    <FontStyle>Normal</FontStyle>
-                    <FontSize>9pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Right</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox5</rd:DefaultName>
-          <Top>1.06316cm</Top>
-          <Left>12.13213cm</Left>
-          <Height>0.6cm</Height>
-          <Width>2.90426cm</Width>
-          <ZIndex>7</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox37">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>=Parameters!FechaImpresion.Value</Value>
-                  <Style>
-                    <FontStyle>Normal</FontStyle>
-                    <FontWeight>Normal</FontWeight>
-                    <Format>d</Format>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Left</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox33</rd:DefaultName>
-          <Top>1.06316cm</Top>
-          <Left>15.03639cm</Left>
-          <Height>0.6cm</Height>
-          <Width>2.89335cm</Width>
-          <ZIndex>8</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
         <Textbox Name="Textbox3">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
@@ -1107,15 +791,9 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>Folio</Value>
-                  <Style>
-                    <FontSize>12pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>:</Value>
+                  <Value>Folio:</Value>
                   <Style>
+                    <FontSize>16pt</FontSize>
                     <FontWeight>Bold</FontWeight>
                   </Style>
                 </TextRun>
@@ -1126,11 +804,11 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>0.31501cm</Top>
-          <Left>13.20958cm</Left>
-          <Height>0.59999cm</Height>
-          <Width>1.82681cm</Width>
-          <ZIndex>9</ZIndex>
+          <Top>0.35028cm</Top>
+          <Left>12.99791cm</Left>
+          <Height>0.89103cm</Height>
+          <Width>2.06494cm</Width>
+          <ZIndex>7</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1150,7 +828,7 @@
                 <TextRun>
                   <Value>=Parameters!Folio.Value</Value>
                   <Style>
-                    <FontSize>14pt</FontSize>
+                    <FontSize>16pt</FontSize>
                     <FontWeight>Bold</FontWeight>
                     <Color>Red</Color>
                   </Style>
@@ -1163,10 +841,10 @@
           </Paragraphs>
           <rd:DefaultName>Textbox31</rd:DefaultName>
           <Top>0.31501cm</Top>
-          <Left>15.14222cm</Left>
-          <Height>0.63526cm</Height>
-          <Width>2.13045cm</Width>
-          <ZIndex>10</ZIndex>
+          <Left>15.06284cm</Left>
+          <Height>0.9263cm</Height>
+          <Width>2.57165cm</Width>
+          <ZIndex>8</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1198,7 +876,7 @@
           <Left>12.17799cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>
-          <ZIndex>11</ZIndex>
+          <ZIndex>9</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1230,7 +908,7 @@
           <Left>13.98125cm</Left>
           <Height>0.6cm</Height>
           <Width>3.94849cm</Width>
-          <ZIndex>12</ZIndex>
+          <ZIndex>10</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1264,7 +942,7 @@
           <Left>13.98125cm</Left>
           <Height>0.59999cm</Height>
           <Width>3.94849cm</Width>
-          <ZIndex>13</ZIndex>
+          <ZIndex>11</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1296,7 +974,7 @@
           <Left>12.17799cm</Left>
           <Height>0.59999cm</Height>
           <Width>1.80326cm</Width>
-          <ZIndex>14</ZIndex>
+          <ZIndex>12</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1315,7 +993,7 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>1.21709cm</Height>
+      <Height>2.22251cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -1406,6 +1084,78 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Impresion:</Value>
+                  <Style>
+                    <FontStyle>Normal</FontStyle>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox5</rd:DefaultName>
+          <Top>1.49022cm</Top>
+          <Left>11.83688cm</Left>
+          <Height>0.6cm</Height>
+          <Width>2.90426cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox37">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!FechaImpresion.Value</Value>
+                  <Style>
+                    <FontStyle>Normal</FontStyle>
+                    <FontWeight>Normal</FontWeight>
+                    <Format>d</Format>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox33</rd:DefaultName>
+          <Top>1.49022cm</Top>
+          <Left>14.74114cm</Left>
+          <Height>0.6cm</Height>
+          <Width>2.89335cm</Width>
+          <ZIndex>5</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
       </ReportItems>
       <Style>
         <Border>
@@ -1415,7 +1165,7 @@
     </PageFooter>
     <PageHeight>29.7cm</PageHeight>
     <PageWidth>21cm</PageWidth>
-    <LeftMargin>1.5cm</LeftMargin>
+    <LeftMargin>0.5cm</LeftMargin>
     <RightMargin>1.5cm</RightMargin>
     <TopMargin>2cm</TopMargin>
     <BottomMargin>2cm</BottomMargin>
diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb
index 9cfe144b4..8b04d2dc5 100644
--- a/Inventarios/PrestamosdeProveedor.aspx.vb
+++ b/Inventarios/PrestamosdeProveedor.aspx.vb
@@ -179,7 +179,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then
                         ErrorMovInv = True
                     Else
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=tValorInventario) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=tValorInventario) Then
                             ErrorMovInv = True
                         End If
                     End If
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 3617f527e..9b59e3357 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -8,8 +8,8 @@ Imports System.IO
 Imports System.Linq
 
 Partial Class Inventarios_RecepcionAlmacen
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Shared missing As Object = System.Reflection.Missing.Value
     Private Property EstatusInicial As String
@@ -368,9 +368,9 @@ Partial Class Inventarios_RecepcionAlmacen
             CargaPermisos()
 
         End If
-    End Sub
-
-
+    End Sub
+
+
 #Region "  PERMISOS PAGINAS  "
     Private Sub CargaPermisos()
 
@@ -385,9 +385,9 @@ Partial Class Inventarios_RecepcionAlmacen
         'SECCION ALMACEN EXISTENCIAS
         GvInv.Columns(11).Visible = UsuarioActual.Empresa.Funcionalidad(563).ToString = "1"
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
         CveCompraParametro = -1
@@ -499,9 +499,9 @@ Partial Class Inventarios_RecepcionAlmacen
 
         UpFiltros.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  CARGA URL PARAMETROS  "
     Private Sub CargaUrlParametros()
 
@@ -533,9 +533,9 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  MODALIDAD RECEPCION  "
     Protected Sub DdlTipo_SelectedIndexChanged(sender As Object, e As EventArgs)
         ModalidadRecepcion()
@@ -572,11 +572,11 @@ Partial Class Inventarios_RecepcionAlmacen
 
         CargaFoliosRecepcion()
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "  CARGA FOLIOS RECEPCION  "
     Protected Sub ddlProveedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProveedor.selectedindexchange
         CargaFoliosRecepcion()
@@ -665,9 +665,9 @@ Partial Class Inventarios_RecepcionAlmacen
 
         DdlFletes.DataBind()
         DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  CARGA POR SURTIR - GV  "
     Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)
         CargaPendientes()
@@ -731,9 +731,9 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
 
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " CARGA POR SURTIR "
     Protected Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click
 
@@ -1054,9 +1054,9 @@ Partial Class Inventarios_RecepcionAlmacen
 
         CargaGVInv()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  GVINV  "
     Private Sub CreaDTInv(TmDT As DataTable)
         TmDT.Columns.Add("CveAlmacen", GetType(Integer))
@@ -1183,11 +1183,11 @@ Partial Class Inventarios_RecepcionAlmacen
 
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  AGREGAR  "
-
+
 #Region "  AGREGA CON TXT | CODIGO - SERIE  "
     Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
 
@@ -1293,9 +1293,9 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
         TxtCantidadEspecialDiv.Text = "1"
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  AGREGA POR SERIE/LOTE   "
     Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs)
 
@@ -1525,10 +1525,10 @@ Partial Class Inventarios_RecepcionAlmacen
 
         DtDatosDetalle.AcceptChanges()
         CargaSerie(1)
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  AGREGAR POR LOTE BATCH  "
     Private Sub CreaDtLoteDetalle()
         If DtDatosLoteDetalle Is Nothing Then
@@ -1693,11 +1693,11 @@ Partial Class Inventarios_RecepcionAlmacen
 
         DtDatosLoteDetalle.AcceptChanges()
         CargaLote(1)
-    End Sub
+    End Sub
 #End Region
-
+
 #End Region
-
+
 #Region "  GUARDAR  "
     Private Function ValidaGuardar() As Boolean
 
@@ -2021,661 +2021,608 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim CvePrePoliza = -1
         Dim MensajeContabilidad = ""
 
-        Try
-            'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES
-            If CveOCSurtir > 0 And CveMoneda <> 1 Then
-                TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate)
-            End If
-
-            If HdnTipoDocto.Value <> "Fac" Then RecibidaCompleta = False
-
-            'ENTRADA ALMACÉN
-            CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text)
-            If CveMovimiento > 0 Then
-                InvFolio = ObjInventario.Folio.ToString
-                Dim DtDetalle As New DataTable
-                Dim DtDetalleLote As New DataTable
-                Dim PU As Decimal = 0.0D
-                Dim PUExtranjero As Decimal = 0.0D
-                Dim CostoIndirecto As Decimal = 0.0D
-                Dim SumaTotal As Decimal = 0.0D
-                Dim Cont As Integer = 0
-                For Each gvr As GridViewRow In GvInv.Rows
-                    If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
-
-                        PU = DtInv.Rows(gvr.RowIndex)("PU").ToString.ToDecimal
-                        CostoIndirecto = DtInv.Rows(gvr.RowIndex)("CostoIndirecto").ToString.ToDecimal
-                        PUExtranjero = DtInv.Rows(gvr.RowIndex)("PUExtranjero").ToString.ToDecimal
-
-                        'SI FUE POR SERIE LOTE
-                        DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec").ToEntero))
-                        DtDetalleLote = DtDatosLoteDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec").ToEntero))
-                        If DtDetalle.Rows.Count > 0 Then
-                            Dim ContDt As Integer = 0
-                            For Each Dr As DataRow In DtDetalle.Rows
-                                SumaTotal += PU + CostoIndirecto
-                                If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalle.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
-                                    PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (PU))
-                                End If
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), SerieLote:=Dr("Serie").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-                                ContDt += 1
-                            Next
-                        ElseIf DtDetalleLote.Rows.Count > 0 Then
-                            Dim ContDt As Integer = 0
-                            For Each Dr As DataRow In DtDetalleLote.Rows
-                                SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
-                                If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
-                                    PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
-                                End If
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-
-                                ContDt += 1
-                            Next
-                        Else
-                            SumaTotal += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU + CostoIndirecto) ' considerar el costo indirecto para el ajuste
-                            If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> Math.Round(SumaTotal, 2) Then
-                                Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
-
-                                PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
-                            End If
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, gvr.FCTextBox("TbCantidadF").Text.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-
-                        End If
-
-                        If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
-                            For Each Dr As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {gvr.RowIndex}").Rows
-                                If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("CantidadSeccionAlmacen").ToString.ToDecimal) Then
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-                            Next
-                        End If
-                        Cont += 1
-                    End If
-                Next
-            Else
-                ErrorMovInv = True
-            End If
-
-            ''VALIDACIÓN DE IMPORTES INGRESADOS VS LA COMPRA U OC
-
-            If Not ErrorMovInv AndAlso RecibidaCompleta AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                Dim dtt As DataTable = ObjInventario.DtResultados
-                Dim tTotalInsertado As Decimal = dtt.SUMD("TotalOriginal")
-                If CveTipoCompra = 8 Then 'entrada almacen con costo indirecto cargado en la misma compra
-                    tTotalInsertado = dtt.SUMD("Total") ' está incluido el costo indirecto en la factura
-                End If
-                If Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) <> Math.Round(tTotalInsertado, 2) Then
-                    ErrorMovInv = True
-                    Alert("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado, TipoMensaje.MsgError)
-                    GuardaLog("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado)
-                End If
-            End If
-
-
-            'SI RECEPCION VALIDA [ENTREGADIRECTA, APARTADOS, AC]
-            If TipoMovimiento = 1 Then
-                'ENTREGA DIRECTA
-                If EntregaDirecta Then
-                    If Not ErrorMovInv Then
-                        Dim CveVenta As Integer = 0
-                        Dim Dt As DataTable = Nothing
-
-                        If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                            If ObjInventario.DtResultados.Rows.Count > 0 Then
-                                Dt = ObjInventario.DtResultados
-                                CveVenta = ObjInventario.DtResultados.Rows(0)("CveVenta").ToString.ToEntero
-                            End If
-                        End If
-
-                        CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente)
-                        FolioSalidaDirecta = ObjInventario.Folio
-
-                        If Not CveMovtoSalidaDirecta > 0 Then
-                            ErrorMovInv = True
-                        End If
-
-                        If Not ErrorMovInv Then
-                            For Each Dr As DataRow In Dt.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-                            Next
-                        End If
-
-                        If Not ErrorMovInv Then
-                            If Not ObjInventario.LimpiaEntregaDirecta(CveMovimiento) Then
-                                ErrorMovInv = True
-                            End If
-                        End If
-
-                        If Not ErrorMovInv Then
-                            If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ) Then
-                                ErrorMovInv = True
-                            End If
-                        End If
-
-                    End If
-                End If
-
-                'APARTADOS
-                If Apartado Then
-                    If ObjInventario.GetMovimientosDetalleVendedor(CveMovimiento) Then
-                        Dim CveMovtoSalidaActual = -1
-                        Dim CveMovtoEntradaActual = -1
-                        Dim CveVendedorActual = -1
-                        Dim CveClienteActual = -1
-
-                        Dim CveAlmacenDestino = CveAlmacenApartado
-                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-
-                            If CveVendedorActual = -1 Or (Dr("CveVendedor").ToString.ToEntero <> CveVendedorActual Or Dr("CveCliente").ToString.ToEntero <> CveClienteActual) Then
-                                CveMovtoSalidaActual = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 8, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, MovimientoFijo:=True, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text)
-                                MovtosSalida.Add(CveMovtoSalidaActual)
-                                FoliosSalida.Add(ObjInventario.Folio)
-
-                                CveMovtoEntradaActual = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, CveMovimientoRelacionado:=CveMovtoSalidaActual, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text)
-                                MovtosEntrada.Add(CveMovtoEntradaActual)
-                                FoliosEntrada.Add(ObjInventario.Folio)
-
-                                CveVendedorActual = Dr("CveVendedor").ToString.ToEntero
-                                CveClienteActual = Dr("CveCliente").ToString.ToEntero
-                            End If
-
-                            If CveMovtoSalidaActual <= 0 Or CveMovtoEntradaActual <= 0 Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovtoEntradaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                ErrorMovInv = True
-                                Exit For
-                            End If
-                        Next
-                    End If
-                End If
-                'VIRTUAL
-                Dim DtTamanios As New DataTable("DtTamanios")
-                DtTamanios.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
-                DtTamanios.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
-                DtTamanios.Columns.Add(New DataColumn("PU", GetType(Decimal)))
-                DtTamanios.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
-
-                If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then
-                    For Each GvRow As GridViewRow In GvInv.Rows
-                        If GvRow.RowType = DataControlRowType.DataRow Then
-                            For Each Tam As DataRow In ObjAcum.DtResultados.Rows
-                                If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then
-                                    Dim Row As DataRow = DtTamanios.NewRow()
-
-                                    Row("CvePS") = Tam("CvePSCargo").ToString().ToEntero()
-                                    Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal()
-                                    Row("PU") = GvRow.DataKey("PU").ToDecimal()
-                                    Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
-
-                                    DtTamanios.Rows.Add(Row)
-                                End If
-                            Next
-                        End If
-                    Next
-                End If
-
-                'If DtTamanios.Rows.Count = 0 Then
-                '    ErrorMovInv = True
-                'End If
-
-                If DtTamanios IsNot Nothing AndAlso DtTamanios.Rows.Count > 0 Then
-                    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero()
-
-                    Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
-
-                    CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim)
-                    FolioVirtual = ObjInventario.Folio
-
-                    For Each RowUsado As DataRow In DtTamanios.Rows
-                        Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                        Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble()
-                        Dim PU As Double = RowUsado("PU").ToString().ToDouble()
-                        Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                            ErrorMovInv = True
-                            Exit For
-                        End If
-                    Next
-                End If
-
-                'DEVENGAR AC
-                If Not ErrorMovInv AndAlso UsuarioActual.Empresa.UsaAC Then
-                    Dim IDPoliza As Integer
-                    Dim TotalDetalle As Double = 0.0
-                    Dim TotalPorDevengar = 0.0
-                    TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4))
-                    TotalPorDevengar = Math.Round(TotalPorDevengar, 4)
-                    If ObjContaContPAQ Is Nothing Then
-                        ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                        ObjContaContPAQ.IniciaTransacSQL()
-                    End If
-
-                    IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto)
-                    If IDPoliza > 0 AndAlso ObjContaAC.GetCuentas(-1, "-1", -1) Then
-                        DtCuentas = ObjContaAC.DtResultados.Copy
-                        Dim drRegistroMatriz As DataRow
-                        Dim CuentaCargo As Integer
-                        Dim CuentaAbono As Integer
-                        Dim Importe = 0.0
-
-                        For Each gvr As GridViewRow In GvInv.Rows
-                            Importe = gvr.FCTextBox("TbCantidadF").Text.ToDouble * gvr.DataKey("PU").ToString.ToDouble
-                            TotalDetalle += Importe
-
-                            If Importe > 0 Then
-                                If ObjContaAC.AddMovimiento(IDPoliza, 1, False, Importe, "", "", 0, FechaMovto, "") Then
-                                    'actualizo el idcuenta del presupuesto
-                                    If Not ObjContaAC.AddMovimiento(IDPoliza, gvr.DataKey("IdCuentaComprometido").ToString.ToEntero, True, Importe, "", "", 0, FechaMovto, "") Then
-                                        ErrorMovInv = True
-                                        Exit For
-                                    End If
-                                Else
-                                    ErrorMovInv = True
-                                    Exit For
-                                End If
-
-                                'AFECTAR MATRIZ EGRESOS
-                                drRegistroMatriz = GlobalDTAC_MatrizEgresos.FiltroPrimero(String.Format("Partida = {0} And TipoGasto = {1}", gvr.DataKey("CodigoClasificacion").ToString, gvr.DataKey("CveTipoGasto").ToString))
-                                If drRegistroMatriz IsNot Nothing AndAlso drRegistroMatriz("CuentaCargo").ToString.ToEntero > 0 Then
-                                    CuentaCargo = DtCuentas.FiltroPrimeroValor("Id", String.Format("Codigo = '{0}'", drRegistroMatriz("CuentaCargo").ToString)).ToEntero
-                                    CuentaAbono = DtCuentas.FiltroPrimeroValor("Id", String.Format("Codigo = '{0}'", drRegistroMatriz("CuentaAbono").ToString)).ToEntero
-                                    If CuentaCargo > 0 AndAlso CuentaAbono > 0 Then
-                                        If ObjContaAC.AddMovimiento(IDPoliza, CuentaCargo, False, Importe, "", "", 0, FechaMovto, "") Then
-                                            If Not ObjContaAC.AddMovimiento(IDPoliza, CuentaAbono, True, Importe, "", "", 0, FechaMovto, "") Then
-                                                ErrorMovInv = True
-                                                Exit For
-                                            End If
-                                        Else
-                                            ErrorMovInv = True
-                                            Exit For
-                                        End If
-                                    Else
-                                        ErrorMovInv = True
-                                        Exit For
-                                    End If
-                                End If
-                                'TERMINA AFECTAR MATRIZ INGRESOS
-
-                            End If
-                        Next
-                        If TotalDetalle <= 0 AndAlso TotalPorDevengar >= TotalDetalle Then
-                            ErrorMovInv = True
-                        End If
-                    Else
-                        ErrorMovInv = True
-                    End If
-
-                    If ErrorMovInv Then
-                        Alert("Error al registrar los movimientos Contables", TipoMensaje.MsgError)
-                        RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
-                    End If
-                End If
-                'TERMINA: DEVENGAR
-            End If
-
-            'ACTUALIZA ESTATUS ALMACEN
-            If TipoMovimiento = 2 Then
-                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 0) Then
-                    ErrorMovInv = True
-                End If
-            End If
-
-            'AGREGA BITACORA TEMPORAL
-            If DtBitacora IsNot Nothing AndAlso DtBitacora.Rows.Count > 0 Then
-                ErrorMovInv = GuardaBitacoraTemporal(ObjBitacora, CveMovimiento)
-            End If
-
-            'PREPOLIZA - SOLO CUANDO SEA RECEPCIÓN
-            If TipoMovimiento = 1 AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                Dim DtCostos As DataTable = Nothing
-                Dim ValorInventario As Decimal = 0
-                DtCostos = ObjInventario.DtResultados
-                Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
-                Dim TotalCostoExtranjero As Decimal = DtCostos.SUM("TotalExtranjero").ToDecimal
-
-                'VARIABLES
-                Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-                Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-                Dim IdCtaContableRecepcion = -1
-                Dim IdCtaContableRecepcionME = -1
-                Dim IdCtaContableRecepcionComplementaria = -1
-                Dim Fecha As Date = Now
-                Dim CveProveedor As Integer = -1
-                Dim ProveedorNombre As String = ""
-                Dim SerieFolio As String = ""
-                Dim CveConceptoContableCosto = -1
-                Dim CveConceptoContableCostoME = -1
-                Dim CveConceptoContableCostoComplementaria = -1
-                Dim UsaComplementariaFleteImportaciones As Boolean = False
-                If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaFleteImportaciones = False
-
-                If DtCostos.Rows.Count > 0 Then
-                    If CveCompraSurtir > 0 Then
-                        If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-                            'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
-                            Fecha = TxtFecha.Text.ToDate
-                            CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
-                            ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
-                            SerieFolio = $"Compra: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
-                            CveConceptoContableCosto = 205
-                            CveConceptoContableCostoME = 230
-                            CveConceptoContableCostoComplementaria = 231
-
-                            If ObjConta.GetRetCuenta(205, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContableRecepcion = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
-
-                            If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(230, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContableRecepcionME = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
-
-                            If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(231, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContableRecepcionComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
-
-                        Else
-                            ErrorMovInv = True
-                        End If
-                    ElseIf CveOCSurtir > 0 Then
-                        If ObjOC.GetOC(CveOCSurtir, UsuarioActual.CveEmpresa) Then
-                            'Fecha = ObjOC.DtResultados(0)("Fecha").ToString.ToDate
-                            Fecha = TxtFecha.Text.ToDate
-                            CveProveedor = ObjOC.DtResultados(0)("CveProveedor").ToString.ToEntero
-                            ProveedorNombre = ObjOC.DtResultados(0)("RazonSocial").ToString
-                            SerieFolio = String.Format("{0} OC# {1} - Almacén# {2}", ProveedorNombre, ObjOC.DtResultados(0)("Folio"), ObjInventario.Folio)
-                            CveConceptoContableCosto = 176
-                            CveConceptoContableCostoME = 228
-                            CveConceptoContableCostoComplementaria = 229
-
-                            If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaFleteImportaciones = True
-
-                            If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContableRecepcion = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
-
-                            If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(228, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContableRecepcionME = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
-
-                            If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(229, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContableRecepcionComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
-                        Else
-                            ErrorMovInv = True
-                        End If
-                    End If
-
-                    If Not ErrorMovInv Then
-                        Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero
-                        CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                        If CvePrePoliza > 0 Then
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveSubProyecto:=CveSubProyecto, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
-
-                                'AGREGA POR CONCEPTO POR CVEOCDETALLE
-                                If CveOCSurtir > 0 Then
-                                    Dim TotalCostoDetalle As Decimal = 0
-                                    Dim TotalCostoAcumulado As Decimal = 0
-                                    Dim cont As Integer = 1
-                                    For Each Dr As DataRow In DtCostos.Rows
-                                        TotalCostoDetalle = (Dr("Total").ToString.ToDecimal)
-                                        TotalCostoExtranjero = Dr("TotalExtranjero").ToString.ToDecimal
-                                        TotalCostoAcumulado += Math.Round(TotalCostoDetalle, 2)
-
-                                        'si es el último movimiento verifica los importes que sean igual
-                                        If cont = DtCostos.Rows.Count AndAlso (Math.Round(TotalCosto, 2) <> Math.Round(TotalCostoAcumulado, 2)) Then
-                                            TotalCostoDetalle = TotalCostoDetalle + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2))
-                                            TotalCostoExtranjero = TotalCostoExtranjero + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2))
-                                        End If
-
-                                        If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
-                                            'COMPLEMENTARIA
-                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
-                                                    ErrorMovInv = True
-                                                    Exit For
-                                                End If
-                                            Else
-                                                ErrorMovInv = True
-                                                Exit For
-                                            End If
-                                        Else
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle, SerieFolio, CveConceptoContableCosto, SerieFolio, Fecha, IdCtaContableRecepcion, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle, CveCuenta:=-1, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
-                                                ErrorMovInv = True
-                                                Exit For
-                                            End If
-                                        End If
-                                        cont = cont + 1
-
-                                    Next
-                                Else
-                                    TotalCosto = DtCostos.SUMD("Total").RoundSQL
-                                    TotalCostoExtranjero = DtCostos.SUMD("TotalExtranjero")
-
-                                    If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
-                                        'COMPLEMENTARIA
-                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal) Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal) Then
-                                                ErrorMovInv = True
-                                            End If
-                                        Else
-                                            ErrorMovInv = True
-                                        End If
-                                    Else
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto, SerieFolio, CveConceptoContableCosto, SerieFolio, Fecha, IdCtaContableRecepcion, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=-1) Then
-                                            ErrorMovInv = True
-                                        End If
-                                    End If
-                                End If
-
-                            Else
-                                ErrorMovInv = True
-                            End If
-                        Else
-                            ErrorMovInv = True
-                        End If
-                    End If
-
-                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-                        If ObjConta.ValorPolizaDescuadre > 0 Then
-                            GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                            MensajeError = "El Movimiento presenta una diferencia en el registro."
-                            ErrorMovInv = True
-                        End If
-                    End If
-
-                    'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                    If Not ErrorMovInv Then
-
-                        If CvePrePolizaCompra > 0 Then
-                            If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                                If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
-                                    ErrorMovInv = True
-                                    MensajeError = "Error al unificar los conceptos contables"
-                                End If
-                            End If
-                        End If
-
-                        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                            If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                ErrorMovInv = True
-                                MensajeError = "Error al simplificar los conceptos contables"
-                            End If
-                        End If
-
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                            If ObjContaContPAQ Is Nothing Then
-                                ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                                ObjContaContPAQ.IniciaTransacSQL()
-                            End If
-                            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
-                                MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
-                            Else
-                                ErrorMovInv = True
-                                MensajeError = "Error al contabilizar los conceptos contables"
-                            End If
-                        End If
-
-                    End If
-
-                End If
-            End If
-
-            'PREPOLIZA - NC
-            If TipoMovimiento = 3 AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-
-                Dim DtCostos As DataTable = Nothing
-                DtCostos = ObjInventario.DtResultados
-                Dim TotalCosto As Decimal = DtCostos.SUM("Total").ToDecimal
-
-                Dim TotalNC As Decimal = 0
-                Dim CveClasificacionDifCostoNC = -1
-                Dim tTipoCambio As Decimal = 1
-                If CveMoneda <> 1 Then tTipoCambio = TipoCambio.ToDecimal
-
-                For Each gvr As GridViewRow In GvInv.Rows
-                    TotalNC += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * gvr.DataKey("PU").ToDecimal * tTipoCambio
-                    CveClasificacionDifCostoNC = gvr.DataKey("CveClasificacion").ToEntero
-                Next
-                Dim IdCtaContableClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionDifCostoNC}").ToEntero
-                Dim CveCuentaClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {CveClasificacionDifCostoNC}").ToEntero
-
-                TotalCosto = Math.Round(TotalCosto, 2)
-                TotalNC = Math.Round(TotalNC, 2)
-                Dim DifCostoNC = Math.Round(TotalCosto - TotalNC, 2)
-
-
-                'VARIABLES
-                Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-                Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
-                Dim Fecha As Date = TxtFecha.Text.ToDate
-                Dim CveProveedor As Integer = -1
-                Dim ProveedorNombre As String = ""
-                Dim SerieFolio As String = ""
-                Dim IdCtaContableNC = 0
-                Dim CveConceptoContableNC = -1
-
-                If DtCostos.Rows.Count > 0 Then
-                    If CveCompraSurtir > 0 Then
-                        If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-                            CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
-                            ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
-                            SerieFolio = $"NC: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
-
-                            CveConceptoContableNC = 225
-                            If ObjConta.GetRetCuenta(CveConceptoContableNC, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCtaContableNC = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
-                            End If
-
-                        Else
-                            ErrorMovInv = True
-                        End If
-                    End If
-
-                    If Not ErrorMovInv Then
-                        CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen-NC", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                        If CvePrePoliza > 0 Then
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalNC, SerieFolio, CveConceptoContableNC, SerieFolio, Fecha, IdCtaContableNC, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalNC) Then
-                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, CveCuenta:=CveCuentaAlmacen) Then
-                                    If DifCostoNC <> 0 Then
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, CveCuenta:=CveCuentaClasificacion) Then
-                                            ErrorMovInv = True
-                                        End If
-                                    End If
-                                Else
-                                    ErrorMovInv = True
-                                End If
-                            Else
-                                ErrorMovInv = True
-                            End If
-                        Else
-                            ErrorMovInv = True
-                        End If
-                    End If
-
-                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-                        If ObjConta.ValorPolizaDescuadre > 0 Then
-                            GuardaLogAD($"Inventarios/RecepcionAlmacen-PPNC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                            ErrorMovInv = True
-                        End If
-                    End If
-
-                    'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                    If Not ErrorMovInv Then
-
-                        If CvePrePolizaCompra > 0 Then
-                            If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                                If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
-                                    ErrorMovInv = True
-                                    MensajeError = "Error al unificar los conceptos contables"
-                                End If
-                            End If
-                        End If
-
-
-                        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                            If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                ErrorMovInv = True
-                                MensajeError = "Error al simplificar los conceptos contables"
-                            End If
-                        End If
-
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                            ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                            ObjContaContPAQ.IniciaTransacSQL()
-                            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
-                                MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
-                            Else
-                                ErrorMovInv = True
-                                MensajeError = "Error al contabilizar los conceptos contables"
-                            End If
-                        End If
-
-                    End If
-
-                End If
-            End If
-
-            'AGREGA SALDOS A OC SURTIDAS
-            If Not ErrorMovInv And CveOCSurtir > 0 Then
-                If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                        If Not ObjOC.OrdenesCompraDetalleSaldosInvCompraAdd(Dr("CveOrdenCompraDetalle").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero, Dr("Cantidad").ToString.ToDouble, -1, -1) Then
-                            ErrorMovInv = True
-                            Exit For
-                        End If
-                    Next
-                Else
-                    ErrorMovInv = True
-                End If
-            End If
-        Catch ex As Exception
-            ErrorMovInv = True
-            OnError("Ocurrió un error al guardar", ex)
-        End Try
-
-        'FINAL
+        'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES
+        If CveOCSurtir > 0 And CveMoneda <> 1 Then
+            TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate)
+        End If
+
+        If HdnTipoDocto.Value <> "Fac" Then RecibidaCompleta = False
+
+        'ENTRADA ALMACÉN
+        CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text)
+        If CveMovimiento > 0 Then
+            InvFolio = ObjInventario.Folio.ToString
+            Dim DtDetalle As New DataTable
+            Dim DtDetalleLote As New DataTable
+            Dim PU As Decimal = 0.0D
+            Dim PUExtranjero As Decimal = 0.0D
+            Dim CostoIndirecto As Decimal = 0.0D
+            Dim SumaTotal As Decimal = 0.0D
+            Dim Cont As Integer = 0
+            For Each gvr As GridViewRow In GvInv.Rows
+                If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
+
+                    PU = DtInv.Rows(gvr.RowIndex)("PU").ToString.ToDecimal
+                    CostoIndirecto = DtInv.Rows(gvr.RowIndex)("CostoIndirecto").ToString.ToDecimal
+                    PUExtranjero = DtInv.Rows(gvr.RowIndex)("PUExtranjero").ToString.ToDecimal
+
+                    'SI FUE POR SERIE LOTE
+                    DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec").ToEntero))
+                    DtDetalleLote = DtDatosLoteDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec").ToEntero))
+                    If DtDetalle.Rows.Count > 0 Then
+                        Dim ContDt As Integer = 0
+                        For Each Dr As DataRow In DtDetalle.Rows
+                            SumaTotal += PU + CostoIndirecto
+                            If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalle.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
+                                PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (PU))
+                            End If
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), SerieLote:=Dr("Serie").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                ErrorMovInv = True
+                                Exit For
+                            End If
+                            ContDt += 1
+                        Next
+                    ElseIf DtDetalleLote.Rows.Count > 0 Then
+                        Dim ContDt As Integer = 0
+                        For Each Dr As DataRow In DtDetalleLote.Rows
+                            SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
+                            If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
+                                PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
+                            End If
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                ErrorMovInv = True
+                                Exit For
+                            End If
+
+                            ContDt += 1
+                        Next
+                    Else
+                        SumaTotal += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU + CostoIndirecto) ' considerar el costo indirecto para el ajuste
+                        If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> Math.Round(SumaTotal, 2) Then
+                            Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
+
+                            PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
+                        End If
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, gvr.FCTextBox("TbCantidadF").Text.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+
+                    End If
+                    If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
+                        For Each Dr As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {gvr.RowIndex}").Rows
+                            If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("CantidadSeccionAlmacen").ToString.ToDecimal) Then
+                                ErrorMovInv = True
+                                Exit For
+                            End If
+                        Next
+                    End If
+                    Cont += 1
+                End If
+            Next
+        Else
+            ErrorMovInv = True
+        End If
+
+        ''VALIDACIÓN DE IMPORTES INGRESADOS VS LA COMPRA U OC
+
+        If Not ErrorMovInv AndAlso RecibidaCompleta AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+            Dim dtt As DataTable = ObjInventario.DtResultados
+            Dim tTotalInsertado As Decimal = dtt.SUMD("TotalOriginal")
+            If CveTipoCompra = 8 Then 'entrada almacen con costo indirecto cargado en la misma compra
+                tTotalInsertado = dtt.SUMD("Total") ' está incluido el costo indirecto en la factura
+            End If
+            If Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) <> Math.Round(tTotalInsertado, 2) Then
+                ErrorMovInv = True
+                Alert("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado, TipoMensaje.MsgError)
+                GuardaLog("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado)
+            End If
+        End If
+
+
+        'SI RECEPCION VALIDA [ENTREGADIRECTA, APARTADOS, AC]
+        If TipoMovimiento = 1 Then
+            'ENTREGA DIRECTA
+            If EntregaDirecta Then
+                If Not ErrorMovInv Then
+                    Dim CveVenta As Integer = 0
+                    Dim Dt As DataTable
+
+                    If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                        If ObjInventario.DtResultados.Rows.Count > 0 Then
+                            Dt = ObjInventario.DtResultados
+                            CveVenta = ObjInventario.DtResultados.Rows(0)("CveVenta").ToString.ToEntero
+                        End If
+                    End If
+
+                    CveMovtoSalidaDirecta = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), MovimientoFijo:=True, CveMovimientoRelacionado:=CveMovimiento, Remision:=TxtRemision.Text, CveVendedor:=CveVendedor, CveCliente:=CveCliente)
+                    FolioSalidaDirecta = ObjInventario.Folio
+
+                    If Not CveMovtoSalidaDirecta > 0 Then
+                        ErrorMovInv = True
+                    End If
+
+                    If Not ErrorMovInv Then
+                        For Each Dr As DataRow In Dt.Rows
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaDirecta, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                ErrorMovInv = True
+                                Exit For
+                            End If
+                        Next
+                    End If
+
+                    If Not ErrorMovInv Then
+                        If Not ObjInventario.LimpiaEntregaDirecta(CveMovimiento) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+
+                    If Not ErrorMovInv Then
+                        If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+
+                End If
+            End If
+
+            'APARTADOS
+            If Apartado Then
+                If ObjInventario.GetMovimientosDetalleVendedor(CveMovimiento) Then
+
+                    Dim CveMovtoSalidaActual = -1
+                    Dim CveMovtoEntradaActual = -1
+                    Dim CveVendedorActual = -1
+                    Dim CveClienteActual = -1
+
+                    Dim CveAlmacenDestino = CveAlmacenApartado
+                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
+                        If CveVendedorActual = -1 Or (Dr("CveVendedor").ToString.ToEntero <> CveVendedorActual Or Dr("CveCliente").ToString.ToEntero <> CveClienteActual) Then
+                            CveMovtoSalidaActual = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 8, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, MovimientoFijo:=True, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text)
+                            MovtosSalida.Add(CveMovtoSalidaActual)
+                            FoliosSalida.Add(ObjInventario.Folio)
+
+                            CveMovtoEntradaActual = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio), CveAlmacenDestino:=CveAlmacenDestino, CveMovimientoRelacionado:=CveMovtoSalidaActual, CveVendedor:=Dr("CveVendedor").ToString.ToEntero, CveCliente:=Dr("CveCliente").ToString.ToEntero, Remision:=TxtRemision.Text)
+                            MovtosEntrada.Add(CveMovtoEntradaActual)
+                            FoliosEntrada.Add(ObjInventario.Folio)
+
+                            CveVendedorActual = Dr("CveVendedor").ToString.ToEntero
+                            CveClienteActual = Dr("CveCliente").ToString.ToEntero
+                        End If
+
+                        If CveMovtoSalidaActual <= 0 Or CveMovtoEntradaActual <= 0 Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovtoSalidaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovtoEntradaActual, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+
+                    Next
+
+                End If
+            End If
+
+            'DEVENGAR AC
+            If Not ErrorMovInv AndAlso UsuarioActual.Empresa.UsaAC Then
+                Dim IDPoliza As Integer
+                Dim TotalDetalle As Double = 0.0
+                Dim TotalPorDevengar = 0.0
+                TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4))
+                TotalPorDevengar = Math.Round(TotalPorDevengar, 4)
+                If ObjContaContPAQ Is Nothing Then
+                    ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
+                    ObjContaContPAQ.IniciaTransacSQL()
+                End If
+
+                IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto)
+                If IDPoliza > 0 AndAlso ObjContaAC.GetCuentas(-1, "-1", -1) Then
+                    DtCuentas = ObjContaAC.DtResultados.Copy
+                    Dim drRegistroMatriz As DataRow
+                    Dim CuentaCargo As Integer
+                    Dim CuentaAbono As Integer
+                    Dim Importe = 0.0
+
+                    For Each gvr As GridViewRow In GvInv.Rows
+                        Importe = gvr.FCTextBox("TbCantidadF").Text.ToDouble * gvr.DataKey("PU").ToString.ToDouble
+                        TotalDetalle += Importe
+
+                        If Importe > 0 Then
+                            If ObjContaAC.AddMovimiento(IDPoliza, 1, False, Importe, "", "", 0, FechaMovto, "") Then
+                                'actualizo el idcuenta del presupuesto
+                                If Not ObjContaAC.AddMovimiento(IDPoliza, gvr.DataKey("IdCuentaComprometido").ToString.ToEntero, True, Importe, "", "", 0, FechaMovto, "") Then
+                                    ErrorMovInv = True
+                                    Exit For
+                                End If
+                            Else
+                                ErrorMovInv = True
+                                Exit For
+                            End If
+
+                            'AFECTAR MATRIZ EGRESOS
+                            drRegistroMatriz = GlobalDTAC_MatrizEgresos.FiltroPrimero(String.Format("Partida = {0} And TipoGasto = {1}", gvr.DataKey("CodigoClasificacion").ToString, gvr.DataKey("CveTipoGasto").ToString))
+                            If drRegistroMatriz IsNot Nothing AndAlso drRegistroMatriz("CuentaCargo").ToString.ToEntero > 0 Then
+                                CuentaCargo = DtCuentas.FiltroPrimeroValor("Id", String.Format("Codigo = '{0}'", drRegistroMatriz("CuentaCargo").ToString)).ToEntero
+                                CuentaAbono = DtCuentas.FiltroPrimeroValor("Id", String.Format("Codigo = '{0}'", drRegistroMatriz("CuentaAbono").ToString)).ToEntero
+                                If CuentaCargo > 0 AndAlso CuentaAbono > 0 Then
+                                    If ObjContaAC.AddMovimiento(IDPoliza, CuentaCargo, False, Importe, "", "", 0, FechaMovto, "") Then
+                                        If Not ObjContaAC.AddMovimiento(IDPoliza, CuentaAbono, True, Importe, "", "", 0, FechaMovto, "") Then
+                                            ErrorMovInv = True
+                                            Exit For
+                                        End If
+                                    Else
+                                        ErrorMovInv = True
+                                        Exit For
+                                    End If
+                                Else
+                                    ErrorMovInv = True
+                                    Exit For
+                                End If
+                            End If
+                            'TERMINA AFECTAR MATRIZ INGRESOS
+
+                        End If
+                    Next
+                    If TotalDetalle <= 0 AndAlso TotalPorDevengar >= TotalDetalle Then
+                        ErrorMovInv = True
+                    End If
+                Else
+                    ErrorMovInv = True
+                End If
+
+                If ErrorMovInv Then
+                    Alert("Error al registrar los movimientos Contables", TipoMensaje.MsgError)
+                    RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+                End If
+            End If
+            'TERMINA: DEVENGAR
+        End If
+
+        'ACTUALIZA ESTATUS ALMACEN
+        If TipoMovimiento = 2 Then
+            If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 0) Then
+                ErrorMovInv = True
+            End If
+        End If
+
+        'AGREGA BITACORA TEMPORAL
+        If DtBitacora IsNot Nothing AndAlso DtBitacora.Rows.Count > 0 Then
+            ErrorMovInv = GuardaBitacoraTemporal(ObjBitacora, CveMovimiento)
+        End If
+
+        'PREPOLIZA - SOLO CUANDO SEA RECEPCIÓN
+        If TipoMovimiento = 1 AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+            Dim DtCostos As DataTable = Nothing
+            Dim ValorInventario As Decimal = 0
+            DtCostos = ObjInventario.DtResultados
+            Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
+            Dim TotalCostoExtranjero As Decimal = DtCostos.SUM("TotalExtranjero").ToDecimal
+
+            'VARIABLES
+            Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+            Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+            Dim IdCtaContableRecepcion = -1
+            Dim IdCtaContableRecepcionME = -1
+            Dim IdCtaContableRecepcionComplementaria = -1
+            Dim Fecha As Date = Now
+            Dim CveProveedor As Integer = -1
+            Dim ProveedorNombre As String = ""
+            Dim SerieFolio As String = ""
+            Dim CveConceptoContableCosto = -1
+            Dim CveConceptoContableCostoME = -1
+            Dim CveConceptoContableCostoComplementaria = -1
+            Dim UsaComplementariaFleteImportaciones As Boolean = False
+            If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaFleteImportaciones = False
+
+            If DtCostos.Rows.Count > 0 Then
+                If CveCompraSurtir > 0 Then
+                    If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+                        'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
+                        Fecha = TxtFecha.Text.ToDate
+                        CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
+                        ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
+                        SerieFolio = $"Compra: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
+                        CveConceptoContableCosto = 205
+                        CveConceptoContableCostoME = 230
+                        CveConceptoContableCostoComplementaria = 231
+
+                        If ObjConta.GetRetCuenta(205, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCtaContableRecepcion = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                        End If
+
+                        If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(230, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCtaContableRecepcionME = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                        End If
+
+                        If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(231, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCtaContableRecepcionComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                        End If
+
+                    Else
+                        ErrorMovInv = True
+                    End If
+                ElseIf CveOCSurtir > 0 Then
+                    If ObjOC.GetOC(CveOCSurtir, UsuarioActual.CveEmpresa) Then
+                        'Fecha = ObjOC.DtResultados(0)("Fecha").ToString.ToDate
+                        Fecha = TxtFecha.Text.ToDate
+                        CveProveedor = ObjOC.DtResultados(0)("CveProveedor").ToString.ToEntero
+                        ProveedorNombre = ObjOC.DtResultados(0)("RazonSocial").ToString
+                        SerieFolio = String.Format("{0} OC# {1} - Almacén# {2}", ProveedorNombre, ObjOC.DtResultados(0)("Folio"), ObjInventario.Folio)
+                        CveConceptoContableCosto = 176
+                        CveConceptoContableCostoME = 228
+                        CveConceptoContableCostoComplementaria = 229
+
+                        If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaFleteImportaciones = True
+
+                        If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCtaContableRecepcion = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                        End If
+
+                        If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(228, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCtaContableRecepcionME = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                        End If
+
+                        If UsaComplementariaFleteImportaciones AndAlso ObjConta.GetRetCuenta(229, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCtaContableRecepcionComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                        End If
+                    Else
+                        ErrorMovInv = True
+                    End If
+                End If
+
+                If Not ErrorMovInv Then
+                    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacen.SelectedValue}").ToEntero
+                    CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If CvePrePoliza > 0 Then
+                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveSubProyecto:=CveSubProyecto, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+
+                            'AGREGA POR CONCEPTO POR CVEOCDETALLE
+                            If CveOCSurtir > 0 Then
+                                Dim TotalCostoDetalle As Decimal = 0
+                                Dim TotalCostoAcumulado As Decimal = 0
+                                Dim cont As Integer = 1
+                                For Each Dr As DataRow In DtCostos.Rows
+                                    TotalCostoDetalle = (Dr("Total").ToString.ToDecimal)
+                                    TotalCostoExtranjero = Dr("TotalExtranjero").ToString.ToDecimal
+                                    TotalCostoAcumulado += Math.Round(TotalCostoDetalle, 2)
+
+                                    'si es el último movimiento verifica los importes que sean igual
+                                    If cont = DtCostos.Rows.Count AndAlso (Math.Round(TotalCosto, 2) <> Math.Round(TotalCostoAcumulado, 2)) Then
+                                        TotalCostoDetalle = TotalCostoDetalle + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2))
+                                        TotalCostoExtranjero = TotalCostoExtranjero + (Math.Round(TotalCosto, 2) - Math.Round(TotalCostoAcumulado, 2))
+                                    End If
+
+                                    If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
+                                        'COMPLEMENTARIA
+                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                                                ErrorMovInv = True
+                                                Exit For
+                                            End If
+                                        Else
+                                            ErrorMovInv = True
+                                            Exit For
+                                        End If
+                                    Else
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle, SerieFolio, CveConceptoContableCosto, SerieFolio, Fecha, IdCtaContableRecepcion, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle, CveCuenta:=-1, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                                            ErrorMovInv = True
+                                            Exit For
+                                        End If
+                                    End If
+                                    cont = cont + 1
+
+                                Next
+                            Else
+                                TotalCosto = DtCostos.SUMD("Total").RoundSQL
+                                TotalCostoExtranjero = DtCostos.SUMD("TotalExtranjero")
+
+                                If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
+                                    'COMPLEMENTARIA
+                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal) Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal) Then
+                                            ErrorMovInv = True
+                                        End If
+                                    Else
+                                        ErrorMovInv = True
+                                    End If
+                                Else
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto, SerieFolio, CveConceptoContableCosto, SerieFolio, Fecha, IdCtaContableRecepcion, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=-1) Then
+                                        ErrorMovInv = True
+                                    End If
+                                End If
+                            End If
+
+                        Else
+                            ErrorMovInv = True
+                        End If
+                    Else
+                        ErrorMovInv = True
+                    End If
+                End If
+
+                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                        GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                        MensajeError = "El Movimiento presenta una diferencia en el registro."
+                        ErrorMovInv = True
+                    End If
+                End If
+
+                'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
+                If Not ErrorMovInv Then
+
+                    If CvePrePolizaCompra > 0 Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
+                        End If
+                    End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                        If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            ErrorMovInv = True
+                            MensajeError = "Error al simplificar los conceptos contables"
+                        End If
+                    End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                        If ObjContaContPAQ Is Nothing Then
+                            ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
+                            ObjContaContPAQ.IniciaTransacSQL()
+                        End If
+                        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
+                            MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
+                        Else
+                            ErrorMovInv = True
+                            MensajeError = "Error al contabilizar los conceptos contables"
+                        End If
+                    End If
+
+                End If
+
+            End If
+        End If
+
+        'PREPOLIZA - NC
+        If TipoMovimiento = 3 AndAlso ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+
+            Dim DtCostos As DataTable = Nothing
+            DtCostos = ObjInventario.DtResultados
+            Dim TotalCosto As Decimal = DtCostos.SUM("Total").ToDecimal
+
+            Dim TotalNC As Decimal = 0
+            Dim CveClasificacionDifCostoNC = -1
+            Dim tTipoCambio As Decimal = 1
+            If CveMoneda <> 1 Then tTipoCambio = TipoCambio.ToDecimal
+
+            For Each gvr As GridViewRow In GvInv.Rows
+                TotalNC += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * gvr.DataKey("PU").ToDecimal * tTipoCambio
+                CveClasificacionDifCostoNC = gvr.DataKey("CveClasificacion").ToEntero
+            Next
+            Dim IdCtaContableClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionDifCostoNC}").ToEntero
+            Dim CveCuentaClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {CveClasificacionDifCostoNC}").ToEntero
+
+            TotalCosto = Math.Round(TotalCosto, 2)
+            TotalNC = Math.Round(TotalNC, 2)
+            Dim DifCostoNC = Math.Round(TotalCosto - TotalNC, 2)
+
+
+            'VARIABLES
+            Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+            Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+            Dim Fecha As Date = TxtFecha.Text.ToDate
+            Dim CveProveedor As Integer = -1
+            Dim ProveedorNombre As String = ""
+            Dim SerieFolio As String = ""
+            Dim IdCtaContableNC = 0
+            Dim CveConceptoContableNC = -1
+
+            If DtCostos.Rows.Count > 0 Then
+                If CveCompraSurtir > 0 Then
+                    If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+                        CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
+                        ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
+                        SerieFolio = $"NC: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
+
+                        CveConceptoContableNC = 225
+                        If ObjConta.GetRetCuenta(CveConceptoContableNC, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                            IdCtaContableNC = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
+                        End If
+
+                    Else
+                        ErrorMovInv = True
+                    End If
+                End If
+
+                If Not ErrorMovInv Then
+                    CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen-NC", 74, TotalCosto, TotalCosto, 1, Fecha, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If CvePrePoliza > 0 Then
+                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalNC, SerieFolio, CveConceptoContableNC, SerieFolio, Fecha, IdCtaContableNC, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalNC) Then
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, CveCuenta:=CveCuentaAlmacen) Then
+                                If DifCostoNC <> 0 Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, CveCuenta:=CveCuentaClasificacion) Then
+                                        ErrorMovInv = True
+                                    End If
+                                End If
+                            Else
+                                ErrorMovInv = True
+                            End If
+                        Else
+                            ErrorMovInv = True
+                        End If
+                    Else
+                        ErrorMovInv = True
+                    End If
+                End If
+
+                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                        GuardaLogAD($"Inventarios/RecepcionAlmacen-PPNC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                        ErrorMovInv = True
+                    End If
+                End If
+
+                'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
+                If Not ErrorMovInv Then
+
+                    If CvePrePolizaCompra > 0 Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
+                        End If
+                    End If
+
+
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                        If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            ErrorMovInv = True
+                            MensajeError = "Error al simplificar los conceptos contables"
+                        End If
+                    End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                        ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
+                        ObjContaContPAQ.IniciaTransacSQL()
+                        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
+                            MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
+                        Else
+                            ErrorMovInv = True
+                            MensajeError = "Error al contabilizar los conceptos contables"
+                        End If
+                    End If
+
+                End If
+
+            End If
+        End If
+
+        'AGREGA SALDOS A OC SURTIDAS
+        If Not ErrorMovInv And CveOCSurtir > 0 Then
+            If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                    If Not ObjOC.OrdenesCompraDetalleSaldosInvCompraAdd(Dr("CveOrdenCompraDetalle").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero, Dr("Cantidad").ToString.ToDouble, -1, -1) Then
+                        ErrorMovInv = True
+                        Exit For
+                    End If
+                Next
+            Else
+                ErrorMovInv = True
+            End If
+        End If
+
+        'FINAL
         If Not ErrorMovInv Then
             ObjInventario.Commit() ' aplica los movimientos insertados
             If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
@@ -3010,9 +2957,9 @@ Partial Class Inventarios_RecepcionAlmacen
     End Sub
     Private Function GuardaPrePoliza() As Boolean
         Return True
-    End Function
+    End Function
 #End Region
-
+
 #Region "  OC  "
     Private Sub CargaFoliosOC()
         DdlFolioOC.Items.Clear()
@@ -3185,10 +3132,10 @@ Partial Class Inventarios_RecepcionAlmacen
 
         UpDatosCompra.Update()
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "   TIPO DE CAMBIO   "
     Protected Sub DdlMonedaTC_SelectedIndexChanged(sender As Object, e As EventArgs)
         Select Case DdlMonedaTC.SelectedValue.ToEntero
@@ -3230,13 +3177,13 @@ Partial Class Inventarios_RecepcionAlmacen
             Dr("CostoIndirecto") = Dr("CostoIndirectoExtranjero").ToString.ToDouble * TipoCambio
         Next
         DtInv.AcceptChanges()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "  BITACORA  "
-
+
     Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvBitacora.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("Archivo").ToString.Trim <> "" AndAlso -1 > 0 Then
@@ -3352,9 +3299,9 @@ Partial Class Inventarios_RecepcionAlmacen
         Next
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "  FINANCIAMIENTO - AC  "
     Protected Sub CargaAC()
         Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
@@ -3381,10 +3328,10 @@ Partial Class Inventarios_RecepcionAlmacen
             e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this, {0});", e.Row.DBCampo("PorDevengar")))
             e.Row.FCRangeValidator("RVA").MaximumValue = e.Row.DBCampo("PorDevengar").FormatoNumero
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  ENVIA CORREO NOTICIACION - VENDEDOR  "
     Private Sub MandaCorreoOCVendedores(CveCompra As Integer, CveMovimiento As Integer)
 
@@ -3568,10 +3515,10 @@ Partial Class Inventarios_RecepcionAlmacen
         TbCantidadAlm.Text = ""
         ddlAlmacenAdd.SelectedIndex = 0
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "SECCION ALMACEN"
     Private Sub CreaDtSeccionAlmacen()
         DtSeccionAlmacen = New DataTable
diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx
index 80674a796..b5c442439 100644
--- a/Planeacion/CatSubProyectos.aspx
+++ b/Planeacion/CatSubProyectos.aspx
@@ -83,7 +83,7 @@
                 <div style="">
                     <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
                         DataKeyNames="CveSubProyecto,SubProyecto,IdSegNeg,Estatus,Serie,IVA,Calle,NoExt,NoInt,Colonia,Localidad,Municipio,Estado,Pais,CP,CveProyecto,TipoSucursal,EsSucursal,
-                        CvePais,CveEstado,CveMunicipio,CveColonia,AplicaComercioExterior,CvePrecioLista,Correo,Telefono"
+                        CvePais,CveEstado,CveMunicipio,CveColonia,AplicaComercioExterior,CvePrecioLista,Correo,Telefono,HorarioVerano,HorarioInvierno"
                         EmptyDataText="No se encontraron SubProyectos" ShowHeader="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None">
                         <Columns>
                             <asp:BoundField DataField="SubProyecto" HeaderText="Centro de costo" />
@@ -182,16 +182,22 @@
 
                                     <ajax:TabPanel ID="TabDatosFiscales" runat="server" HeaderText="Datos Fiscales">
                                         <ContentTemplate>
-                                            <div class="form-group form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtSerie" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
-                                                <asp:RequiredFieldValidator Visible="false" ID="RFVSerie" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtSerie" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                                <label for="<%= TxtSerie.ClientID.ToString()%>">Serie:</label>
-                                            </div>
 
-                                            <div class="form-group form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtIVA" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
-                                                <asp:RequiredFieldValidator Visible="false" ID="RFVIVA" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtIVA" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                                <label for="<%= TxtIVA.ClientID.ToString()%>">IVA:</label>
+                                            <div class="row" style="height: 80px">
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtSerie" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
+                                                        <asp:RequiredFieldValidator Visible="false" ID="RFVSerie" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtSerie" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= TxtSerie.ClientID.ToString()%>">Serie:</label>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtIVA" runat="server" CssClass="form-control" MaxLength="15"></asp:TextBox>
+                                                        <asp:RequiredFieldValidator Visible="false" ID="RFVIVA" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtIVA" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= TxtIVA.ClientID.ToString()%>">IVA:</label>
+                                                    </div>
+                                                </div>
                                             </div>
 
                                             <div class="form-group form-md-line-input input-iconright">
@@ -224,28 +230,38 @@
                                                 <label for="<%= TxtColonia.ClientID.ToString()%>">Colonia:</label>
                                             </div>
 
-                                            <div class="form-group form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtLocalidad" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
-                                                <asp:RequiredFieldValidator Visible="false" ID="RFVLocalidad" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtLocalidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                                <label for="<%= TxtLocalidad.ClientID.ToString()%>">Localidad:</label>
+                                            <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtLocalidad" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
+                                                        <asp:RequiredFieldValidator Visible="false" ID="RFVLocalidad" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtLocalidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= TxtLocalidad.ClientID.ToString()%>">Localidad:</label>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtMunicipio" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
+                                                        <asp:RequiredFieldValidator Visible="false" ID="RFVMunicipio" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtMunicipio" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Municipio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= TxtMunicipio.ClientID.ToString()%>">Municipio:</label>
+                                                    </div>
+                                                </div>
                                             </div>
 
-                                            <div class="form-group form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtMunicipio" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
-                                                <asp:RequiredFieldValidator Visible="false" ID="RFVMunicipio" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtMunicipio" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Municipio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                                <label for="<%= TxtMunicipio.ClientID.ToString()%>">Municipio:</label>
-                                            </div>
-
-                                            <div class="form-group form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtEstado" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
-                                                <asp:RequiredFieldValidator Visible="false" ID="RFVEstado" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                                <label for="<%= TxtEstado.ClientID.ToString()%>">Estado:</label>
-                                            </div>
-
-                                            <div class="form-group form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtPais" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
-                                                <asp:RequiredFieldValidator Visible="false" ID="RFVPais" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtPais" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                                <label for="<%= TxtPais.ClientID.ToString()%>">Pais:</label>
+                                            <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtEstado" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
+                                                        <asp:RequiredFieldValidator Visible="false" ID="RFVEstado" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= TxtEstado.ClientID.ToString()%>">Estado:</label>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtPais" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
+                                                        <asp:RequiredFieldValidator Visible="false" ID="RFVPais" runat="server" Enabled="false" CssClass="help-block errorimput miclase" ControlToValidate="TxtPais" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= TxtPais.ClientID.ToString()%>">Pais:</label>
+                                                    </div>
+                                                </div>
                                             </div>
 
                                             <div class="form-group form-md-line-input input-iconright">
@@ -259,7 +275,7 @@
                                                 <label for="<%= TxtTelefono.ClientID.ToString()%>">Telefono:</label>
                                             </div>
 
-                                             <div class="form-group form-md-line-input input-iconright">
+                                            <div class="form-group form-md-line-input input-iconright">
                                                 <asp:TextBox ID="TxtCorreo" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
                                                 <label for="<%= TxtCorreo.ClientID.ToString()%>">Correo:</label>
                                             </div>
@@ -273,6 +289,22 @@
                                                 <asp:CheckBox ID="ChkEsMatriz" runat="server" CssClass="form-control" />
                                                 <label for="<%= ChkEsMatriz.ClientID.ToString()%>">¿Es matríz?</label>
                                             </div>
+
+                                            <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtHorarioVerano" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
+                                                        <label for="<%= TxtCorreo.ClientID.ToString()%>">Horario de verano:</label>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtHorarioInvierno" runat="server" CssClass="form-control" MaxLength="50"></asp:TextBox>
+                                                        <label for="<%= TxtCorreo.ClientID.ToString()%>">Horario de invierno:</label>
+                                                    </div>
+                                                </div>
+                                            </div>
+
                                         </ContentTemplate>
                                     </ajax:TabPanel>
                                     <ajax:TabPanel ID="TabComercioExterior" Visible="false" runat="server" HeaderText="Comercio Exterior">
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 586249d7d..22121f394 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -284,7 +284,8 @@ Partial Class CatSubProyectos
         DdlPrecioLista.SelectedValueExist(GvRow.DataKey("CvePrecioLista"))
         TxtCorreo.Text = (GvRow.DataKey("Correo"))
         TxtTelefono.Text = (GvRow.DataKey("Telefono"))
-
+        TxtHorarioVerano.Text = (GvRow.DataKey("HorarioVerano"))
+        TxtHorarioInvierno.Text = (GvRow.DataKey("HorarioInvierno"))
         'COMERCIO EXTERIOR
         ChkAplicaComercioExterior.Checked = If(GvRow.DataKey("AplicaComercioExterior").ToString = "True", True, False)
         DdlPais.SelectedValueExist(GvRow.DataKey("CvePais"))
@@ -350,6 +351,8 @@ Partial Class CatSubProyectos
         Dim TieneError = False
         Dim TipoSucursal As Integer
         Dim EsSucursal As Integer
+        Dim HorarioVerano As Integer = TxtHorarioVerano.Text.ToEntero
+        Dim HorarioInvierno As Integer = TxtHorarioInvierno.Text.ToEntero
         If ChkEsMatriz.Checked = True Then TipoSucursal = 1 Else TipoSucursal = 0
         If ChkEsSucursal.Checked = True Then EsSucursal = 1 Else EsSucursal = 0
         'GlobalDTProyectos(-1) = ObjSubproyectos.DtResultados
@@ -368,16 +371,22 @@ Partial Class CatSubProyectos
                 CveSubProyecto = ObjSubproyectos.CveSubProyecto
             End If
         Else
-            If Not ObjSubproyectos.UpdateCentroCosto(CveCentroCosto, TxtCentroCosto.Text.Trim, IdSeg, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, Serie:=TxtSerie.Text.Trim, IVA:=TxtIVA.Text.ToDecimal, Calle:=TxtCalle.Text.Trim, NoExt:=TxtNoExt.Text.Trim,
-                                           NoInt:=TxtNoInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Localidad:=TxtLocalidad.Text.Trim, Municipio:=TxtMunicipio.Text.Trim, Estado:=TxtEstado.Text.Trim, Pais:=TxtPais.Text.Trim, CP:=TxtCP.Text.Trim, TipoSucursal:=TipoSucursal, EsSucursal:=EsSucursal,
-                                                     CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, Correo:=TxtCorreo.Text, CvePrecioLista:=DdlPrecioLista.SelectedValue.ToEntero,
-                                                     Telefono:=TxtTelefono.Text) Then
+            If (HorarioVerano > -13 And HorarioVerano < 13) And (HorarioInvierno > -13 And HorarioInvierno < 13) Then
+                If Not ObjSubproyectos.UpdateCentroCosto(CveCentroCosto, TxtCentroCosto.Text.Trim, IdSeg, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, Serie:=TxtSerie.Text.Trim, IVA:=TxtIVA.Text.ToDecimal, Calle:=TxtCalle.Text.Trim, NoExt:=TxtNoExt.Text.Trim,
+                                               NoInt:=TxtNoInt.Text.Trim, Colonia:=TxtColonia.Text.Trim, Localidad:=TxtLocalidad.Text.Trim, Municipio:=TxtMunicipio.Text.Trim, Estado:=TxtEstado.Text.Trim, Pais:=TxtPais.Text.Trim, CP:=TxtCP.Text.Trim, TipoSucursal:=TipoSucursal, EsSucursal:=EsSucursal,
+                                                         CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, Correo:=TxtCorreo.Text, CvePrecioLista:=DdlPrecioLista.SelectedValue.ToEntero,
+                                                         Telefono:=TxtTelefono.Text, HorarioVerano:=TxtHorarioVerano.Text.ToEntero, HorarioInvierno:=TxtHorarioInvierno.Text.ToEntero) Then
+                    TieneError = True
+                End If
+            Else
+                Alert("Los valores de horario no deben ser superiores a '12' o menor a '-12'", TipoMensaje.MsgAdvertencia)
                 TieneError = True
             End If
         End If
 
 
 
+
         If Not TieneError Then
             ObjSubproyectos.Commit()
             If HdnModalidad.Value = "I" Then
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index a8ceaff5e..f98ff44c9 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5328,7 +5328,7 @@ Partial Class PV
                     End If
                 End If
 
-                Dr("Descuento") = Math.Round(TxtImporteAjuste.Text.ToDouble, NumeroDecimales)
+                Dr("Descuento") = Math.Round(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble, NumeroDecimales)
                 'Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) + (CargoActual - CargoAnterior), NumeroDecimales)
                 If Dr("Descuento").ToString.ToDouble > TxtPrecio.Text.ToDouble Then Dr("Descuento") = TxtPrecio.Text.ToDouble
 
diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx
index 854e965d3..8981c5be1 100644
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -81,15 +81,15 @@
                             <div class="row">
                                 <label class="col-md-2 truncate">Sucursal:</label>
                                 <div class="col-md-4">
-  <%--                                  <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server"  Width="350px"></asp:DropDownList>
+                                    <%--                                  <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server"  Width="350px"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RFVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                     <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server"  Width="350px"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
                                 </div>
                             </div>
-                              <div class="row">
+                            <div class="row">
                                 <label class="col-md-2 truncate">Vendedor:</label>
                                 <div class="col-md-4">
                                     <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
@@ -153,7 +153,7 @@
                         </div>
                         <div class="portlet-body form">
 
-                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
+                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
                                 <Columns>
                                     <asp:BoundField HeaderText="Producto / Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
                                     <%--<asp:BoundField HeaderText="Producto / Servicio" DataField="PS" ItemStyle-Width="30%" />--%>
@@ -227,10 +227,11 @@
                             <div class="row">
                                 <label class="col-md-3 truncate">Tipo Promoción:</label>
                                 <div class="col-md-9">
-                                    <asp:DropDownList ID="DdlTipoPromocion" DataTextField="TipoPromocion" DataValueField="CveTipoPromocion" Width="100%" CssClass="select2me" runat="server">
+                                    <asp:DropDownList ID="DdlTipoPromocion" DataTextField="TipoPromocion" DataValueField="CveTipoPromocion" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPromocion_SelectedIndexChanged">
                                         <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
                                         <asp:ListItem Text="Importe $" Value="1" />
                                         <asp:ListItem Text="Descuento %" Value="2" />
+                                        <asp:ListItem Text="Cantidad" Value="3" />
                                     </asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVTipoPromocion" runat="server" InitialValue="-1" ControlToValidate="DdlTipoPromocion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Promoción''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCETipoPromocion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPromocion" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -243,6 +244,19 @@
                                     <asp:Label Text="" ID="LbFormatoPromoción" runat="server" />
                                 </div>
                             </div>
+
+                            <div class="row" id="DivCantMinima" visible="false" runat="server">
+                                <label class="col-md-3 truncate">Cantidad Mínima:</label>
+                                <div class="col-md-9">
+                                    <asp:TextBox ID="TxtCantMinima" Text="" runat="server" />
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="TxtCantMinima" FilterType="Custom, Numbers" />
+                                    <asp:RequiredFieldValidator ID="RFVCantiMinima" runat="server" ControlToValidate="TxtCantMinima" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad Mínima''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCECantMinima" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantiMinima" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtCantMinima" Display="None" InitialValue="0" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El valor del campo <b>''Cantidad Mínima''</b> debe ser mayor a 0." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
+
                             <div class="row">
                                 <label class="col-md-3 truncate">Condiciones:</label>
                                 <div class="col-md-9">
@@ -310,8 +324,8 @@
                                         </div>
                                     </div>
                                 </div>
-
                             </div>
+
                         </div>
                         <div class="modal-footer">
                             <button type="button" data-dismiss="modal" class="btn btn-">Cerrar</button>
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 77df1e367..0abb602fd 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -109,6 +109,7 @@ Partial Class Ventas_Promociones
         TempDT.Columns.Add("CveTipoPromocion", GetType(Integer))
         TempDT.Columns.Add("TipoPromocion", GetType(String))
         TempDT.Columns.Add("Promocion", GetType(String))
+        TempDT.Columns.Add("CantidadMinima", GetType(Integer))
 
         TempDT.Columns.Add("AplicaRestriccionTexto", GetType(String))
         TempDT.Columns.Add("AplicaRestriccion", GetType(Boolean))
@@ -199,6 +200,7 @@ Partial Class Ventas_Promociones
         LbPUActual.Text = ""
         DdlTipoPromocion.SelectedValue = "-1"
         TxtPromocionConcepto.Text = ""
+        TxtCantMinima.Text = ""
 
         ChkRestricciones.Checked = False
         'DivRestricciones.Visible = False
@@ -254,6 +256,12 @@ Partial Class Ventas_Promociones
             Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100)
         End If
 
+        If DdlTipoPromocion.SelectedValue.ToEntero = 3 Then
+            Dr("CantidadMinima") = TxtCantMinima.Text.ToEntero
+        Else
+            Dr("CantidadMinima") = 1
+        End If
+
         If ChkRestricciones.Checked Then
             Dr("AplicaRestriccionTexto") = "Si"
             Dr("AplicaRestriccion") = True
@@ -315,7 +323,9 @@ Partial Class Ventas_Promociones
 
             LbPUActual.Text = Gvr.DataKey("PUAnterior").FormatoNumero
             DdlTipoPromocion.SelectedValue = Gvr.DataKey("CveTipoPromocion")
+            DdlTipoPromocion_SelectedIndexChanged(sender, Nothing)
             TxtPromocionConcepto.Text = Gvr.DataKey("Promocion").FormatoNumero(4)
+            TxtCantMinima.Text = Gvr.DataKey("CantidadMinima")
 
             TxtHoraInicio.Text = $"{Gvr.DataKey("HoraInicio").ToDate.Hour}:{Gvr.DataKey("HoraInicio").ToDate.Minute}"
             TxtHoraFin.Text = $"{Gvr.DataKey("HoraFin").ToDate.Hour}:{Gvr.DataKey("HoraFin").ToDate.Minute}"
@@ -371,7 +381,7 @@ Partial Class Ventas_Promociones
             For Each Dr As DataRow In TempDT.Rows
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then
                     TieneError = True
                     Exit For
                 End If
@@ -400,7 +410,7 @@ Partial Class Ventas_Promociones
             For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then
                     TieneError = True
                     Exit For
                 End If
@@ -410,7 +420,7 @@ Partial Class Ventas_Promociones
                 For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows
                     If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                            CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime) Then
+                                                           Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then
                         TieneError = True
                         Exit For
                     End If
@@ -468,6 +478,11 @@ Partial Class Ventas_Promociones
     End Sub
 #End Region
 
-
-
+    Protected Sub DdlTipoPromocion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If DdlTipoPromocion.SelectedValue = "3" Then
+            DivCantMinima.Visible = True
+        Else
+            DivCantMinima.Visible = False
+        End If
+    End Sub
 End Class
\ No newline at end of file