Clientes pagare 140, modificaion en cabecera
This commit is contained in:
Oscar Irigoyen
@@ -1881,12 +1881,6 @@ Partial Class Clientes
|
||||
TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
|
||||
TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString()
|
||||
|
||||
If ObjClientes.DtResultados.Rows(0)("FechaLimiteCredito").ToString.ToDate > MinFecha Then
|
||||
TxtFechaLimiteCredito.Text = ObjClientes.DtResultados.Rows(0)("FechaLimiteCredito").ToString.ToDate.ToString("dd/MM/yyyy")
|
||||
Else
|
||||
TxtFechaLimiteCredito.Text = ""
|
||||
End If
|
||||
|
||||
CargarClientePersonalEntrega()
|
||||
Else
|
||||
Existe = False
|
||||
@@ -1915,9 +1909,6 @@ Partial Class Clientes
|
||||
|
||||
TxtRepresentanteLegal.Text = ObjClientes.RepresentanteLegal
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
UpActivacionPortal.Update()
|
||||
UpModalPersonaFisica.Update()
|
||||
@@ -1960,10 +1951,6 @@ Partial Class Clientes
|
||||
DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
|
||||
GvCxC.DataSource = DtCxCActivas
|
||||
'solo tomo los 10 ultimos mas el totalizador general
|
||||
|
||||
|
||||
GvCxC.Columns(6).Visible = If(DtCxCActivas.FiltroPrimeroValor("LineaAdicional", "LEN(TRIM(LineaAdicional)) > 0", "LineaAdicional DESC").Trim.Length > 0, True, False)
|
||||
|
||||
Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
||||
DtHistorialCxC = dt
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
@@ -2672,9 +2659,6 @@ Partial Class Clientes
|
||||
|
||||
Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
|
||||
|
||||
|
||||
Dim FechaLimiteCredito As Date = If(TxtFechaLimiteCredito.Text.ToDate > MinFecha, TxtFechaLimiteCredito.Text.ToDate, MinFecha)
|
||||
|
||||
If CveCliente = -1 Then
|
||||
Dim ErrorAC As Boolean = False
|
||||
Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero()
|
||||
@@ -2738,7 +2722,7 @@ Partial Class Clientes
|
||||
CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
|
||||
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
|
||||
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
|
||||
CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, FechaLimiteCredito:=FechaLimiteCredito) Then
|
||||
CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
|
||||
|
||||
ViewState("CveCliente") = ObjClientes.CveCliente
|
||||
|
||||
@@ -2835,7 +2819,7 @@ Partial Class Clientes
|
||||
ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
|
||||
RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
|
||||
CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
|
||||
NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, FechaLimiteCredito:=FechaLimiteCredito) Then
|
||||
NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
|
||||
|
||||
|
||||
ObjClientes.LimpiaImpuestosLocales(CveCliente)
|
||||
@@ -2992,8 +2976,8 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
|
||||
|
||||
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(6).ForeColor = Drawing.Color.Red
|
||||
If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(4).ForeColor = Drawing.Color.Red
|
||||
@@ -7530,9 +7514,10 @@ Partial Class Clientes
|
||||
Dim ciudad As String = ""
|
||||
Dim estado As String = ""
|
||||
Dim Telefono As String = ""
|
||||
Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
|
||||
Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
|
||||
Dim hoy As DateTime = DateTime.Now
|
||||
Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
|
||||
Dim cpCliente As String = ""
|
||||
|
||||
If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
|
||||
@@ -7544,14 +7529,25 @@ Partial Class Clientes
|
||||
ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
|
||||
estado = ObjClientes.DtResultados.FiltroPrimeroValor("Estado")
|
||||
Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
|
||||
cpCliente = ObjClientes.CP
|
||||
End If
|
||||
|
||||
Dim CveLocalidadSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveLocalidad", "").ToEntero
|
||||
Dim CveEstadoSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstado", "").ToEntero
|
||||
|
||||
|
||||
Dim LocalidadSucursal As String = GlobalDTLocalidad(-1, -1).FiltroPrimeroValor("NombreLocalidad", $"CveLocalidad = {CveLocalidadSucursal}")
|
||||
Dim EstadoSucursal As String = GlobalDTGralEstados("-1", -1).FiltroPrimeroValor("NombreEstado", $"CveEstado={CveEstadoSucursal}")
|
||||
|
||||
Dim FechaLugar As String = $"{LocalidadSucursal}, {EstadoSucursal} a {fechaConFormato}"
|
||||
|
||||
|
||||
Tags.Add(New TagsDocumentos("{Monto}", monto))
|
||||
Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
|
||||
Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
|
||||
Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
|
||||
Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
|
||||
Tags.Add(New TagsDocumentos("{Direccion}", String.Format("{0} #{1} {2}, COL.{3}", direccion, noInt, noExt, colonia).ToUpper()))
|
||||
Tags.Add(New TagsDocumentos("{Direccion}", String.Format("{0} #{1} {2}, COL.{3}, CP. {4}", direccion, noInt, noExt, colonia, cpCliente).ToUpper()))
|
||||
Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0}, {1}", ciudad, estado).ToUpper()))
|
||||
Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
|
||||
Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text))
|
||||
@@ -7559,6 +7555,7 @@ Partial Class Clientes
|
||||
Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
|
||||
Tags.Add(New TagsDocumentos("{RepresentanteLegal}", TxtRepresentanteLegal.Text))
|
||||
Tags.Add(New TagsDocumentos("{FechaLugar}", FechaLugar))
|
||||
|
||||
If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
|
||||
Alert("no se pudo registrar el pagare")
|
||||
|
||||
Reference in New Issue
Block a user