AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-01-31 08:38:31 -07:00
parent 6912e4ca69 f03cb6bc69
commit 470e95349b
29 changed files with 9923 additions and 439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsContabilidad.vb
View File

@@ -388,7 +388,7 @@ Public Class ClsContabilidad
Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer,
Optional Opcion As Integer = 1) As Boolean
Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_ProveedoresAuxiliar")
@@ -401,6 +401,7 @@ Public Class ClsContabilidad
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
End With
Try

26
App_Code/ClsPaginas.vb
View File

@@ -2856,17 +2856,35 @@ Public Class ClsPaginas
End Set
End Property
Property GlobalDTRHPersonal(CveEmpresa As Integer) As DataTable
Property GlobalDTRHPersonal(CveEmpresa As Integer, Optional CvePersonal As Integer = -1) As DataTable
Get
Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
'sino existe, recarga los datos
If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
Dim ObjPersonal As New ClsRH
ObjPersonal.GetPersonal(-1, CveEmpresa)
GlobalDTRHPersonal = ObjPersonal.DtResultados
If ObjPersonal.GetPersonal(-1, CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
ObjPersonal.Dispose()
End If
If CveEmpresa <> -1 Or CvePersonal <> -1 Then
Dim Str As StringBuilder = New StringBuilder()
If CveEmpresa <> -1 Then Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
If CvePersonal <> -1 Then Str.AppendFormat(" {0} CvePersonal = {1}", If(Str.Length > 0, "AND", ""), CvePersonal)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTRHPersonal = Dv.ToTable
Dv.Dispose()
Else
GlobalDTRHPersonal = DirectCast(Application(AppNombre), DataTable)
End If
End Get
Set(value As DataTable)
Application("GlobalDTRHPersonal") = value
Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
Application(AppNombre) = value
End Set
End Property

2
App_Code/ClsVentas.vb
View File

@@ -417,7 +417,7 @@ Public Class ClsVentas
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") And Ex1.Message.Contains("UK_Ventas_TipoDocto_Serie_Folio_CveSubProyecto") Then
Alert(String.Format("el Folio '{0}' ya se encuentra registrado", FolioFact), TipoMensaje.MsgAdvertencia)
GuardaLog(String.Format("el folio ya se encuentra registrado {0}", Ex1.Message))
GuardaLog(String.Format("el folio ya se encuentra registrado {0} {1}", Ex1.Message, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
Else
Me.OnError("Ocurrió un error al Guardar la Venta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If

136
App_Code/Modelos.vb
View File

@@ -671,9 +671,7 @@ Namespace Modelos
Try
'DESCOMENTAR
If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, FacturaDevolucion, ObjBancos, Nothing, Nothing) Then
Obj2.Add(FacturaDevolucion)
End If
Catch ex As Exception
ErrorList.Add("No se pudo generarse la nota de crédito de amortización")
@@ -3867,7 +3865,6 @@ Namespace Modelos
End If
ObjVentas.Dispose()
Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=Me.RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusFacturaAsignado:=CveEstatus, FechaCancelacion:=FechaCancelacion.ToString("dd/MM/yyyy hh:mm:ss"), AcuseCancelacion:=AcuseCancelacion)
End Function
''' <summary>
@@ -3884,10 +3881,6 @@ Namespace Modelos
''' <param name="ListaRemisionesCancelar"></param>
''' <returns></returns>
Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing) As MCancelacionVentaMensaje
Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar)
End Function
@@ -4232,7 +4225,10 @@ Namespace Modelos
'DEVOLUCION DE ALMACEN
If Not ErrorCancelar AndAlso TieneAlmacen Then
Dim TieneSalida As Boolean = False
Dim DtExistencias As New DataTable
Dim DtInventario As DataTable = Nothing
Dim DtMovimientos As DataTable = Nothing
Dim DtExistencias As DataTable = Nothing
Dim DtRemisionesFacturadas As DataTable = Nothing
'CUANDO SE VAYA A REALIZAR LA DEVOLUCION AQUI DEBE MARCALA PARA NO SOLICITARLA DE NUEVO, SI NO LA SOLICITARA
If ObjFactura.EsDevolucionVenta = 0 Then
@@ -4244,42 +4240,76 @@ Namespace Modelos
End If
If Not ErrorCancelar Then
Dim Filtro As String
Dim Filtro As String = ""
Select Case ObjFactura.TipoDocto
Case "Ing", "Ped"
Filtro = "CveConcepto = 3"
Case "Dev"
Filtro = "CveConcepto = 3"
Case "Ing", "Ped", "Dev"
Filtro = "CveConcepto IN (3, 40)"
Case Else
Filtro = "CveConcepto = 9"
End Select
'CARGA REMISIONES DE LA VENTA DEVUELTA
If ObjInventario.GetDevolucionRemisionesFacturadas(CveVenta) Then
DtRemisionesFacturadas = ObjInventario.DtResultados.FiltraParametros("CantidadAlmacen > 0")
Else
ErrorCancelar = True
End If
If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2")
DtInventario = ObjInventario.DtResultados.Copy()
DtMovimientos = DtInventario.FiltraParametros($"CvePS IS NULL AND {Filtro}")
DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2")
TieneSalida = DtExistencias.Rows.Count > 0
Else
ErrorCancelar = True
MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
End If
End If
If Not ErrorCancelar AndAlso TieneSalida Then
Dim ConceptoMovimiento = 18 'DEVOLUCION DEL CLIENTE
Dim CveMovimiento As Integer = 0
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then
For Each RowMovimiento As DataRow In DtMovimientos.Rows
Dim CveConceptoDevolucion As Integer = -1
Dim CveAlmacenDevolucion As Integer = -1
Select Case RowMovimiento("CveConcepto").ToString().ToEntero()
Case 3
CveConceptoDevolucion = 18 'DEVOLUCION DEL CLIENTE
CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero()
Case 40
CveConceptoDevolucion = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA
'SI TIENE REMISIONES RELACIONADAS
If DtRemisionesFacturadas.Rows.Count > 0 Then
Dim RowRemision As DataRow = DtExistencias.FiltroPrimero($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}")
Dim CveRemision As Integer = RowRemision("CveRemision").ToString().ToEntero()
Dim CancelarRemision As Boolean = (ListaRemisionesCancelar IsNot Nothing) AndAlso (ListaRemisionesCancelar.Any(Function(CveRemisionCancelar) CveRemisionCancelar = CveRemision))
'SI LA REMISION SE VA A CANCELAR DEBE REGRESAR AL ALMACEN GENERAL
If CancelarRemision Then
CveAlmacenDevolucion = RowRemision("CveAlmacenDevolucion").ToString().ToEntero()
Else
CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero()
End If
Else
CveAlmacenDevolucion = RowMovimiento("CveAlmacen").ToString().ToEntero()
End If
End Select
Dim CveMovimientoDevolucion As Integer = 0
Dim Folio As Integer = 0
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then
Dim CveAlmacenDevolucion = ObjFactura.CveAlmacenDevolucion
'VERIFICAR SI YA TIENE UNA DEVOLUCION
If ObjFactura.SaldoAlmacen <> 0 Then
'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenDevolucion, ConceptoMovimiento, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1)
CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenDevolucion, CveConceptoDevolucion, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1)
Folio = ObjInventario.Folio
If CveMovimiento > 0 Then
For Each Dr As DataRow In DtExistencias.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
If CveMovimientoDevolucion > 0 Then
For Each Dr As DataRow In DtExistencias.FiltraParametros($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}").Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, SerieLote:=Dr("SerieLote").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
Exit For
@@ -4294,7 +4324,7 @@ Namespace Modelos
If Not ErrorCancelar Then
Dim DtCostos As DataTable = Nothing
Dim ValorInventario As Decimal = 0
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoDevolucion, UsuarioActual.CveEmpresa) Then
DtCostos = ObjInventario.DtResultados
Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
@@ -4328,7 +4358,7 @@ Namespace Modelos
CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
If Not ErrorCancelar Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, -1 * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, -1 * ValorInventario, SerieFolio, 69, SerieFolio, Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * ValorInventario, CveCuenta:=CveCuenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
ErrorCancelar = True
End If
End If
@@ -4336,7 +4366,7 @@ Namespace Modelos
cont += 1
Next
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
ErrorCancelar = True
End If
@@ -4368,16 +4398,43 @@ Namespace Modelos
End If
End If
End If
'Else
' 'UTILIZA LA DEVOLUCION YA REALIZADA
' Dim CveConceptoDevolucion As Integer = 18 'DEVOLUCION DEL CLIENTE
' If UsuarioActual.Empresa.Funcionalidad(575) = "1" Then
' CveConceptoDevolucion = 41 'DEVOLUCIÓN DEL CLIENTE DIRECTA
' End If
Else
'UTILIZA LA DEVOLUCION YA REALIZADA
If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
CveMovimiento = ObjInventario.DtResultados.FiltroPrimeroValor("CveMovimiento", $"CvePS IS NULL AND CveConcepto = 18").ToEntero()
Else
' If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
' CveMovimientoDevolucion = ObjInventario.DtResultados.FiltroPrimeroValor("CveMovimiento", $"CvePS IS NULL AND CveConcepto = {CveConceptoDevolucion}").ToEntero()
' Else
' ErrorCancelar = True
' MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
' End If
End If
'DEVOLUCION REMISION - REGRESA LAS EXISTENCIAS A ENTREGA POR ADELANTADO SI LA FACTURA VIENE DE REMISION
'SI ES DEVOLUCION DEL CLIENTE DEBE REGRESAR A ENTREGA POR ADELANTADO
If CveConceptoDevolucion = 18 Then
If Not ErrorCancelar AndAlso RevivirRemisiones Then
If Not GeneraMovimientosEntregaPorAdelantadoRemision(CveMovimientoDevolucion, ObjVentas, ObjInventario, DtDevRem, ListaRemisionesCancelar) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
MensajeError = "Ocurrió un error al generar los movimientos de devolución a remisión"
End If
End If
End If
'AGREGA BITACORA A VENTA
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso CveMovimientoDevolucion > 0 Then
Dim MensajeBitacora = "Devuelta"
If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimientoDevolucion, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
MensajeError = "Ocurrió un error al agregar la bitacora."
ErrorCancelar = True
End If
End If
Next
'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL
If Not GeneraMovimientosVirtuales(CveVenta, ObjInventario) Then
@@ -4385,14 +4442,6 @@ Namespace Modelos
MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
End If
'DEVOLUCION REMISION - REGRESA LAS EXISTENCIAS A ENTREGA POR ADELANTADO SI LA FACTURA VIENE DE REMISION
If Not ErrorCancelar AndAlso RevivirRemisiones Then
If Not GeneraMovimientosEntregaPorAdelantadoRemision(CveMovimiento, ObjVentas, ObjInventario, DtDevRem, ListaRemisionesCancelar) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al generar los movimientos de devolución a remisión"
End If
End If
If Not ErrorCancelar Then
If Not GeneraMovimientosApartados(ObjInventario) Then
ErrorCancelar = True
@@ -4408,15 +4457,6 @@ Namespace Modelos
End If
End If
'AGREGA BITACORA A VENTA
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso CveMovimiento > 0 Then
Dim MensajeBitacora = "Devuelta"
If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
MensajeError = "Ocurrió un error al agregar la bitacora."
ErrorCancelar = True
End If
End If
End If
End If
End If

1
Bancos/PopIEVentas.aspx.vb
View File

@@ -2305,6 +2305,7 @@ Partial Class Bancos_PopIEVentas
ImporteMX = Math.Round(ImporteMX, 2)
TimpocambioGeneral = tipoCambioPago
CveSubProyectoContabilizar = CveSubProyectoVenta
IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPrestamos").ToEntero
Else
ImporteMovimiento = 0

59
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1184,7 +1184,7 @@ Partial Class PopUpVerFactura
Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
DtMovimientos = ObjInventarios.DtResultados
@@ -2362,6 +2362,37 @@ Partial Class PopUpVerFactura
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
'End If
Else
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
Dim CiudadSucursal As String = ""
Dim DomicilioSucursal As String = ""
If DtMovimientos(0)("CveVenta").ToString <> "" Then
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
End If
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
'End If
End If
Case 19 'ARMADO DE PAQUETE
@@ -2930,6 +2961,32 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Cliente", NombreCliente))
ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
Case 7
Dim params As New List(Of ReportParameter)
Dim CiudadSucursal As String = ""
Dim DomicilioSucursal As String = ""
If DtMovimientos(0)("CveVenta").ToString <> "" Then
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
End If
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
'End If
End Select

11
Compras/ProveedoresAuxiliar.aspx
View File

@@ -123,6 +123,14 @@
<asp:ListItem Selected="True" Text="Agrupado por Compra" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1 truncate">Tipo Proveedor:</label>
<div class="col-md-3">
<asp:DropDownList ID="DdlTipoProveedor" CssClass="form-control input-sm select2me" Width="260px" runat="server">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Proveedor" Value="1"></asp:ListItem>
<asp:ListItem Text="Acreedor" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
@@ -188,6 +196,9 @@
<asp:Label runat="server" ID="LblMoneda" Text='<%# Eval("Abreviatura") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Cargo MN" DataField="CargoMN" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Abono MN" DataField="AbonoMN" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
</Columns>
<RowStyle CssClass="Texto" />

2
Compras/ProveedoresAuxiliar.aspx.vb
View File

@@ -81,7 +81,7 @@ Partial Class Compras_ProveedoresAuxiliar
'Falta PA
If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa,
DdlOpcion.SelectedValue.ToEntero) Then
DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero) Then
If DdlOpcion.SelectedValue.ToEntero = 2 Then
GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ")
Else

6
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -496,8 +496,8 @@ Partial Class Compras_ReembolsosComprobaciones
End If
Else
Dim Importe28 As Decimal = TxtImporte.Text.ToDecimal
If chkajusteoi.checked Then
Importe28 = txttotal.text.todecimal
If ChkAjusteOI.Checked Then
Importe28 = TxtTotal.Text.ToDecimal
End If
'AGREGO PREPOLIZA FyE
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, False, Importe28, TxtObservaciones.Text, 28, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCtaPersonal, -1, CvePersonal:=CvePersonal, CveIE:=CveIERegistrado, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=Importe28 * tipoCambio, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
@@ -524,7 +524,7 @@ Partial Class Compras_ReembolsosComprobaciones
End If
Else
'AGREGO PREPOLIZA FyE
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 29, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCtaPersonal, -1, CvePersonal:=CvePersonal, CveIE:=CveIERegistrado, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporteVinculado.Text.ToDecimal, TxtObservaciones.Text, 29, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCtaPersonal, -1, CvePersonal:=CvePersonal, CveIE:=CveIERegistrado, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then
MsgError = "Error al registrar detalle de concepto bancario"
End If
End If

8
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
View File

@@ -142,7 +142,7 @@
<tr>
<td colspan="3"><font size="2">Cuenta</font></td>
<td colspan="1"><font size="2">Nombre</font></td>
<td colspan="3"></td>
<td colspan="4"></td>
<td><font size="2">Saldo Inicial</font></td>
</tr>
<tr>
@@ -151,6 +151,7 @@
<td width="60px" align="center">Número</td>
<td width="300px" align="left">Concepto</td>
<td width="100px" align="center">Referencia</td>
<td width="100px" align="center">Referencia Movto</td>
<td width="100px" align="center">SubProyecto</td>
<td width="100px" align="center">Cargos</td>
<td width="100px" align="center">Abonos</td>
@@ -187,6 +188,7 @@
<asp:HyperLink ID="HLPoliza" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
<%--<asp:Label ID="LbNumero" runat="server" Text='<%# Eval("Folio")%>'></asp:Label>--%>
</td>
<td width="300px" align="left">
<div class="truncate" style="width: 300px;">
<asp:Label ID="LbConcepto" runat="server" CssClass="truncate" Text='<%# Eval("Concepto")%>' title='<%# Eval("Concepto")%>' ></asp:Label>
@@ -194,6 +196,10 @@
</td>
<td width="100px">
<asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
</td>
<td width="60px" style="border: 0px;" align="center">
<asp:Literal ID="LtlRefMovto" runat="server" Text='<%# Eval("ReferenciaAdmin")%>'></asp:Literal>
<%--<asp:Label ID="LbNumero" runat="server" Text='<%# Eval("Folio")%>'></asp:Label>--%>
</td>
<td width="100px">
<asp:Label ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Label>

3
Contratos/CatContratosTipos.aspx.vb
View File

@@ -66,8 +66,9 @@ Partial Class Contratos_CatContratosTipos
Dim TipoContrato = GvContratos.Rows(e.RowIndex).FCTextBox("TxtTipoContrato").Text.Trim
Dim Descripcion = GvContratos.Rows(e.RowIndex).FCTextBox("TxtDescripcion").Text.Trim
Dim Clave = GvContratos.Rows(e.RowIndex).DataKey("CveContratoTipo").ToEntero
If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveEmpresa) Then
If Update.UpdateContratosTipos(Clave, TipoContrato, Descripcion, True, UsuarioActual.CveUsuario) Then
Alert("El Tipo de Contrato se actualizó correctamente.", TipoMensaje.MsgInformacion)
GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
End If
GvContratos.EditIndex = -1
CargaDatos()

9047
Empresas/57/Formatos/Factura.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

189
Empresas/Grales/Formatos/AuxiliarProveedor.rdlc
View File

@@ -56,7 +56,7 @@
<Width>2.54731cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.99685cm</Width>
<Width>1.73227cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.66702cm</Width>
@@ -65,14 +65,20 @@
<Width>2.26144cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.15555cm</Width>
<Width>1.46086cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.10255cm</Width>
<Width>1.09776cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.57396cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.37522cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.23062cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
<TablixRow>
@@ -353,6 +359,74 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="CargoMN">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!CargoMN.Value</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>CargoMN</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIf(Fields!CveConceptoContable.Value &gt; 0, "No Color", "#9cacc1")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="AbonoMN">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!AbonoMN.Value</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>AbonoMN</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIf(Fields!CveConceptoContable.Value &gt; 0, "No Color", "#9cacc1")</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows>
@@ -361,7 +435,7 @@
<TablixMembers>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox40">
<CanGrow>true</CanGrow>
@@ -399,7 +473,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox42">
<CanGrow>true</CanGrow>
@@ -437,7 +511,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox44">
<CanGrow>true</CanGrow>
@@ -475,7 +549,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox49">
<CanGrow>true</CanGrow>
@@ -513,7 +587,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox51">
<CanGrow>true</CanGrow>
@@ -551,7 +625,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox47">
<CanGrow>true</CanGrow>
@@ -589,7 +663,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox4">
<CanGrow>true</CanGrow>
@@ -627,7 +701,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.6cm</Size>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox6">
<CanGrow>true</CanGrow>
@@ -663,6 +737,82 @@
</CellContents>
</TablixHeader>
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox5">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cargo MN</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Style>
<Border>
<Color>DimGray</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>LightGrey</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.8593cm</Size>
<CellContents>
<Textbox Name="Textbox13">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Abono MN</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Style>
<Border>
<Color>DimGray</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>LightGrey</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
@@ -670,7 +820,7 @@
<TablixMember>
<Group Name="GPO" />
<TablixHeader>
<Size>3.67051cm</Size>
<Size>3.06196cm</Size>
<CellContents>
<Textbox Name="RazonSocial">
<CanGrow>true</CanGrow>
@@ -700,7 +850,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixHeader>
</TablixMember>
@@ -711,8 +860,8 @@
<DataSetName>DataSet1</DataSetName>
<Top>0.75875cm</Top>
<Left>0.06614cm</Left>
<Height>1.2cm</Height>
<Width>19.55392cm</Width>
<Height>1.4593cm</Height>
<Width>19.58715cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -756,7 +905,7 @@
</Style>
</Textbox>
</ReportItems>
<Height>0.77116in</Height>
<Height>0.87325in</Height>
<Style />
</Body>
<Width>7.73752in</Width>
@@ -1129,6 +1278,14 @@
<DataField>CveConceptoContable</DataField>
<rd:TypeName>System.Int</rd:TypeName>
</Field>
<Field Name="CargoMN">
<DataField>CargoMN</DataField>
<rd:TypeName>System.Int</rd:TypeName>
</Field>
<Field Name="AbonoMN">
<DataField>AbonoMN</DataField>
<rd:TypeName>System.Int</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>

46
Empresas/Grales/Formatos/CartaPorte.rdlc
View File

@@ -80,10 +80,10 @@
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>3.65896cm</Width>
<Width>3.20728cm</Width>
</TablixColumn>
<TablixColumn>
<Width>10.4809cm</Width>
<Width>12.42242cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -271,7 +271,7 @@
<TablixMember>
<Group Name="GPO" />
<TablixHeader>
<Size>2.56862cm</Size>
<Size>2.01883cm</Size>
<CellContents>
<Textbox Name="Cantidad">
<CanGrow>true</CanGrow>
@@ -284,7 +284,7 @@
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<Format>#,0.00</Format>
<Format>#,0</Format>
</Style>
</TextRun>
</TextRuns>
@@ -324,7 +324,7 @@
<TablixMembers>
<TablixMember>
<TablixHeader>
<Size>2.5cm</Size>
<Size>1.46419cm</Size>
<CellContents>
<Textbox Name="Codigo">
<CanGrow>true</CanGrow>
@@ -381,10 +381,10 @@
<RepeatColumnHeaders>true</RepeatColumnHeaders>
<FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet1</DataSetName>
<Top>6.0914cm</Top>
<Top>5.46866cm</Top>
<Left>0.21008cm</Left>
<Height>1.14708cm</Height>
<Width>19.20848cm</Width>
<Width>19.11272cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -460,7 +460,7 @@
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.9533cm</Top>
<Left>0.21008cm</Left>
<Left>0.23022cm</Left>
<Height>0.66127cm</Height>
<Width>9.36417cm</Width>
<ZIndex>2</ZIndex>
@@ -1013,7 +1013,7 @@
<TablixMembers>
<TablixMember>
<TablixHeader>
<Size>0.86458cm</Size>
<Size>0.52062cm</Size>
<CellContents>
<Textbox Name="Textbox41">
<CanGrow>true</CanGrow>
@@ -1050,7 +1050,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.86458cm</Size>
<Size>0.52062cm</Size>
<CellContents>
<Textbox Name="Textbox32">
<CanGrow>true</CanGrow>
@@ -1087,7 +1087,7 @@
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.86458cm</Size>
<Size>0.52062cm</Size>
<CellContents>
<Textbox Name="Textbox64">
<CanGrow>true</CanGrow>
@@ -1185,9 +1185,9 @@
<RepeatColumnHeaders>true</RepeatColumnHeaders>
<FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet1</DataSetName>
<Top>4.25682cm</Top>
<Top>4.17165cm</Top>
<Left>0.21008cm</Left>
<Height>1.46458cm</Height>
<Height>1.12062cm</Height>
<Width>19.20849cm</Width>
<ZIndex>10</ZIndex>
<Style>
@@ -1214,7 +1214,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>8.25268cm</Top>
<Top>7.62994cm</Top>
<Left>0.20001cm</Left>
<Height>0.62599cm</Height>
<Width>19.21855cm</Width>
@@ -1267,7 +1267,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>8.87867cm</Top>
<Top>8.25593cm</Top>
<Left>0.20001cm</Left>
<Height>1.50794cm</Height>
<Width>19.21855cm</Width>
@@ -1854,7 +1854,7 @@
</TablixMember>
</TablixMembers>
</TablixRowHierarchy>
<Top>7.37959cm</Top>
<Top>6.75685cm</Top>
<Left>0.21008cm</Left>
<Height>0.6cm</Height>
<Width>19.11272cm</Width>
@@ -2115,7 +2115,7 @@
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Line Name="Line1">
<Top>0.03527cm</Top>
<Top>0.03526cm</Top>
<Left>0.22015cm</Left>
<Height>0cm</Height>
<Width>19.22862cm</Width>
@@ -2145,7 +2145,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.1411cm</Top>
<Top>0.14109cm</Top>
<Left>0.22015cm</Left>
<Height>0.54708cm</Height>
<Width>1.55632cm</Width>
@@ -2179,7 +2179,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.1411cm</Top>
<Top>0.14109cm</Top>
<Left>1.77647cm</Left>
<Height>0.54708cm</Height>
<Width>4.96223cm</Width>
@@ -2214,7 +2214,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox13</rd:DefaultName>
<Top>0.1411cm</Top>
<Top>0.14109cm</Top>
<Left>6.84454cm</Left>
<Height>0.54708cm</Height>
<Width>2.84562cm</Width>
@@ -2249,7 +2249,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.1411cm</Top>
<Top>0.14109cm</Top>
<Left>9.69015cm</Left>
<Height>0.54708cm</Height>
<Width>4.68641cm</Width>
@@ -2283,7 +2283,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.17638cm</Top>
<Top>0.17637cm</Top>
<Left>14.62633cm</Left>
<Height>0.54708cm</Height>
<Width>4.8023cm</Width>
@@ -2315,7 +2315,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0.68818cm</Top>
<Top>0.68817cm</Top>
<Left>0.22015cm</Left>
<Height>0.54708cm</Height>
<Width>6.21751cm</Width>

4
Inicio.aspx.vb
View File

@@ -203,7 +203,7 @@ Partial Class Inicio
Private Sub MuestraVentasPUE()
Dim objVentas As New ClsVentas
If objVentas.GetPUESinPago(Now.addyears(-2), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objVentas.DtResultados.Rows.Count > 0 Then
GvVtaPUE.DataSource = objVentas.DtResultados
@@ -217,7 +217,7 @@ Partial Class Inicio
Private Sub MuestraComprasPUE()
Dim objCompras As New ClsCompras
If objCompras.GetPUESinPago(Now.addyears(-2), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objCompras.DtResultados.Rows.Count > 0 Then
GvCompPUE.DataSource = objCompras.DtResultados

19
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -252,6 +252,15 @@ Partial Class Inventarios_EntradasSalidas
ViewState("CvePrePoliza") = value
End Set
End Property
Private Property DescripcionDetalladaEliminar As String
Get
Return CType(ViewState("DescripcionDetalladaEliminar"), String)
End Get
Set(value As String)
ViewState("DescripcionDetalladaEliminar") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -1012,6 +1021,14 @@ Partial Class Inventarios_EntradasSalidas
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
RegistraScript("$('#divDescripcion').modal()")
Dim Description As String = String.Format("Movimiento con Concepto: {0}, Almacen: {1}, Fecha: {2}, Folio: {3}, Usuario: {4}, Observaciones adicionales: {5}, Productos Información:<br/>",
DdlConcepto.SelectedItem, DdlAlmacen.SelectedItem, TxtFecha.Text, TxtFolio.Text, LblUsuarioRegistro.Text, TxtObservaciones.Text)
For Each dr As DataRow In DtMovimientos.Rows
Dim detalleDescripcion As String = String.Format("- Cant: {0}, PS: {1}, PU: {2}, UM: {3}<br/>", dr("Cantidad").ToString.ToEntero, dr("CodigoPS"), dr("PU"), dr("UnidadMedida"))
Description = String.Format("{0}{1}", Description, detalleDescripcion)
Next
DescripcionDetalladaEliminar = Description
UpDescripcion.Update()
'Dim Inv As New ClsInventarios
@@ -1069,7 +1086,7 @@ Partial Class Inventarios_EntradasSalidas
ObjConta.IniciaTransacSQL()
End If
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
TieneError = True
End If

4
Inventarios/RecepcionUsados.aspx
View File

@@ -138,10 +138,8 @@
<label class="col-md-1 truncate" style="width: 110px">Sucursal:</label>
<div class="col-md-2 " id="DivDdlClienteSucursal" runat="server">
<asp:DropDownList ID="DdlClientesSucursales" AutoPostBack="true" AppendDataBoundItems="true" runat="server" CssClass="form-control input-sm select2me" Style="max-width: 200px" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator InitialValue="-1" ID="RfvSucursalCliente" Display="None" ValidationGroup="GrpGuardar" runat="server" ControlToValidate="DdlClientesSucursales" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Es campo <b>''Sucursal''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcoClienteSucursal" runat="server" HighlightCssClass="vco" TargetControlID="RfvSucursalCliente" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>

55
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -615,8 +615,22 @@ Partial Class Inventarios_RecepcionUsados
BloqueaEdicionEncabezado()
End Sub
Private Sub LimpiarMovimiento()
CveMovimiento = -1
If ObjFactura IsNot Nothing Then
ObjFactura.Dispose()
ObjFactura = Nothing
End If
If ObjRemisionNC IsNot Nothing Then
ObjRemisionNC.Dispose()
ObjRemisionNC = Nothing
End If
CveRemisionRecibida = -1
EsDistribuidor = False
DdlClientes.SelectedValueExist("-1")
SiguienteFolio()
HplCompra.Visible = False
@@ -1021,16 +1035,17 @@ Partial Class Inventarios_RecepcionUsados
Exit Sub
End If
Dim GenerarRNC As Boolean = False
'SI ES DISTRIBUIDOR Y NO VIENE DE REMISION, GENERA UNA REMISION DE NOTA DE CREDITO
If EsDistribuidor AndAlso Me.CveRemisionRecibida <= 0 Then
GenerarRNC = True
Dim CveCliente As Integer = DdlClientes.SelectedValue.ToEntero()
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
CreaRemisionNC(CveCliente, CveSubProyecto, 1)
End If
If Me.ObjRemisionNC IsNot Nothing Then
If GenerarRNC AndAlso Me.ObjRemisionNC IsNot Nothing Then
Dim sb As New StringBuilder()
sb.Append($"Se va a generar un documento de tipo 'Remisión de nota de crédito'.<br> ¿Esta seguro que desea guardar?:<br/>")
@@ -1079,18 +1094,9 @@ Partial Class Inventarios_RecepcionUsados
If CveRemisionRecibida > 0 Then
CveVenta = CveRemisionRecibida
End If
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
CveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero,
Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G")
If CveMovimiento <= 0 Then
Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
ObjInventario.RollBack() 'deshace lo insertado
Else
Dim Mensaje As String = ""
CveVenta = -1
End If
If Not ErrorMovInv AndAlso GenerarRNC AndAlso ObjRemisionNC IsNot Nothing Then
@@ -1105,6 +1111,19 @@ Partial Class Inventarios_RecepcionUsados
CveVenta = Resp.CveVenta
End If
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
CveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero,
Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="RU/G")
If CveMovimiento <= 0 Then
Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
ObjInventario.RollBack() 'deshace lo insertado
Else
Dim Mensaje As String = ""
For Each Dr As DataRow In DtMovimientos.Rows
If CveConcepto = 42 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then
@@ -1745,7 +1764,7 @@ Partial Class Inventarios_RecepcionUsados
DdlClientesSucursales.DataSource = ObjCliente.DtResultados
DdlClientesSucursales.DataBind()
DdlClientesSucursales.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClientesSucursales.Items.Insert(0, New ListItem("-", "-1"))
DdlClientesSucursales.SelectedValue = "-1"
UpGenerales.Update()
@@ -2029,8 +2048,8 @@ Partial Class Inventarios_RecepcionUsados
Private Sub CreaRemisionNC(CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer)
Me.ObjRemisionNC = New Modelos.Factura(UsuarioActual)
Dim Folio As String = ""
Dim Serie As String = ""
'Dim Folio As String = ""
'Dim Serie As String = ""
'Dim ObjFolios As New ClsGralFolios()
'If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
@@ -2643,7 +2662,7 @@ Partial Class Inventarios_RecepcionUsados
Protected Sub CargaTipoDefecto()
DdlTipoDefecto.DataSource = GlobalDTAcumTiposDefecto.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlTipoDefecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTipoDefecto.DataBind
DdlTipoDefecto.DataBind()
End Sub
Private Sub CalculaPorcentajeAjuste()
Try

2
Inventarios/RepEntradasSalidas.aspx
View File

@@ -300,7 +300,7 @@
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="Id_Clave" HeaderText="Folio / Concepto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" HTMLEncode="false"/>
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
</Columns>
</asp:GridView>

16
Inventarios/RepExistenciasCostos.aspx
View File

@@ -135,14 +135,14 @@
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
<asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Valor" ItemStyle-Width="75px" DataField="ValorAcum" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Valor" ItemStyle-Width="75px" DataField="ValorAcum" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
</Columns>
</asp:GridView>
</div>

2
Inventarios/RepTraspasoAlmacen.aspx.vb
View File

@@ -122,7 +122,7 @@ Partial Class RepTraspasoAlmacen
DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen)
End Sub
Private Sub CargaAlmacenDestino()
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,21)")
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1"))
DdlAlmacenDestino.SelectedValue = "-1"

7
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -502,13 +502,14 @@ Partial Class Inventarios_ResguardoMaterial
BtnGuardarResguardo.Visible = True
DdlAlmacen.SelectedValue = "-1"
DdlAlmacenDestino.SelectedValue = "-1"
DdlAlmacen.SelectedValueExist("-1")
DdlAlmacenDestino.SelectedValueExist("-1")
DtSeccionAlmacen.Rows.Clear()
TxtObservaciones.Text = ""
TxtFecha.Text = Now.ToShortDateString
DdlPersonal.ddl.SelectedIndex = 0
DdlPersonal.SelectedValue = "-1"
DdlPersonal.SelectedText = "Seleccione"
LimpiarAgregar()
UPDatos.Update()
UpGenerales.Update()

55
Inventarios/TraspasoAlmacen.aspx
View File

@@ -146,8 +146,9 @@
<div id="DivTransitorio" style="display: none;">
<div class="row">
<label class="col-md-2">Responsable:</label>
<div class="col-md-2">
<div class="col-md-2" id="divResponsable" runat="server">
<asp:Label class="col-md-2" id="LblResponsable" runat="server" Text="Responsable:"></asp:Label>
<asp:TextBox runat="server" Text="" ID="TxtResponsable" Width="100px" />
</div>
@@ -156,10 +157,9 @@
<asp:DropDownList ID="DdlAlmacenTransitorio" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Style="width: 150px !important;"></asp:DropDownList>
</div>
<div id="DivEmiirTimbrado" runat="server" visible="false">
<label class="col-md-2">Emitir Timbrado:</label>
<div class="col-md-2">
<asp:CheckBox ID="ChkEmitirTimbrado" runat="server" CssClass="md-checksd" />
<div id="DivEmitirTimbrado" runat="server" visible="false">
<div class="col-md-4">
<asp:CheckBox ID="ChkEmitirTimbrado" runat="server" CssClass="md-checksd" Text="Emitir Timbrado" />
</div>
</div>
@@ -168,19 +168,16 @@
<div id="DivGastoIndirecto" style="display: none;" class="rowpadding">
<div class="row">
<label class="col-md-2">Gasto Indirecto:</label>
<div class="col-md-2">
<div class="col-md-2" id="divGastoIndirecto" runat="server">
<label class="col-md-2" id="LblGastoIndirecto" runat="server">Gasto Indirecto:</label>
<asp:TextBox runat="server" Text="" ID="TxtGastoIndirecto" Width="100px" />
</div>
<label class="col-md-1">Placa:</label>
<label class="col-md-1">Chofer:</label>
<div class="col-md-2">
<asp:DropDownList ID="DldChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" OnSelectedIndexChanged="DldChofer_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me" Style="width: 150px !important;"></asp:DropDownList>
<div class="col-md-3">
<asp:DropDownList ID="DdlChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" OnSelectedIndexChanged="DldChofer_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me" Style="width: 150px !important;"></asp:DropDownList>
</div>
</div>
<div class="row">
<label class="col-md-2">Fecha Entrega:</label>
<label class="col-md-1">F. Entrega:</label>
<div class="col-md-3" style="padding-left: 5px;">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
<asp:TextBox ID="TxtFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="100px" ClientIDMode="Static"></asp:TextBox>
@@ -193,13 +190,14 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
<div class="row">
<asp:HyperLink runat="server" ID="HplNuevaUnidad" NavigateUrl="#" data-toggle="modal" data-target="#DivAgregarNuevoCamion"><label class="col-md-1">Unidad</label></asp:HyperLink>
<label class="col-md-1">Unidad:</label>
<asp:HyperLink runat="server" ID="HplNuevaUnidad" NavigateUrl="#" data-toggle="modal" data-target="#DivAgregarNuevoCamion"><label class="col-md-1"><i class='fa fa-plus-square'></i></label></asp:HyperLink>
<div class="col-md-2">
<asp:DropDownList runat="server" ID="DdlUnidadCamion" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa"></asp:DropDownList>
<asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" AppendDataBoundItems ="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa"></asp:DropDownList>
</div>
<div id="divPlacaEspecificacion" runat="server">
<label class="col-md-1">Placa:</label>
<div class="col-md-2">
<asp:TextBox runat="server" Text="" ID="TxtPlaca" Width="100px" />
@@ -212,6 +210,7 @@
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
@@ -842,6 +841,8 @@
</div>
</div>
<%--Modal para agregar camion--%>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<div id="DivAgregarNuevoCamion" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
@@ -851,31 +852,27 @@
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<label>Placa: </label>
<asp:TextBox ID="TxtPlacaNuevo" CssClass="form-control" runat="server"></asp:TextBox>
<i></i>
<asp:RequiredFieldValidator runat="server" ID="RfvTxtPlacaNuevo" ControlToValidate="TxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor ingréselo." ValidationGroup="VgNuevoCamion"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator runat="server" ID="RevTxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> no contiene los caracteres suficientes." ControlToValidate="TxtPlacaNuevo" ValidationExpression="^.{6,8}$" ValidationGroup="VgNuevoCamion"></asp:RegularExpressionValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<label>Especificacion: </label>
<label>Especificación: </label>
<asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server"></asp:TextBox>
</div>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnAgregarCamion" Text="Agregar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

80
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -176,6 +176,14 @@ Partial Class Inventarios_TraspasoAlmacen
ViewState("FolioBusqueda") = value
End Set
End Property
Private Property DtCamiones As DataTable
Get
Return CType(ViewState("DtCamiones"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtCamiones") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -191,6 +199,11 @@ Partial Class Inventarios_TraspasoAlmacen
Folio = 0
CveMovimientoTimbrado = -1
If UsuarioActual.CveEmpresa = 119 Then
divGastoIndirecto.Visible = False
divResponsable.Visible = False
End If
CargaCombos()
CreaDT()
@@ -211,7 +224,7 @@ Partial Class Inventarios_TraspasoAlmacen
End If
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmiirTimbrado.Visible = True
If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmitirTimbrado.Visible = True
CantidadTotal = 0
IndexSeccionAlmacen = 0
@@ -387,11 +400,11 @@ Partial Class Inventarios_TraspasoAlmacen
'Llena Choferes
Dim ObjAcar As New ClsAcarreos()
If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
DldChofer.DataSource = ObjAcar.DtResultados
DldChofer.DataBind()
DdlChofer.DataSource = ObjAcar.DtResultados
DdlChofer.DataBind()
End If
ObjAcar.Dispose()
DldChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaEntrega.Text = Now.ToShortDateString
'Llena Responsables Transitorio
@@ -630,7 +643,7 @@ Partial Class Inventarios_TraspasoAlmacen
'VALIDA TRANSITORIO
If ChkTransitorio.Checked Then
If TxtResponsable.Text.Trim = "" Then
If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then
Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
@@ -643,6 +656,13 @@ Partial Class Inventarios_TraspasoAlmacen
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
Exit Sub
End If
If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then
Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
Exit Sub
End If
End If
'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
@@ -759,14 +779,13 @@ Partial Class Inventarios_TraspasoAlmacen
Dim ErrorMovInv As Boolean = False
Dim ErrorAC As Boolean = False
Dim TextoError = ""
Dim TipoMovimientoSalida = If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 8))
Dim TipoMovimientoSalida As Integer = 26 'If(ChkTransitorio.Checked, 26, If(TipoAlmacenOrigen = 24, 26, 26))
'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble,
CveChofer:=If(ChkTransitorio.Checked, DldChofer.SelectedValue.ToEntero, -1), Placa:=If(ChkTransitorio.Checked, TxtPlaca.Text.Trim, "-1"), FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:=If(ChkTransitorio.Checked, TxtEspecifUnidad.Text.Trim, "-1"),
CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:=If(ChkTransitorio.Checked, TxtPlaca.Text.Trim, "-1"), FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:=If(ChkTransitorio.Checked, TxtEspecifUnidad.Text.Trim, "-1"),
ResponsableCarga:=If(ChkTransitorio.Checked, TxtResponsableCarga.Text.Trim, "-1"), ResponsableRecibio:=If(ChkTransitorio.Checked, TxtResponsableRecibio.Text.Trim, "-1"), Identificacion:=If(ChkTransitorio.Checked, TxtIdentificacion.Text.Trim, "-1"), Domicilio:=If(ChkTransitorio.Checked, TxtDomicilio.Text.Trim, "-1"),
Telefono:=If(ChkTransitorio.Checked, TxtTelefono.Text.Trim, "-1"), Ciudad:=If(ChkTransitorio.Checked, TxtCiudad.Text.Trim, "-1"), Licencia:=If(ChkTransitorio.Checked, TxtLicencia.Text.Trim, "-1"), Modulo:="TA/G")
FolioSalida = ObjInventario.Folio
@@ -802,7 +821,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()
Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
FolioVirtualSalida = ObjInventario.Folio
@@ -829,11 +848,11 @@ Partial Class Inventarios_TraspasoAlmacen
'AGREGAMOS LA ENTRADA
If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO
If Not ErrorMovInv Then
Dim TipoMovimientoEntrada = 36
Dim TipoMovimientoEntrada = 27
AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G")
CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
FolioEntrada = ObjInventario.Folio
If CveMovimientoEntrada <= 0 Then
TextoError = "Ocurrió un error al generar el movimiento de entrada"
@@ -867,7 +886,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S")
CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/S3")
FolioVirtualEntrada = ObjInventario.Folio
Dim dtvirtual As DataTable = Nothing
@@ -888,9 +907,28 @@ Partial Class Inventarios_TraspasoAlmacen
ErrorMovInv = True
End If
End If
'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
If Not ErrorMovInv Then
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim resultado As DataTable = ObjInventario.DtResultados
Dim importe As Decimal = resultado.SUM("Total").ToDecimal
Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
ErrorMovInv = True
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada) Then
ErrorMovInv = True
End If
End If
End If
End If
End If
''[IPP-1Noviembre2018] SE COMENTA PORQUE NO TIENE NI PIES NI CABEZA. LE FALTA DESARROLLO
''CONSUMO INTERNO
@@ -2550,9 +2588,10 @@ Partial Class Inventarios_TraspasoAlmacen
Protected Sub DldChofer_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim ObjAcar As New ClsAcarreos()
If ObjAcar.GetChofer(DldChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
If ObjAcar.GetChofer(DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
Dim dr As DataRow = ObjAcar.DtResultados.Rows(0)
If dr IsNot Nothing Then
TxtResponsableRecibio.Text = dr("Chofer").ToString
TxtIdentificacion.Text = dr("Identificacion").ToString
TxtDomicilio.Text = dr("Domicilio").ToString
TxtTelefono.Text = dr("Telefono").ToString
@@ -2780,11 +2819,14 @@ Partial Class Inventarios_TraspasoAlmacen
End Function
Public Sub CargarCamiones()
DdlUnidadCamion.Items.Clear
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
DdlUnidadCamion.DataSource = ObjInventarios.DtResultados
DtCamiones = ObjInventarios.DtResultados
End If
ObjInventarios.Dispose()
DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1"))
DdlUnidadCamion.DataBind()
End Sub
Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
@@ -2797,4 +2839,16 @@ Partial Class Inventarios_TraspasoAlmacen
End If
ObjInventarios.Dispose()
End Sub
Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
If DdlUnidadCamion.SelectedValue = "-1" Then
'divPlacaEspecificacion.Visible = True
TxtPlaca.Text = ""
TxtEspecifUnidad.Text = ""
Else
'divPlacaEspecificacion.Visible = False
TxtPlaca.Text = DtCamiones.FiltroPrimeroValor("Placa", String.Format("CveCamion = {0}", DdlUnidadCamion.SelectedValue))
TxtEspecifUnidad.Text = DtCamiones.FiltroPrimeroValor("Especificacion", String.Format("CveCamion = {0}", DdlUnidadCamion.SelectedValue))
End If
End Sub
End Class

2
Sistemas/CatSesiones.aspx.vb
View File

@@ -114,7 +114,7 @@ Partial Class Sistemas_CatSesiones
Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
'If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
ObjContratos.Dispose()
End Sub

2
Ventas/AuxiliarCliente.aspx
View File

@@ -185,6 +185,8 @@
<asp:Label runat="server" ID="LblMoneda" Text='<%# Eval("Abreviatura") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Cargo MN" DataField="CargoMN" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Abono MN" DataField="AbonoMN" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
</Columns>
<RowStyle CssClass="Texto" />

6
Ventas/PV.aspx.vb
View File

@@ -3489,7 +3489,7 @@ Partial Class PV
Return Retorno
End Function
Private Function ValidaAgregarPS(CvePS As Integer, CveUM As Integer, PU As Double, CveTipoPS As Integer) As Boolean 'NO TOCAR - IPP
Private Function ValidaAgregarPS(CvePS As Integer, CveUM As Integer, PU As Double, CveTipoPS As Integer, Cantidad As Decimal) As Boolean 'NO TOCAR - IPP
'VALIDA PARAMETROS
If CvePS <= 0 Or CveUM <= 0 Then
@@ -3540,7 +3540,7 @@ Partial Class PV
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
If DTTamanios.Rows.Count > 0 And DTTamanios IsNot Nothing And DrPS("CveTamaño").ToString.ToEntero > 0 Then
Vendido = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { DrPS("CveTamaño") }").ToDecimal
Vendido = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { DrPS("CveTamaño") }").ToDecimal * Cantidad
End If
If Entregado > Vendido Then
@@ -3772,7 +3772,7 @@ Partial Class PV
CvePS = DdlPS.SelectedValue.ToEntero
'End If
If ValidaAgregarPS(CvePS, DdlUnidadMedida.SelectedValue.ToEntero, TxtPrecio.Text.Trim.ToDouble, HdnTipoPS.Value.ToEntero) Then
If ValidaAgregarPS(CvePS, DdlUnidadMedida.SelectedValue.ToEntero, TxtPrecio.Text.Trim.ToDouble, HdnTipoPS.Value.ToEntero, TxtCantidad.Text.ToDecimal) Then
If UsuarioActual.Empresa.Funcionalidad(507) = DdlPS.SelectedValue Then
CvePSAmortizacion = DdlPS.SelectedValue.ToEntero.ToEntero

17
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -811,7 +811,7 @@ Partial Class RepVentaDetalle
Private Sub BtnDescargarPDF_Click(sender As Object, e As EventArgs) Handles BtnDescargarPDF.Click
Dim pathPDF As String
Dim TipoDocto As String = ""
'Dim ListaPDF As New List(Of MFacturaDescarga)
'GENERA FACTURAS QUE NO ESTAN EN LA CARPETA
For Each gvr As GridViewRow In GvDatos.Rows
If gvr.DataKey("CveVenta").ToEntero > 0 Then
@@ -836,7 +836,8 @@ Partial Class RepVentaDetalle
pathPDF = Server.MapPath(String.Format("~/Empresas/{0}/PDF/{1}/{2}.pdf", UsuarioActual.CveEmpresa, TipoDocto, gvr.DataKey("SerieFolio").ToString))
If Not IO.File.Exists(pathPDF) Then
GenerarFacturaVentaDEV(gvr.DataKey("CveVenta").ToEntero)
GenerarFacturaVentaDEV(gvr.DataKey("CveVenta").ToEntero, UsuarioActual.CveUsuario)
'ListaPDF.Add(New MFacturaDescarga() With {.CveVenta = gvr.DataKey("CveVenta").ToEntero, .PDF = GenerarFacturaVentaDEV(gvr.DataKey("CveVenta").ToEntero, 100)})
End If
End If
Next
@@ -877,14 +878,14 @@ Partial Class RepVentaDetalle
Response.ContentType = "application/zip"
Response.End()
End Sub
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer) As Byte()
Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer) As Byte()
Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "http://localhost/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
Dim File As Byte() = Nothing
Try
Using httpClient = New HttpClient()
httpClient.Timeout = New TimeSpan(0, 15, 0)
Using request = New HttpRequestMessage(HttpMethod.Get, Url)
request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}", CveEmpresa, DateTime.UtcNow.Ticks)))
request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CVEUSUARIO={2}", CveEmpresa, DateTime.UtcNow.Ticks, CveUsuarioCreo)))
Dim response = httpClient.SendAsync(request).Result
If response.StatusCode = Net.HttpStatusCode.OK Then
File = response.Content.ReadAsByteArrayAsync().Result
@@ -999,9 +1000,9 @@ Partial Class RepVentaDetalle
GenerarPDF()
End Sub
Private Sub GenerarFacturaVentaDEV(CveVenta As Integer)
Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte()
DescargarFactura(CveVenta, UsuarioActual.CveEmpresa)
Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario)
'Dim ObjVentas As New ClsVentas
'Dim Vta As Modelos.Factura = Nothing
@@ -1121,7 +1122,7 @@ Partial Class RepVentaDetalle
' Vta = Nothing
'End If
End Sub
End Function
#End Region

136
Ventas/Ventas.aspx.vb
View File

@@ -5802,9 +5802,9 @@ Partial Class Ventas
Dim objPS As New ClsProductosServicios
If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then
PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal
If PrecioMinimo > 0 Then
Costo = PrecioMinimo
End If
'If PrecioMinimo > 0 Then
' Costo = PrecioMinimo
'End If
End If
objPS.Dispose()
@@ -5831,13 +5831,19 @@ Partial Class Ventas
'PRECIO MINIMO
If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
'' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo
If PrecioMinimo > 0 Then
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PU >= PrecioMinimo Then ' aqui se comparar los importes directos, sin el TC
EsValido = True
End If
Else
CostoMenor = Costo + ((UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100) * Costo)
If PrecioMinimo > 0 Then CostoMenor = PrecioMinimo
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
EsValido = True
End If
End If
Else
EsValido = True
End If
@@ -6251,7 +6257,7 @@ Partial Class Ventas
End Try
End Sub
Private Sub EmitirImprimir()
Private Sub EmitirImprimir(Optional TipoDoctoViejo As String = "")
DtRemisionesTmpDT = TmpDT.Copy
DtPedidos2TmpDT = TmpDT.Copy
DtCotizacionTmpDT = TmpDT.Copy
@@ -6418,22 +6424,29 @@ Partial Class Ventas
Dim objPS As New ClsProductosServicios
If objPS.GetPSSucursalesALL(dr("CvePS").ToString.ToEntero, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then
PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal
If PrecioMinimo > 0 Then
Costo = PrecioMinimo
End If
'If PrecioMinimo > 0 Then
' Costo = PrecioMinimo
'End If
End If
objPS.Dispose()
End If
'COSTO ALMACEN
'PRECIO MINIMO
If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
'' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo
If PrecioMinimo > 0 Then
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PU >= PrecioMinimo Then ' aqui se comparar los importes directos, sin el TC
EsValido = True
End If
Else
CostoMenor = Costo + ((UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100) * Costo)
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PrecioMinimo > 0 Then CostoMenor = PrecioMinimo
If Math.Round(PU, 4) >= Math.Round(CostoMenor, 4) Then
If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
EsValido = True
End If
End If
Else
EsValido = True
End If
@@ -6569,7 +6582,7 @@ Partial Class Ventas
Exit Sub
End If
EmitirImprimirNew()
EmitirImprimirNew(TipoDoctoViejo)
End Sub
#End Region
@@ -6590,7 +6603,7 @@ Partial Class Ventas
UpnTools.Update()
End Sub
Protected Sub EmitirImprimirNew()
Protected Sub EmitirImprimirNew(Optional TipoDoctoViejo As String = "")
If ValidaPagosContado() Then
@@ -6756,6 +6769,8 @@ Partial Class Ventas
EsNCAmortizacion = True
End If
Dim CveVentaAnterior As Integer = Me.CveVenta
GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS,
ObjEventos, ObjCGame, ObjClientes, EsNCAmortizacion:=EsNCAmortizacion)
@@ -6776,6 +6791,15 @@ Partial Class Ventas
Next
End If
If Not String.IsNullOrEmpty(TipoDoctoViejo) Then
'SI VIENE DE UNA AUTORIZACION
If TipoDoctoViejo = "PA" Then
If Not ObjEventos.AddEventoBitacora(String.Format("Se generó una remisión en Folio: <a href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", ObjFactura.CveVenta, ObjFactura.SerieFolio), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaAnterior) Then
ErrorList.Add("Ocurrió un error al agregar la bitacora de Póliza Virtual.")
End If
End If
End If
'SI ES REFACTURACION
Dim ObjNC As List(Of Object) = Nothing
If ErrorList.Count = 0 Then
@@ -6913,8 +6937,6 @@ Partial Class Ventas
End If
End If
If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA", "Pd2")) Then
ObjVentas.Commit()
@@ -10417,7 +10439,11 @@ Partial Class Ventas
CveSubProyectoContabilizar = CveSubProyectoVenta
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
'Contabilidad ContPAQ
'CONTABILIDAD CONTPAQ
'SI LA RETENCION ES AL 6% DEBE USAR ESTA CUENTA
If UsuarioActual.Empresa.Funcionalidad(580).ToEntero() > 0 AndAlso (DdlTipoRetencion.SelectedValue = "4") Then
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(580).ToEntero()
Else
If IdCtaContRetIVA > 0 Then
IdCtaContable = IdCtaContRetIVA
Else
@@ -10427,8 +10453,9 @@ Partial Class Ventas
End If
End If
End If
End If
'Contabilidad SIG
'CONTABILIDAD SIG
If CveCuentaRetIVA > 0 Then
CveCuenta = CveCuentaRetIVA
Else
@@ -10438,6 +10465,8 @@ Partial Class Ventas
End If
End If
End If
End If
Case 9 'Ret ISR por Trasladar
@@ -13764,9 +13793,9 @@ Partial Class Ventas
Dim objPS As New ClsProductosServicios
If objPS.GetPSSucursalesALL(CvePS, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero) Then
PrecioMinimo = objPS.DtResultados.FiltroPrimeroValor("PrecioMinimo", "").ToDecimal
If PrecioMinimo > 0 Then
Costo = PrecioMinimo
End If
'If PrecioMinimo > 0 Then
' Costo = PrecioMinimo
'End If
End If
objPS.Dispose()
@@ -13788,18 +13817,24 @@ Partial Class Ventas
'BANDERAS PARA VALIDACIONES
Dim EsValido = False
Dim EsValidoMayor = False
Dim CostoMenor = 0.0D
Dim CostoMayor = 0.0D
Dim CostoMenor As Decimal = 0.0D
Dim CostoMayor As Decimal = 0.0D
'PRECIO MINIMO
If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
'' NOTA. si tiene preciominimo, debe de validarlos e ignorar el costo, pero se debe de considerar el TC, para el costo
If PrecioMinimo > 0 Then
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PU >= PrecioMinimo Then ' aqui se comparar los importes directos, sin el TC
EsValido = True
End If
Else
CostoMenor = Costo + ((UsuarioActual.Empresa.Funcionalidad(129).ToDecimal / 100) * Costo)
If PrecioMinimo > 0 Then CostoMenor = PrecioMinimo
'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= CostoMenor Then
EsValido = True
End If
End If
Else
EsValido = True
End If
@@ -22633,23 +22668,23 @@ Partial Class Ventas
End If
'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS')
If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
Dim SbRem As New StringBuilder
SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
'If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
' Dim SbRem As New StringBuilder
' SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
SbRem.Append("<b>Remisiones Surtidas:</b></br>")
For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
Next
' SbRem.Append("<b>Remisiones Surtidas:</b></br>")
' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
' SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
' Next
SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
Next
' SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
' SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
' Next
Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
Exit Sub
End If
' Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
' Exit Sub
'End If
DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
DdlMoneda.Enabled = False
@@ -23558,9 +23593,30 @@ Partial Class Ventas
TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
TxtFechaEjecucion.Text = Now.ToString
'VALIDAR QUE NO SE HAYA REMISIONADO
If TipoDoctoViejo = "PA" Then
Dim RowVenta As DataRow = Nothing
Dim ObjVentas As New ClsVentas
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
RowVenta = ObjVentas.DtResultados.Rows(0)
End If
ObjVentas.Dispose()
If RowVenta IsNot Nothing Then
Dim CveEstatusAutorizacion As Integer = RowVenta("CveEstatusFactura").ToString().ToEntero()
'SI LA AUTORIZACION ESTA REMISIONADA NO DEBE REMISIONAR DE NUEVO
If CveEstatusAutorizacion = 18 Then
Alert("La autorización ya esta remisionada")
Exit Sub
End If
Else
Alert("No se encontró información de la autorización")
Exit Sub
End If
End If
If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
EmitirImprimir(TipoDoctoViejo) 'MANDA A EMITIR - PROCESO VIEJO
End If
End Sub