ajustes de contratos

Compras/Compras.aspx.vb

@@ -8588,7 +8588,7 @@ Partial Class Compras_Compras
                 Next
 
             Else
-                Alert("Los productos especificados en el lisado no tienen asigando impuesto IVA, favor de realizar la correción en el producto que aplique el impúesto.", TipoMensaje.MsgAdvertencia)
+                Alert("Los productos especificados en el listado no tienen asignado impuesto IVA, favor de realizar la corrección en el producto que aplique el impuesto.", TipoMensaje.MsgAdvertencia)
                 Respuesta = False
             End If
         Else
@@ -9759,7 +9759,7 @@ Partial Class Compras_Compras
         Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
         Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL)
         Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL)
-        Dim ObjContaAC As ClsContPAQi  '= New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjContaAC As ClsContPAQi = Nothing  '= New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim Retorno As Boolean = True
         Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero
@@ -20793,7 +20793,7 @@ Partial Class Compras_Compras
         DdlTipoGastoContrato.DataBind()
         DdlTipoGasto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        RegistraScript("$('#DivmodalConmtrato').modal('show')")
+        RegistraScript("$('#DivmodalContrato').modal('show')")
         UpModalContrato.Update()
 
     End Sub
@@ -20839,28 +20839,30 @@ Partial Class Compras_Compras
 
 
     Protected Sub BtnAplicarContrato_Click(sender As Object, e As EventArgs)
-
+        Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
         TmpDT.Rows.Clear()
 
         Dim CveTipoGastoObra As Integer = DdlTipoGastoContrato.SelectedValue.ToEntero
-        Dim TuipoGasto As String = DdlTipoGastoContrato.SelectedItem.Text
+        Dim TipoGasto As String = DdlTipoGastoContrato.SelectedItem.Text
 
         For Each GvRow As GridViewRow In GvContratosControl.Rows
 
             Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToEntero
 
-            Dim Cantidad As Double = GvRow.FCTextBox("TxtCantidad").Text.ToDouble
+            Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
             Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
             Dim PS As String = GvRow.DataKey("PS")
-            Dim PU As Double = GvRow.DataKey("PU").ToDouble
-            Dim TotalPS As Double = GvRow.FCTextBox("TxtImporte").Text.ToDouble
+            Dim TotalPS As Decimal = GvRow.FCTextBox("TxtImporte").Text.ToDecimal
+            Dim PU As Decimal
+
+            If Cantidad > 0 Then PU = TotalPS / Cantidad
+
             Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
             Dim UMAbreviatura As String = GvRow.DataKey("Abreviatura").ToString
 
             Dim SubProyecto As String = GvRow.DataKey("SubProyecto")
             Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero
-            Dim Codigo As String = "" 'GvRow.DataKey("Codigo")
 
             Dim Proyecto As String = GvRow.DataKey("Proyecto")
             Dim CveProyecto As Integer = GvRow.DataKey("CveProyecto").ToEntero
@@ -20869,24 +20871,23 @@ Partial Class Compras_Compras
             Dim RetIVA As Double = GvRow.DataKey("RetIVA").ToString.ToDouble
             Dim IvaPS As Double = GvRow.DataKey("IVA").ToString.ToDouble
 
+            If IvaPS = -1 Then
+                IvaPS = PorcentajeIVA
+            End If
+
+            IvaPS = IvaPS * TotalPS
+
             Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero
             Dim Clasificacion As String = GvRow.DataKey("Clasificacion")
 
-
             Dim IEPSPS As Double = GvRow.DataKey("IEPSPorcentaje").ToString.ToDouble
             Dim IEPSPSIVA As Double = If(GvRow.DataKey("IEPSGrabaIVA").ToString = "True", IEPSPS, 0)
 
-            Dim IdCuentaPorEjercer As Integer = -1
-            Dim IdCuentaComprometido As Integer = -1
-
-
-
 
             If Cantidad > 0 Then
 
-                AddPS(Cantidad, CveUnidadMedida, UMAbreviatura, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, Proyecto, CveProyecto.ToString, "", PU, PU * Cantidad, IvaPS, RetIVA, RetISR, IEPSPS, IEPSPSIVA, 0, CveContratoDetalle:=CveContratoDetalle,
-                      CveTipoGasto:=CveTipoGastoObra, TipoGasto:=TuipoGasto)
-
+                AddPS(Cantidad, CveUnidadMedida, UMAbreviatura, CveClasificacion, Clasificacion, CvePS, PS, 1, CveSubProyecto.ToString, SubProyecto, Proyecto, CveProyecto.ToString, "", PU, PU * Cantidad, PorcentajeIVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, 0, PorcentajeIVA:=PorcentajeIVA, CveContratoDetalle:=CveContratoDetalle,
+                      CveTipoGasto:=CveTipoGastoObra, TipoGasto:=TipoGasto)
 
                 'ContratoObraAplciado = True
 
@@ -20896,7 +20897,7 @@ Partial Class Compras_Compras
 
         AddPS2()
         If Not ChkContinualAgregandoControl.Checked Then
-            RegistraScript("$('#DivmodalConmtrato').modal('hide')")
+            RegistraScript("$('#DivmodalContrato').modal('hide')")
         End If
 
     End Sub