Pendientes BDH, mejoras servicion E141, mwjoras carga PS entradas/salidas,cambios en modalidad contable, favicon signals gps

Ventas/Ventas.aspx.vb

@@ -1256,14 +1256,6 @@ Partial Class Ventas
         End Set
     End Property
 
-    Private Property CreditoDisponible As Double
-        Get
-            Return If(IsNothing(ViewState("CreditoDisponible")), 0, ViewState("CreditoDisponible")).ToString().ToDecimal
-        End Get
-        Set(value As Double)
-            ViewState("CreditoDisponible") = value
-        End Set
-    End Property
     Private Property DtAnticipoAmortizacion As DataTable
         Get
             Return CType(ViewState("DtAnticipoAmortizacion"), DataTable)
@@ -1298,7 +1290,14 @@ Partial Class Ventas
             ViewState("CveVentaUsadoDevolucionEfectivo") = value
         End Set
     End Property
-
+    Private Property CveFormaPago33Cliente As Integer
+        Get
+            Return If(IsNothing(ViewState("CveFormaPago33Cliente")), -1, ViewState("CveFormaPago33Cliente")).ToString().ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveFormaPago33Cliente") = value
+        End Set
+    End Property
 #End Region
 
 #Region "Propiedades PuntoVenta"
@@ -2821,7 +2820,7 @@ Partial Class Ventas
                 UpParametros.Update()
                 DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
                 CambiaTipoDocto()
-                LimpiaEscondeContado()
+                LimpiaEscondeContado(CveFormaPago33Cliente)
             End If
 
             InicializaAplicarNC()
@@ -2908,6 +2907,8 @@ Partial Class Ventas
         End If
         MostrarOpcionesPaqueteria()
 
+        'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
+        CveFormaPago33Cliente = -1
     End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
@@ -5169,7 +5170,7 @@ Partial Class Ventas
         'End If
 
     End Sub
-    Private Sub CargaFormaPago(CveMetodoPago As Integer)
+    Private Sub CargaFormaPago(CveMetodoPago As Integer, Optional CveFormaPago As Integer = -1)
         'FACTURACION 3.3
 
         'permiso para desbloquear la relación entre Método de pago y forma de pago
@@ -5185,9 +5186,14 @@ Partial Class Ventas
         'DdlFormaPago33.ClearSelection()
         'DdlFormaPago33.DataBind()
         DdlFormaPago33.DataSource = dtt
-        DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
         DdlFormaPago33.DataBind()
 
+        If CveFormaPago > 0 Then
+            DdlFormaPago33.SelectedValueExist(CveFormaPago)
+        Else
+            DdlFormaPago33.SelectedValueExist(dtt.FiltroPrimeroValor("CveFormaPago", ""))
+        End If
+
         DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
         DdlFormaCliente.DataBind()
         DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
@@ -5495,6 +5501,8 @@ Partial Class Ventas
 
                 Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero()
 
+                Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33
+
                 If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then
                     'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
 
@@ -19975,7 +19983,7 @@ Partial Class Ventas
         TxtImporteOtrosContado.Text = "0.00"
 
     End Sub
-    Private Sub LimpiaEscondeContado()
+    Private Sub LimpiaEscondeContado(Optional CveFormaPagoCliente As Integer = -1)
         'LIMPIA
         DivContado.Visible = False
         DivTerminal.Visible = False
@@ -19994,7 +20002,7 @@ Partial Class Ventas
                     If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                         DdlFormaPago33.Enabled = False
                         DdlFormaPago33.SelectedValueExist("20")
-                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
+                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente)
                     End If
 
                 End If
@@ -20012,7 +20020,7 @@ Partial Class Ventas
 
                     If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
                         DdlFormaPago33.Enabled = True
-                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
+                        CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPagoCliente)
                     End If
 
                 End If
@@ -20359,7 +20367,7 @@ Partial Class Ventas
 
     End Sub
     Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
-        LimpiaEscondeContado()
+        LimpiaEscondeContado(CveFormaPago33Cliente)
     End Sub
     Private Function ValidaPagosContado() As Boolean
         Dim Retorno = False