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

12
Inventarios/Remanufactura.aspx.vb
View File

@@ -147,7 +147,7 @@ Partial Class Inventarios_Remanufactura
'CREA REAMANUFACTURA
If Not ObjInv.AddRemanufactura(DdlCliente.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
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
ErrorTrans = True
Else
@@ -164,7 +164,7 @@ Partial Class Inventarios_Remanufactura
If CveMovimiento > 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)
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.DtResultados.Rows.Count > 0 Then
FolioMov = ObjInv.DtResultados.Rows(0)("Folio").ToString
@@ -247,7 +247,7 @@ Partial Class Inventarios_Remanufactura
Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion)
Limpia()
Else
For Each ErrorItem In ErrorList
For Each ErrorItem As String In ErrorList
Alert(ErrorItem, TipoMensaje.MsgAdvertencia)
Next
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.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
DtR = TmpDT.NewRow
DtR("CveVenta") = -1
@@ -606,8 +606,8 @@ Partial Class Inventarios_Remanufactura
Dim Msgok As New StringBuilder
Dim CveAlmacenTraspasoOrigen As Integer = -1
Dim CveAlmacenTraspasoDestino As Integer = -1
Dim EsDevolucionVenta = -1
Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero
Dim EsDevolucionVenta As Integer = -1
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)