Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -917,7 +917,6 @@ Partial Class Clientes
|
||||
|
||||
ChecaPermiteCredito()
|
||||
|
||||
|
||||
'Crea y carga CuentasBancarias - tab:Bancos
|
||||
CargaCuentasBancarias()
|
||||
|
||||
@@ -939,8 +938,6 @@ Partial Class Clientes
|
||||
TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString()
|
||||
TxtFechaFCredito.Text = Now.ToShortDateString()
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(257) Then 'Falta agregar proceso
|
||||
DivMapAddSucursal.Visible = True
|
||||
LiLnkAgragarDireccion.Visible = True
|
||||
@@ -950,17 +947,12 @@ Partial Class Clientes
|
||||
|
||||
MostrarTxtDireccionesClienteEnvio()
|
||||
|
||||
|
||||
If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso UsuarioActual.CveRol = 1 Then
|
||||
If CveCliente > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso UsuarioActual.TienePermisoProceso(350) Then
|
||||
CargaCombosLineasAdicionales()
|
||||
TabLineasAdicionales.Visible = True
|
||||
LnkAgregarLineaAdicional.Visible = True
|
||||
GetLineasAdicionales()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
|
||||
@@ -1050,7 +1042,7 @@ Partial Class Clientes
|
||||
DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
|
||||
|
||||
DdlEstadoSAT.DataBind()
|
||||
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlEstadoSAT.Items.Insert(0, New ListItem("-", "-1"))
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
@@ -1059,11 +1051,11 @@ Partial Class Clientes
|
||||
Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
|
||||
DdlResponsable.DataSource = Dt.FiltraParametros("Estatus = 1", "", {"CveUsuario", "Nombre"})
|
||||
DdlResponsable.DataBind()
|
||||
DdlResponsable.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlResponsable.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
DdlResponsableSucursal.DataSource = Dt
|
||||
DdlResponsableSucursal.DataBind()
|
||||
DdlResponsableSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlResponsableSucursal.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
UpAgregarSucursal.Update()
|
||||
UpDatos.Update()
|
||||
@@ -1664,7 +1656,8 @@ Partial Class Clientes
|
||||
|
||||
DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
|
||||
DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
|
||||
DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
|
||||
'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
|
||||
CargaFormaDePago(ObjClientes.CveFormaPago33)
|
||||
If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
|
||||
|
||||
ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
|
||||
@@ -1975,6 +1968,7 @@ Partial Class Clientes
|
||||
DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
|
||||
GvCxC.DataSource = DtCxCActivas
|
||||
If DtCxCActivas.MAX("LineaAdicional") = "" Then GvCxC.Columns(6).Visible = False
|
||||
If DtCxCActivas.MAX("CobranzaEstatus") = "" Then GvCxC.Columns(10).Visible = False
|
||||
'solo tomo los 10 ultimos mas el totalizador general
|
||||
Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
||||
DtHistorialCxC = dt
|
||||
@@ -2753,7 +2747,7 @@ Partial Class Clientes
|
||||
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, CobranzaCorreo:=TxtCobranzaCorreo.Text.Trim, Horario:=TxtHorario.Text.Trim, PortalFacturacion:=TxtPortalFacturacion.Text.Trim, Documentacion:=TxtDocumentacion.Text.Trim, DiasEspecifico:=TxtDiasEspecifico.Text.Trim, UsuarioPortal:=TxtUsuarioPortalFacturacion.Text, ContraseñaPortal:=TxtContraseñaPortalFacturacion.Text,
|
||||
DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero(),
|
||||
CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
|
||||
CveFormaPago:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
|
||||
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()),
|
||||
@@ -2847,7 +2841,7 @@ Partial Class Clientes
|
||||
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,
|
||||
CobranzaCorreo:=TxtCobranzaCorreo.Text.Trim, Horario:=TxtHorario.Text.Trim, PortalFacturacion:=TxtPortalFacturacion.Text.Trim, Documentacion:=TxtDocumentacion.Text.Trim, DiasEspecifico:=TxtDiasEspecifico.Text.Trim, UsuarioPortal:=TxtUsuarioPortalFacturacion.Text, ContraseñaPortal:=TxtContraseñaPortalFacturacion.Text,
|
||||
DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked,
|
||||
DiasRevision:=DiasRevision, ObservacionRevsion:=TxtObsDiasRevision.Text.Trim, ReferenciaFiscal:=TxtReferenciaFiscal.Text.Trim, Celular:=TxtCelular.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ExtOtros:=TxtExtOtro.Text.Trim, CveUsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero(), CveFormaPago:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked,
|
||||
AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(), 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(),
|
||||
@@ -4070,8 +4064,13 @@ Partial Class Clientes
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
|
||||
Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
|
||||
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
|
||||
Dim RutaReporteGrales As New System.IO.FileInfo($"{DirectorioEmpresas}Grales\Formatos\RepClientesCxC.rpt")
|
||||
|
||||
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
||||
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
@@ -4257,7 +4256,7 @@ Partial Class Clientes
|
||||
File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
|
||||
End If
|
||||
Else
|
||||
File = ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
|
||||
File = ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
|
||||
End If
|
||||
|
||||
Try
|
||||
@@ -4307,7 +4306,7 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
Else
|
||||
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
|
||||
ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -4359,7 +4358,7 @@ Partial Class Clientes
|
||||
ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
|
||||
End If
|
||||
Else
|
||||
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
|
||||
ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
@@ -10351,15 +10350,14 @@ Partial Class Clientes
|
||||
|
||||
If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
|
||||
DivRazonSocial2.Attributes.Add("class", "col-md-8")
|
||||
DVRegimenSociedad.Visible = True
|
||||
TxtNombreComercial.Enabled = False
|
||||
DVRegimenSociedad.Visible = True
|
||||
Else
|
||||
TxtNombreComercial.Enabled = True
|
||||
End If
|
||||
' DdlRegimenFiscal.SelectedIndex = -1
|
||||
|
||||
Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
|
||||
Dim Val As String
|
||||
Dim Val As String = ""
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
'verifico que sino existe el valor. lo limpie
|
||||
@@ -10378,31 +10376,17 @@ Partial Class Clientes
|
||||
|
||||
|
||||
|
||||
Private Sub CargaCombosLineasAdicionales()
|
||||
|
||||
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
|
||||
DdlProveedorLineaAdicionalModal.setEsWebService(True)
|
||||
DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedorLineaAdicionalModal.SelectedText = "-"
|
||||
DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
|
||||
|
||||
|
||||
|
||||
Else
|
||||
DdlProveedorLineaAdicionalModal.setEsWebService(False)
|
||||
DdlProveedorLineaAdicionalModal.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedorLineaAdicionalModal.ddl.DataBind()
|
||||
DdlProveedorLineaAdicionalModal.ddl.Items.Insert(0, New ListItem("-", "-1"))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Private Sub CargaCombosLineasAdicionales()
|
||||
|
||||
DdlProveedorLineaAdicionalModal.setEsWebService(True)
|
||||
DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedorLineaAdicionalModal.SelectedText = "-"
|
||||
DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
|
||||
|
||||
DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
|
||||
DdlCategoriaLineaAdicionalModal.DataBind()
|
||||
DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
|
||||
|
||||
DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GetLineasAdicionales()
|
||||
@@ -10554,5 +10538,36 @@ Partial Class Clientes
|
||||
UpLineaAdicionalmodal.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlMetodoPago33_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
CargaFormaDePago(-1)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaFormaDePago(Optional CveFormaPago As Integer = -1)
|
||||
|
||||
DdlFormaPago33.Items.Clear()
|
||||
|
||||
If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
|
||||
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
|
||||
Else
|
||||
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
|
||||
End If
|
||||
|
||||
DdlFormaPago33.DataBind()
|
||||
|
||||
If Not DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
|
||||
DdlFormaPago33.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
End If
|
||||
|
||||
If CveFormaPago > 0 Then
|
||||
DdlFormaPago33.SelectedValueExist(CveFormaPago)
|
||||
End If
|
||||
|
||||
UpFiscalContable.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user