Clientes se retiran campos CveMetodoPago, NumCtaPago, ConvenioCIE desde base de datos, Validacion fecha de pago no debe ser menor a factura, ProveedoresAbonar, ClientesAbonar, PooIEVentas, PopIECopmpras
This commit is contained in:
rakcsle
@@ -316,12 +316,14 @@
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField Visible="false">
|
||||
|
||||
<%--<asp:TemplateField Visible="false">
|
||||
<HeaderTemplate>CIE</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCIE" runat="server" Text='<%# Eval("ConvenioCIE") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField>--%>
|
||||
|
||||
<asp:TemplateField Visible="false" ItemStyle-HorizontalAlign="Left">
|
||||
<HeaderTemplate>Calle</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
@@ -441,7 +443,7 @@
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCIE" runat="server" Text="CIE" /></td>
|
||||
<%--<asp:CheckBox ID="ChkCIE" runat="server" Text="CIE" /></td>--%>
|
||||
<td style="text-align: left">
|
||||
<asp:CheckBox ID="ChkCalle" runat="server" Text="Calle" /></td>
|
||||
</tr>
|
||||
|
||||
@@ -163,11 +163,11 @@ Partial Class CatClientes
|
||||
GvDatos.Columns(21).Visible = ChkRetISR.Checked
|
||||
GvDatos.Columns(22).Visible = ChkPlazoCobranza.Checked
|
||||
GvDatos.Columns(23).Visible = ChkLimiteCredito.Checked
|
||||
GvDatos.Columns(24).Visible = ChkCIE.Checked
|
||||
GvDatos.Columns(25).Visible = ChkCalle.Checked
|
||||
GvDatos.Columns(26).Visible = ChkCelular.Checked
|
||||
GvDatos.Columns(27).Visible = ChkCorreoCotizacion.Checked
|
||||
GvDatos.Columns(28).Visible = ChkOtroTelefono.Checked
|
||||
'GvDatos.Columns(24).Visible = ChkCIE.Checked
|
||||
GvDatos.Columns(24).Visible = ChkCalle.Checked
|
||||
GvDatos.Columns(25).Visible = ChkCelular.Checked
|
||||
GvDatos.Columns(26).Visible = ChkCorreoCotizacion.Checked
|
||||
GvDatos.Columns(27).Visible = ChkOtroTelefono.Checked
|
||||
|
||||
|
||||
CargaDatos()
|
||||
|
||||
@@ -906,27 +906,27 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body form">
|
||||
<div class="form-group form-md-line-input">
|
||||
<%-- <div class="form-group form-md-line-input">
|
||||
<asp:TextBox ID="TxtConvenioCIE" CssClass="form-control" runat="server" MaxLength="50" Enabled="false"></asp:TextBox>
|
||||
<label for="<%= TxtConvenioCIE.ClientID.ToString()%>">Convenio CIE:</label>
|
||||
</div>
|
||||
</div>--%>
|
||||
<div class="form-group form-md-line-input">
|
||||
<asp:TextBox ID="TxtReferenciaFiscal" CssClass="form-control" runat="server" Enabled="false"></asp:TextBox>
|
||||
<label for="<%= TxtReferenciaFiscal.ClientID.ToString()%>">Referencia:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<%-- <div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumCtaPago" CssClass="form-control" runat="server" MaxLength="30" Enabled="false"></asp:TextBox>
|
||||
<label for="<%= TxtNumCtaPago.ClientID.ToString()%>">Número de cuenta de Pago: </label>
|
||||
<i></i>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
</div>--%>
|
||||
<%-- <div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlMetodoPago" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<label for="<%= DdlMetodoPago.ClientID.ToString()%>">Método de Pago:</label>
|
||||
<asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<i></i>
|
||||
</div>
|
||||
</div>--%>
|
||||
<div id="DivRetenciones" runat="server">
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
|
||||
@@ -1242,10 +1242,10 @@ Partial Class Clientes
|
||||
|
||||
End Sub
|
||||
Private Sub CargaMetodosPago()
|
||||
DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
|
||||
'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
|
||||
DdlMetodoPagoSucursal.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT")
|
||||
DdlMetodoPagoSucursal.DataBind()
|
||||
DdlMetodoPago.DataBind()
|
||||
'DdlMetodoPago.DataBind()
|
||||
End Sub
|
||||
Private Sub CargaPrecioLista()
|
||||
DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
|
||||
@@ -1495,10 +1495,8 @@ Partial Class Clientes
|
||||
IdCtaAnticipos = ObjClientes.IdCtaContAnticipos.ToString
|
||||
IdCtaRetIVA = ObjClientes.IdCtaContRetIVA.ToString
|
||||
IdCtaRetISR = ObjClientes.IdCtaContRetISR.ToString
|
||||
IdCtaFondoGarantia = ObjClientes.IdCtaContFondoGarantia.ToString
|
||||
TxtConvenioCIE.Text = ObjClientes.ConvenioCIE
|
||||
TxtNumCtaPago.Text = ObjClientes.NumCtaPago
|
||||
DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString
|
||||
IdCtaFondoGarantia = ObjClientes.IdCtaContFondoGarantia.ToString
|
||||
'DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString
|
||||
TxtFormaFacturacion.Text = ObjClientes.FormaFacturacion
|
||||
ChkPermiteCredito.Checked = ObjClientes.PermiteCredito
|
||||
TxtLimiteCredito.Text = ObjClientes.LimiteCredito.FormatoNumero
|
||||
@@ -2515,10 +2513,10 @@ Partial Class Clientes
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim MetodoPago = DdlMetodoPago.SelectedValue.ToEntero
|
||||
If UsuarioActual.Empresa.CvePlataforma = 3 Then
|
||||
MetodoPago = 1
|
||||
End If
|
||||
'Dim MetodoPago = DdlMetodoPago.SelectedValue.ToEntero
|
||||
'If UsuarioActual.Empresa.CvePlataforma = 3 Then
|
||||
' MetodoPago = 1
|
||||
'End If
|
||||
|
||||
Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")
|
||||
|
||||
@@ -2529,7 +2527,7 @@ Partial Class Clientes
|
||||
DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
|
||||
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero,
|
||||
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,
|
||||
TxtConvenioCIE.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, TxtNumCtaPago.Text.Trim, MetodoPago, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim,
|
||||
TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim,
|
||||
TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim,
|
||||
TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero,
|
||||
CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero,
|
||||
@@ -2624,7 +2622,7 @@ Partial Class Clientes
|
||||
DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
|
||||
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,
|
||||
DdlMonedaExtranjeraClientes.SelectedValue.ToEntero, DdlMonedaExtranjeraClientes.SelectedItem.Text, DdlMonedaExtranjeraAnticipos.SelectedValue.ToEntero, DdlMonedaExtranjeraAnticipos.SelectedItem.Text,
|
||||
TxtConvenioCIE.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, TxtNumCtaPago.Text.Trim, DdlMetodoPago.SelectedValue.ToEntero, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim,
|
||||
TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim,
|
||||
ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, UsuarioActual.CveUsuario,
|
||||
CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero,
|
||||
CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero, ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero, CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), CobranzaExt:=TxtCobranzaExt.Text,
|
||||
@@ -6122,7 +6120,7 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
|
||||
If TxtNumeroCuenta2.Text.Trim.Length = 0 AndAlso TxtCLABE.Text.Trim.Length = 0 AndAlso TxtSWIFT.Text.Trim.Length = 0 AndAlso TxtConvenioCIE.Text.Trim.Length = 0 Then
|
||||
If TxtNumeroCuenta2.Text.Trim.Length = 0 AndAlso TxtCLABE.Text.Trim.Length = 0 AndAlso TxtSWIFT.Text.Trim.Length = 0 Then
|
||||
Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -9458,9 +9456,9 @@ Partial Class Clientes
|
||||
|
||||
ObjFactura.Fecha = Now
|
||||
ObjFactura.CvePrePoliza = -1
|
||||
ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
|
||||
ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
|
||||
ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
|
||||
'ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
|
||||
'ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
|
||||
'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
|
||||
ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
|
||||
|
||||
ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero
|
||||
|
||||
@@ -652,6 +652,32 @@ Partial Class Ventas_ClientesAbonar
|
||||
|
||||
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
|
||||
|
||||
|
||||
|
||||
Dim ValFechaDocumento As Boolean = False
|
||||
Dim FoliosFechasValFechaDocumento As New StringBuilder
|
||||
|
||||
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
|
||||
|
||||
For Each gvRowVal As GridViewRow In GvCxC.Rows
|
||||
|
||||
If gvRowVal.FCCheckBox("Chk").Checked Then
|
||||
If gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
If ValFechaDocumento Then
|
||||
Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Not TxtImporte.Text.ToDecimal > 0 Then
|
||||
Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
|
||||
@@ -1588,14 +1588,16 @@ Partial Class Ventas
|
||||
ViewState("EstatusCliente") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveMetodoPagoCliente As Integer
|
||||
Get
|
||||
Return ViewState("CveMetodoPagoCliente").ToString().ToEntero()
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMetodoPagoCliente") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'Private Property CveMetodoPagoCliente As Integer
|
||||
' Get
|
||||
' Return ViewState("CveMetodoPagoCliente").ToString().ToEntero()
|
||||
' End Get
|
||||
' Set(value As Integer)
|
||||
' ViewState("CveMetodoPagoCliente") = value
|
||||
' End Set
|
||||
'End Property
|
||||
|
||||
Private Property Modalidad As String
|
||||
Get
|
||||
Return ViewState("Modalidad").ToString()
|
||||
@@ -2047,7 +2049,7 @@ Partial Class Ventas
|
||||
ImprimeNombreSucursal = False
|
||||
RegistraScript("SetDisabledTxtTotal(true);")
|
||||
TrVistaPrevia.Visible = False
|
||||
CveMetodoPagoCliente = 1
|
||||
'CveMetodoPagoCliente = 1
|
||||
CveAlmacenExistenciasContrato = -1
|
||||
UpFacturar.Update()
|
||||
'CargaTiposDocumentos()
|
||||
@@ -5454,7 +5456,7 @@ Partial Class Ventas
|
||||
|
||||
If CveCliente = 239903 AndAlso UsuarioActual.CveEmpresa = 119 Then
|
||||
DdlMetodoPago33.Enabled = False
|
||||
ObjCliente.CveMetodoPago = 1 ' PUE, y que no se pueda modificar
|
||||
'ObjCliente.CveMetodoPago = 1 ' PUE, y que no se pueda modificar
|
||||
Else
|
||||
DdlMetodoPago33.Enabled = True
|
||||
End If
|
||||
@@ -5462,7 +5464,7 @@ Partial Class Ventas
|
||||
Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero()
|
||||
|
||||
If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then
|
||||
CveMetodoPagoCliente = ObjCliente.CveMetodoPago
|
||||
'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
|
||||
|
||||
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
|
||||
@@ -6214,7 +6216,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
If CveVenta <= 0 Then
|
||||
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero()
|
||||
'CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero()
|
||||
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString())
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
@@ -6246,7 +6248,7 @@ Partial Class Ventas
|
||||
Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero()
|
||||
|
||||
If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then
|
||||
CveMetodoPagoCliente = ObjCliente.CveMetodoPago
|
||||
'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
|
||||
|
||||
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
|
||||
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
|
||||
|
||||
Reference in New Issue
Block a user