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

10
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -653,8 +653,8 @@ Partial Class Inventarios_TrasladoSolicitud
Dim EstatusAlmacen As Integer = 2
'VERIFICA EXISTENCIAS
Dim ObjInventarios As New ClsInventarios
Dim Existencia = 0.0
Dim TieneErrorExistencia = False
Dim Existencia As Decimal = 0
Dim TieneErrorExistencia As Boolean = False
Dim MensajeExistencia As New StringBuilder
MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:<br/>")
Dim CodigoPS As String = ""
@@ -695,7 +695,7 @@ Partial Class Inventarios_TrasladoSolicitud
ObjInventarios.IniciaTransacSQL()
Dim TieneError = False
Dim TieneError As Boolean = False
Dim CveContrato As Integer = 0
Dim Guia As String = ""
@@ -710,7 +710,7 @@ Partial Class Inventarios_TrasladoSolicitud
Estatus = 3
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
CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
@@ -723,7 +723,7 @@ Partial Class Inventarios_TrasladoSolicitud
Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero
Dim CvePS As Integer = Row.DataKey("CvePS").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 CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
Dim Serie As String = Row.DataKey("Serie")