From fa2859665168e208780357ac02f9748e5f8b5993 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 26 Dec 2023 11:49:50 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20de=20ingreso=20virtual?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntradasSalidas.aspx    |  8 ++------
 Inventarios/EntradasSalidas.aspx.vb | 11 ++++++-----
 2 files changed, 8 insertions(+), 11 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index ca6c1f834..4062c16a1 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -731,8 +731,7 @@
                                             <asp:Literal ID="LtCI" runat="server" Text='<%# Eval("CostoIndirecto", "{0:N2}")%>'></asp:Literal>
                                         </ItemTemplate>
                                         <FooterTemplate>
-                                            <b>
-                                                <asp:Literal ID="LtTotCI" runat="server" Text=""></asp:Literal></b>
+                                            <b><asp:Literal ID="LtTotCI" runat="server" Text=""></asp:Literal></b>
                                         </FooterTemplate>
                                     </asp:TemplateField>
                                     <%--<asp:BoundField DataField="CostoIndirecto" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" Visible="false" ItemStyle-Width="63px"/>--%>
@@ -760,11 +759,9 @@
                                         <ItemTemplate>
                                             <asp:Literal ID="LbLote" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
                                         </ItemTemplate>
-                                        <ItemStyle ></ItemStyle>
-                                        <FooterStyle ></FooterStyle>
                                     </asp:TemplateField>
                                     <%--<asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false"/>--%>
-                                    <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                                    <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" Visible="false">
                                         <ItemTemplate>
                                             <asp:Literal ID="LbCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
                                         </ItemTemplate>
@@ -790,7 +787,6 @@
                                                 <div class="col-md-6">
                                                     <asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
                                                 </div>
-
                                             </div>                                            
                                         </EditItemTemplate>
                                         <ItemTemplate>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 8fc3b0d2a..6102d1c11 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2986,8 +2986,10 @@ Partial Class Inventarios_EntradasSalidas
         Dim ErrorMovInv As Boolean = False
 
         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa)
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
-            ErrorMovInv = True
+        If CveMovimientoSalida > 0 Then
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+                ErrorMovInv = True
+            End If
         End If
 
         If CveMovimientoEntrada > 0 Then
@@ -2995,7 +2997,7 @@ Partial Class Inventarios_EntradasSalidas
                 ErrorMovInv = True
             End If
         End If
-        If dttCostos IsNot Nothing Then
+        If dttCostos IsNot Nothing AndAlso CveMovimientoSalida > 0 Then
             For Each RowInv As DataRow In dttCostos.Rows
                 Dim ValorInventario As Decimal = dttCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
 
@@ -3006,7 +3008,6 @@ Partial Class Inventarios_EntradasSalidas
             Next
         End If
 
-
         If Not ErrorMovInv Then Retorno = CvePrePoliza
 
         Return Retorno
@@ -5551,7 +5552,7 @@ Partial Class Inventarios_EntradasSalidas
                             End If
                             Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1)
                             Dim tCveMovtoSalida As Integer = If(tOrigen > 0, -1, CveMovimientoVirtual)
-                            If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
+                            If Not ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
                                 ErrorMovInv = True
                             End If
                         End If