AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Muestra condiciones de pago - Contado en Cotizacion

Browse Source
This commit is contained in:
janeth arvizu
2019-09-25 13:59:12 -07:00
parent 2bdf152f95
commit 30003c8112
2 changed files with 48 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/Ventas.aspx
View File

@@ -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">
<asp:DropDownList ID="DDlMesesSinIntereses" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="100%">
<asp:ListItem Value="-1">Meses</asp:ListItem>
<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="80%">
<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>

83
Ventas/Ventas.aspx.vb
View File

@@ -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