From 0d1f4527a27ac25afe64fdcaa214c0e9a38c1677 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 27 May 2023 12:39:34 -0700 Subject: [PATCH] -- con codigo temporal --- Inventarios/EntradasSalidas.aspx | 67 +++++++++++------------------ Inventarios/EntradasSalidas.aspx.vb | 15 +++++-- 2 files changed, 35 insertions(+), 47 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 774a35263..55b2b3859 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -382,7 +382,6 @@ -
@@ -556,14 +555,7 @@
-
- <%--
- -
- -
-
--%> +
@@ -605,24 +597,18 @@
-
- -
-
- - - +
@@ -658,8 +644,6 @@
- -
@@ -675,23 +659,40 @@
-
- <%--CARTA PORTE FIN--%> - -
-
+
+
+ + + + + + + <%--
+
+ +
+
+
--%> + +
+
+ + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
@@ -719,26 +720,6 @@
-
-
- - - - - <%--
-
- -
-
-
--%> - -
-
- - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
-
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 439943a3e..141c03289 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1480,10 +1480,9 @@ Partial Class Inventarios_EntradasSalidas Dim FechaCaducidadVal As Date = If(RowPS("AplicaCaducidad").ToString = "True", FechaCaducidad, MinFecha) - If RowPS("AplicaSerie").ToString = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then - 'SI NO ES USADO O GARANTIA - If Not Me.CveTipoAlmacenSeleccionado.Contiene(6, 22) Then + 'SI NO ES USADO O GARANTIA O SALIDA APOYO LOGISTICO + If Not Me.CveTipoAlmacenSeleccionado.Contiene(6, 22, 21) Then Valido = False Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia) End If @@ -1500,8 +1499,13 @@ Partial Class Inventarios_EntradasSalidas Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue)) If drA2 IsNot Nothing Then tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero + 'codigo temporal + If UsuarioActual.CveEmpresa = 140 AndAlso drA2("CveTipoAlmacen").ToString = "21" Then + Serie = "" + End If End If + 'salida If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen @@ -1523,7 +1527,6 @@ Partial Class Inventarios_EntradasSalidas End If End If - If Valido Then Dim CveClasificacion As Integer 'Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS") @@ -1911,8 +1914,12 @@ Partial Class Inventarios_EntradasSalidas CveClasificacion = drr("CveClasificacion").ToString.ToEntero IdCtaContableOtro = drr("IdCuentaCostos").ToString.ToEntero End If + Case 3 + CveConceptoContable = 51 + EsContabilizable = True Case Else CveConceptoContable = 95 + End Select '2-78