cambios de extensiones .SUM de double a decimal
This commit is contained in:
@@ -380,29 +380,8 @@ Partial Class Inventarios_Consignaciones
|
||||
|
||||
If DdlConcepto.SelectedValue.ToEntero.Contiene(12, 8) Then
|
||||
Dim CveSubProyectoValidaCaducidad As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenFiltro.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToEntero
|
||||
'RMF condición temporal
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyectoValidaCaducidad.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
|
||||
ValidaLoteCaducidad = True
|
||||
|
||||
'activa lote
|
||||
ThLote.Visible = True
|
||||
ThCaducidad.Visible = True
|
||||
|
||||
|
||||
Else
|
||||
ValidaLoteCaducidad = False
|
||||
|
||||
'activa lote
|
||||
ThLote.Visible = False
|
||||
ThCaducidad.Visible = False
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
|
||||
If ObjInventario.ConsignacionesDetalle(CveConsignacionTemp, DdlAlmacenFiltro.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
@@ -688,7 +667,7 @@ Partial Class Inventarios_Consignaciones
|
||||
|
||||
If Valido Then
|
||||
Dim CveClasificacion As Integer
|
||||
Dim PSCodigo = ""
|
||||
Dim PSCodigo As String = ""
|
||||
|
||||
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
|
||||
Dim SeccionAlmacen As String = DdlSeccionAlmacen.SelectedItem.Text
|
||||
@@ -782,9 +761,9 @@ Partial Class Inventarios_Consignaciones
|
||||
Dim CveMovimiento As Integer = 0
|
||||
Dim Folio As Integer = 0
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim TextoError = ""
|
||||
Dim TextoError As String = ""
|
||||
Dim Fecha As Date = TxtFecha.Text.ToDate
|
||||
Dim ErrorExistencia = False
|
||||
Dim ErrorExistencia As Boolean = False
|
||||
Dim TextoExistencia As StringBuilder = New StringBuilder
|
||||
|
||||
|
||||
@@ -808,7 +787,7 @@ Partial Class Inventarios_Consignaciones
|
||||
'AGREGAMOS CONSIGNACION
|
||||
If Not ErrorExistencia Then
|
||||
ObjInventario.IniciaTransacSQL() 'Inicia la transacción
|
||||
Dim CveConsignacion = -1
|
||||
Dim CveConsignacion As Integer = -1
|
||||
|
||||
If DdlConcepto.SelectedValue = "10" Then
|
||||
CveConsignacion = ObjInventario.AddConsignaciones(DdlProveedor.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario)
|
||||
@@ -850,7 +829,7 @@ Partial Class Inventarios_Consignaciones
|
||||
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
|
||||
|
||||
Dim Concepto As String = "Consig"
|
||||
Dim CvePrePoliza = ObjConta.AddPrePolizas("Entrada/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Entrada/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrePoliza, ImportePrePoliza, 68, "Entrada por Consignacion", "Entrada por Consignacion", CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=-1, Contabilizable:=False) Then
|
||||
ErrorMovInv = True
|
||||
@@ -956,11 +935,10 @@ Partial Class Inventarios_Consignaciones
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
ObjInventario.IniciaTransacSQL() 'Inicia la transacción
|
||||
|
||||
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim TextoError = ""
|
||||
Dim TextoError As String = ""
|
||||
Dim Fecha As Date = TxtFechaDevolucion.Text.ToDate
|
||||
Dim ErrorExistencia = False
|
||||
Dim ErrorExistencia As Boolean = False
|
||||
Dim TextoExistencia As New StringBuilder
|
||||
Dim CveMovtos As New List(Of Integer)
|
||||
Dim Folios As New List(Of Integer)
|
||||
@@ -968,7 +946,7 @@ Partial Class Inventarios_Consignaciones
|
||||
|
||||
Dim ConceptoDevolucion As Integer = 12
|
||||
Dim CveAlmacen As Integer = -1
|
||||
Dim MovtoNew = False
|
||||
Dim MovtoNew As Boolean = False
|
||||
|
||||
For Each Gvr As GridViewRow In GvDatos.Rows
|
||||
|
||||
@@ -1252,7 +1230,7 @@ Partial Class Inventarios_Consignaciones
|
||||
Dim TipoMovimiento As Integer = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, 2, 9)
|
||||
Dim AlmacenEntrada As Integer = -1
|
||||
If Not ErrorMovInv Then
|
||||
For i = 0 To CveMovtosSalida.Count - 1
|
||||
For i As Integer = 0 To CveMovtosSalida.Count - 1
|
||||
AlmacenEntrada = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
|
||||
|
||||
CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimiento, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
|
||||
@@ -1316,7 +1294,7 @@ Partial Class Inventarios_Consignaciones
|
||||
' End If
|
||||
'End If
|
||||
If Not ErrorMovInv And AlmacenEntrada > 0 Then
|
||||
Dim TipoAlmacenOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {AlmacenEntrada}").ToEntero
|
||||
Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {AlmacenEntrada}").ToEntero
|
||||
If TipoAlmacenOrigen = 1 Then
|
||||
Dim TipoMovto As Integer = 1
|
||||
Dim CveMovimientoCI As Integer = CveMovimientoEntrada
|
||||
@@ -1338,7 +1316,7 @@ Partial Class Inventarios_Consignaciones
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total").ToDecimal * TipoMovto, DtCostos.SUM("Total").ToDecimal * TipoMovto, 68, Concepto, Concepto, CveMovimientoAlmacen:=CveMovimientoCI) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DtCostos.SUM("Total") * TipoMovto, DtCostos.SUM("Total") * TipoMovto, 68, Concepto, Concepto, CveMovimientoAlmacen:=CveMovimientoCI) Then
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
Else
|
||||
@@ -1351,7 +1329,6 @@ Partial Class Inventarios_Consignaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Not ErrorMovInv Then
|
||||
ObjInventario.Commit()
|
||||
Dim Mensaje As StringBuilder = New StringBuilder
|
||||
@@ -1359,7 +1336,7 @@ Partial Class Inventarios_Consignaciones
|
||||
Mensaje.Append("Se realizó con éxito el traspaso.")
|
||||
|
||||
Mensaje.Append("<br/><br/> Folio(s) de Salida: <br/>")
|
||||
For i = 0 To CveMovtosSalida.Count - 1
|
||||
For i As Integer = 0 To CveMovtosSalida.Count - 1
|
||||
Mensaje.AppendFormat("<ul><li> <b><a href = ""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" class=""texto"" target=""_blank"" >{1}</a></b> ", CveMovtosSalida(i), FoliosSalida(i))
|
||||
Mensaje.AppendFormat(" <a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a></li></ul>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovtosSalida(i))))
|
||||
Next
|
||||
@@ -1463,7 +1440,7 @@ Partial Class Inventarios_Consignaciones
|
||||
If GvDatosRecepcion.Rows.Count > 0 Then
|
||||
|
||||
'Valida Movimientos
|
||||
Dim ValidaMovtos = 0.0
|
||||
Dim ValidaMovtos As Decimal = 0
|
||||
For Each gvr As GridViewRow In GvDatosRecepcion.Rows
|
||||
If gvr.FCCheckBox("Chk").Checked AndAlso gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal > 0 Then
|
||||
ValidaMovtos += gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
|
||||
@@ -1481,7 +1458,7 @@ Partial Class Inventarios_Consignaciones
|
||||
Dim CveMovimientoEntrada As Integer = 0
|
||||
Dim Folio As Integer = 0
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim TextoError = ""
|
||||
Dim TextoError As String = ""
|
||||
|
||||
'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
|
||||
ObjInventario.IniciaTransacSQL() 'Inicia la transacción
|
||||
|
||||
Reference in New Issue
Block a user