-- limpieza y acomodo de código
This commit is contained in:
@@ -6984,6 +6984,15 @@ Public Class ClsPaginas
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
params.Add(New ReportParameter("UsaProductoAlterno", If(Vta.Cliente.UsaProductoAlterno, "1", "0")))
|
||||
|
||||
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
|
||||
params.Add(New ReportParameter("Medico", Vta.Medico))
|
||||
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
|
||||
params.Add(New ReportParameter("FechaCirugia", Vta.FechaParaSurtir.ToString("yyyy-MM-dd HH:mm")))
|
||||
params.Add(New ReportParameter("Paciente", Vta.Paciente))
|
||||
params.Add(New ReportParameter("Episodio", Vta.Episodio))
|
||||
params.Add(New ReportParameter("Alfa1", Vta.Alfa1))
|
||||
|
||||
End If
|
||||
|
||||
'PARAMETROS SEGUN TIPO DOCUMENTO
|
||||
@@ -7022,16 +7031,7 @@ Public Class ClsPaginas
|
||||
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
|
||||
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
|
||||
params.Add(New ReportParameter("Medico", Vta.Medico))
|
||||
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
|
||||
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
|
||||
params.Add(New ReportParameter("Paciente", Vta.Paciente))
|
||||
params.Add(New ReportParameter("Episodio", Vta.Episodio))
|
||||
params.Add(New ReportParameter("Alfa1", Vta.Alfa1))
|
||||
|
||||
End If
|
||||
'VSH
|
||||
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
|
||||
'DATOS CLIENTES
|
||||
@@ -7081,15 +7081,6 @@ Public Class ClsPaginas
|
||||
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
|
||||
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
|
||||
params.Add(New ReportParameter("Medico", Vta.Medico))
|
||||
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
|
||||
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
|
||||
params.Add(New ReportParameter("Paciente", Vta.Paciente))
|
||||
params.Add(New ReportParameter("Episodio", Vta.Episodio))
|
||||
params.Add(New ReportParameter("Alfa1", Vta.Alfa1))
|
||||
End If
|
||||
|
||||
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
|
||||
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
|
||||
@@ -7115,11 +7106,11 @@ Public Class ClsPaginas
|
||||
params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString))
|
||||
End If
|
||||
'COMPU DN DIFUSA
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 137, 132, 144, 177, 186) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 119, 137, 132, 144, 177, 186) Then
|
||||
Dim FirmaVendedor As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", UsuarioActual.Empresa.Ruta, Vta.CveVendedor))
|
||||
params.Add(New ReportParameter("FirmaVendedor", If(FirmaVendedor.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", UsuarioActual.CveEmpresa, Vta.CveVendedor))).AbsoluteUri, "")))
|
||||
params.Add(New ReportParameter("Entrega", Vta.Entrega))
|
||||
params.Add(New ReportParameter("Vigencia", Vta.Vigencia.ToString("dd/MMMM/yyyy")))
|
||||
params.Add(New ReportParameter("Vigencia", Vta.Vigencia.ToString("yyyy-MM-dd")))
|
||||
params.Add(New ReportParameter("Sucursal", Vta.SubProyecto.SubProyecto))
|
||||
params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString)))
|
||||
params.Add(New ReportParameter("CveMoneda", Vta.CveMoneda.ToString))
|
||||
@@ -7133,11 +7124,8 @@ Public Class ClsPaginas
|
||||
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
|
||||
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
|
||||
Case "Egs"
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
||||
NombreArchivo = "NotaCredito"
|
||||
Else
|
||||
NombreArchivo = "Factura"
|
||||
End If
|
||||
|
||||
NombreArchivo = "Factura"
|
||||
NombreArchivoDescarga = "Nota de Crédito"
|
||||
TipoDocumento = "EGRESO"
|
||||
TipoDocumentoRef = String.Format(": Ref.:{0}", Vta.RefDocto)
|
||||
@@ -7163,22 +7151,7 @@ Public Class ClsPaginas
|
||||
params.Add(New ReportParameter("Tipo", TipoDocumento))
|
||||
params.Add(New ReportParameter("Ref", TipoDocumentoRef))
|
||||
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
|
||||
'INE COMPLEMENTOS
|
||||
If UsuarioActual.CveEmpresa.Contiene(72) Then
|
||||
Dim INETipoProceso As String = ""
|
||||
Dim INETipoComite As String = ""
|
||||
Dim INEIdContabilidad As Integer = 0
|
||||
If Vta.ComplementoINE IsNot Nothing Then
|
||||
INETipoProceso = Vta.ComplementoINE.INETipoProceso
|
||||
INETipoComite = Vta.ComplementoINE.INETipoComite
|
||||
INEIdContabilidad = Vta.ComplementoINE.INEIdContabilidad
|
||||
End If
|
||||
params.Add(New ReportParameter("INETipoProceso", INETipoProceso))
|
||||
params.Add(New ReportParameter("INETipoComite", INETipoComite))
|
||||
params.Add(New ReportParameter("INEIdContabilidad", INEIdContabilidad.ToString))
|
||||
params.Add(New ReportParameter("Referencia", Vta.Cliente.ReferenciaFiscal))
|
||||
params.Add(New ReportParameter("ClienteContacto", Vta.AtencionA))
|
||||
End If
|
||||
|
||||
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
|
||||
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
|
||||
Case "Ped"
|
||||
@@ -7192,14 +7165,6 @@ Public Class ClsPaginas
|
||||
params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
|
||||
params.Add(New ReportParameter("CveAlmacenTraspasoOrigen", Vta.CveAlmacenTraspasoOrigen.ToString))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
|
||||
params.Add(New ReportParameter("Medico", Vta.Medico))
|
||||
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
|
||||
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm")))
|
||||
params.Add(New ReportParameter("Paciente", Vta.Paciente))
|
||||
params.Add(New ReportParameter("Episodio", Vta.Episodio))
|
||||
End If
|
||||
|
||||
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
|
||||
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
|
||||
@@ -7616,116 +7581,6 @@ Public Class ClsPaginas
|
||||
Return o.Value
|
||||
End If
|
||||
End Function
|
||||
Public Sub GenerarFacturaVenta(CveVenta As Integer)
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Dim Vta As Modelos.Factura = Nothing
|
||||
Dim TmpDTImpuestos As DataTable = New DataTable
|
||||
TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
|
||||
TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
|
||||
TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
|
||||
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||
Dim dtVentas As DataTable = ObjVentas.DtResultados
|
||||
' se rellenan los campos de la factura
|
||||
Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura)
|
||||
Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
|
||||
'se rellena la sucursal
|
||||
Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
|
||||
Vta.Cliente = New Modelos.ClienteModel
|
||||
Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
|
||||
Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
|
||||
Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
|
||||
Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
|
||||
Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
|
||||
Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
|
||||
Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
|
||||
Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
|
||||
Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
|
||||
Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
|
||||
Vta.AtencionA = dtVentas(0)("AtencionA").ToString
|
||||
Vta.TelefonoGenerico = dtVentas(0)("TelefonoGenerico").ToString
|
||||
Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
|
||||
Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
|
||||
Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
|
||||
Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
|
||||
Vta.RefDocto = dtVentas(0)("Ref").ToString
|
||||
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
|
||||
Vta.Version = dtVentas(0)("Version").ToString
|
||||
Vta.ClienteSucursal = New Modelos.SucursalModel
|
||||
Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
|
||||
Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
|
||||
Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
|
||||
Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
|
||||
Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
|
||||
Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
|
||||
Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
|
||||
Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
|
||||
Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
|
||||
Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
|
||||
Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
|
||||
Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
|
||||
Vta.EnviarA = New Modelos.EnviarAModel
|
||||
Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
|
||||
Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
|
||||
Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
|
||||
Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
|
||||
Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
|
||||
Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
|
||||
Dim DR As DataRow = TmpDTImpuestos.NewRow()
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then
|
||||
If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
If dtVentas(0)("IVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
|
||||
'solo para eclipse, que muesre un subtotal debajo de IVA
|
||||
If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 1000 : TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
End If
|
||||
If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
|
||||
Vta.DtDetalle = ObjVentas.DtResultados
|
||||
End If
|
||||
If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then
|
||||
Dim dtImpuesto As DataTable = ObjVentas.DtResultados
|
||||
If dtImpuesto.Rows.Count > 0 Then
|
||||
For Each Row As DataRow In dtImpuesto.Rows
|
||||
Dim Orden As Integer = 80
|
||||
If Row("Importe").ToString.ToDouble <> 0 Then
|
||||
DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
|
||||
DR("Importe") = Row("Importe").ToString.ToDouble
|
||||
DR("Orden") = Orden
|
||||
TmpDTImpuestos.Rows.Add(DR)
|
||||
DR = TmpDTImpuestos.NewRow()
|
||||
Orden = Orden + 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
|
||||
Else
|
||||
Vta.DtDeduccion = ObjVentas.DtResultados
|
||||
End If
|
||||
End If
|
||||
If ObjVentas.GetVentasFirmas(CveVenta) Then
|
||||
Vta.DtFirmas = ObjVentas.DtResultados
|
||||
End If
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If Not IsNothing(Vta) Then
|
||||
PdfFactura(Vta)
|
||||
Vta = Nothing
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Public Function RutaFormatoReporte(NombreReporte As String) As String
|
||||
@@ -7745,7 +7600,6 @@ Public Class ClsPaginas
|
||||
Public Function NewGeneraBytesOC(tCveOrdenCompra As Integer, Optional MR As ReportViewer = Nothing, Optional ConBitacora As Boolean = False) As Byte()
|
||||
Dim bytes As Byte() = Nothing
|
||||
Dim CveEmpresaActual As Integer
|
||||
Dim TmpDTEnvioDireccion As DataTable
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Try
|
||||
Dim DtDetalle As DataTable = Nothing
|
||||
@@ -7774,68 +7628,6 @@ Public Class ClsPaginas
|
||||
|
||||
'Obtenemos la sucursal de la OC PARA COMPU PROVEEDORES
|
||||
Dim DomicilioSucursal As String = ""
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
||||
Dim SBDomicilioSucursal As New StringBuilder()
|
||||
Dim CiudadSucursal As String = ""
|
||||
Dim ObjClientes As New ClsClientes
|
||||
If ObjOC.GetSucursalOC(ObjOC.CveOrdenCompra) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
|
||||
CiudadSucursal = String.Format("{0},{1}", ObjOC.SucMunicipio, ObjOC.SucEstado)
|
||||
SBDomicilioSucursal.AppendFormat("{0}", ObjOC.SucCalle)
|
||||
If ObjOC.SucNoExt.Length > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", ObjOC.SucNoExt)
|
||||
If ObjOC.SucNoInt.Length > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", ObjOC.SucNoInt)
|
||||
If ObjOC.SucColonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", ObjOC.SucColonia)
|
||||
If ObjOC.SucCP.Length > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", ObjOC.SucCP)
|
||||
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
|
||||
If ObjOC.SucPais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", ObjOC.SucPais)
|
||||
DomicilioSucursal = SBDomicilioSucursal.ToString
|
||||
params.Add(New ReportParameter("Proyecto", ObjOC.SucSubProyecto.ToString))
|
||||
params.Add(New ReportParameter("Telefono", ObjOC.SucTelefono.ToString))
|
||||
'Obtenemos la direccion envio PARA COMPU PROVEEDORES
|
||||
If ObjOC.CveDireccionEnvio > 0 Then
|
||||
Dim StrEnvioDi As New StringBuilder
|
||||
If ObjClientes.DireccionEnvioGet(ObjOC.CveDireccionEnvio, ObjOC.CveCliente, -1) Then
|
||||
TmpDTEnvioDireccion = ObjClientes.DtResultados
|
||||
Else
|
||||
TmpDTEnvioDireccion = Nothing
|
||||
End If
|
||||
ObjClientes.Dispose()
|
||||
|
||||
If TmpDTEnvioDireccion IsNot Nothing AndAlso TmpDTEnvioDireccion.FiltraParametros(String.Format("CveDireccionEnvio = {0}", ObjOC.CveDireccionEnvio)).Rows.Count > 0 Then
|
||||
StrEnvioDi.AppendFormat("{0}", TmpDTEnvioDireccion(0)("EnvioDireccion"))
|
||||
If TmpDTEnvioDireccion(0)("EnvioNoExt") IsNot Nothing AndAlso TmpDTEnvioDireccion(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", TmpDTEnvioDireccion(0)("EnvioNoExt"))
|
||||
If TmpDTEnvioDireccion(0)("EnvioNoInt") IsNot Nothing AndAlso TmpDTEnvioDireccion(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", TmpDTEnvioDireccion(0)("EnvioNoInt"))
|
||||
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
||||
params.Add(New ReportParameter("EnvioNoExt", TmpDTEnvioDireccion(0)("EnvioNoExt").ToString))
|
||||
params.Add(New ReportParameter("EnvioNoInt", TmpDTEnvioDireccion(0)("EnvioNoInt").ToString))
|
||||
params.Add(New ReportParameter("EnvioColonia", TmpDTEnvioDireccion(0)("EnvioColonia").ToString))
|
||||
params.Add(New ReportParameter("EnvioCiudad", TmpDTEnvioDireccion(0)("EnvioCiudad").ToString))
|
||||
params.Add(New ReportParameter("EnvioEstado", TmpDTEnvioDireccion(0)("EnvioEstado").ToString))
|
||||
params.Add(New ReportParameter("EnvioContacto", TmpDTEnvioDireccion(0)("EnvioContacto").ToString))
|
||||
params.Add(New ReportParameter("EnvioDepartamento", TmpDTEnvioDireccion(0)("EnvioDepartamento").ToString))
|
||||
params.Add(New ReportParameter("EnvioCP", TmpDTEnvioDireccion(0)("EnvioCP").ToString))
|
||||
params.Add(New ReportParameter("EnvioTel", TmpDTEnvioDireccion(0)("EnvioTel").ToString))
|
||||
End If
|
||||
Else
|
||||
If ObjOC.LugarEntrega.ToString IsNot Nothing AndAlso ObjOC.LugarEntrega.ToString = "" Then
|
||||
Dim StrEnvioDi As New StringBuilder
|
||||
StrEnvioDi.AppendFormat("{0}", ObjOC.SucCalle)
|
||||
If ObjOC.SucNoExt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", ObjOC.SucNoExt)
|
||||
If ObjOC.SucNoInt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", ObjOC.SucNoInt)
|
||||
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
||||
params.Add(New ReportParameter("EnvioColonia", If(ObjOC.SucColonia.Length > 0, ObjOC.SucColonia, "")))
|
||||
params.Add(New ReportParameter("EnvioCiudad", If(ObjOC.SucMunicipio.Length > 0, ObjOC.SucMunicipio, "")))
|
||||
params.Add(New ReportParameter("EnvioEstado", If(ObjOC.SucEstado.Length > 0, ObjOC.SucEstado, "")))
|
||||
params.Add(New ReportParameter("EnvioCP", If(ObjOC.SucCP.Length > 0, ObjOC.SucCP, "")))
|
||||
Else
|
||||
params.Add(New ReportParameter("EnvioDireccion", ObjOC.LugarEntrega))
|
||||
params.Add(New ReportParameter("LugarEntrega", ObjOC.LugarEntrega))
|
||||
End If
|
||||
params.Add(New ReportParameter("EnvioTel", ObjOC.SucTelefono.ToString))
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero
|
||||
Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero
|
||||
Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC)
|
||||
@@ -7846,10 +7638,10 @@ Public Class ClsPaginas
|
||||
If drSol IsNot Nothing AndAlso drSol("CvePersonal").ToString.ToEntero > 0 Then CvePersonalSol = drSol("CvePersonal").ToString.ToEntero
|
||||
If drAut IsNot Nothing AndAlso drAut("CvePersonal").ToString.ToEntero > 0 Then CvePersonalAut = drAut("CvePersonal").ToString.ToEntero
|
||||
Dim ObjRH As New ClsRH()
|
||||
If ObjRH.GetPersonal(CvePersonalSol, EmpresaActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
|
||||
If CvePersonalSol > 0 AndAlso ObjRH.GetPersonal(CvePersonalSol, EmpresaActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
|
||||
PuestoSol = ObjRH.DtResultados(0)("Puesto").ToString
|
||||
End If
|
||||
If ObjRH.GetPersonal(CvePersonalAut, EmpresaActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
|
||||
If CvePersonalAut > 0 AndAlso ObjRH.GetPersonal(CvePersonalAut, EmpresaActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
|
||||
PuestoAut = ObjRH.DtResultados(0)("Puesto").ToString
|
||||
End If
|
||||
ObjRH.Dispose()
|
||||
@@ -7861,9 +7653,6 @@ Public Class ClsPaginas
|
||||
End If
|
||||
|
||||
Dim nombreautorizo As String = dtOC(0)("UsuarioAutorizo").ToString
|
||||
'If EmpresaActual = 48 Then
|
||||
' nombreautorizo = "Lic. LUIS JORGE CONTRERAS LANDGRAVE"
|
||||
'End If
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta))
|
||||
If Not Archivo.Exists OrElse EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 122, 126, 158) Then
|
||||
params.Add(New ReportParameter("Descuento", DtDetalle.SUM("Descuento").ToString.FormatoNumero(2)))
|
||||
|
||||
Reference in New Issue
Block a user