Muestra condiciones de pago - Contado en Cotizacion

Ventas/Ventas.aspx

@@ -2952,14 +2952,14 @@
                                                                             <asp:TextBox ID="TxtImporteCredito" CssClass="form-control input-sm " runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
                                                                             <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtImporteCredito" FilterType="Custom, Numbers" ValidChars=".," />
                                                                         </div>
-                                                                        <div class="col-md-6"  runat="server" id="DivDdlCuentaTarjetaCredito"  >
+                                                                        <div class="col-md-6"  runat="server" id="DivDdlCuentaTarjetaCredito" style="margin-right:-35px" >
                                                                             <asp:DropDownList ID="DdlCuentaTarjetaCredito" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%"></asp:DropDownList>
                                                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="DdlCuentaTarjetaCredito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAgregarPago"></asp:RequiredFieldValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                         </div>
-                                                                        <div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false">
+                                                                        <div class="col-md-3" runat="server" id="DivMesesSinIntereses" visible="false" style="text-align:right;">
-                                                                            <asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%">
+                                                                            <asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="80%">
-                                                                                <asp:ListItem Value="-1">Meses</asp:ListItem>
+                                                                                <asp:ListItem Value="-1">MSI</asp:ListItem>
                                                                                 <asp:ListItem Value="3">3M</asp:ListItem>
                                                                                 <asp:ListItem Value="6">6M</asp:ListItem>
                                                                                 <asp:ListItem Value="9">9M</asp:ListItem>

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
+        If GvPagos.Rows.Count > 0 And GvPagos IsNot Nothing Then
-        'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
+            Dim FolioFijo As Integer = 0
-        If EraCotizacion = 1 Then
+
-            If Not PreparaFacturarCotizacion() Then
+            'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION
-                EraCotizacion = 0
+            If EraCotizacion = 1 Then
-                DdlTipoComprobante.SelectedValue = "Cot"
+                If Not PreparaFacturarCotizacion() Then
-                Exit Sub
+                    EraCotizacion = 0
+                    DdlTipoComprobante.SelectedValue = "Cot"
+                    Exit Sub
+                End If
             End If
-        End If
 
-        'CARGA LO PENDIENTE POR FACTURAR DE REMISION
+            'CARGA LO PENDIENTE POR FACTURAR DE REMISION
-        If DdlTipoComprobante.SelectedValue = "Rem" Then
+            If DdlTipoComprobante.SelectedValue = "Rem" Then
-            If Not PreparaFacturarRemision() Then
+                If Not PreparaFacturarRemision() Then
-                DdlTipoComprobante.SelectedValue = "Rem"
+                    DdlTipoComprobante.SelectedValue = "Rem"
-                Exit Sub
+                    Exit Sub
+                End If
             End If
-        End If
 
-        'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
+            'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2
-        If DdlTipoComprobante.SelectedValue = "Pd2" Then
+            If DdlTipoComprobante.SelectedValue = "Pd2" Then
-            If Not PreparaFacturarPedido() Then
+                If Not PreparaFacturarPedido() Then
-                DdlTipoComprobante.SelectedValue = "Pd2"
+                    DdlTipoComprobante.SelectedValue = "Pd2"
-                Exit Sub
+                    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