Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -161,6 +161,8 @@ Public Class ClsClientes
|
||||
Public Property CveAlmacenAlterno As Integer = -1
|
||||
Public Property CveAlmacenConsignacion As Integer = -1
|
||||
Public Property UsaProductoAlterno As Boolean = False
|
||||
Public Property EnDemanda As Boolean = False
|
||||
Public Property EnQuebranto As Boolean = False
|
||||
|
||||
|
||||
#End Region
|
||||
@@ -413,6 +415,8 @@ Public Class ClsClientes
|
||||
_CveAlmacenConsignacion = Data(0)("CveAlmacenConsignacion").ToString.ToEntero
|
||||
|
||||
_UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
|
||||
_EnDemanda = CBool(Data(0)("UsaProductoAlterno"))
|
||||
_EnQuebranto = CBool(Data(0)("EnQuebranto"))
|
||||
|
||||
End If
|
||||
Retorno = True
|
||||
@@ -530,7 +534,8 @@ Public Class ClsClientes
|
||||
Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
|
||||
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
|
||||
Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
|
||||
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
|
||||
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
|
||||
Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
|
||||
@@ -662,6 +667,8 @@ Public Class ClsClientes
|
||||
.Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
|
||||
.Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
|
||||
.Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
|
||||
.Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda
|
||||
.Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -707,7 +714,8 @@ Public Class ClsClientes
|
||||
Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
|
||||
Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
|
||||
Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
|
||||
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
|
||||
Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
|
||||
Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -849,7 +857,8 @@ Public Class ClsClientes
|
||||
.Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
|
||||
.Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
|
||||
.Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
|
||||
|
||||
.Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda
|
||||
.Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
@@ -1355,7 +1355,7 @@ Public Class ClsInventarios
|
||||
End If
|
||||
Catch Ex1 As SqlException
|
||||
If Ex1.Message.Contains("50019") Then
|
||||
Me.OnError(" El producto no tiene existencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
Me.OnError(String.Format(" El producto '{0}' no tiene existencia.", Ex1.Message.GetTagValue("codigops")), Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
ElseIf Ex1.Message.Contains("CK_Inv_MovimientosDetalle_MetodoInventario") Then
|
||||
Me.OnError("El movimiento debe de tener una Serie.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
Else
|
||||
@@ -3324,11 +3324,12 @@ Public Class ClsInventarios
|
||||
#End Region
|
||||
|
||||
#Region " INVENTARIOS - VENTAS "
|
||||
Public Function EntregaAlmacenGet(CveVenta As Integer, Optional CveAlmacen As Integer = -1) As Boolean
|
||||
Public Function EntregaAlmacenGet(CveVenta As Integer, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Inv_EntregaAlmacenGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
|
||||
End With
|
||||
Try
|
||||
|
||||
@@ -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)))
|
||||
|
||||
@@ -6446,7 +6446,7 @@ Namespace Modelos
|
||||
'VERIFICA LOS MOVIMIENTOS DE DEVOLUCION YA GENERADOS QUE TENGAN EXISTENCIA EN (ENTREGA POR ADELANTADO)
|
||||
If Not ErrorCancelar Then
|
||||
If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
|
||||
DtMovRemision = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen IN (10,4)")
|
||||
DtMovRemision = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen IN (10)")
|
||||
CveAlmacenGeneral = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen IN (1,4)").ToEntero()
|
||||
'SI ES SERVICIO A DOMICILIO DEBE REGRESAR A ESTE TIPO DE ALMACEN
|
||||
If Me.ServicioDomicilio Then
|
||||
@@ -6456,6 +6456,7 @@ Namespace Modelos
|
||||
CveAlmacenExA = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen = 10").ToEntero()
|
||||
If CveAlmacenExA <= 0 Then
|
||||
CveAlmacenExA = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen = 4").ToEntero()
|
||||
DtMovRemision = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen IN (4)")
|
||||
End If
|
||||
|
||||
CveMovimientoUsado = ObjInventario.DtResultados.FiltroPrimeroValor("CveMovimiento", "CvePS IS NULL AND CveConcepto = 42").ToEntero()
|
||||
|
||||
@@ -1790,7 +1790,7 @@ Partial Class Compras_Compras
|
||||
Private Function CargaFactura(CveFactura As Integer) As String
|
||||
Dim ObjeFacturas As New ClsCompras
|
||||
Dim RFC As String = ""
|
||||
If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-4), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
|
||||
If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-6), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
|
||||
ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero
|
||||
@@ -3566,89 +3566,87 @@ Partial Class Compras_Compras
|
||||
'End If
|
||||
|
||||
If RetIVAOriginal > 0 Then
|
||||
Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
|
||||
Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
|
||||
|
||||
If (CalRetIVAPor).RoundSQL(5) = 0.10666 OrElse (CalRetIVAPor).RoundSQL(5) = 0.05333 Then
|
||||
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
|
||||
End If
|
||||
If RetIVAFlete Then '4 Fletes
|
||||
If RFCProveedor.Length = 13 Then
|
||||
DdlRetIVAConcepto.SelectedValueExist("2")
|
||||
Else
|
||||
DdlRetIVAConcepto.SelectedValueExist("3")
|
||||
End If
|
||||
End If
|
||||
If (CalRetIVAPor).RoundSQL(5) = 0.10666 OrElse (CalRetIVAPor).RoundSQL(5) = 0.05333 Then
|
||||
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
|
||||
End If
|
||||
|
||||
If RetISROriginal > 0 Then
|
||||
Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
|
||||
|
||||
If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales
|
||||
DdlRetISRConcepto.SelectedValueExist("1")
|
||||
End If
|
||||
'permitido en un margen de 1% a 2%
|
||||
If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
|
||||
DdlRetISRConcepto.SelectedValueExist("3")
|
||||
RetISRResico = True
|
||||
If RetIVAFlete Then '4 Fletes
|
||||
If RFCProveedor.Length = 13 Then
|
||||
DdlRetIVAConcepto.SelectedValueExist("2")
|
||||
Else
|
||||
DdlRetIVAConcepto.SelectedValueExist("3")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
|
||||
CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
|
||||
If RetISROriginal > 0 Then
|
||||
Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
|
||||
|
||||
LbAgregar.Enabled = True
|
||||
UpPSS.Update()
|
||||
UpPS.Update()
|
||||
UpParametros.Update()
|
||||
UPCondicionesPago.Update()
|
||||
'si tiene el habiltiado el módulo de Contratos
|
||||
'checo si tiene estimaciones
|
||||
|
||||
'CargaDatosEstimaciones(ObjProveedor.CveProveedor)
|
||||
ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", ObjProveedor.CveProveedor, DdlTipoComprobante.SelectedValue)
|
||||
CargaAnticipos(ObjProveedor.CveProveedor) : UpAnticipos.Update()
|
||||
|
||||
'If UsuarioActual.Empresa.UsaAC Then
|
||||
' If (TxtRetIVA.Text.ToDouble > 0) Or (TxtRetISR.Text.ToDouble > 0) Then '
|
||||
' ImgBtnBuscarOC.Visible = False
|
||||
' TxtOC.Enabled = False
|
||||
' BtnGuardar.Visible = False
|
||||
' Alert("El proveedor no tiene registrada cuentas contables de retenciones. Debe asignar las cuentas en el registro del proveedor.", TipoMensaje.MsgAdvertencia)
|
||||
' DivRestriccionAdvertencia.Visible = True
|
||||
' LtRestriccionAdvertencia.Text = "El proveedor no tiene registrada cuentas contables de retenciones."
|
||||
' End If
|
||||
'End If
|
||||
|
||||
If CveProveedor > 0 Then
|
||||
|
||||
Dim ObjSAT As New ClsSAT
|
||||
Dim RFCRequest As String = ObjProveedor.RFC
|
||||
If ObjSAT.GetListado69B(2, UsuarioActual.CveEmpresa, RFCRequest) Then
|
||||
If ObjSAT.DtResultados.Rows.Count > 0 Then
|
||||
Dim Estatus As String = ObjSAT.DtResultados.Rows(0)("Situacion").ToString
|
||||
BtnGuardar.Enabled = False
|
||||
UpParametros.Update()
|
||||
|
||||
Alert($"El RFC del proveedor se encuentra en estado <b>{Estatus}</b> en el Listado EFOS (69B) del SAT", TipoMensaje.MsgAdvertencia)
|
||||
System.Threading.Thread.Sleep(5)
|
||||
End If
|
||||
If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales
|
||||
DdlRetISRConcepto.SelectedValueExist("1")
|
||||
End If
|
||||
'permitido en un margen de 1% a 2%
|
||||
If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
|
||||
DdlRetISRConcepto.SelectedValueExist("3")
|
||||
RetISRResico = True
|
||||
End If
|
||||
ObjSAT.Dispose()
|
||||
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
|
||||
PorcentajeProntoPago = ObjProveedor.PorcentajeProntoPago
|
||||
End If
|
||||
|
||||
Else
|
||||
Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
|
||||
CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
|
||||
|
||||
LbAgregar.Enabled = True
|
||||
UpPSS.Update()
|
||||
UpPS.Update()
|
||||
UpParametros.Update()
|
||||
UPCondicionesPago.Update()
|
||||
'si tiene el habiltiado el módulo de Contratos
|
||||
'checo si tiene estimaciones
|
||||
|
||||
'CargaDatosEstimaciones(ObjProveedor.CveProveedor)
|
||||
ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", ObjProveedor.CveProveedor, DdlTipoComprobante.SelectedValue)
|
||||
CargaAnticipos(ObjProveedor.CveProveedor) : UpAnticipos.Update()
|
||||
|
||||
'If UsuarioActual.Empresa.UsaAC Then
|
||||
' If (TxtRetIVA.Text.ToDouble > 0) Or (TxtRetISR.Text.ToDouble > 0) Then '
|
||||
' ImgBtnBuscarOC.Visible = False
|
||||
' TxtOC.Enabled = False
|
||||
' BtnGuardar.Visible = False
|
||||
' Alert("El proveedor no tiene registrada cuentas contables de retenciones. Debe asignar las cuentas en el registro del proveedor.", TipoMensaje.MsgAdvertencia)
|
||||
' DivRestriccionAdvertencia.Visible = True
|
||||
' LtRestriccionAdvertencia.Text = "El proveedor no tiene registrada cuentas contables de retenciones."
|
||||
' End If
|
||||
'End If
|
||||
|
||||
If CveProveedor > 0 Then
|
||||
|
||||
Dim ObjSAT As New ClsSAT
|
||||
Dim RFCRequest As String = ObjProveedor.RFC
|
||||
If ObjSAT.GetListado69B(2, UsuarioActual.CveEmpresa, RFCRequest) Then
|
||||
If ObjSAT.DtResultados.Rows.Count > 0 Then
|
||||
Dim Estatus As String = ObjSAT.DtResultados.Rows(0)("Situacion").ToString
|
||||
BtnGuardar.Enabled = False
|
||||
UpParametros.Update()
|
||||
|
||||
Alert($"El RFC del proveedor se encuentra en estado <b>{Estatus}</b> en el Listado EFOS (69B) del SAT", TipoMensaje.MsgAdvertencia)
|
||||
System.Threading.Thread.Sleep(5)
|
||||
End If
|
||||
End If
|
||||
ObjSAT.Dispose()
|
||||
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
|
||||
PorcentajeProntoPago = ObjProveedor.PorcentajeProntoPago
|
||||
End If
|
||||
|
||||
Else
|
||||
Alert("Ocurrió un error al consultar el proveedor.", TipoMensaje.MsgError)
|
||||
Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
|
||||
If ObjProveedor.GetProveedoresEvaluacionPediente(Me.CveProveedor, UsuarioActual.CveEmpresa) Then
|
||||
If ObjProveedor.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
@@ -399,7 +399,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.archivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})
|
||||
|
||||
|
||||
Dim Mail As New ClsSisMail()
|
||||
@@ -5818,7 +5818,7 @@ Partial Class PopUpVerFactura
|
||||
End With
|
||||
dtMovs.Dispose()
|
||||
|
||||
If (UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Or UsuarioActual.Empresa.Funcionalidad(382).ToEntero = 1) And CvePrePoliza > 0 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) And CvePrePoliza > 0 Then
|
||||
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
|
||||
@@ -623,9 +623,7 @@
|
||||
<div class="row">
|
||||
<asp:Label ID="LblFolioDoc" runat="server" Text="Número:" class="col-md-2"></asp:Label>
|
||||
<div class="col-md-4">
|
||||
<asp:TextBox ID="TxtDocumentoFolio" CssClass="form-control input-sm" value="0" runat="server" MaxLength="12"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDocumentoFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<asp:TextBox ID="TxtDocumentoFolio" CssClass="form-control input-sm" value="0" runat="server" MaxLength="12"></asp:TextBox>
|
||||
</div>
|
||||
<label class="col-md-2">Importe</label>
|
||||
<div class="col-md-4 input-icon">
|
||||
@@ -648,6 +646,9 @@
|
||||
<asp:TextBox ID="TxtDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2">sino se especifica el folio, se genera en automático:</label>
|
||||
</div>
|
||||
</div>
|
||||
</asp:Panel>
|
||||
</div>
|
||||
|
||||
@@ -1034,7 +1034,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End If
|
||||
|
||||
|
||||
If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10", "204") Then ' 30-bancos, 10-anticipos proveedores, 204- blancos complementaria
|
||||
If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10", "204", "348", "350") Then ' 30-bancos, 10-anticipos proveedores, 204- blancos complementaria,348-350 - doc x pagar
|
||||
If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
|
||||
CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
|
||||
Else
|
||||
|
||||
@@ -658,7 +658,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
|
||||
If ObjInventario.EntregaAlmacenGet(CveVenta, CveAlmacen) Then
|
||||
If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then
|
||||
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
|
||||
@@ -2181,7 +2181,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
|
||||
Dim DtDatosVenta As New DataTable
|
||||
If ObjInventario.EntregaAlmacenGet(CveVentaSurtir) Then
|
||||
If ObjInventario.EntregaAlmacenGet(CveVentaSurtir, UsuarioActual.CveEmpresa) Then
|
||||
DtDatosVenta = ObjInventario.DtResultados
|
||||
End If
|
||||
Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
|
||||
|
||||
@@ -1,7 +1,6 @@
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports Stimulsoft.Report.QuickButtons.StiWpfQuickButtonAttribute
|
||||
Partial Class RepNotasSinAlmacen
|
||||
Inherits ClsPaginas
|
||||
|
||||
@@ -122,8 +121,8 @@ Partial Class RepNotasSinAlmacen
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim Reporte As New ClsInventarios
|
||||
Private Sub CargaDatos()
|
||||
|
||||
Dim CveClienteProveedor As Integer = -1
|
||||
|
||||
Dim TipoDocumento As String = DdlTipoDocto1.SelectedValue
|
||||
@@ -139,14 +138,18 @@ Partial Class RepNotasSinAlmacen
|
||||
Else
|
||||
CveClienteProveedor = DdlCliente.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
Dim Reporte As New ClsInventarios
|
||||
If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
Dim dtt As DataTable = Reporte.DtResultados
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
|
||||
dtt = dtt.fit
|
||||
End If
|
||||
GvVentas.DataSource = Reporte.DtResultados
|
||||
DtNotasSinAlmacenVentas = Reporte.DtResultados
|
||||
Else
|
||||
GvVentas.DataSource = Nothing
|
||||
End If
|
||||
|
||||
End If
|
||||
Reporte.Dispose()
|
||||
GvVentas.DataBind()
|
||||
|
||||
Else
|
||||
@@ -155,15 +158,15 @@ Partial Class RepNotasSinAlmacen
|
||||
CveClienteProveedor = -1
|
||||
Else
|
||||
CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
End If
|
||||
Dim Reporte As New ClsInventarios
|
||||
If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
|
||||
GvCompras.DataSource = Reporte.DtResultados
|
||||
DtNotasSinAlmacenCompras = Reporte.DtResultados
|
||||
Else
|
||||
GvCompras.DataSource = Nothing
|
||||
End If
|
||||
|
||||
End If
|
||||
Reporte.Dispose()
|
||||
GvCompras.DataBind()
|
||||
|
||||
'If (GvCompras.Rows.Count > 0) Then
|
||||
@@ -174,8 +177,8 @@ Partial Class RepNotasSinAlmacen
|
||||
End If
|
||||
|
||||
UpDatosGvVentas.Update()
|
||||
UpDatosGvCompras.Update()
|
||||
Reporte.Dispose()
|
||||
UpDatosGvCompras.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -4252,7 +4252,8 @@ Partial Class Clientes
|
||||
|
||||
<b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA, FAVOR DE NO RESPONDERLO.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
|
||||
End If
|
||||
Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
|
||||
Dim tusuario As Usuario = UsuarioActual
|
||||
Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(tusuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
|
||||
Hilo.Start()
|
||||
Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
|
||||
Catch ex As Exception
|
||||
@@ -4332,7 +4333,7 @@ Partial Class Clientes
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
|
||||
Private Sub MandaCorreoEstadoCuenta(UsuarioActual As Usuario, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
|
||||
|
||||
Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
|
||||
'a.GuardaLog()
|
||||
@@ -4344,8 +4345,8 @@ Partial Class Clientes
|
||||
Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
|
||||
|
||||
If Envio AndAlso GuardarBitacora Then
|
||||
Using ObjBitacora As New ClsOIEventos
|
||||
ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", CveUsuario, CveEmpresa, CveCliente:=CveCliente)
|
||||
Using ObjBitacora As New ClsOIEventos(UsuarioActual:=UsuarioActual)
|
||||
ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, CveEmpresa, CveCliente:=CveCliente)
|
||||
End Using
|
||||
End If
|
||||
|
||||
|
||||
@@ -2057,8 +2057,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
Dim dtt As DataTable = Nothing
|
||||
Dim Deudores As New ClsMovimientos
|
||||
If Deudores.GetDocumentosxPagarDetalle(CveCliente, tCveMoneda, 2, UsuarioActual.CveEmpresa) Then
|
||||
DdlPrestamo.DataSource = Deudores.DtResultados '.FiltraParametros("CveCliente > 0 AND Saldo > 0 AND CveIE > 0")
|
||||
dtt = Deudores.DtResultados
|
||||
dtt = Deudores.DtResultados.FiltraParametros("CveProveedor > 0 AND Saldo > 0 AND CveIE > 0", "FechaDocumento")
|
||||
DdlPrestamo.DataSource = dtt
|
||||
End If
|
||||
Deudores.Dispose()
|
||||
|
||||
|
||||
@@ -358,7 +358,8 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
|
||||
CveIE = Gv.DataKey("CveIE").ToEntero();
|
||||
Saldo = Gv.DataKey("Saldo").ToDecimal();
|
||||
SaldoAdmin = Saldo;
|
||||
}
|
||||
}
|
||||
Saldo = -Saldo; // invertimos el saldo para que se haga negativo para que sea ABono
|
||||
|
||||
ImporteTotalGasto += Saldo;
|
||||
if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero()))
|
||||
|
||||
@@ -125,6 +125,13 @@ Partial Class Ventas_RepVentas
|
||||
LnkDescargaCartaPorte.Visible = True
|
||||
End If
|
||||
|
||||
If Opcion = "Cot" Then
|
||||
DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
|
||||
DdlGrupo.SelectedValueExist("7")
|
||||
DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
|
||||
DdlEstatus.ClearSelection()
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
LblServicioDomicilioFiltro.Visible = True
|
||||
DVServicioDomicilio.Visible = True
|
||||
|
||||
Reference in New Issue
Block a user