mejora en funcionalidad 132

Inventarios/TraspasoAlmacen.aspx.vb

@@ -720,14 +720,12 @@ Partial Class Inventarios_TraspasoAlmacen
 
         Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
 
-
         If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
             If Not ValidaPSSAT(DrPS) Then
                 Exit Sub
             End If
         End If
 
-
         If DrPS IsNot Nothing Then
             CveClasificacion = DrPS("CveClasificacion").ToString.ToEntero
             Dim DrUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")
@@ -2362,9 +2360,7 @@ Partial Class Inventarios_TraspasoAlmacen
 #Region "  AGREGA CON TXT | CODIGO - SERIE  "
     Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
 
-        If TxtCodigoPS.Text = "" Then
-            Exit Sub
-        End If
+        If TxtCodigoPS.Text = "" Then Exit Sub
 
         TdSeriePS.Visible = False
 
@@ -2376,30 +2372,27 @@ Partial Class Inventarios_TraspasoAlmacen
             Exit Sub
         End If
 
-        If DrPS("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then
+        If DrPS("AplicaSerie").ToString = "True" Then
             TdSeriePS.Visible = True
             TxtSeriePS.Focus()
             CvePSSerie = DrPS("CvePS").ToString.ToEntero
             CveUMSerie = DrPS("CveUnidadMedida").ToString.ToEntero
             Exit Sub
+        Else
+            AgregarPS(1, DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero)
+
+            TxtCodigoPS.Text = ""
         End If
 
-        AgregarPS(1, DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero)
-
-        TxtCodigoPS.Text = ""
-
     End Sub
     Protected Sub BtnSeriePS_Click(sender As Object, e As EventArgs)
-        If TxtSeriePS.Text.Trim = "" Then
-            Exit Sub
-        End If
+        If TxtSeriePS.Text.Trim = "" Then Exit Sub
 
         txtCantidad.Text = "1"
-
         Dim Valido = ValidaExistencia(1, CvePSSerie, CveUMSerie, -1, TxtSeriePS.Text.Trim, "-1", MinFecha)
 
         If Valido Then
-            AgregarPS(1, CvePSSerie, CveUMSerie, TxtSeriePS.Text.Trim)
+            AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim)
         Else
             TxtSeriePS.Text = ""
             TxtSeriePS.Focus()