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

Ventas/Ventas.aspx.vb

@@ -3145,8 +3145,6 @@ Partial Class Ventas
 
             End If
 
-            CargaFletes()
-
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="")
             DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
             BrSubProyecto.Visible = DdlProyecto.Visible
@@ -3343,7 +3341,7 @@ Partial Class Ventas
             End If
             TxtFecha.Enabled = True
 
-            BloqueaCondiconesPago()
+            BloqueaCondicionesPago()
 
             BloqueaClasificaciones()
 
@@ -3450,7 +3448,7 @@ Partial Class Ventas
         End If
     End Sub
 
-    Private Sub BloqueaCondiconesPago()
+    Private Sub BloqueaCondicionesPago()
         If UsuarioActual.TienePermisoProceso(289) Then
             DdlFormaEntrega.Enabled = False
             DdlUsoCFDI.Enabled = False
@@ -4806,7 +4804,7 @@ Partial Class Ventas
                             HLPagar.NavigateUrl = $"/Bancos/PopIEVentas.aspx?CveVenta={CveVenta}&TB_iframe=true&height=500&width=675"
                             HlCuentaTerminal.Visible = True
                         End If
-                        'CargarSaldoAuxiliar(CveCliente)
+
                         TabAuxiliarConta.Visible = UsuarioActual.TienePermisoProceso(306)
                         Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                         If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
@@ -6856,7 +6854,7 @@ Partial Class Ventas
             UPObservaciones.Update()
 
         End If
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
 
         Dim CveVentaRef As Integer = -1
@@ -8075,6 +8073,7 @@ Partial Class Ventas
                     e.Row.FCTextBox("TxtPrecio").Enabled = False
                 End If
 
+
                 'PERMISO EDITAR REM
                 If e.Row.DBCampo("TipoDocto") = "Rem" And ModalidadEdicion Then
                     'LO PERMITIDO MODIFICAR
@@ -25151,31 +25150,31 @@ Partial Class Ventas
     End Sub
 #End Region
 
-#Region "  FLETES  "
+    '#Region "  FLETES  "
 
-    Private Sub CargaFletes()
+    'Private Sub CargaFletes()
 
-        If UsuarioActual.CveEmpresa <> 125 Or CveVenta > 0 Then
-            Exit Sub
-        End If
+    '    If UsuarioActual.CveEmpresa <> 125 Or CveVenta > 0 Then
+    '        Exit Sub
+    '    End If
 
-        HLModalFletes.Visible = True
+    '    HLModalFletes.Visible = True
 
-        Dim ObjVentas As New ClsVentas
+    '    Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
-            GVFletes.DataSource = ObjVentas.DtResultados
-            GVFletes.DataBind()
-        End If
+    '    If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
+    '        GVFletes.DataSource = ObjVentas.DtResultados
+    '        GVFletes.DataBind()
+    '    End If
 
-        UpFletes.Update()
+    '    UpFletes.Update()
 
-        ObjVentas.Dispose()
-    End Sub
+    '    ObjVentas.Dispose()
+    'End Sub
 
 
 
-#End Region
+    '#End Region
 
 #Region "A G R E G A R  P S  M O D A L"
     Private Sub CargaMetodosPSModal()
@@ -29271,7 +29270,7 @@ Partial Class Ventas
         UPCondicionesPago.Update()
         UpDetalle.Update()
 
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
     End Sub
     Private Sub InicializaDTAnticiposAmortizacion()
         Me.DtAnticipoAmortizacion = New DataTable
@@ -29629,7 +29628,7 @@ Partial Class Ventas
             End If
         Next
 
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
 
         UpAnticipos.Update()
         UpParametros.Update()
@@ -30203,7 +30202,7 @@ Partial Class Ventas
             DdlIVA.Visible = True
         End If
 
-        BloqueaCondiconesPago()
+        BloqueaCondicionesPago()
 
         CargaVendedores()
 
@@ -31964,8 +31963,7 @@ Partial Class Ventas
             CargaGVInv(TmpDT.FiltraParametros("CveTipoPS = 2"))
         End If
 
-        BloqueaCondiconesPago()
-
+        BloqueaCondicionesPago()
 
         DivDdlFacturaRela.Visible = True
         BtnAgregarFacturasRelaciondas.Visible = True
@@ -31987,7 +31985,6 @@ Partial Class Ventas
             HabilitarControlesCartaPorte(True)
         End If
 
-
         Dim FolioNuevo As String = TxtFolio.Text
         If FolioNuevo <> FolioOriginal Then
             If Adjunto <> "" Then
@@ -36068,21 +36065,23 @@ Partial Class Ventas
         DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue)
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
-        'si es  A - Vista o ,Fuera De Linea requiere tecnico
-        If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 2) Then
+        'si es  pago directo es factura
+        If RBLTipoVenta.SelectedValue.Contiene("2") Then
+            DdlTipoComprobante.SelectedValueExist("Ing")
+            TdRequiereTecnico1.Visible = True
+            TdRequiereTecnico2.Visible = True
+        Else
             TdFechaOS1.Visible = True
             TdFechaOS2.Visible = True
             ChkRequiereTecnico.Checked = True
             ChkRequiereTecnico.Enabled = False
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
             DdlTipoComprobante.SelectedValueExist("Ped")
-        Else
-            DdlTipoComprobante.SelectedValueExist("Ing")
+
         End If
         DdlTipoComprobante.Enabled = False
 
-        TdRequiereTecnico1.Visible = True
-        TdRequiereTecnico2.Visible = True
+
 
 
         CargaCliente(CveCliente)
@@ -36101,7 +36100,7 @@ Partial Class Ventas
 
             Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
             Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString
-            Dim PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal
+            Dim PU As Decimal = GvRow.DataKey("Precio").ToDecimal
             Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
             Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString
             Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
@@ -36128,6 +36127,14 @@ Partial Class Ventas
 
     End Sub
 
+    Protected Sub GvProductosProcedimiento_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DataKey("Precio").ToDecimal = 0 Then
+                e.Row.FCTextBox("TxtCantidad").Enabled = False
+            End If
+        End If
+    End Sub
+
     Protected Sub ChkRequiereTecnicoModal_CheckedChanged(sender As Object, e As EventArgs)
 
         DvModalRequiereOSFecha.Visible = ChkRequiereTecnicoModal.Checked
@@ -36254,10 +36261,8 @@ Partial Class Ventas
         RegistraScript("$('#ModalAplicarNC').modal('show');", "ModalNC")
     End Sub
 
-    Protected Sub LnkTabContabilidad_Click(sender As Object, e As EventArgs)
-        Tab.ActiveTabIndex = 6
+    Protected Sub BtnCargaAuxiliarConta_Click(sender As Object, e As EventArgs)
         CargarSaldoAuxiliar(CveCliente)
     End Sub
-
 End Class