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

cambio de double a decimal parametro de movimientodetalle

Browse Source
This commit is contained in:
rrene
2023-11-04 09:00:36 -07:00
parent be049a1546
commit 62ee23b298
7 changed files with 48 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
GPS/RepCombustible2.aspx.vb
View File

@@ -5,24 +5,24 @@ Imports Microsoft.Reporting.WebForms
Partial Class GPS_RepCombustible2 Partial Class GPS_RepCombustible2
Inherits ClsPaginas Inherits ClsPaginas
ReadOnly Property UsuarioActual() As Usuario 'ReadOnly Property UsuarioActual() As Usuario
Get ' Get
Try ' Try
'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario) ' 'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario) ' UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
Catch ex As Exception ' Catch ex As Exception
UsuarioActual = Nothing ' UsuarioActual = Nothing
FormsAuthentication.SignOut() ' FormsAuthentication.SignOut()
Session("UsuarioSIG") = Nothing ' Session("UsuarioSIG") = Nothing
HttpContext.Current.Response.Redirect(String.Format("/LogIn.aspx?ReturnUrl={0}", HttpContext.Current.Request.Url)) ' HttpContext.Current.Response.Redirect(String.Format("/LogIn.aspx?ReturnUrl={0}", HttpContext.Current.Request.Url))
End Try ' End Try
End Get ' End Get
End Property 'End Property
Public Sub RegistraScript(Script As String, Optional valuetick As String = "") 'Public Sub RegistraScript(Script As String, Optional valuetick As String = "")
Dim Rdm As Random = New Random() ' Dim Rdm As Random = New Random()
ScriptManager.RegisterStartupScript(Page, Me.GetType(), String.Format("{0}{1}{2}", (NowADS().Ticks + 1), Rdm.Next(), valuetick), String.Format("<script type='text/javascript' language='javascript'>{0}</script>", Script), False) ' ScriptManager.RegisterStartupScript(Page, Me.GetType(), String.Format("{0}{1}{2}", (NowADS().Ticks + 1), Rdm.Next(), valuetick), String.Format("<script type='text/javascript' language='javascript'>{0}</script>", Script), False)
End Sub 'End Sub
Property DTCargasDescargas As DataTable Property DTCargasDescargas As DataTable
Get Get
If ViewState("DTCargasDescargas") Is Nothing Then If ViewState("DTCargasDescargas") Is Nothing Then

5
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -3,7 +3,6 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.IO Imports System.IO
Imports CrystalDecisions.CrystalReports.ViewerObjectModel
Imports Extensiones Imports Extensiones
Partial Class Inventarios_EntradasSalidas Partial Class Inventarios_EntradasSalidas
@@ -1707,7 +1706,7 @@ Partial Class Inventarios_EntradasSalidas
Dim FechaMovtoExistenciaStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("hh:mm")}" Dim FechaMovtoExistenciaStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("hh:mm")}"
If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=FechaMovtoExistenciaStr, Serie:=If(Dr("Serie").ToString = "", "-1", Dr("Serie").ToString), Lote:=If(Dr("Lote").ToString = "", "-1", Dr("Lote").ToString)) >= Dr("Cantidad").ToString.ToDouble Then If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=FechaMovtoExistenciaStr, Serie:=If(Dr("Serie").ToString = "", "-1", Dr("Serie").ToString), Lote:=If(Dr("Lote").ToString = "", "-1", Dr("Lote").ToString)) >= Dr("Cantidad").ToString.ToDouble Then
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then
Mensaje = "Error al Agregar los nuevos movimientos" Mensaje = "Error al Agregar los nuevos movimientos"
ErrorMovInv = True : Exit For ErrorMovInv = True : Exit For
End If End If
@@ -4114,7 +4113,7 @@ Partial Class Inventarios_EntradasSalidas
If DdlPS.SelectedValue.ToEntero > 0 Then If DdlPS.SelectedValue.ToEntero > 0 Then
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim CostoPromedio As Decimal = ObjInventario.GetCostoPS(DdlPS.SelectedValue.ToEntero, txtCantidad.Text.ToDouble, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, "", TxtFecha.Text.Replace(",", "").ToDate) Dim CostoPromedio As Decimal = ObjInventario.GetCostoPS(DdlPS.SelectedValue.ToEntero, txtCantidad.Text.ToDecimal, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, "", TxtFecha.Text.Replace(",", "").ToDate)
'GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CostoPromedio", "").ToDecimal 'GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CostoPromedio", "").ToDecimal
If CostoPromedio > 0 Then If CostoPromedio > 0 Then

2
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -341,7 +341,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
Dim CveSeccionAlmacen As Integer = -1 Dim CveSeccionAlmacen As Integer = -1
Dim SeccionAlmacen As String = "" Dim SeccionAlmacen As String = ""
Dim Cantidad As Double = TxtCantidadProducto.Text.ToDouble Dim Cantidad As Decimal = TxtCantidadProducto.Text.ToDecimal
Dim dr As DataRow Dim dr As DataRow
'dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}' ") 'dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}' ")

30
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -3,6 +3,7 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.IO Imports System.IO
Imports DocumentFormat.OpenXml.VariantTypes
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
@@ -458,13 +459,13 @@ Partial Class Inventarios_RecepcionUsados
Dim Fecha As DateTime = IfNull(Request("Fecha"), NowADS().ToString("dd/MM/yyyy")).ToString().ToDateTime() Dim Fecha As DateTime = IfNull(Request("Fecha"), NowADS().ToString("dd/MM/yyyy")).ToString().ToDateTime()
If Not String.IsNullOrEmpty(RFC) Then If Not String.IsNullOrEmpty(RFC) Then
Dim DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa) Dim DtClientes As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa)
If DtClientes Is Nothing Then If DtClientes Is Nothing Then
Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError) Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError)
Exit Sub Exit Sub
End If End If
Dim RowCliente = DtClientes.FiltroPrimero(String.Format("RFC='{0}'", RFC)) Dim RowCliente As DataRow = DtClientes.FiltroPrimero(String.Format("RFC='{0}'", RFC))
If RowCliente Is Nothing Then If RowCliente Is Nothing Then
Alert("No se encontro el cliente", TipoMensaje.MsgAdvertencia) Alert("No se encontro el cliente", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
@@ -481,7 +482,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero() Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
Dim Cliente = RowCliente("NombreComercial").ToString() Dim Cliente As String = RowCliente("NombreComercial").ToString()
DdlClientes.SelectedValue = CveCliente.ToString() DdlClientes.SelectedValue = CveCliente.ToString()
DdlClientes.SelectedText = Cliente DdlClientes.SelectedText = Cliente
@@ -1234,13 +1235,13 @@ Partial Class Inventarios_RecepcionUsados
Dim ImporteConcepto As Decimal = 0 Dim ImporteConcepto As Decimal = 0
Try Try
Dim CveSubProyecto = -1 Dim CveSubProyecto As Integer = -1
Dim ActivoFijo = -1 Dim ActivoFijo As Integer = -1
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
Else Else
Dim Fecha = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate Dim Fecha As Date = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate
Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero)) Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero)) Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
@@ -1305,7 +1306,7 @@ Partial Class Inventarios_RecepcionUsados
For Each Dr As DataRow In DtMovimientos.Rows For Each Dr As DataRow In DtMovimientos.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
Mensaje = "Error al guardar los movimientos" Mensaje = "Error al guardar los movimientos"
ErrorMovInv = True ErrorMovInv = True
Exit For Exit For
@@ -1502,7 +1503,7 @@ Partial Class Inventarios_RecepcionUsados
TdSeriePS.Visible = False TdSeriePS.Visible = False
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'") Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'")
If DrPS Is Nothing Then If DrPS Is Nothing Then
Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoBarras.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);") Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoBarras.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -1519,7 +1520,7 @@ Partial Class Inventarios_RecepcionUsados
Exit Sub Exit Sub
End If End If
GuardaCodigoSerie(TxtCantidadProducto.Text.ToDouble, DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero, DrPS("CostoPromedio").ToString.ToDecimal) GuardaCodigoSerie(TxtCantidadProducto.Text.ToDecimal, DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero, DrPS("CostoPromedio").ToString.ToDecimal)
TxtCodigoBarras.Text = "" TxtCodigoBarras.Text = ""
TxtCodigoBarras.Focus() TxtCodigoBarras.Focus()
@@ -1534,17 +1535,16 @@ Partial Class Inventarios_RecepcionUsados
Private Sub BtnAddCodigo_Click(sender As Object, e As EventArgs) Handles BtnAddCodigo.Click Private Sub BtnAddCodigo_Click(sender As Object, e As EventArgs) Handles BtnAddCodigo.Click
If TxtCodigo.Text.Trim = "" Then Exit Sub If TxtCodigo.Text.Trim = "" Then Exit Sub
Dim DrP = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo= '{TxtCodigo.Text.Trim}'") Dim DrP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo= '{TxtCodigo.Text.Trim}'")
If DrP IsNot Nothing AndAlso DrP("CvePS").ToString.ToEntero > 0 Then If DrP IsNot Nothing AndAlso DrP("CvePS").ToString.ToEntero > 0 Then
GuardaCodigoSerie(TxtCantidadProducto.Text.ToDouble, DrP("CvePS").ToString.ToEntero, DrP("CveUnidadMedida").ToString.ToEntero, DrP("CostoPromedio").ToString.ToDecimal) GuardaCodigoSerie(TxtCantidadProducto.Text.ToDecimal, DrP("CvePS").ToString.ToEntero, DrP("CveUnidadMedida").ToString.ToEntero, DrP("CostoPromedio").ToString.ToDecimal)
Else Else
Alert("No se encontró el producto. Favor de verificar y volver a intentar.", TipoMensaje.MsgError, "window.setTimeout(Focus2,200);") Alert("No se encontró el producto. Favor de verificar y volver a intentar.", TipoMensaje.MsgError, "window.setTimeout(Focus2,200);")
End If End If
End Sub End Sub
Private Sub GuardaCodigoSerie(Cantidad As Double, CvePS As Integer, CveUM As Integer, CostoPromedio As Decimal, Optional Serie As String = "-1") Private Sub GuardaCodigoSerie(Cantidad As Decimal, CvePS As Integer, CveUM As Integer, CostoPromedio As Decimal, Optional Serie As String = "-1")
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
If CveMovimiento <= 0 Then If CveMovimiento <= 0 Then
@@ -3038,9 +3038,9 @@ Partial Class Inventarios_RecepcionUsados
If PrecioSugerido = 0 Then If PrecioSugerido = 0 Then
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, CveSubProyecto, CveTipoAlmacen:=1) Dim CostoPS As Decimal = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, CveSubProyecto, CveTipoAlmacen:=1)
'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal
If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
ObjInventarios.Dispose() ObjInventarios.Dispose()
If CostoPS > 0 And PorcentajePrecio > 0 Then If CostoPS > 0 And PorcentajePrecio > 0 Then
PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS

12
Inventarios/Remanufactura.aspx.vb
View File

@@ -147,7 +147,7 @@ Partial Class Inventarios_Remanufactura
'CREA REAMANUFACTURA 'CREA REAMANUFACTURA
If Not ObjInv.AddRemanufactura(DdlCliente.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, If Not ObjInv.AddRemanufactura(DdlCliente.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
DdlSubProyecto.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, lblFolio.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, lblFolio.Text,
TxtCantidad.Text.ToDouble, TxtPrecio.Text.ToDouble, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, TxtCantidad.Text.ToDecimal, TxtPrecio.Text.ToDecimal, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa) Then UsuarioActual.CveEmpresa) Then
ErrorTrans = True ErrorTrans = True
Else Else
@@ -164,7 +164,7 @@ Partial Class Inventarios_Remanufactura
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
If GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows.Count > 0 Then If GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows.Count > 0 Then
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows(0) Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows(0)
ObjInv.AddMovimientoDetalle(CveMovimiento, TxtCantidad.Text.ToDouble, DrPS("CveUnidadMedida").ToString().ToEntero(), DdlPS.SelectedValue.ToEntero, TxtPrecio.Text.ToDecimal, -1) ObjInv.AddMovimientoDetalle(CveMovimiento, TxtCantidad.Text.ToDecimal, DrPS("CveUnidadMedida").ToString().ToEntero(), DdlPS.SelectedValue.ToEntero, TxtPrecio.Text.ToDecimal, -1)
If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjInv.DtResultados.Rows.Count > 0 Then If ObjInv.DtResultados.Rows.Count > 0 Then
FolioMov = ObjInv.DtResultados.Rows(0)("Folio").ToString FolioMov = ObjInv.DtResultados.Rows(0)("Folio").ToString
@@ -247,7 +247,7 @@ Partial Class Inventarios_Remanufactura
Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion) Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion)
Limpia() Limpia()
Else Else
For Each ErrorItem In ErrorList For Each ErrorItem As String In ErrorList
Alert(ErrorItem, TipoMensaje.MsgAdvertencia) Alert(ErrorItem, TipoMensaje.MsgAdvertencia)
Next Next
Alert("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.", TipoMensaje.MsgError)
@@ -416,7 +416,7 @@ Partial Class Inventarios_Remanufactura
ObjFactura.IEPS = 0 ObjFactura.IEPS = 0
ObjFactura.Total = Total ObjFactura.Total = Total
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero)(0) Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero)(0)
Dim DtR As DataRow Dim DtR As DataRow
DtR = TmpDT.NewRow DtR = TmpDT.NewRow
DtR("CveVenta") = -1 DtR("CveVenta") = -1
@@ -606,8 +606,8 @@ Partial Class Inventarios_Remanufactura
Dim Msgok As New StringBuilder Dim Msgok As New StringBuilder
Dim CveAlmacenTraspasoOrigen As Integer = -1 Dim CveAlmacenTraspasoOrigen As Integer = -1
Dim CveAlmacenTraspasoDestino As Integer = -1 Dim CveAlmacenTraspasoDestino As Integer = -1
Dim EsDevolucionVenta = -1 Dim EsDevolucionVenta As Integer = -1
Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero Dim CveSubProyecto As Integer = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero
factura.CvePrePoliza = ObjConta.AddPrePolizas("Reman/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa) factura.CvePrePoliza = ObjConta.AddPrePolizas("Reman/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)

10
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -653,8 +653,8 @@ Partial Class Inventarios_TrasladoSolicitud
Dim EstatusAlmacen As Integer = 2 Dim EstatusAlmacen As Integer = 2
'VERIFICA EXISTENCIAS 'VERIFICA EXISTENCIAS
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
Dim Existencia = 0.0 Dim Existencia As Decimal = 0
Dim TieneErrorExistencia = False Dim TieneErrorExistencia As Boolean = False
Dim MensajeExistencia As New StringBuilder Dim MensajeExistencia As New StringBuilder
MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:<br/>") MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:<br/>")
Dim CodigoPS As String = "" Dim CodigoPS As String = ""
@@ -695,7 +695,7 @@ Partial Class Inventarios_TrasladoSolicitud
ObjInventarios.IniciaTransacSQL() ObjInventarios.IniciaTransacSQL()
Dim TieneError = False Dim TieneError As Boolean = False
Dim CveContrato As Integer = 0 Dim CveContrato As Integer = 0
Dim Guia As String = "" Dim Guia As String = ""
@@ -710,7 +710,7 @@ Partial Class Inventarios_TrasladoSolicitud
Estatus = 3 Estatus = 3
End If End If
Dim Folio = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen) Dim Folio As integr = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen)
If Folio > 0 Then If Folio > 0 Then
CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
@@ -723,7 +723,7 @@ Partial Class Inventarios_TrasladoSolicitud
Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero
Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero
Dim Cantidad As Integer = Row.DataKey("Cantidad").ToEntero Dim Cantidad As Integer = Row.DataKey("Cantidad").ToEntero
Dim Precio As Double = Row.DataKey("Precio").ToEntero Dim Precio As Decimal = Row.DataKey("Precio").ToDecimal
Dim Observaciones As String = Row.DataKey("Observaciones") Dim Observaciones As String = Row.DataKey("Observaciones")
Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
Dim Serie As String = Row.DataKey("Serie") Dim Serie As String = Row.DataKey("Serie")

2
RH/Personal.aspx.vb
View File

@@ -5788,7 +5788,7 @@ Partial Class RH_Personal
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
ObjInventario.IniciaTransacSQL() ObjInventario.IniciaTransacSQL()
Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble() Dim Cantidad As Decimal = TxtCantidadResguardo.Text.ToDecimal
Dim Serie As String = TxtLiberarSerie.Text.Trim Dim Serie As String = TxtLiberarSerie.Text.Trim
Dim Errores As String = "" Dim Errores As String = ""