Muestra condiciones de pago - Contado en Cotizacion

Ventas/Ventas.aspx.vb

@@ -2436,7 +2436,7 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then
 
                 DivMesesSinIntereses.Visible = True
-                DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-3")
+                DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
                 DivContadoOtros.Visible = True
 
             End If
@@ -16143,7 +16143,7 @@ Partial Class Ventas
             Case 1 'CREDITO
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
             Case 2 'CONTADO
-                If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Then
+                If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then
                     DivContado.Visible = True
                     TxtImporteContado.Text = TxtTotal.Text
                 End If
@@ -22595,50 +22595,55 @@ Partial Class Ventas
 
 #Region "  EMITIR DOCUMENTO NUEVO  "
     Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
-        Dim FolioFijo As Integer = 0
-        'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
-        If EraCotizacion = 1 Then
-            If Not PreparaFacturarCotizacion() Then
-                EraCotizacion = 0
-                DdlTipoComprobante.SelectedValue = "Cot"
-                Exit Sub
+        If GvPagos.Rows.Count > 0 And GvPagos IsNot Nothing Then
+            Dim FolioFijo As Integer = 0
+
+            'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
+            If EraCotizacion = 1 Then
+                If Not PreparaFacturarCotizacion() Then
+                    EraCotizacion = 0
+                    DdlTipoComprobante.SelectedValue = "Cot"
+                    Exit Sub
+                End If
             End If
-        End If
 
-        'CARGA LO PENDIENTE POR FACTURAR DE REMISION
-        If DdlTipoComprobante.SelectedValue = "Rem" Then
-            If Not PreparaFacturarRemision() Then
-                DdlTipoComprobante.SelectedValue = "Rem"
-                Exit Sub
+            'CARGA LO PENDIENTE POR FACTURAR DE REMISION
+            If DdlTipoComprobante.SelectedValue = "Rem" Then
+                If Not PreparaFacturarRemision() Then
+                    DdlTipoComprobante.SelectedValue = "Rem"
+                    Exit Sub
+                End If
             End If
-        End If
 
-        'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
-        If DdlTipoComprobante.SelectedValue = "Pd2" Then
-            If Not PreparaFacturarPedido() Then
-                DdlTipoComprobante.SelectedValue = "Pd2"
-                Exit Sub
+            'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
+            If DdlTipoComprobante.SelectedValue = "Pd2" Then
+                If Not PreparaFacturarPedido() Then
+                    DdlTipoComprobante.SelectedValue = "Pd2"
+                    Exit Sub
+                End If
             End If
+
+            'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION
+            If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de  la autorización
+                FolioFijo = TxtFolio.Text.ToEntero
+                ViewState("FolioActual") = FolioFijo
+                ViewState("EstablecioFolio") = True
+                TxtFolio.Text = FolioFijo.ToString
+            End If
+
+            Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
+            DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
+            TxtFecha.Text = Now.ToString
+            TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
+            TxtFechaEjecucion.Text = Now.ToString
+
+
+            If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
+            EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
+        Else
+            Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
         End If
 
-        'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION
-        If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de  la autorización
-            FolioFijo = TxtFolio.Text.ToEntero
-            ViewState("FolioActual") = FolioFijo
-            ViewState("EstablecioFolio") = True
-            TxtFolio.Text = FolioFijo.ToString
-        End If
-
-        Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
-        DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
-        TxtFecha.Text = Now.ToString
-        TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
-        TxtFechaEjecucion.Text = Now.ToString
-
-
-        If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
-        EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
-
     End Sub
 #End Region