Pendientes BDH, mejoras servicion E141, mwjoras carga PS entradas/salidas,cambios en modalidad contable, favicon signals gps
This commit is contained in:
@@ -3262,23 +3262,33 @@ Partial Class PV
|
||||
SbAlert.AppendFormat("{0}<br>", Retorno.Mensajes(Retorno.Mensajes.Count - 1))
|
||||
SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))
|
||||
|
||||
Dim urlFactura As String = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta))}"
|
||||
Dim urlAjuste As String = ""
|
||||
|
||||
Using ObjAcum As New ClsAcumuladores
|
||||
If ObjAcum.GetGarantiasDetalle(Retorno.CveVenta) Then
|
||||
Dim RowGarantia As DataRow = ObjAcum.DtResultados.FiltroPrimero("")
|
||||
If RowGarantia IsNot Nothing Then
|
||||
SbAlert.AppendFormat("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Ajuste</a></li></ul><br/>", Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle"))))
|
||||
|
||||
'AUTO DESCARGAR PDF AJUSTE
|
||||
RegistraScript($"window.open('/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}', '_blank');", "Imprimir")
|
||||
urlAjuste = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AJUSTE&CVEGARANTIADETALLE={0}", RowGarantia("CveGarantiaDetalle")))}"
|
||||
End If
|
||||
End If
|
||||
End Using
|
||||
|
||||
Retorno.Mensajes(Retorno.Mensajes.Count - 1) = SbAlert.ToString()
|
||||
|
||||
RegistraScript($"descargarPDF('{urlFactura}','{urlAjuste}');", "Imprimir")
|
||||
|
||||
'BLOQUEAR LA SESION DESPUES DE GENERAR
|
||||
If DivBloqueo.Visible Then
|
||||
Retorno.LigaPV = "bloquearAcceso();"
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
For Each Mensaje In Retorno.Mensajes
|
||||
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV))
|
||||
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV), ShowCloseButton:=False)
|
||||
Next
|
||||
Else
|
||||
Alert("No hay partidas agregadas a la factura", TipoMensaje.MsgAdvertencia)
|
||||
@@ -7309,97 +7319,108 @@ Partial Class PV
|
||||
|
||||
Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
Dim MarcaPS As String = ""
|
||||
If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
|
||||
End If
|
||||
'Dim ObjPS As New ClsProductosServicios
|
||||
'Dim MarcaPS As String = ""
|
||||
'If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
' MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
|
||||
'End If
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
Dim DtDatos As New DataTable
|
||||
'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
'Dim DtDatos As New DataTable
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
'Dim params As New List(Of ReportParameter)
|
||||
|
||||
|
||||
'Informacion Distribuidor
|
||||
If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
|
||||
''Informacion Distribuidor
|
||||
'If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
|
||||
|
||||
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
|
||||
Dim CiudadEstado As String = ""
|
||||
Dim Telefono As String = ""
|
||||
Dim Nombre As String = ""
|
||||
' Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
|
||||
' Dim CiudadEstado As String = ""
|
||||
' Dim Telefono As String = ""
|
||||
' Dim Nombre As String = ""
|
||||
|
||||
If DatosClienteSeleccionado IsNot Nothing Then
|
||||
CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
|
||||
Telefono = DatosClienteSeleccionado("Telefono").ToString
|
||||
Nombre = DatosClienteSeleccionado("Nombre").ToString
|
||||
End If
|
||||
' If DatosClienteSeleccionado IsNot Nothing Then
|
||||
' CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
|
||||
' Telefono = DatosClienteSeleccionado("Telefono").ToString
|
||||
' Nombre = DatosClienteSeleccionado("Nombre").ToString
|
||||
' End If
|
||||
|
||||
params.Add(New ReportParameter("NombreDistribuidor", Nombre))
|
||||
params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
|
||||
params.Add(New ReportParameter("TelCliente", Telefono))
|
||||
' params.Add(New ReportParameter("NombreDistribuidor", Nombre))
|
||||
' params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
|
||||
' params.Add(New ReportParameter("TelCliente", Telefono))
|
||||
|
||||
End If
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
|
||||
params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
|
||||
'End If
|
||||
'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
'params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
|
||||
'params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
|
||||
|
||||
'Informacion de Garantia o ajuste
|
||||
params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
|
||||
params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
|
||||
params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
|
||||
params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
|
||||
params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
|
||||
''Informacion de Garantia o ajuste
|
||||
'params.Add(New ReportParameter("FechaInst", TxtFechaAjuste.Text.Trim))
|
||||
'params.Add(New ReportParameter("Fecha", Now.ToShortDateString))
|
||||
'params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
|
||||
'params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
|
||||
'params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
|
||||
|
||||
'Informacion Acumulador
|
||||
params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
|
||||
params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
|
||||
params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
|
||||
params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
|
||||
params.Add(New ReportParameter("Marca", MarcaPS))
|
||||
params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text))
|
||||
''Informacion Acumulador
|
||||
'params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
|
||||
'params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
|
||||
'params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
|
||||
'params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
|
||||
'params.Add(New ReportParameter("Marca", MarcaPS))
|
||||
'params.Add(New ReportParameter("Etiqueta", TxtEtiqueta.Text))
|
||||
|
||||
'Informacion Vehiculo
|
||||
params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
|
||||
params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
|
||||
''Informacion Vehiculo
|
||||
'params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
|
||||
'params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
|
||||
|
||||
'Informacion Consumidor
|
||||
'Informacion Distribuidor
|
||||
If (CveCliente > 0) Then
|
||||
''Informacion Consumidor
|
||||
''Informacion Distribuidor
|
||||
'If (CveCliente > 0) Then
|
||||
|
||||
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
|
||||
Dim Nombre As String = ""
|
||||
Dim Ciudad As String = ""
|
||||
Dim Estado As String = ""
|
||||
Dim Direccion As String = ""
|
||||
Dim Telefono As String = ""
|
||||
' Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
|
||||
' Dim Nombre As String = ""
|
||||
' Dim Ciudad As String = ""
|
||||
' Dim Estado As String = ""
|
||||
' Dim Direccion As String = ""
|
||||
' Dim Telefono As String = ""
|
||||
|
||||
If DatosClienteSeleccionado IsNot Nothing Then
|
||||
Nombre = DatosClienteSeleccionado("Nombre").ToString
|
||||
Ciudad = DatosClienteSeleccionado("Ciudad").ToString
|
||||
Estado = DatosClienteSeleccionado("Estado").ToString
|
||||
Direccion = DatosClienteSeleccionado("Direccion").ToString
|
||||
Telefono = DatosClienteSeleccionado("Telefono").ToString
|
||||
End If
|
||||
' If DatosClienteSeleccionado IsNot Nothing Then
|
||||
' Nombre = DatosClienteSeleccionado("Nombre").ToString
|
||||
' Ciudad = DatosClienteSeleccionado("Ciudad").ToString
|
||||
' Estado = DatosClienteSeleccionado("Estado").ToString
|
||||
' Direccion = DatosClienteSeleccionado("Direccion").ToString
|
||||
' Telefono = DatosClienteSeleccionado("Telefono").ToString
|
||||
' End If
|
||||
|
||||
params.Add(New ReportParameter("NombreCliente", Nombre))
|
||||
params.Add(New ReportParameter("Direccion", Direccion))
|
||||
params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
|
||||
params.Add(New ReportParameter("TelConsumidor", Telefono))
|
||||
End If
|
||||
' params.Add(New ReportParameter("NombreCliente", Nombre))
|
||||
' params.Add(New ReportParameter("Direccion", Direccion))
|
||||
' params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
|
||||
' params.Add(New ReportParameter("TelConsumidor", Telefono))
|
||||
'End If
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
'If Imagen.Exists Then
|
||||
' params.Add(New ReportParameter("LogoPath", logouri))
|
||||
'Else
|
||||
' params.Add(New ReportParameter("LogoPath", ""))
|
||||
'End If
|
||||
|
||||
params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text))
|
||||
params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
|
||||
params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
|
||||
'params.Add(New ReportParameter("Anio", TxtAnioVehiculo.Text))
|
||||
'params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
|
||||
'params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
|
||||
Dim URLDescarga As New StringBuilder
|
||||
|
||||
URLDescarga.Append($"OP=AJUSTE&CVEPSAJUSTE={DdlPSAjuste.SelectedValue.ToEntero}&CVECLIENTE={CveCliente}&CVECLIENTEDISTRIBUIDOR={DdlDistribuidor.SelectedValue.ToEntero()}&CONSEC={TxtConsecutivoAjuste.Text.Trim}")
|
||||
URLDescarga.Append($"&FOLIOGARANTIA={If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)}&FECHAAJUSTE={TxtFechaAjuste.Text.Trim}&FECHARECLAMACION={Now.ToString("dd/MM/yyyy")}")
|
||||
URLDescarga.Append($"&TIPODEFECTO={If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)}&CVETIPOUSO={DdlTipoUso.SelectedValue.ToEntero()}&CODIGOENSAMBLE={TxtCodEnsamble.Text.Trim}&CODIGOLINEA={TxtCodLinea.Text.Trim}")
|
||||
URLDescarga.Append($"&CODIGOINSPECCION={TxtCodInspeccion.Text.Trim}&PORCENTAJEAJUSTE={TxtPorcentajeAjuste.Text.Trim}&BCIAJUSTE={DdlBCIAjuste.SelectedItem.Text}&ETIQUETA={TxtEtiqueta.Text.Trim}&AÑO={TxtAnioVehiculo.Text}&COMPROBANTE={TxtComprobante.Text}")
|
||||
URLDescarga.Append($"&MODELOAUTO={If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")}&MARCAAUTO={If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")}&CODIGOTD={TxtCodigoTD.Text.Trim}")
|
||||
|
||||
|
||||
RegistraScript($"window.open('/Compras/PopUpVerFactura.aspx?P={Encripta(URLDescarga.ToString())}', '_blank');", "Imprimir")
|
||||
|
||||
'ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user