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
@@ -68,7 +68,7 @@ Public Class ClsClientes
|
||||
Public Property RecepcionPagos As String
|
||||
Public Property TipoPago As String
|
||||
Public Property CuentaContable As String
|
||||
Public Property ConvenioCIE As String
|
||||
'Public Property ConvenioCIE As String
|
||||
Public Property FormaFacturacion As String
|
||||
Public Property IdCtaContClientes As Integer
|
||||
Public Property IdCtaContMonedaExtranjera As Integer
|
||||
@@ -86,8 +86,8 @@ Public Class ClsClientes
|
||||
Public Property CveCuentaFondoGarantia As Integer
|
||||
Public Property Codigo As String
|
||||
Public Property LimiteCredito As Double
|
||||
Public Property NumCtaPago As String
|
||||
Public Property CveMetodoPago As Integer
|
||||
'Public Property NumCtaPago As String
|
||||
'Public Property CveMetodoPago As Integer
|
||||
Public Property AplicaFEMSA As Boolean
|
||||
Public Property FEMSA_NumSociedad As String
|
||||
Public Property FEMSA_NumProveedor As String
|
||||
@@ -341,11 +341,11 @@ Public Class ClsClientes
|
||||
_CveCuentaRetIVA = Data.Rows(0)("IdCtaContRetIVASIG").ToString.ToEntero
|
||||
_CveCuentaRetISR = Data.Rows(0)("IdCtaContRetISRSIG").ToString.ToEntero
|
||||
_CveCuentaFondoGarantia = Data.Rows(0)("IdCtaContFondoGarantiaSIG").ToString.ToEntero
|
||||
_ConvenioCIE = Data.Rows(0)("ConvenioCIE").ToString
|
||||
'_ConvenioCIE = Data.Rows(0)("ConvenioCIE").ToString
|
||||
_FormaFacturacion = Data(0)("FormaFacturacion").ToString
|
||||
_LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble
|
||||
_NumCtaPago = Data(0)("NumCtaPago").ToString
|
||||
_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
|
||||
'_NumCtaPago = Data(0)("NumCtaPago").ToString
|
||||
'_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
|
||||
_AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString)
|
||||
_FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString
|
||||
_FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString
|
||||
@@ -569,7 +569,7 @@ Public Class ClsClientes
|
||||
RetieneIVAFletes As Boolean, CveUsuario As Integer, CveEmpresa As Integer, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String,
|
||||
IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String,
|
||||
IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String,
|
||||
ConvenioCIE As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, NumCtaPago As String, CveMetodoPago As Integer, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String,
|
||||
FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String,
|
||||
FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, Detallista_NumProveedor As String,
|
||||
SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, TelefonoExtension As String, TelefonoOtros As String, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer,
|
||||
Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
|
||||
@@ -639,12 +639,10 @@ Public Class ClsClientes
|
||||
.Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos
|
||||
.Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos
|
||||
|
||||
.Add("@ConvenioCIE", SqlDbType.VarChar).Value = ConvenioCIE
|
||||
|
||||
.Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion
|
||||
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
|
||||
.Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
|
||||
.Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago
|
||||
.Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
|
||||
.Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0)
|
||||
.Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad
|
||||
.Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor
|
||||
@@ -754,7 +752,7 @@ Public Class ClsClientes
|
||||
IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String,
|
||||
IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String,
|
||||
IdCtaContMonedaExtranjera As Integer, CtaContMonedaExtranjera As String, IdCtaContMonedaExtranjeraAnticipos As Integer, CtaContMonedaExtranjeraAnticipos As String,
|
||||
ConvenioCIE As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, NumCtaPago As String, CveMetodoPago As Integer, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String,
|
||||
FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String,
|
||||
FEMSA_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String,
|
||||
Detallista_NumProveedor As String, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, CveUsuario As Integer, CveCliente As Integer, CveUsuarioModifico As Integer, CveEmpresa As Integer, TelefonoExtension As String, TelefonoOtros As String,
|
||||
PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer,
|
||||
@@ -835,12 +833,11 @@ Public Class ClsClientes
|
||||
.Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos
|
||||
.Add("@CtaContMonedaExtranjeraAnticipos", SqlDbType.VarChar).Value = IdCtaContMonedaExtranjeraAnticipos
|
||||
|
||||
.Add("@ConvenioCIE", SqlDbType.VarChar).Value = ConvenioCIE
|
||||
|
||||
.Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion
|
||||
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
|
||||
.Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
|
||||
.Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago
|
||||
.Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
|
||||
|
||||
.Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0)
|
||||
.Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad
|
||||
.Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor
|
||||
|
||||
@@ -1387,6 +1387,15 @@ Partial Class Bancos_PopIECompras
|
||||
|
||||
#Region "G U A R D A R"
|
||||
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
|
||||
If FechaCompra.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
|
||||
Alert($"La fecha de compra no puede ser mayor que la fecha de pago <br/> Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") } ", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
|
||||
If Not Page.IsValid Then
|
||||
Exit Sub
|
||||
|
||||
@@ -1391,6 +1391,15 @@ Partial Class Bancos_PopIEVentas
|
||||
|
||||
#Region "G U A R D A R"
|
||||
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
|
||||
|
||||
If FechaVenta.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
|
||||
Alert($"La fecha de venta no puede ser mayor que la fecha de pago <br/> Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
|
||||
If Not Page.IsValid Then
|
||||
Exit Sub
|
||||
|
||||
@@ -711,6 +711,30 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
#Region " GUARDAR "
|
||||
|
||||
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 GvCxP.Rows
|
||||
|
||||
If gvRowVal.FCCheckBox("Chk").Checked Then
|
||||
If gvRowVal.DataKey("Fecha").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 DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then
|
||||
Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
|
||||
@@ -3988,6 +3988,20 @@ Partial Class Compras_Compras
|
||||
Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
'------------------INICIA VALIDACIONES------------------
|
||||
|
||||
Dim TempIva As Decimal
|
||||
For Each drowv As DataRow In TmpDT.Rows
|
||||
TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal)
|
||||
Next
|
||||
|
||||
Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva)
|
||||
|
||||
If Math.Abs(DifGenelraIvas) > 0.2 Then
|
||||
Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
Dim EstatusCredito As Integer = 0
|
||||
Dim CveSubProyecto As Integer = 0
|
||||
'Credito Multiple
|
||||
|
||||
@@ -1172,7 +1172,7 @@ Partial Class General_SaldosIniciales
|
||||
Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format("NombreEstado ='{0}'", Estado)).ToEntero
|
||||
|
||||
If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString, "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
|
||||
"-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, LimiteCredito, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
|
||||
"-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
|
||||
BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado) Then
|
||||
|
||||
ErrorClientes = True
|
||||
|
||||
@@ -121,6 +121,9 @@ public partial class OI_Tablero : ClsPaginas
|
||||
{
|
||||
CargaTablero();
|
||||
this.Alert("El Tablero Se ha Eliminado");
|
||||
}else
|
||||
{
|
||||
this.Alert("El Tablero Se ha Eliminado", ModExtensiones.TipoMensaje.MsgAdvertencia);
|
||||
}
|
||||
}
|
||||
protected void LnkTableros_Click(object sender, EventArgs e)
|
||||
|
||||
@@ -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)
|
||||
@@ -1496,9 +1496,7 @@ Partial Class Clientes
|
||||
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
|
||||
'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)
|
||||
|
||||
@@ -176,6 +176,8 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user