From 7c0e8da3e4648e5b7be755fb4968f72b2a9cc8a6 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Nov 2020 13:57:09 -0700
Subject: [PATCH 1/8] reporte de jar actualizado y ahora se puede ajustar la
 existencia del producto en almacen, se pueden ajustar lote y fecha caducidad

---
 Empresas/132/Formatos/NotaDevolucion.rdlc |  2 +-
 Empresas/132/Formatos/OC.rdlc             |  2 +-
 Empresas/132/Formatos/ReciboDePago.rdlc   |  2 +-
 Empresas/132/Formatos/Remision.rdlc       |  2 +-
 Global.asax                               |  2 +-
 Inventarios/AjustesSeccionAlmacen.aspx    | 34 +++++++++++-
 Inventarios/AjustesSeccionAlmacen.aspx.vb | 65 ++++++++++++++++++-----
 vwd.webinfo                               |  8 +++
 8 files changed, 97 insertions(+), 20 deletions(-)

diff --git a/Empresas/132/Formatos/NotaDevolucion.rdlc b/Empresas/132/Formatos/NotaDevolucion.rdlc
index 7b770e88d..f72b1bc6d 100644
--- a/Empresas/132/Formatos/NotaDevolucion.rdlc
+++ b/Empresas/132/Formatos/NotaDevolucion.rdlc
@@ -183,7 +183,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value> R.F.C PPP885522PPP</Value>
+                <Value> R.F.C STJ180705IV4</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>
diff --git a/Empresas/132/Formatos/OC.rdlc b/Empresas/132/Formatos/OC.rdlc
index 06096e0c5..dccb4d848 100644
--- a/Empresas/132/Formatos/OC.rdlc
+++ b/Empresas/132/Formatos/OC.rdlc
@@ -105,7 +105,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>PPP885522PPP</Value>
+                <Value>STJ180705IV4</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>
diff --git a/Empresas/132/Formatos/ReciboDePago.rdlc b/Empresas/132/Formatos/ReciboDePago.rdlc
index d46d1f70f..ceb7da173 100644
--- a/Empresas/132/Formatos/ReciboDePago.rdlc
+++ b/Empresas/132/Formatos/ReciboDePago.rdlc
@@ -3818,7 +3818,7 @@
                   </Style>
                 </TextRun>
                 <TextRun>
-                  <Value>PPP885522PPP</Value>
+                  <Value>STJ180705IV4</Value>
                   <Style>
                     <FontFamily>Calibri</FontFamily>
                     <FontSize>8pt</FontSize>
diff --git a/Empresas/132/Formatos/Remision.rdlc b/Empresas/132/Formatos/Remision.rdlc
index 693902946..1e9f94345 100644
--- a/Empresas/132/Formatos/Remision.rdlc
+++ b/Empresas/132/Formatos/Remision.rdlc
@@ -183,7 +183,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value> R.F.C PPP885522PPP</Value>
+                <Value> R.F.C STJ180705IV4</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>
diff --git a/Global.asax b/Global.asax
index a3b37e04f..f0d2b275e 100644
--- a/Global.asax
+++ b/Global.asax
@@ -276,7 +276,7 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'SAT
         Using ObjGrales As New ClsGenerales
-            'If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
+            If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
             'If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
             If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
             If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx
index f37b30df0..ea8e354af 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx
+++ b/Inventarios/AjustesSeccionAlmacen.aspx
@@ -47,7 +47,7 @@
                         </div>
 
                         <label class="col-sm-1" style="text-align: right">Folio:</label>
-                        <div class="col-sm-1" style="width:60px">
+                        <div class="col-sm-1" style="width: 60px">
                             <asp:TextBox runat="server" ID="TxtFolioFiltro" Width="60px" />
                         </div>
 
@@ -59,7 +59,6 @@
                 </div>
                 <div class="portlet-body">
                     <div class="row" style="margin-left: 0px;">
-                        
                     </div>
                 </div>
             </div>
@@ -84,6 +83,37 @@
                             <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <asp:TemplateField ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:CheckBox ID="ChkLote" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nuevo Lote" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:TextBox runat="server" ID="TxtLote" Text='<%# Eval("Lote").ToString()%>' CssClass="form-control" ClientIDMode="Static" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <asp:TemplateField ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:CheckBox ID="ChkEditCaducidad" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Nueva Fecha Cad." ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                <asp:TextBox runat="server" ID="TxtFechaCadNueva" Text='<%# Eval("FechaCaducidad").ToString()%>' CssClass="form-control" ClientIDMode="Static" />
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton runat="server" ID="ImgFecha" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaCadNueva" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFechaCadNueva" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            <%--<asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveSeccionAlmacen" DataTextField="SeccionAlmacen" class="select2me"></asp:DropDownList>--%>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
                     <asp:TemplateField ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
                             <asp:CheckBox ID="Chk" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 9c78fc2d3..04b43bc0f 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -25,6 +25,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         DdlClasificaciones.DataBind()
         DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        GvD.Columns(4).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
+        GvD.Columns(10).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Nueva Fecha Elaboración", "Nueva Fecha Caducidad")
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -48,8 +51,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         If e.Row.RowType = DataControlRowType.DataRow Then
             CargaSeccionesAlmacen(e.Row.FCDropDownList("DDlS"), DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
 
-            'e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
-            'e.Row.FCDropDownList("DDlS").DataBind()
+            e.Row.FCDropDownList("DDlS").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
+            e.Row.FCDropDownList("DDlS").DataBind()
 
             Dim ExistenciasAux As Decimal = e.Row.DataKey("Existencia").ToDecimal
             e.Row.FCRangeValidator("RVR").Enabled = ExistenciasAux > 0
@@ -90,28 +93,51 @@ Partial Class Inventarios_AjustesSeccionAlmacen
             Dim CveMovimientoDetalleEntrada As Integer = 0
             Dim Cont As Integer = 0
             Dim Lista As New Hashtable
+            Dim ListaCaducidad As New Hashtable
+            Dim ListaLote As New Hashtable
             Dim Cantidad As Decimal = 0
             For Each gvr As GridViewRow In GvD.Rows
 
+                Dim FechaCaducidadOriginal As String = gvr.DataKey("FechaCaducidad")
+                Dim FechaCaducidadNueva As String = gvr.FCTextBox("TxtFechaCadNueva").Text
+
+                Dim LoteOriginal As String = gvr.DataKey("Lote")
+                Dim LoteNuevo As String = gvr.FCTextBox("TxtLote").Text
+
                 'que este seleccionado y que tenga diferente seccion
+                Dim Modificar As Boolean = False
                 If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCDropDownList("DDlS").SelectedValue.ToEntero <> gvr.DataKey("CveSeccionAlmacen").ToEntero Then
-                    Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDecimal()
                     If gvr.DataKey("CveSeccionAlmacen").ToEntero > 0 Then
                         ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, True)
                     Else
                         ObjPS.UpdateAplicaSeccionAlmacen(gvr.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, False)
                     End If
-                    If Not Lista.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
 
+                    If Not Lista.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then Lista.Add(gvr.DataKey("CvePS").ToEntero, gvr.FCDropDownList("DDlS").SelectedValue.ToEntero) 'guardo que dato le corresponde
+                    Modificar = True
+                End If
+
+                If gvr.FCCheckBox("ChkEditCaducidad").Checked And FechaCaducidadNueva.Length > 0 And FechaCaducidadNueva <> FechaCaducidadOriginal Then
+                    If Not ListaCaducidad.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaCaducidad.Add(gvr.DataKey("CvePS").ToEntero, FechaCaducidadNueva) 'guardo que dato le corresponde
+                    Modificar = True
+                End If
+
+                If gvr.FCCheckBox("ChkLote").Checked And LoteNuevo.Length > 0 And LoteNuevo <> LoteOriginal Then
+                    If Not ListaLote.ContainsKey(gvr.DataKey("CvePS").ToEntero) Then ListaLote.Add(gvr.DataKey("CvePS").ToEntero, LoteNuevo) 'guardo que dato le corresponde
+                    Modificar = True
+                End If
+
+                If Modificar Then
+                    Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDecimal()
                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, -1, CveSeccionAlmacen:=gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=gvr.DataKey("Serie"), Lote:=gvr.DataKey("Lote"), FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate) Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
                     End If
                     Contador += 1
-
                 End If
 
+
             Next
 
             If Not ErrorMovInv AndAlso Contador > 0 Then
@@ -131,11 +157,24 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         Dim CostoIndirecto As Decimal = Row("CostoIndirecto").ToString().ToDecimal()
                         Dim Serie As String = Row("Serie").ToString()
                         Dim Lote As String = Row("Lote").ToString()
-                        Dim FechaCaducidad As Date = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
+                        Dim FechaCaducidad As Date = MinFecha
 
+                        If ListaCaducidad.ContainsKey(CvePS) Then
+                            FechaCaducidad = ListaCaducidad(CvePS).ToString.ToDate
+                        Else
+                            FechaCaducidad = IfNull(Row("FechaCaducidad"), MinFecha).ToString.ToDate
+                        End If
+
+                        If ListaLote.ContainsKey(CvePS) Then
+                            Lote = ListaLote(CvePS).ToString
+                        Else
+                            Lote = Row("Lote").ToString()
+                        End If
                         'actualizamos el PS, para que tenga el aplica seccion
 
-                        ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+                        If Lista.ContainsKey(CvePS) Then
+                            ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
+                        End If
                         'If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
                         '    ErrorMovInv = True
                         'End If
@@ -154,12 +193,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
                         Dim contabilizable As Boolean = False
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
-                            ErrorMovInv = True
-                        End If
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
-                            ErrorMovInv = True
-                        End If
+                        'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                        '    ErrorMovInv = True
+                        'End If
+                        'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                        '    ErrorMovInv = True
+                        'End If
                     End If
 
                     resultado.Dispose()
diff --git a/vwd.webinfo b/vwd.webinfo
index 622d89f70..58b25d2ef 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -118,6 +118,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+    
   
     
   

From 583372be292304ec6496f88cc2401e00e03fac0a Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Nov 2020 16:10:44 -0700
Subject: [PATCH 2/8] errores logicos reparados

---
 Ventas/ProductosServicios.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 8831f7b70..789b05bfb 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2769,7 +2769,7 @@ Partial Class ProductosyServicios
             Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion.SelectedItem.Text)).ToEntero
             Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveUnidadMedida", String.Format("UnidadMedida = '{0}'", DdlUnidadMedida.SelectedItem.Text)).ToEntero
             Dim CveClasificacion2 As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion2.SelectedItem.Text)).ToEntero
-            Dim CveTipo As Integer = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacionDetalle", String.Format("ClasificacionDetalle = '{0}'", DdlTipoPSDes.SelectedItem.Text)).ToEntero
+            Dim CveTipo As Integer = GlobalDTClasificacionesDetalle(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacionDetalle", String.Format("ClasificacionDetalle = '{0}'", DdlTipoPSDes.SelectedItem.Text)).ToEntero
             Dim CveMarcaFranquicia As Integer = -1
             If ObjPS.GetMarcas(Franquicia) Then
                 CveMarcaFranquicia = ObjPS.DtResultados.FiltroPrimeroValor("CveMarca", String.Format("Marca = '{0}'", DdlMarca.SelectedItem.Text)).ToEntero
@@ -2838,7 +2838,7 @@ Partial Class ProductosyServicios
                 End If
             Else
 
-                If ObjPS.GetPS(-1, CveClasificacion, Franquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
+                If ObjPS.GetPS(-1, -1, Franquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
                     Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS").ToEntero()
                     If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                                   (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,

From 4ed55e9948e8c3c7153a1baf17766b15d73d6c99 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Nov 2020 16:53:59 -0700
Subject: [PATCH 3/8] =?UTF-8?q?correcci=C3=B3n=20en=20el=20commit=20anteri?=
 =?UTF-8?q?or?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/AjustesSeccionAlmacen.aspx.vb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 04b43bc0f..686949acd 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -193,12 +193,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                         Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
                         Dim contabilizable As Boolean = False
-                        'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
-                        '    ErrorMovInv = True
-                        'End If
-                        'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
-                        '    ErrorMovInv = True
-                        'End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
                     End If
 
                     resultado.Dispose()

From d33e91ccc8023de185c1896049270555b6bad842 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 13:22:52 -0700
Subject: [PATCH 4/8] --cambio de multiplciador de devolucion de mercandia de
 tipodocto:DEV

---
 Inventarios/EntregaAlmacen.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5d01bd939..3856176b0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2850,11 +2850,11 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim ValorMultiplicador = 1
 
                     If TipoMovimiento = 1 Then
+                        ValorMultiplicador = 1
+                    ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) AndAlso (EsDevolucionVenta = 1) Then
                         ValorMultiplicador = 1
                     ElseIf TipoMovimiento = 2 Then
-                        ValorMultiplicador = -1
-                    ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then
-                        ValorMultiplicador = 1
+                        ValorMultiplicador = -1
                     End If
 
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

From 924e06e3e07e6b2a486df0dbc01a47afe3c6657b Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 13:23:36 -0700
Subject: [PATCH 5/8] -- mas textos de contabilizar

---
 App_Code/ClsContabilidad.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 64f7f20dc..74cfd2183 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1140,6 +1140,8 @@ Public Class ClsContabilidad
                                           Optional ObjConta As ClsContPAQi = Nothing, Optional pIDPoliza As Integer = -1) As Boolean
         Dim StrLog As New StringBuilder
         Dim Retorno As Boolean = False
+        Dim OcurrioError As Boolean = False
+
         StrLog.AppendFormat("CvePrep:{0} - Inicio", CvePrePoliza)
 
         If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG
@@ -1154,7 +1156,7 @@ Public Class ClsContabilidad
             If CvePrePoliza <= 0 Then Return False
 
 
-            Dim OcurrioError As Boolean = False
+
             Dim ContaCompartida As Boolean = False
 
             If ObjConta Is Nothing Then
@@ -1417,8 +1419,9 @@ Public Class ClsContabilidad
 
             If Not ContaCompartida Then ObjConta.Dispose()
         End If
+        StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1} - Mensaje: {2}: ", Retorno, OcurrioError, Mensaje)
         StrLog.AppendFormat(" - Fin")
-        StrLog.ToString.GuardaLogAD("LogContabilidazacion")
+        StrLog.ToString.GuardaLogAD("LogContabilizacion")
         Return Retorno
     End Function
 

From ed22989433db79b2641f441b664f128a3a23d55f Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 13:24:19 -0700
Subject: [PATCH 6/8] -- ajuste de centavos en la aplicacion de NC

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 07c983de7..5ecec89aa 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -23887,7 +23887,7 @@ Partial Class Ventas
 
         If Math.Abs(difTmp) > 0.00D Then
             'asusto la diferencia en el último concepto
-            Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + Math.Abs(difTmp)
+            Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + difTmp
             DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal") = ImporteAjustado
             DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImportePU") = ImporteAjustado
         End If

From f6b26f14f447d1198705fa13fd6e23946af61d1f Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 13:27:58 -0700
Subject: [PATCH 7/8] -

---
 Inventarios/RepProductosPorCaducar.aspx | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/Inventarios/RepProductosPorCaducar.aspx b/Inventarios/RepProductosPorCaducar.aspx
index 14b1fe232..d28e11241 100644
--- a/Inventarios/RepProductosPorCaducar.aspx
+++ b/Inventarios/RepProductosPorCaducar.aspx
@@ -40,7 +40,7 @@
                             <div class="col-sm-1" style="text-align:right">
                                 <label>Proveedor:</label>
                             </div>
-                            <div class="col-md-1">
+                            <div class="col-sm-2">
                                 <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
                             </div>
                             <div class="col-sm-1" style="text-align:right">
@@ -72,19 +72,28 @@
                             <div class="col-sm-1" style="text-align:right">
                                 <label>Sucursal:</label>
                             </div>
-                            <div class="col-md-1">
+                            <div class="col-sm-1">
                                 <asp:DropDownList runat="server" ID="DdlSucursal" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
                             </div>
-                            <div class="col-sm-1" style="text-align:right">
+                           
+                        </div>
+                    
+                </div>
+                       
+               
+            </div>
+                  <div class="portlet-body" style="display: none;">
+                    <div class="row">
+                        <div class="col-sm-1" style="text-align:right">
                                 <label>Clasificación:</label>
                             </div>
                             <div class="col-md-1">
-                                <asp:DropDownList runat="server" ID="DdlClasificacion" CssClass="select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%"/>
+                                <asp:DropDownList runat="server" ID="DdlClasificacion" CssClass="select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion"  Width="100%" CssStyle="width: 100%;"/>
                             </div>
-                        </div>
                     </div>
-                </div>
-            </div>
+                    </div>
+
+        </div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">

From a8f0c7962c8e86d0a523b1a7af6adbca45c70e6d Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 3 Nov 2020 13:28:17 -0700
Subject: [PATCH 8/8] redondeo 3 decimales

---
 Inventarios/RecepcionAlmacen.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 9fd39a024..1365777f6 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3002,8 +3002,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
                                             '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))
+                                                TotalCostoDetalle = TotalCostoDetalle + (Math.Round(TotalCosto, 3) - Math.Round(TotalCostoAcumulado, 3))
+                                                TotalCostoExtranjero = TotalCostoExtranjero + (Math.Round(TotalCosto, 3) - Math.Round(TotalCostoAcumulado, 3))
                                             End If
 
                                             If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then