--FIX validacion de estatus de cobranza al editar remision, recargar info al cobrar

Ventas/PVCobranza.aspx.vb

@@ -501,80 +501,97 @@ Partial Class Ventas_PVCobranza
             Dim TieneError As Boolean = False
 
             Dim CveVenta As Integer = e.CommandArgument.ToString.ToEntero
-            Dim CondicionesPagoContado As Boolean = GvRow.DataKey("CondicionesPago") = "0"
-            Dim ObjVentas As New ClsVentas
-            ObjVentas.IniciaTransacSQL()
 
-            Try
+            Dim RowVenta As DataRow = Nothing
-                If Not ObjVentas.UpdateAsignaVentaCobranza(CveVenta, 1, UsuarioActual.CveUsuario, -1, "", Now) Then
+
+            Using ObjVta As New ClsVentas
+                If ObjVta.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+                    RowVenta = ObjVta.DtResultados.Copy().Rows(0)
+                End If
+            End Using
+
+            If RowVenta IsNot Nothing Then
+                Dim ObjVentas As New ClsVentas
+                ObjVentas.IniciaTransacSQL()
+
+                Try
+                    If Not ObjVentas.UpdateAsignaVentaCobranza(CveVenta, 1, UsuarioActual.CveUsuario, -1, "", Now) Then
+                        TieneError = True
+                    End If
+                    HdnCveVenta.Value = CveVenta.ToString
+
+                    Dim Saldo As Decimal = RowVenta("Saldo").ToString().ToDecimal()
+                    Dim CveFormaPago33 As String = RowVenta("CveFormaPago33").ToString()
+
+                    HdnCveCliente.Value = RowVenta("CveCliente").ToString()
+                    TxtImporteContado.Text = Saldo.FormatoNumero
+                    HdnTotal.Value = Saldo.ToString()
+                    TxtImporteEfectivo.Focus()
+                    LtlNombre.Text = RowVenta("AtencionA").ToString()
+                    LtlFolio.Text = RowVenta("SerieFolio").ToString()
+                    LtlSaldo.Text = Saldo.FormatoNumero
+                    LtlMoneda.Text = RowVenta("Moneda").ToString()
+
+                    Dim CondicionesPagoContado As Boolean = RowVenta("CondicionesPago").ToString() = "0"
+                    Dim CveMoneda As Integer = RowVenta("CveMoneda").ToString().ToEntero()
+
+                    HdnMoneda.Value = CveMoneda.ToString()
+                    If CveMoneda = 2 Then
+                        DivUSD.Visible = True
+                        TxtTC.Text = GlobalTipoCambio(Now).ToString()
+                        TxtTotalMXN.Text = (TxtImporteContado.Text.ToDecimal() * TxtTC.Text.ToDecimal()).FormatoNumero()
+                    End If
+
+                    HdnVentaCondicionesPago.Value = RowVenta("CondicionesPago").ToString()
+                    HdnPlazoCobranza.Value = GvRow.DataKey("PlazoCobranza")
+
+                    If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) AndAlso RowVenta("TipoDocto").ToString().Contiene("Rem", "Ant") Then
+                        DivAnticipo.Visible = True
+                        ImgAntiPend.Visible = True
+                    End If
+
+                    If CondicionesPagoContado Then
+                        'según la forma de pago va a establecer el valor para pago.
+                        Select Case CveFormaPago33
+                            Case "1"
+                                TxtImporteEfectivo.Text = Saldo.FormatoNumero
+                            Case "2"
+                                TxtImporteCheque.Text = Saldo.FormatoNumero
+                            Case "3"
+                                TxtImporteTransferencia.Text = Saldo.FormatoNumero
+                            Case "4"
+                                TxtImporteCredito.Text = Saldo.FormatoNumero
+                            Case "18"
+                                TxtImporteDebito.Text = Saldo.FormatoNumero
+                            Case Else
+                                TxtImporteEfectivo.Text = Saldo.FormatoNumero
+                        End Select
+                        DivContadoBancos.Visible = True
+                        BtnPagar.Text = "Pagar"
+                    Else
+                        DivContadoBancos.Visible = False
+                        BtnPagar.Text = "Emitir a crédito"
+                    End If
+
+                Catch ex As Exception
                     TieneError = True
-                End If
+                End Try
-                HdnCveVenta.Value = CveVenta.ToString
-                HdnCveCliente.Value = GvRow.DataKey("CveCliente")
-                TxtImporteContado.Text = GvRow.DataKey("Saldo").FormatoNumero
-                HdnTotal.Value = GvRow.DataKey("Saldo")
-                TxtImporteEfectivo.Focus()
-                LtlNombre.Text = GvRow.DataKey("AtencionA")
-                LtlFolio.Text = GvRow.DataKey("SerieFolio")
-                LtlSaldo.Text = GvRow.DataKey("Saldo").ToDecimal.FormatoNumero
-                LtlMoneda.Text = GvRow.DataKey("Moneda")
 
-                Dim CveMoneda As Integer = GvRow.DataKey("CveMoneda").ToEntero()
+                'carga información para cobranza
 
-                HdnMoneda.Value = CveMoneda.ToString()
+                If Not TieneError Then
-                If CveMoneda = 2 Then
+                    ObjVentas.Commit()
-                    DivUSD.Visible = True
+                    PnlContado.Visible = True
-                    TxtTC.Text = GlobalTipoCambio(Now).ToString()
-                    TxtTotalMXN.Text = (TxtImporteContado.Text.ToDecimal() * TxtTC.Text.ToDecimal()).FormatoNumero()
-                End If
-
-                HdnVentaCondicionesPago.Value = GvRow.DataKey("CondicionesPago")
-                HdnPlazoCobranza.Value = GvRow.DataKey("PlazoCobranza")
-
-                If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) AndAlso GvRow.DataKey("TipoDocto").Contiene("Rem", "Ant") Then
-                    DivAnticipo.Visible = True
-                    ImgAntiPend.Visible = True
-                End If
-
-                If CondicionesPagoContado Then
-                    'según la forma de pago va a establecer el valor para pago.
-                    Select Case GvRow.DataKey("CveFormaPago33")
-                        Case "1"
-                            TxtImporteEfectivo.Text = GvRow.DataKey("Saldo").FormatoNumero
-                        Case "2"
-                            TxtImporteCheque.Text = GvRow.DataKey("Saldo").FormatoNumero
-                        Case "3"
-                            TxtImporteTransferencia.Text = GvRow.DataKey("Saldo").FormatoNumero
-                        Case "4"
-                            TxtImporteCredito.Text = GvRow.DataKey("Saldo").FormatoNumero
-                        Case "18"
-                            TxtImporteDebito.Text = GvRow.DataKey("Saldo").FormatoNumero
-                        Case Else
-                            TxtImporteEfectivo.Text = GvRow.DataKey("Saldo").FormatoNumero
-                    End Select
-                    DivContadoBancos.Visible = True
-                    BtnPagar.Text = "Pagar"
                 Else
-                    DivContadoBancos.Visible = False
+                    ObjVentas.RollBack()
-                    BtnPagar.Text = "Emitir a crédito"
+                    PnlContado.Visible = False
+                    Alert("Hubo un error al asignar datos de cobranza", TipoMensaje.MsgInformacion)
                 End If
 
-            Catch ex As Exception
+                ObjVentas.Dispose()
-                TieneError = True
-            End Try
-
-            'carga información para cobranza
-
-            If Not TieneError Then
-                ObjVentas.Commit()
-                PnlContado.Visible = True
-            Else
-                ObjVentas.RollBack()
-                PnlContado.Visible = False
-                Alert("Hubo un error al asignar datos de cobranza", TipoMensaje.MsgInformacion)
             End If
 
-            ObjVentas.Dispose()
+
             'CargaDatos()
         End If
     End Sub

Ventas/Ventas.aspx.vb

@@ -24757,6 +24757,19 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        'si es de FNC contado. bloquear edición si está pagada o en proceso de cobro
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            Using ObjVta As New ClsVentas
+                If ObjVta.GetVenta(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                    Dim DbRowVenta As DataRow = ObjVta.DtResultados.FiltroPrimero("")
+                    If DbRowVenta IsNot Nothing AndAlso (DbRowVenta("CveCobranzaEstatus").ToString = "1" OrElse DbRowVenta("Saldo").ToString.ToDecimal = 0) Then
+                        Alert("No se puede actualizar la información de la remisión porque esta en proceso de cobro. Para aplicar cambios se debera de liberar desde el módulo de 'cobro por caja'.", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                End If
+            End Using
+        End If
+
         Dim OcurrioError As Boolean = False
         Dim ObjVentas As New ClsVentas
         ObjVentas.IniciaTransacSQL()