-- mejoras

OC/OC.aspx.vb

@@ -1020,16 +1020,12 @@ Partial Class OC_OC
                 TrDescuentoProntoPago.Visible = True
             End If
 
-
-
             If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then
                 BtnEdicionMasiva.Visible = True
             End If
-
         End If
 
         MostrarUsuarioAsignado()
-
         ValidaCancelacionConAlamcen()
 
         Me.Form.DefaultButton = ""
@@ -1396,9 +1392,9 @@ Partial Class OC_OC
             Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("")
             If dts IsNot Nothing Then
                 ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero
-                If UsuarioActual.CveEmpresa = 189 Then
-                    lblFolio.Text = dts("Serie").ToString + " " + dts("FActual").ToString
-                    SerieFolio = dts("Serie").ToString + " " + dts("FActual").ToString
+                If ModalidadSubProyectoGeneral Then
+                    lblFolio.Text = dts("Serie").ToString + "-" + dts("FActual").ToString
+                    SerieFolio = dts("Serie").ToString + "-" + dts("FActual").ToString
                 Else
                     lblFolio.Text = TipoOC + " " + dts("FActual").ToString
                     SerieFolio = dts("FActual").ToString
@@ -1409,7 +1405,7 @@ Partial Class OC_OC
                 lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
                 SerieFolio = DT.Rows(0)("FActual").ToString
             Else
-                Alert("No tiene registrados Folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
+                Alert("No tiene registrados folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
             End If
 
             DT.Dispose()
@@ -6901,8 +6897,12 @@ Partial Class OC_OC
                             SubProyecto = DrProyecto("SubProyecto").ToString
                         End If
                     Else
-                        CveProyecto = -1
-                        CveSubProyecto = -1
+                        If ModalidadSubProyectoGeneral Then
+                            CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
+                        Else
+                            CveProyecto = -1
+                            CveSubProyecto = -1
+                        End If
                     End If
 
                     If Codigo.Length > 0 Then
@@ -7731,8 +7731,8 @@ Partial Class OC_OC
     Private Function ValidarDescuentos() As Boolean
         Dim Retorno As Boolean = True
 
-        Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento")
-        Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal
+        Dim DescuentoConceptos As Decimal = DtDetalle.SUMD("Descuento").RoundSQL
+        Dim DescuentoGeneral As Decimal = TxtDescuento.Text.ToDecimal.RoundSQL
 
         If DescuentoConceptos <> DescuentoGeneral Then
             Alert(String.Format("Los descuentos no cuadran. Por favor de verificar.({0}-{1})", DescuentoConceptos, DescuentoGeneral), TipoMensaje.MsgAdvertencia)
@@ -9394,6 +9394,8 @@ Partial Class OC_OC
 
     Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
         DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
+        DdlSubProyectoEntrega.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
+        UPPLugarEntrega.Update()
         UPPDetalle.Update()
         CargaFolios()
     End Sub