Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -6141,7 +6141,7 @@ Partial Class Compras_Compras
                                                                         ConceptoContable = 333
                                                                     End If
 
-                                                                    importeMovimiento = CompraActual.retiva
+                                                                    importeMovimiento = CompraActual.RetIVA
                                                                     importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
                                                                     If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
 
@@ -16752,6 +16752,9 @@ Partial Class Compras_Compras
         DdlPSChange()
     End Sub
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
+
         If Modalidad <> "U" Or Not CveFactura > 0 Then
             DdlPSChange()
         End If
@@ -16768,6 +16771,13 @@ Partial Class Compras_Compras
             DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
         End If
+
+        If UsuarioActual.Empresa.CveEmpresa = 158 AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 AndAlso DdlSubProyecto.SelectedValue.ToEntero.Contiene(11881, 11882, 11886) Then
+            RfvDdlCultivosCuadro.Visible = True
+        Else
+            RfvDdlCultivosCuadro.Visible = False
+        End If
+
     End Sub
     Private Sub DdlPSChange()
         If CveProveedor > 0 Then