Funcionalidad 545, para validar productos de contratos de obra

Compras/Compras.aspx.vb

@@ -4281,10 +4281,12 @@ Partial Class Compras_Compras
         Next
         If ErrorValidacion Then Exit Sub
 
-        Dim dtPSInvalidos As String = ValidarPSContrato(TmpDT.FiltraParametros("", "", {"CveSubProyecto", "CvePS", "Cantidad", "PU"}))
+        If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
-        If dtPSInvalidos <> "" Then
+            Dim dtPSInvalidos As String = ValidarPSContrato(TmpDT.FiltraParametros("", "", {"CveSubProyecto", "CvePS", "Cantidad", "PU"}))
-            Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+            If dtPSInvalidos <> "" Then
-            Exit Sub
+                Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
         End If
 
         'RECORRO LOS PRODUCTOS O SERVICIOS PARA REGISTRARLOS LOS QUE NO EXISTEN EN EL CATÁLOGO
@@ -18106,25 +18108,31 @@ Partial Class Compras_Compras
         End If
 
         ActualizaTotales = True
-        Dim ObjContratos As New ClsContratos
-        Dim TieneError As Boolean = False
-        Dim dttemp As New DataTable ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
-        dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
-        dttemp.Columns.Add("CvePS", GetType(Integer))
-        dttemp.Columns.Add("Cantidad", GetType(Decimal))
-        dttemp.Columns.Add("PU", GetType(Decimal))
 
-        Dim DrPS = dttemp.NewRow
+        If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
-        DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero
+            Dim TieneError As Boolean = False
-        DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero
+            Dim dttemp As New DataTable  '= GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
-        DrPS("Cantidad") = TxtCantidad.Text.Trim.ToDecimal
+            dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
-        DrPS("PU") = TxtPrecio.Text.Trim.ToDecimal
+            dttemp.Columns.Add("CvePS", GetType(Integer))
-        dttemp.Rows.Add(DrPS)
+            dttemp.Columns.Add("Cantidad", GetType(Decimal))
+            dttemp.Columns.Add("PU", GetType(Decimal))
 
-        Dim dtPSInvalidos As String = ValidarPSContrato(dttemp)
+            Dim DrPS = dttemp.NewRow
-        If dtPSInvalidos <> "" Then
+            DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero
-            TieneError = True
+            DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero
+            DrPS("Cantidad") = TxtCantidad.Text.Trim.ToDecimal
+            DrPS("PU") = TxtPrecio.Text.Trim.ToDecimal
+            dttemp.Rows.Add(DrPS)
+
+            Dim dtPSInvalidos As String = ValidarPSContrato(dttemp)
+            If dtPSInvalidos <> "" Then
+                TieneError = True
+                Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
         End If
+
+
         'If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
         '    Dim drContrato As DataRow = dttemp.Rows(0)
         '    If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
@@ -18157,75 +18165,52 @@ Partial Class Compras_Compras
 
         '    End If
         'End If
-        ObjContratos.Dispose()
-                If Not TieneError Then
-                    Select Case Modalidad
-                        Case "A" 'ADD
 
-                            Dim SATClavePS = -1
+
-                            Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+
-                            If PSRow IsNot Nothing Then
+        Select Case Modalidad
-                                SATClavePS = PSRow("SATClavePS").ToString.ToEntero
+            Case "A" 'ADD
-                            End If
+
-                            Dim IVA As Double
+                Dim SATClavePS = -1
-                            If chkImportacion.Checked Then
+                Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
-                                IVA = (txtImportacion.Text.Trim.ToDouble / (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.Trim.ToDouble))
+                If PSRow IsNot Nothing Then
-                            Else
+                    SATClavePS = PSRow("SATClavePS").ToString.ToEntero
-                                IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
+                End If
-                            End If
+                Dim IVA As Double
-                            AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
+                If chkImportacion.Checked Then
+                    IVA = (txtImportacion.Text.Trim.ToDouble / (TxtCantidad.Text.Trim.ToDouble * TxtPrecio.Text.Trim.ToDouble))
+                Else
+                    IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
+                End If
+                AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
                                   TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
                                   NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
 
-                            AddPS2()
+                AddPS2()
-                            LimpiaAgregar()
+                LimpiaAgregar()
 
-                            If ChkAgregar.Checked = True And Modalidad = "A" Then
+                If ChkAgregar.Checked = True And Modalidad = "A" Then
-                                RegistraScript("displayToastr(1);", "display")
+                    RegistraScript("displayToastr(1);", "display")
-                            Else
-                                RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
-                            End If
-
-                        Case "U" 'UPDATE
-                            UpdatePS()
-                            Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
-                            RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
-                    End Select
-                    ActualizaTotales = False
-
-                    If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
-
-                    If UsuarioActual.Empresa.UsaAC Then
-                        CompruebaAgregar()
-                        GuardaAC()
-                    End If
                 Else
-                    Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+                    RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
                 End If
 
+            Case "U" 'UPDATE
+                UpdatePS()
+                Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
+        End Select
+        ActualizaTotales = False
 
-                'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
 
-                '    'If UsuarioActual.CveRol = 1 Then
+        If UsuarioActual.Empresa.UsaAC Then
-                '    '    Alert($"Ok funcionalidad 577  RetencionIVA { RetencionIVA}   IVAOriginal {IVAOriginal}")
+            CompruebaAgregar()
-                '    'End If
+            GuardaAC()
+        End If
 
-                '    If RetencionIVA = 0 And IVAOriginal > 0 Then
+        UpPS.Update()
-                '        For Each dRow As DataRow In TmpDT.Rows
-                '            If dRow("CveTipoPS").ToString.ToEntero = 1 Then
-                '                'Comnetado para reubicar el boton
-                '                'tdIVA6.Visible = True
-                '                Exit For
-                '            End If
-                '        Next
-                '    End If
-
-                'End If
-
-
-
-                UpPS.Update()
                 CargaGvPersonal()
     End Sub
     ''' <summary>
@@ -20938,6 +20923,7 @@ Partial Class Compras_Compras
                 Next
             End If
         End If
+        objContratos.Dispose()
 
         If MensajeProducto.Length <> 64 Then
             Retorno = MensajeProducto