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

--double a decimal

Browse Source
This commit is contained in:
rrene
2023-11-04 11:10:14 -07:00
parent 1bb9630051
commit 2357e0da11
10 changed files with 158 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
Inventarios/Apartados.aspx.vb
View File

@@ -155,7 +155,7 @@ Partial Class Inventarios_Apartados
CargaPS() CargaPS()
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
If EsWS Then If EsWS Then
DdlClientes.setEsWebService(True) DdlClientes.setEsWebService(True)
DdlClienteDesapartado.setEsWebService(True) DdlClienteDesapartado.setEsWebService(True)
@@ -387,7 +387,7 @@ Partial Class Inventarios_Apartados
TdSeriePS.Visible = False TdSeriePS.Visible = False
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'") Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
If DrPS Is Nothing Then If DrPS Is Nothing Then
Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);") Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -415,7 +415,7 @@ Partial Class Inventarios_Apartados
txtCantidad.Text = "1" txtCantidad.Text = "1"
Dim Valido = ValidaExistencia(1, CvePSSerie, CveUMSerie, TxtSeriePS.Text.Trim) Dim Valido As Boolean = ValidaExistencia(1, CvePSSerie, CveUMSerie, TxtSeriePS.Text.Trim)
If Valido Then If Valido Then
AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim) AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim)
@@ -441,7 +441,7 @@ Partial Class Inventarios_Apartados
End Sub End Sub
Private Sub BtnAgregarPS(Cantidad As Double) Private Sub BtnAgregarPS(Cantidad As Double)
Dim CveProducto As Integer = DdlProducto2.SelectedValue.ToEntero Dim CveProducto As Integer = DdlProducto2.SelectedValue.ToEntero
Dim FuncionalidadSinSerie = True Dim FuncionalidadSinSerie As Boolean = True
If CveProducto > 0 Then If CveProducto > 0 Then
If TxtnSerie.Visible Then If TxtnSerie.Visible Then
@@ -456,7 +456,7 @@ Partial Class Inventarios_Apartados
End If End If
End If End If
Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, "-1")) Dim Valido As Boolean = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, Serie:=If(TxtnSerie.Visible, TxtnSerie.Text, "-1"))
If Valido Then If Valido Then
Dim StrSeccion As String = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "") Dim StrSeccion As String = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "")
@@ -467,7 +467,7 @@ Partial Class Inventarios_Apartados
End Sub End Sub
Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, Optional Serie As String = "-1", Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, Optional Serie As String = "-1",
Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha, Optional CveSeccionAlmacen As Integer = -1) As Boolean Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha, Optional CveSeccionAlmacen As Integer = -1) As Boolean
Dim Retorno = True Dim Retorno As Boolean = True
Dim Inv As New ClsInventarios Dim Inv As New ClsInventarios
Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad) Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad)
@@ -498,7 +498,7 @@ Partial Class Inventarios_Apartados
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
If DrPS IsNot Nothing Then CveClasificacion = DrPS("CveClasificacion").ToString.ToEntero If DrPS IsNot Nothing Then CveClasificacion = DrPS("CveClasificacion").ToString.ToEntero
Dim DrUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}") Dim DrUM As DataRow = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimero($"CveUnidadMedida = {CveUnidadMedida}")
Dim registro As DataRow = DtMovimientos.NewRow Dim registro As DataRow = DtMovimientos.NewRow
registro.Item("Cantidad") = Cantidad registro.Item("Cantidad") = Cantidad
@@ -628,7 +628,7 @@ Partial Class Inventarios_Apartados
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN 'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN
Dim ErrorExistencia = False Dim ErrorExistencia As Boolean = False
Dim TextoExistencia As StringBuilder = New StringBuilder Dim TextoExistencia As StringBuilder = New StringBuilder
Dim Existencia As Double Dim Existencia As Double
TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>") TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>")
@@ -669,16 +669,16 @@ Partial Class Inventarios_Apartados
'Inicia la transacción 'Inicia la transacción
ObjInventario.IniciaTransacSQL() ObjInventario.IniciaTransacSQL()
Dim CveMovimientoSalida = 0 Dim CveMovimientoSalida As Integer = 0
Dim CveMovimientoEntrada = 0 Dim CveMovimientoEntrada As Integer = 0
Dim IDPoliza As Integer = 0 Dim IDPoliza As Integer = 0
Dim FolioSalida = 0 Dim FolioSalida As Integer = 0
Dim FolioEntrada = 0 Dim FolioEntrada As Integer = 0
Dim AlmacenEntrada = -1 Dim AlmacenEntrada As Integer = -1
Dim Fecha As Date = TxtFecha.Text.ToDate Dim Fecha As Date = TxtFecha.Text.ToDate
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim ErrorAC As Boolean = False Dim ErrorAC As Boolean = False
Dim TextoError = "" Dim TextoError As String = ""
'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
@@ -691,7 +691,7 @@ Partial Class Inventarios_Apartados
ErrorMovInv = True ErrorMovInv = True
Else Else
For Each Dr As DataRow In DtMovimientos.Rows For Each Dr As DataRow In DtMovimientos.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de salida" TextoError = "Ocurrió un error al guardar los movimientos de salida"
Exit For Exit For
@@ -719,7 +719,7 @@ Partial Class Inventarios_Apartados
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
CveSec = -3 'GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero CveSec = -3 'GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSec, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSec, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de entrada" TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For
@@ -826,7 +826,7 @@ Partial Class Inventarios_Apartados
End Sub End Sub
Private Sub CargaExistencias() Private Sub CargaExistencias()
Dim DtTemp = GetExistenciasDT() Dim DtTemp As DataTable = GetExistenciasDT()
If DtTemp IsNot Nothing Then If DtTemp IsNot Nothing Then
GvDatosDesapartado.Columns(5).Visible = DtTemp.MAX("Serie").ToString <> "" GvDatosDesapartado.Columns(5).Visible = DtTemp.MAX("Serie").ToString <> ""
@@ -844,7 +844,7 @@ Partial Class Inventarios_Apartados
Private Function GetExistenciasDT() As DataTable Private Function GetExistenciasDT() As DataTable
Dim DtRetorno As New DataTable Dim DtRetorno As New DataTable
Dim CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero Dim CveAlmacenApartado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
If CveAlmacenApartado <= 0 Then If CveAlmacenApartado <= 0 Then
Alert("No se encontro el almacen de Apartado de la sucursal seleccionada. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("No se encontro el almacen de Apartado de la sucursal seleccionada. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Return DtRetorno Return DtRetorno
@@ -872,14 +872,14 @@ Partial Class Inventarios_Apartados
Protected Sub BtnGuardarDesapartado_Click(sender As Object, e As EventArgs) Handles BtnGuardarDesapartado.Click Protected Sub BtnGuardarDesapartado_Click(sender As Object, e As EventArgs) Handles BtnGuardarDesapartado.Click
'VALIDA ALMACEN ORIGEN Y DESTINO 'VALIDA ALMACEN ORIGEN Y DESTINO
Dim CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero Dim CveAlmacenApartado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) AND Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectoDesapartado.SelectedValue.ToEntero}").ToEntero
If DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero = CveAlmacenApartado Then If DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero = CveAlmacenApartado Then
Alert("No se puede realizar un traspaso entre el mismo almacén.", TipoMensaje.MsgAdvertencia) Alert("No se puede realizar un traspaso entre el mismo almacén.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
'VALIDA QUE TENGA MOVTOS 'VALIDA QUE TENGA MOVTOS
Dim TieneMovto = False Dim TieneMovto As Boolean = False
For Each Gvr As GridViewRow In GvDatosDesapartado.Rows For Each Gvr As GridViewRow In GvDatosDesapartado.Rows
If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
TieneMovto = True TieneMovto = True
@@ -901,7 +901,7 @@ Partial Class Inventarios_Apartados
Next Next
'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA 'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble) Dim CantidadGV As Decimal = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDecimal)
'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}") 'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")
'Exit Sub 'Exit Sub
If CantidadGV <> GetExistenciasDT().SUM("Cantidad") Then If CantidadGV <> GetExistenciasDT().SUM("Cantidad") Then
@@ -913,13 +913,13 @@ Partial Class Inventarios_Apartados
'Inicia la transacción 'Inicia la transacción
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
ObjInventario.IniciaTransacSQL() ObjInventario.IniciaTransacSQL()
Dim CveMovimientoSalida = 0 Dim CveMovimientoSalida As Integer = 0
Dim CveMovimientoEntrada = 0 Dim CveMovimientoEntrada As Integer = 0
Dim FolioSalida = 0 Dim FolioSalida As Integer = 0
Dim FolioEntrada = 0 Dim FolioEntrada As Integer = 0
Dim Fecha As Date = TxtFechaDesapartado.Text.ToDate Dim Fecha As Date = TxtFechaDesapartado.Text.ToDate
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim TextoError = "" Dim TextoError As String = ""
'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenApartado, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenApartado, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True,
@@ -934,7 +934,7 @@ Partial Class Inventarios_Apartados
Else Else
For Each Gvr As GridViewRow In GvDatosDesapartado.Rows For Each Gvr As GridViewRow In GvDatosDesapartado.Rows
If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Gvr.DataKey("Lote").ToString, FechaCaducidad:=Gvr.DataKey("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Gvr.DataKey("Lote").ToString, FechaCaducidad:=Gvr.DataKey("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de salida" TextoError = "Ocurrió un error al guardar los movimientos de salida"
Exit For Exit For
@@ -961,7 +961,7 @@ Partial Class Inventarios_Apartados
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
Dim CveSeccionAlmacen As Integer = Diccionario(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero Dim CveSeccionAlmacen As Integer = Diccionario(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de entrada" TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For

62
Inventarios/Consignaciones.aspx.vb
View File

@@ -779,8 +779,8 @@ Partial Class Inventarios_Consignaciones
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim CveMovimiento = 0 Dim CveMovimiento As Integer = 0
Dim Folio = 0 Dim Folio As Integer = 0
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim TextoError = "" Dim TextoError = ""
Dim Fecha As Date = TxtFecha.Text.ToDate Dim Fecha As Date = TxtFecha.Text.ToDate
@@ -818,12 +818,12 @@ Partial Class Inventarios_Consignaciones
'AGREGAMOS MOVIMIENTO 'AGREGAMOS MOVIMIENTO
Folio = ObjInventario.GetFolioSiguiente(DdlConcepto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Folio = ObjInventario.GetFolioSiguiente(DdlConcepto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, DdlConcepto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveConsignacion:=CveConsignacion, Observaciones:=TxtObservaciones.Text, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero <> 1, TxtTipoCambio.Text.ToDouble, -1)) CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, DdlConcepto.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveConsignacion:=CveConsignacion, Observaciones:=TxtObservaciones.Text, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero <> 1, TxtTipoCambio.Text.ToDecimal, -1))
'AGREGAMOS MOVTOS DETALLE 'AGREGAMOS MOVTOS DETALLE
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
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, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=TxtSerie.Text, Lote:=TxtLote.Text, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, PUTC:=If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr("PUExtranjero").ToString.ToDecimal, -1)) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=TxtSerie.Text, Lote:=TxtLote.Text, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, PUTC:=If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr("PUExtranjero").ToString.ToDecimal, -1)) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos" TextoError = "Ocurrió un error al guardar los movimientos"
Exit For Exit For
@@ -964,16 +964,16 @@ Partial Class Inventarios_Consignaciones
Dim TextoExistencia As New StringBuilder Dim TextoExistencia As New StringBuilder
Dim CveMovtos As New List(Of Integer) Dim CveMovtos As New List(Of Integer)
Dim Folios As New List(Of Integer) Dim Folios As New List(Of Integer)
Dim MovimientosRealizados = 0 Dim MovimientosRealizados As Integer = 0
Dim ConceptoDevolucion = 12 Dim ConceptoDevolucion As Integer = 12
Dim CveAlmacen = -1 Dim CveAlmacen As Integer = -1
Dim MovtoNew = False Dim MovtoNew = False
For Each Gvr As GridViewRow In GvDatos.Rows For Each Gvr As GridViewRow In GvDatos.Rows
Dim CveMovimiento = 0 Dim CveMovimiento As Integer = 0
Dim Folio = 0 Dim Folio As Integer = 0
If Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble > 0 Then If Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble > 0 Then
@@ -1007,7 +1007,7 @@ Partial Class Inventarios_Consignaciones
If Gvr.FCTextBox("TxtCaducidad").Text.ToDate > MinFecha Then FechaCaducidad = Gvr.FCTextBox("TxtCaducidad").Text.ToDate If Gvr.FCTextBox("TxtCaducidad").Text.ToDate > MinFecha Then FechaCaducidad = Gvr.FCTextBox("TxtCaducidad").Text.ToDate
'AGREGAMOS MOVTOS DETALLE 'AGREGAMOS MOVTOS DETALLE
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Lote, FechaCaducidad:=FechaCaducidad) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDecimal, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Lote, FechaCaducidad:=FechaCaducidad) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un Error al guardar los movimientos" TextoError = "Ocurrió un Error al guardar los movimientos"
Exit For Exit For
@@ -1029,7 +1029,7 @@ Partial Class Inventarios_Consignaciones
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim Concepto As String = "Consig" Dim Concepto As String = "Consig"
Dim CvePrePoliza = ObjConta.AddPrePolizas("Consig", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Consig", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, ImportePrePoliza, 68, "Consig", "Consig", CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=False) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, ImportePrePoliza, 68, "Consig", "Consig", CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=False) Then
ErrorMovInv = True ErrorMovInv = True
@@ -1155,16 +1155,16 @@ Partial Class Inventarios_Consignaciones
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim TextoError = "" Dim TextoError As String = ""
Dim Fecha As Date = TxtFechaTraspaso.Text.ToDate Dim Fecha As Date = TxtFechaTraspaso.Text.ToDate
Dim MovimientosRealizados = 0 Dim MovimientosRealizados As Integer = 0
'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
Dim MovtoNew = False Dim MovtoNew As Boolean = False
Dim CveAlmacen = -1 Dim CveAlmacen As Integer = -1
Dim CveMovimientoSalida = 0 Dim CveMovimientoSalida As Integer = 0
Dim FolioSalida = 0 Dim FolioSalida As Integer = 0
Dim CveMovtosSalida As New List(Of Integer) Dim CveMovtosSalida As New List(Of Integer)
Dim FoliosSalida As New List(Of Integer) Dim FoliosSalida As New List(Of Integer)
For Each Gvr As GridViewRow In GvDatos.Rows For Each Gvr As GridViewRow In GvDatos.Rows
@@ -1211,7 +1211,7 @@ Partial Class Inventarios_Consignaciones
If Gvr.FCTextBox("TxtCaducidad").Text.ToDate > MinFecha Then FechaCaducidad = Gvr.FCTextBox("TxtCaducidad").Text.ToDate If Gvr.FCTextBox("TxtCaducidad").Text.ToDate > MinFecha Then FechaCaducidad = Gvr.FCTextBox("TxtCaducidad").Text.ToDate
'AGREGAMOS MOVTOS DETALLE 'AGREGAMOS MOVTOS DETALLE
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, "", Lote, FechaCaducidad:=FechaCaducidad) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDecimal, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, "", Lote, FechaCaducidad:=FechaCaducidad) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un Error al guardar los movimientos detalle de la salida" TextoError = "Ocurrió un Error al guardar los movimientos detalle de la salida"
Exit For Exit For
@@ -1244,13 +1244,13 @@ Partial Class Inventarios_Consignaciones
'AGREGAMOS LA ENTRADA 'AGREGAMOS LA ENTRADA
Dim CveMovimientoEntrada = 0 Dim CveMovimientoEntrada As Integer = 0
Dim FolioEntrada = 0 Dim FolioEntrada As Integer = 0
Dim CveMovtosEntrada As New List(Of Integer) Dim CveMovtosEntrada As New List(Of Integer)
Dim FoliosEntrada As New List(Of Integer) Dim FoliosEntrada As New List(Of Integer)
Dim TipoAlmacenEntrada = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = { DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero Dim TipoAlmacenEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = { DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero
Dim TipoMovimiento = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, 2, 9) Dim TipoMovimiento As Integer = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, 2, 9)
Dim AlmacenEntrada = -1 Dim AlmacenEntrada As Integer = -1
If Not ErrorMovInv Then If Not ErrorMovInv Then
For i = 0 To CveMovtosSalida.Count - 1 For i = 0 To CveMovtosSalida.Count - 1
AlmacenEntrada = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero) AlmacenEntrada = If(ChkTransitorio.Checked And TipoAlmacenEntrada <> 1, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
@@ -1271,7 +1271,7 @@ Partial Class Inventarios_Consignaciones
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de entrada" TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For
@@ -1318,9 +1318,9 @@ Partial Class Inventarios_Consignaciones
If Not ErrorMovInv And AlmacenEntrada > 0 Then If Not ErrorMovInv And AlmacenEntrada > 0 Then
Dim TipoAlmacenOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {AlmacenEntrada}").ToEntero Dim TipoAlmacenOrigen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {AlmacenEntrada}").ToEntero
If TipoAlmacenOrigen = 1 Then If TipoAlmacenOrigen = 1 Then
Dim TipoMovto = 1 Dim TipoMovto As Integer = 1
Dim CveMovimientoCI = CveMovimientoEntrada Dim CveMovimientoCI As Integer = CveMovimientoEntrada
Dim CveAlmacenCI = AlmacenEntrada Dim CveAlmacenCI As Integer = AlmacenEntrada
Dim DtCostos As DataTable = Nothing Dim DtCostos As DataTable = Nothing
Dim ValorInventario As Decimal = 0 Dim ValorInventario As Decimal = 0
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
@@ -1329,7 +1329,7 @@ Partial Class Inventarios_Consignaciones
If tmpCostos.Rows.Count > 0 Then If tmpCostos.Rows.Count > 0 Then
Dim Concepto As String = $"Traspaso: {ObjInventario.Folio} - {TxtObservaciones.Text}" Dim Concepto As String = $"Traspaso: {ObjInventario.Folio} - {TxtObservaciones.Text}"
Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv/Traspáso", 53, DtCostos.SUM("Total") * TipoMovto, DtCostos.SUM("Total") * TipoMovto, 1, TxtFecha.Text.ToDate, $"Traspaso: {TxtObservaciones.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/Traspáso", 53, DtCostos.SUM("Total") * TipoMovto, DtCostos.SUM("Total") * TipoMovto, 1, TxtFecha.Text.ToDate, $"Traspaso: {TxtObservaciones.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
For Each RowInv As DataRow In tmpCostos.Rows For Each RowInv As DataRow In tmpCostos.Rows
ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal
@@ -1479,7 +1479,7 @@ Partial Class Inventarios_Consignaciones
Dim CveMovimientoSalida As Integer = 0 Dim CveMovimientoSalida As Integer = 0
Dim CveMovimientoEntrada As Integer = 0 Dim CveMovimientoEntrada As Integer = 0
Dim Folio = 0 Dim Folio As Integer = 0
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim TextoError = "" Dim TextoError = ""
@@ -1531,7 +1531,7 @@ Partial Class Inventarios_Consignaciones
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al guardar los movimientos de entrada" TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For
@@ -1582,7 +1582,7 @@ Partial Class Inventarios_Consignaciones
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim Concepto As String = "Recepcion Traspaso" Dim Concepto As String = "Recepcion Traspaso"
Dim CvePrePoliza = ObjConta.AddPrePolizas("Recepcion/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Recepcion/Consignacion", 53, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrePoliza, ImportePrePoliza, 68, "Recepcion Traspaso", "Recepcion Traspaso", CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrePoliza, ImportePrePoliza, 68, "Recepcion Traspaso", "Recepcion Traspaso", CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then
ErrorMovInv = True ErrorMovInv = True

8
Inventarios/ConsignacionesMaterial.aspx.vb
View File

@@ -119,7 +119,7 @@ Partial Class Inventarios_ConsignacionesMaterial
For Each gr As GridViewRow In GvConsignacion.Rows For Each gr As GridViewRow In GvConsignacion.Rows
If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then
If Not Mov.AddMovimientoDetalle(CveMovimientoC, gr.FCTextBox("tbCantR").Text.ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero, If Not Mov.AddMovimientoDetalle(CveMovimientoC, gr.FCTextBox("tbCantR").Text.ToString.ToDecimal, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero,
DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos" Mensaje = "Error al guardar los movimientos"
Exit For Exit For
@@ -137,7 +137,7 @@ Partial Class Inventarios_ConsignacionesMaterial
For Each gr As GridViewRow In GvConsignacion.Rows For Each gr As GridViewRow In GvConsignacion.Rows
If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then
If Not Mov.AddMovimientoDetalle(CveMovimiento, gr.FCTextBox("tbCantR").Text.ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero, If Not Mov.AddMovimientoDetalle(CveMovimiento, gr.FCTextBox("tbCantR").Text.ToString.ToDecimal, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero,
DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos" Mensaje = "Error al guardar los movimientos"
Exit For Exit For
@@ -273,7 +273,7 @@ Partial Class Inventarios_ConsignacionesMaterial
For Each gr As GridViewRow In GvConsignacion.Rows For Each gr As GridViewRow In GvConsignacion.Rows
If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then If Not gr.FCTextBox("tbCantR").Text.ToString = "" Then
If Not Mov.AddMovimientoDetalle(CveMovimiento, gr.FCTextBox("tbCantR").Text.ToString.ToDouble, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero, If Not Mov.AddMovimientoDetalle(CveMovimiento, gr.FCTextBox("tbCantR").Text.ToString.ToDecimal, DTmp.Rows(gr.RowIndex)("CveUnidadMedida").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CvePS").ToString.ToEntero,
DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then DTmp.Rows(gr.RowIndex)("PU").ToString.ToEntero, DTmp.Rows(gr.RowIndex)("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos" Mensaje = "Error al guardar los movimientos"
Exit For Exit For
@@ -379,7 +379,7 @@ Partial Class Inventarios_ConsignacionesMaterial
For Each row As DataRow In DTmp.FiltraParametros("Nuevo=1").Rows For Each row As DataRow In DTmp.FiltraParametros("Nuevo=1").Rows
If Not Mov.AddMovimientoDetalle(CveMovimiento, row("Cantidad").ToString.ToDouble, row("CveUnidadMedida").ToString.ToEntero, row("CvePS").ToString.ToEntero, row("PU").ToString.ToDecimal, If Not Mov.AddMovimientoDetalle(CveMovimiento, row("Cantidad").ToString.ToDecimal, row("CveUnidadMedida").ToString.ToEntero, row("CvePS").ToString.ToEntero, row("PU").ToString.ToDecimal,
row("CveSeccionAlmacen").ToString.ToEntero) Then row("CveSeccionAlmacen").ToString.ToEntero) Then
Mensaje = "Error al guardar los movimientos" Mensaje = "Error al guardar los movimientos"
Exit For Exit For

40
Inventarios/PaquetesArmadoDesarmado.aspx.vb
View File

@@ -212,7 +212,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Dim drP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteArmado.SelectedValue.ToEntero).FiltroPrimero("") Dim drP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteArmado.SelectedValue.ToEntero).FiltroPrimero("")
Dim CveUMTemp = drP("CveUM").ToString.ToEntero Dim CveUMTemp As Integer = drP("CveUM").ToString.ToEntero
If ObjProductosServicios.GetPaqueteDetalle(DdlPaqueteArmado.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveUMTemp, TxtCantidadArmado.Text.ToDouble, DdlAlmacenArmado.SelectedValue.ToEntero, TxtFechaArmado.Text.ToDate, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) Then If ObjProductosServicios.GetPaqueteDetalle(DdlPaqueteArmado.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveUMTemp, TxtCantidadArmado.Text.ToDouble, DdlAlmacenArmado.SelectedValue.ToEntero, TxtFechaArmado.Text.ToDate, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) Then
DtDatos = ObjProductosServicios.DtResultados.FiltraParametros("CveTipoPS = 2").Copy DtDatos = ObjProductosServicios.DtResultados.FiltraParametros("CveTipoPS = 2").Copy
Else Else
@@ -235,8 +235,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Next Next
End If End If
Dim TextoExistencias = "No hay existencia suficiente de los siguientes componentes: <br/><br/>" Dim TextoExistencias As String = "No hay existencia suficiente de los siguientes componentes: <br/><br/>"
Dim ErrorExistencias = False Dim ErrorExistencias As Boolean = False
For Each Dr As DataRow In DtDatos.Rows For Each Dr As DataRow In DtDatos.Rows
If Dr("CantidadDisponible2").ToString.ToDecimal < Dr("Cantidad").ToString.ToDecimal Then If Dr("CantidadDisponible2").ToString.ToDecimal < Dr("Cantidad").ToString.ToDecimal Then
TextoExistencias += $"<br/>- Componente: <b>""{Dr("CodigoPS")}""</b>." TextoExistencias += $"<br/>- Componente: <b>""{Dr("CodigoPS")}""</b>."
@@ -310,14 +310,14 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Dim drP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteDesarmado.SelectedValue.ToEntero).FiltroPrimero("") Dim drP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteDesarmado.SelectedValue.ToEntero).FiltroPrimero("")
Dim CveUMTemp = drP("CveUM").ToString.ToEntero Dim CveUMTemp As Integer = drP("CveUM").ToString.ToEntero
CveVendedor = If(RowApartadosDesarmado.Visible, DdlVendedorDesarmado.SelectedValue.ToEntero, -1) CveVendedor = If(RowApartadosDesarmado.Visible, DdlVendedorDesarmado.SelectedValue.ToEntero, -1)
CveCliente = If(RowClienteDesarmado.Visible, DdlClienteDesarmado.SelectedValue.ToEntero, -1) CveCliente = If(RowClienteDesarmado.Visible, DdlClienteDesarmado.SelectedValue.ToEntero, -1)
Dim FechaFin As String = TxtFechaDesarmado.Text.ToDateTime.ToString("yyyy/MM/dd 23:59") Dim FechaFin As String = TxtFechaDesarmado.Text.ToDateTime.ToString("yyyy/MM/dd 23:59")
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
Dim Existencia = ObjInventarios.GetExistenciasPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, CveUMTemp, UsuarioActual.CveEmpresa, DdlAlmacenDesarmado.SelectedValue.ToEntero, FechaMovto:=FechaFin, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, CveUMTemp, UsuarioActual.CveEmpresa, DdlAlmacenDesarmado.SelectedValue.ToEntero, FechaMovto:=FechaFin, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente))
Dim CostoPromedio = ObjInventarios.GetCostoPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, TxtCantidadDesarmado.Text.ToDouble, DdlAlmacenDesarmado.SelectedValue.ToEntero, "-1", FechaFin.ToDate, CveTipoAlmacen:=-1) Dim CostoPromedio As Decimal = ObjInventarios.GetCostoPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, TxtCantidadDesarmado.Text.ToDecimal, DdlAlmacenDesarmado.SelectedValue.ToEntero, "-1", FechaFin.ToDate, CveTipoAlmacen:=-1)
ObjInventarios.Dispose() ObjInventarios.Dispose()
If Existencia - TxtCantidadDesarmado.Text.ToDouble < 0 Then If Existencia - TxtCantidadDesarmado.Text.ToDouble < 0 Then
@@ -457,14 +457,14 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
ObjInventario.IniciaTransacSQL() 'Inicia la transacción ObjInventario.IniciaTransacSQL() 'Inicia la transacción
Dim TieneError = False Dim TieneError As Boolean = False
Dim MensajeError As String = "" Dim MensajeError As String = ""
Dim CveMovimientoSalida = 0 Dim CveMovimientoSalida As Integer = 0
Dim FolioSalida = 0 Dim FolioSalida As Integer = 0
Dim CveMovimientoEntrada = 0 Dim CveMovimientoEntrada As Integer = 0
Dim FolioEntrada = 0 Dim FolioEntrada As Integer = 0
Dim Fecha = If(Tipo = 1, LbFechaArmado.Text.ToDate, LbFechaDesarmado.Text.ToDate) Dim Fecha As Date = If(Tipo = 1, LbFechaArmado.Text.ToDate, LbFechaDesarmado.Text.ToDate)
Dim DtDetalle As New DataTable Dim DtDetalle As New DataTable
@@ -507,7 +507,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
End If End If
Else Else
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.DataKey("Cantidad").ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.DataKey("Cantidad").ToString.ToDecimal, Gvr.DataKey("CveUM").ToString.ToEntero,
Gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Gvr.DataKey("CvePS").ToString.ToEntero, 0, -1, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote,
FechaCaducidad:=FechaCaducidad.ToDate) Then FechaCaducidad:=FechaCaducidad.ToDate) Then
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
@@ -562,7 +562,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
DtSeriesComponentes = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr2.DataKey("Consec").ToEntero)).Copy DtSeriesComponentes = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr2.DataKey("Consec").ToEntero)).Copy
Dim CantidadComponente = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr2.DataKey("Consec").ToEntero)).Rows.Count / LbCantidadArmado.Text.ToEntero Dim CantidadComponente = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr2.DataKey("Consec").ToEntero)).Rows.Count / LbCantidadArmado.Text.ToEntero
For index = (ContadorPaquete - 1) * CantidadComponente.ToEntero To (ContadorPaquete * CantidadComponente.ToEntero) - 1 For index As Integer = (ContadorPaquete - 1) * CantidadComponente.ToEntero To (ContadorPaquete * CantidadComponente.ToEntero) - 1
If Not ObjInventario.AddPaqueteRelacionSeries(CvePSTemp, Gvr.FCTextBox("TxtSerie").Text.Trim, DtSeriesComponentes.Rows(index)("CvePS").ToString.ToEntero, DtSeriesComponentes.Rows(index)("Serie").ToString) Then If Not ObjInventario.AddPaqueteRelacionSeries(CvePSTemp, Gvr.FCTextBox("TxtSerie").Text.Trim, DtSeriesComponentes.Rows(index)("CvePS").ToString.ToEntero, DtSeriesComponentes.Rows(index)("Serie").ToString) Then
TieneError = True TieneError = True
Exit For Exit For
@@ -574,7 +574,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
ContadorPaquete = ContadorPaquete + 1 ContadorPaquete = ContadorPaquete + 1
Next Next
Else Else
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, LbCantidadArmado.Text.ToDouble, CveUMTemp, CvePSTemp, PUTemp, CveSeccionAlmacen:=CveSeccionAlmacen) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, LbCantidadArmado.Text.ToDecimal, CveUMTemp, CvePSTemp, PUTemp, CveSeccionAlmacen:=CveSeccionAlmacen) Then
TieneError = True TieneError = True
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de entrada" MensajeError = "Ocurrió un error al guardar los detalles del movimiento de entrada"
End If End If
@@ -608,7 +608,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim Concepto As String = "ARMPAQ2" Dim Concepto As String = "ARMPAQ2"
Dim CvePrePoliza = ObjConta.AddPrePolizas("ARMPAQ1/ARMPAQ2", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("ARMPAQ1/ARMPAQ2", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero 'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, ImportePrePoliza, 68, "ARMPAQ2", "ARMPAQ2", CveMovimientoAlmacen:=CveMovimientoEntrada, CveSubProyecto:=-1, Contabilizable:=True) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, ImportePrePoliza, 68, "ARMPAQ2", "ARMPAQ2", CveMovimientoAlmacen:=CveMovimientoEntrada, CveSubProyecto:=-1, Contabilizable:=True) Then
@@ -640,7 +640,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Exit Select Exit Select
End If End If
Dim CvePSTemp = CvePaqueteDesarmado Dim CvePSTemp As Integer = CvePaqueteDesarmado
Dim CveSeccionAlmacen As Integer = -1 Dim CveSeccionAlmacen As Integer = -1
Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePaqueteDesarmado).FiltroPrimero("") Dim Drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePaqueteDesarmado).FiltroPrimero("")
@@ -666,7 +666,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
End If End If
Next Next
Else Else
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, TxtCantidadDesarmado.Text.ToDouble, CveUMTemp, CvePSTemp, 0, CveSeccionAlmacen:=CveSeccionAlmacen) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, TxtCantidadDesarmado.Text.ToDecimal, CveUMTemp, CvePSTemp, 0, CveSeccionAlmacen:=CveSeccionAlmacen) Then
TieneError = True TieneError = True
MensajeError = "Ocurrió un error al guardar los movimientos de salida" MensajeError = "Ocurrió un error al guardar los movimientos de salida"
End If End If
@@ -697,7 +697,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
End If End If
Next Next
Else Else
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Gvr.DataKey("Cantidad").ToString.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.FCTextBox("TxtCosto").Text.ToDecimal, CveSeccionAlmacen:=CveSeccionAlmacen) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Gvr.DataKey("Cantidad").ToString.ToDecimal, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.FCTextBox("TxtCosto").Text.ToDecimal, CveSeccionAlmacen:=CveSeccionAlmacen) Then
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de entrada. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al guardar los detalles del movimiento de entrada. Por favor vuelva a intentar."
TieneError = True TieneError = True
Exit For Exit For
@@ -732,7 +732,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
Dim Concepto As String = "ARMPAQ2" Dim Concepto As String = "ARMPAQ2"
Dim CvePrePoliza = ObjConta.AddPrePolizas("ARMPAQ1/ARMPAQ2", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("ARMPAQ1/ARMPAQ2", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero 'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, ImportePrePoliza, 68, "ARMPAQ4", "ARMPAQ4", CveMovimientoAlmacen:=CveMovimientoEntrada, CveSubProyecto:=-1, Contabilizable:=True) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, ImportePrePoliza, 68, "ARMPAQ4", "ARMPAQ4", CveMovimientoAlmacen:=CveMovimientoEntrada, CveSubProyecto:=-1, Contabilizable:=True) Then

45
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -509,7 +509,7 @@ Partial Class Inventarios_RecepcionUsados
AddNew(CvePS, CodigoPS, CveUM, UnidaMedida, Cantidad, PU, "", "-1", "-1", "-1", "", "", -1, "", "", CveTamanio) AddNew(CvePS, CodigoPS, CveUM, UnidaMedida, Cantidad, PU, "", "-1", "-1", "-1", "", "", -1, "", "", CveTamanio)
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
CreaRemisionNC(CveCliente, CveSubProyecto, 1) CreaRemisionNC(CveCliente, CveSubProyecto, 1)
@@ -858,7 +858,7 @@ Partial Class Inventarios_RecepcionUsados
Dim Inv As New ClsInventarios Dim Inv As New ClsInventarios
Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL()) Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL())
Dim TieneError = False Dim TieneError As Boolean = False
Dim ObjConta As ClsContPAQi = Nothing Dim ObjConta As ClsContPAQi = Nothing
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
@@ -1202,7 +1202,7 @@ Partial Class Inventarios_RecepcionUsados
If Me.CveRemisionRecibida <= 0 Then 'EsDistribuidor AndAlso , comentado, 2020.04.21 RMF If Me.CveRemisionRecibida <= 0 Then 'EsDistribuidor AndAlso , comentado, 2020.04.21 RMF
GenerarRNC = True GenerarRNC = True
Dim CveCliente As Integer = DdlClientes.SelectedValue.ToEntero() Dim CveCliente As Integer = DdlClientes.SelectedValue.ToEntero()
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
CreaRemisionNC(CveCliente, CveSubProyecto, 1) CreaRemisionNC(CveCliente, CveSubProyecto, 1)
End If End If
@@ -1245,9 +1245,7 @@ Partial Class Inventarios_RecepcionUsados
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))
'cuando es APH
Dim tFolio As Integer = -1 Dim tFolio As Integer = -1
If UsuarioActual.CveEmpresa = 48 And EsConsumoInterno = False Then tFolio = TxtFolio.Text.ToEntero
If Not tFolio > 0 Then If Not tFolio > 0 Then
tFolio = If(TxtFolio.Text.ToEntero <> FolioAsignado, TxtFolio.Text.ToEntero, -1) tFolio = If(TxtFolio.Text.ToEntero <> FolioAsignado, TxtFolio.Text.ToEntero, -1)
End If End If
@@ -1474,7 +1472,7 @@ Partial Class Inventarios_RecepcionUsados
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Inventarios/RecepcionUsados-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
Correcto = False Correcto = False
End If End If
End If End If
@@ -1581,7 +1579,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
'Dim filtro As String = "" 'Dim filtro As String = ""
Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero Dim CveTipoAlmacen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
'filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)") 'filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)")
@@ -1673,7 +1671,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
Dim Total = DtTemp.SUM("Total") Dim Total As Decimal = DtTemp.SUMD("Total")
TxtTotal.Text = Total.FormatoNumero(2) TxtTotal.Text = Total.FormatoNumero(2)
End If End If
@@ -1855,7 +1853,7 @@ Partial Class Inventarios_RecepcionUsados
'AGREGA 'AGREGA
Dim Dr = DtBitacora.NewRow Dim Dr As DataRow = DtBitacora.NewRow
Dr("FechaIng") = NowADS() Dr("FechaIng") = NowADS()
Dr("FechaInicio") = "" Dr("FechaInicio") = ""
Dr("Usuario") = UsuarioActual.Usuario Dr("Usuario") = UsuarioActual.Usuario
@@ -1885,7 +1883,7 @@ Partial Class Inventarios_RecepcionUsados
UPEventoBitacora.Update() UPEventoBitacora.Update()
End Sub End Sub
Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
Dim Retorno = False Dim Retorno As Boolean = False
Dim Archivo As System.IO.FileInfo = Nothing Dim Archivo As System.IO.FileInfo = Nothing
For Each Dr As DataRow In DtBitacora.Rows For Each Dr As DataRow In DtBitacora.Rows
@@ -2014,7 +2012,7 @@ Partial Class Inventarios_RecepcionUsados
End Sub End Sub
Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True) Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True)
If DdlClientes.SelectedValue.ToEntero > 0 Then If DdlClientes.SelectedValue.ToEntero > 0 Then
Dim strDistribuidor = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", "") Dim strDistribuidor As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", "")
If String.IsNullOrEmpty(strDistribuidor) Then If String.IsNullOrEmpty(strDistribuidor) Then
strDistribuidor = "False" strDistribuidor = "False"
End If End If
@@ -2101,7 +2099,7 @@ Partial Class Inventarios_RecepcionUsados
If tmpCostos.Rows.Count > 0 Then If tmpCostos.Rows.Count > 0 Then
Dim Concepto As String = $" {TxtObservaciones.Text}" Dim Concepto As String = $" {TxtObservaciones.Text}"
Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, $"F: {HplVenta.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, $"F: {HplVenta.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If HdnCveOrdenCompra.Value.ToEntero > 0 Then If HdnCveOrdenCompra.Value.ToEntero > 0 Then
MovAlmacen = False MovAlmacen = False
@@ -2318,7 +2316,7 @@ Partial Class Inventarios_RecepcionUsados
If CveCliente > 0 Then If CveCliente > 0 Then
DivCliente.Visible = True DivCliente.Visible = True
Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial") Dim Cliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial")
DdlClientes.SelectedValue = CveCliente.ToString() DdlClientes.SelectedValue = CveCliente.ToString()
DdlClientes.SelectedText = Cliente DdlClientes.SelectedText = Cliente
@@ -2350,9 +2348,8 @@ Partial Class Inventarios_RecepcionUsados
'DivRecepcionApartado.Visible = True 'DivRecepcionApartado.Visible = True
For Each RowUsado As DataRow In DtUsados.Rows For Each RowUsado As DataRow In DtUsados.Rows
Dim CvePS = RowUsado("CvePS").ToString().ToEntero() Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
Dim RowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
Dim CveTamaño As Integer = RowPS("CveTamaño").ToString().ToEntero() Dim CveTamaño As Integer = RowPS("CveTamaño").ToString().ToEntero()
Dim PS As String = RowPS("PS").ToString() Dim PS As String = RowPS("PS").ToString()
@@ -2361,7 +2358,7 @@ Partial Class Inventarios_RecepcionUsados
Dim Cantidad As Double = RowUsado("Cantidad").ToString().ToEntero() Dim Cantidad As Double = RowUsado("Cantidad").ToString().ToEntero()
Dim PU As Double = RowUsado("PU").ToString().ToDouble() Dim PU As Double = RowUsado("PU").ToString().ToDouble()
Dim CveVentaDetalle = RowUsado("CveVentaDetalle").ToString().ToEntero() Dim CveVentaDetalle As Integer = RowUsado("CveVentaDetalle").ToString().ToEntero()
AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle) AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle)
@@ -2466,7 +2463,7 @@ Partial Class Inventarios_RecepcionUsados
Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33 Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33
If GlobalDTMetodosPago IsNot Nothing Then If GlobalDTMetodosPago IsNot Nothing Then
Dim DtMetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33)) Dim DtMetodoPago As DataTable = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
If DtMetodoPago IsNot Nothing Then If DtMetodoPago IsNot Nothing Then
@@ -2649,7 +2646,7 @@ Partial Class Inventarios_RecepcionUsados
End Function End Function
Protected Function CreaDTDetalleRNC() As DataTable Protected Function CreaDTDetalleRNC() As DataTable
Dim TmpDT = New DataTable Dim TmpDT As New DataTable
TmpDT.Columns.Add("CveVenta", GetType(Integer)) TmpDT.Columns.Add("CveVenta", GetType(Integer))
TmpDT.Columns.Add("Consec", GetType(Integer)) TmpDT.Columns.Add("Consec", GetType(Integer))
TmpDT.Columns.Add("Cantidad", GetType(Decimal)) TmpDT.Columns.Add("Cantidad", GetType(Decimal))
@@ -2990,7 +2987,7 @@ Partial Class Inventarios_RecepcionUsados
DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0")) DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
End If End If
Dim Arr = PS.Split("-"c) Dim Arr As String() = PS.Split("-"c)
If Arr.Count > 1 Then If Arr.Count > 1 Then
If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then
DdlBCIAjuste.SelectedValueExist(DdlBCIAjuste.Items.FindByText(Arr(1).ToString).Value) DdlBCIAjuste.SelectedValueExist(DdlBCIAjuste.Items.FindByText(Arr(1).ToString).Value)
@@ -3007,7 +3004,7 @@ Partial Class Inventarios_RecepcionUsados
Exit Sub Exit Sub
End If End If
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es 10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es 10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
@@ -3102,7 +3099,7 @@ Partial Class Inventarios_RecepcionUsados
DdlFolioGarantia.Items.Clear() DdlFolioGarantia.Items.Clear()
If DdlAlmacen.SelectedValue.ToEntero() > 0 Then If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero() Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then
DdlFolioGarantia.DataSource = ObjAcum.DtResultados DdlFolioGarantia.DataSource = ObjAcum.DtResultados
@@ -3452,7 +3449,7 @@ Partial Class Inventarios_RecepcionUsados
Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
Else Else
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero()}") Dim CveSubProyecto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero()}")
Objeto.Attributes.Add("data-cvesubproyecto", CveSubProyecto) Objeto.Attributes.Add("data-cvesubproyecto", CveSubProyecto)
'Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString) 'Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
@@ -3480,7 +3477,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}//{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri As String = String.Format("{0}//{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim DtDatos As New DataTable Dim DtDatos As New DataTable
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)

14
Inventarios/RepApartados.aspx.vb
View File

@@ -160,7 +160,7 @@ Partial Class Inventarios_RepApartados
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim CveAlmacenApartado = -1 Dim CveAlmacenApartado As Integer = -1
If DdlSubProyectos.SelectedValue.ToEntero > 0 Then If DdlSubProyectos.SelectedValue.ToEntero > 0 Then
CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) And Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectos.SelectedValue.ToEntero}").ToEntero CveAlmacenApartado = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen IN (9) And Estatus = 'Activo' And CveSubProyecto = {DdlSubProyectos.SelectedValue.ToEntero}").ToEntero
If CveAlmacenApartado <= 0 Then If CveAlmacenApartado <= 0 Then
@@ -222,7 +222,7 @@ Partial Class Inventarios_RepApartados
If DdlPS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Producto/Servicio:</b> {0}", DdlPS.SelectedText) If DdlPS.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Producto/Servicio:</b> {0}", DdlPS.SelectedText)
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -298,7 +298,7 @@ Partial Class Inventarios_RepApartados
End If End If
DtPSTraspasar.Dispose() DtPSTraspasar.Dispose()
Dim MovSalida = GenerarMovimientoAlmacen(CveAlmacenApartado, 8, Row("CveVendedor").ToString().ToEntero(), Row("CveCliente").ToString().ToEntero(), -1, TxtObs.Text.Trim(), DtDetalleTraspasar, ObjInventario, "RepApar/1") Dim MovSalida As MMovimientoAlmacen = GenerarMovimientoAlmacen(CveAlmacenApartado, 8, Row("CveVendedor").ToString().ToEntero(), Row("CveCliente").ToString().ToEntero(), -1, TxtObs.Text.Trim(), DtDetalleTraspasar, ObjInventario, "RepApar/1")
DtDetalleTraspasar.Dispose() DtDetalleTraspasar.Dispose()
@@ -308,7 +308,7 @@ Partial Class Inventarios_RepApartados
SalidasAlmacen.Add(MovSalida) SalidasAlmacen.Add(MovSalida)
Dim MovEntrada = GenerarMovimientoAlmacen(CveAlmacenApartado, 9, UsuarioActual.CveVendedor, CveClienteTraspasar, MovSalida.CveMovimiento, TxtObs.Text.Trim(), Nothing, ObjInventario, "RepApar/2") Dim MovEntrada As MMovimientoAlmacen = GenerarMovimientoAlmacen(CveAlmacenApartado, 9, UsuarioActual.CveVendedor, CveClienteTraspasar, MovSalida.CveMovimiento, TxtObs.Text.Trim(), Nothing, ObjInventario, "RepApar/2")
ErrorMovInv = MovEntrada.CveMovimiento <= 0 ErrorMovInv = MovEntrada.CveMovimiento <= 0
@@ -328,12 +328,12 @@ Partial Class Inventarios_RepApartados
If Not ErrorMovInv Then If Not ErrorMovInv Then
Mensaje.Append("Se realizó con éxito el traspaso.") Mensaje.Append("Se realizó con éxito el traspaso.")
For Each MovSalida In SalidasAlmacen For Each MovSalida As MMovimientoAlmacen In SalidasAlmacen
Mensaje.AppendFormat("<br/><br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", MovSalida.Folio, MovSalida.CveMovimiento) Mensaje.AppendFormat("<br/><br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", MovSalida.Folio, MovSalida.CveMovimiento)
Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", MovSalida.CveMovimiento))) Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", MovSalida.CveMovimiento)))
Next Next
For Each MovEntrada In EntradasAlmacen For Each MovEntrada As MMovimientoAlmacen In EntradasAlmacen
Mensaje.AppendFormat("<br/><br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", MovEntrada.Folio, MovEntrada.CveMovimiento) Mensaje.AppendFormat("<br/><br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", MovEntrada.Folio, MovEntrada.CveMovimiento)
Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", MovEntrada.CveMovimiento))) Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", MovEntrada.CveMovimiento)))
Next Next
@@ -457,7 +457,7 @@ Partial Class Inventarios_RepApartados
If Not ErrorMovInv AndAlso DtMovimientoDetalle IsNot Nothing Then If Not ErrorMovInv AndAlso DtMovimientoDetalle IsNot Nothing Then
For Each Dr As DataRow In DtMovimientoDetalle.Rows For Each Dr As DataRow In DtMovimientoDetalle.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString().ToEntero(), Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString().ToEntero(), Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero) Then
ErrorMovInv = True ErrorMovInv = True
Exit For Exit For
End If End If

12
Inventarios/RepMaximoMinimo.aspx.vb
View File

@@ -211,11 +211,11 @@ Partial Class Inventarios_RepMaximoMinimo
Using ObjInventario As New ClsInventarios Using ObjInventario As New ClsInventarios
If HFDefinir.Value = "I" Then If HFDefinir.Value = "I" Then
If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDecimal, TxtMinimo.Text.ToDecimal, UsuarioActual.CveUsuario) Then
Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion) Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
End If End If
ElseIf HFDefinir.Value = "U" Then ElseIf HFDefinir.Value = "U" Then
If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDecimal, TxtMinimo.Text.ToDecimal, UsuarioActual.CveUsuario) Then
Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion) Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
@@ -276,7 +276,7 @@ Partial Class Inventarios_RepMaximoMinimo
If ObjDatos.DtResultados.Rows.Count > 0 Then If ObjDatos.DtResultados.Rows.Count > 0 Then
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim dt As DataTable = ObjDatos.DtResultados Dim dt As DataTable = ObjDatos.DtResultados
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.SelectedItem.Text)) params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.SelectedItem.Text))
@@ -304,7 +304,7 @@ Partial Class Inventarios_RepMaximoMinimo
If DTOCDetalle.Rows.Count > 0 Then If DTOCDetalle.Rows.Count > 0 Then
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim dt As DataTable = DTOCDetalle Dim dt As DataTable = DTOCDetalle
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
@@ -394,9 +394,9 @@ Partial Class Inventarios_RepMaximoMinimo
For Each drow As DataRow In DTEXcel.Select("CvePS>0 AND CveAlmacen >0") For Each drow As DataRow In DTEXcel.Select("CvePS>0 AND CveAlmacen >0")
If continuar Then If continuar Then
If IsNothing(DtResultados.FiltroPrimero(String.Format("CveAlmacen={0} AND CvePS={1}", drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero()))) Then If IsNothing(DtResultados.FiltroPrimero(String.Format("CveAlmacen={0} AND CvePS={1}", drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero()))) Then
continuar = ObjMaxMin.AddAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario) continuar = ObjMaxMin.AddAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDecimal(), drow("Minimo").ToString().ToDecimal(), UsuarioActual.CveUsuario)
Else Else
continuar = ObjMaxMin.UpdateAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDouble(), drow("Minimo").ToString().ToDouble(), UsuarioActual.CveUsuario) continuar = ObjMaxMin.UpdateAlmacenMaximoMinimo(drow("CveAlmacen").ToString().ToEntero(), drow("CvePS").ToString().ToEntero(), drow("Maximo").ToString().ToDecimal(), drow("Minimo").ToString().ToDecimal(), UsuarioActual.CveUsuario)
End If End If
End If End If
Next Next

36
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -827,7 +827,7 @@ Partial Class Inventarios_ResguardoMaterial
Exit Sub Exit Sub
End If End If
Dim TieneError = True Dim TieneError As Boolean = True
Dim TotalCantidad As Decimal = 0 Dim TotalCantidad As Decimal = 0
For Each Gvr As GridViewRow In GvMLiberacion.Rows For Each Gvr As GridViewRow In GvMLiberacion.Rows
If Gvr.FCTextBox("TxtCantidad").Text.ToDecimal > 0 Then If Gvr.FCTextBox("TxtCantidad").Text.ToDecimal > 0 Then
@@ -852,28 +852,28 @@ Partial Class Inventarios_ResguardoMaterial
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL()) 'Inicia la transacción Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL()) 'Inicia la transacción
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
Dim TieneError = False Dim TieneError As Boolean = False
Dim MensajeError As String = "" Dim MensajeError As String = ""
Dim ImporteConcepto = 0.0 Dim ImporteConcepto As Decimal = 0
Dim CveMovimientoSalida = 0 Dim CveMovimientoSalida As Integer = 0
Dim FolioSalida = 0 Dim FolioSalida As Integer = 0
Dim CveMovimientoEntrada = 0 Dim CveMovimientoEntrada As Integer = 0
Dim FolioEntrada = 0 Dim FolioEntrada As Integer = 0
'Para Campos Nuevos AF y OC 'Para Campos Nuevos AF y OC
Dim SubProyecto = -1 Dim SubProyecto As Integer = -1
Dim ActivoFijo = -1 Dim ActivoFijo As Integer = -1
Dim CveProveedor = -1 Dim CveProveedor As Integer = -1
Dim CveCliente = -1 Dim CveCliente As Integer = -1
Dim CvePersonal = -1 Dim CvePersonal As Integer = -1
If RbTipoCliente.Checked Then CveCliente = DdlCliente.SelectedValue.ToEntero If RbTipoCliente.Checked Then CveCliente = DdlCliente.SelectedValue.ToEntero
If RbTipoProveedor.Checked Then CveProveedor = DdlProveedor.SelectedValue.ToEntero If RbTipoProveedor.Checked Then CveProveedor = DdlProveedor.SelectedValue.ToEntero
If RbTipoPersonal.Checked Then CvePersonal = DdlPersonal.SelectedValue.ToEntero If RbTipoPersonal.Checked Then CvePersonal = DdlPersonal.SelectedValue.ToEntero
Dim Fecha = If(Concepto = 23, TxtFecha.Text.ToDate, FechaLiberacion.ToDate) Dim Fecha As Date = If(Concepto = 23, TxtFecha.Text.ToDate, FechaLiberacion.ToDate)
Select Case (Concepto) Select Case (Concepto)
Case 23 ' Resguardo Case 23 ' Resguardo
@@ -890,7 +890,7 @@ Partial Class Inventarios_ResguardoMaterial
Dim Cont As Integer = 0 Dim Cont As Integer = 0
For Each Dr As DataRow In DtMovimientos.Rows For Each Dr As DataRow In DtMovimientos.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0,
-1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString,
FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString) Then FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString) Then
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
@@ -920,7 +920,7 @@ Partial Class Inventarios_ResguardoMaterial
Else Else
CveSeccionAlmacen = -1 CveSeccionAlmacen = -1
End If End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate,
Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
TieneError = True TieneError = True
@@ -963,7 +963,7 @@ Partial Class Inventarios_ResguardoMaterial
'If Gvr.datakey("FechaCaducidad").todate > MinFecha Then FechaCaducidad = Gvr.datakey("FechaCaducidad").todate 'If Gvr.datakey("FechaCaducidad").todate > MinFecha Then FechaCaducidad = Gvr.datakey("FechaCaducidad").todate
If Gvr.FCTextBox("TxtCaducidad").Text.ToDate > MinFecha Then FechaCaducidad = Gvr.FCTextBox("TxtCaducidad").Text.ToDate If Gvr.FCTextBox("TxtCaducidad").Text.ToDate > MinFecha Then FechaCaducidad = Gvr.FCTextBox("TxtCaducidad").Text.ToDate
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Gvr.DataKey("Observaciones").ToString, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").toentero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Gvr.DataKey("Observaciones").ToString, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").ToEntero) Then
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
TieneError = True TieneError = True
Exit For Exit For
@@ -996,8 +996,8 @@ Partial Class Inventarios_ResguardoMaterial
Dim Lote As String = "-1" Dim Lote As String = "-1"
Dim FechaCaducidad As Date = MinFecha Dim FechaCaducidad As Date = MinFecha
If DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString <> "" Then Lote = DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString If DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString <> "" Then Lote = DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString
If DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.todate > MinFecha Then FechaCaducidad = DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.todate If DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.todate > MinFecha Then FechaCaducidad = DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToDate
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Dr("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Dr("Observaciones").ToString) Then
TieneError = True TieneError = True
MensajeError = "Ocurrió un error al guardar los movimientos de entrada" MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For

2
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -710,7 +710,7 @@ Partial Class Inventarios_TrasladoSolicitud
Estatus = 3 Estatus = 3
End If End If
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) Dim Folio As Integer = 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

46
OS/OrdenesServicios.aspx.vb
View File

@@ -517,7 +517,7 @@ Partial Class OS_OrdenesServicios
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjOS As New ClsOS() Dim ObjOS As New ClsOS()
Dim IDOSDetalle As Integer = 1 Dim IDOSDetalle As Integer = 1
Dim SeFacturara = "" Dim SeFacturara As String = ""
If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjOS.DtResultados.Rows.Count > 0 Then If ObjOS.DtResultados.Rows.Count > 0 Then
@@ -1666,7 +1666,7 @@ Partial Class OS_OrdenesServicios
If e.CommandName = "Estatus" Then If e.CommandName = "Estatus" Then
Dim objOrdenServicio As New ClsOS Dim objOrdenServicio As New ClsOS
Dim index = (e.CommandArgument).ToString.ToEntero Dim index As Integer = (e.CommandArgument).ToString.ToEntero
Dim gvr As GridViewRow = GvPS.Rows(index) Dim gvr As GridViewRow = GvPS.Rows(index)
Dim Consecutivo As Integer = gvr.FCLiteral("LtlConsecutivo").Text.ToEntero Dim Consecutivo As Integer = gvr.FCLiteral("LtlConsecutivo").Text.ToEntero
@@ -1697,7 +1697,7 @@ Partial Class OS_OrdenesServicios
DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC")) DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC"))
DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs) DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs)
Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";" Dim Liga As String = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
If objOrdenServicio.UpdateOrdenesServiciosEstatus(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC").ToEntero, UsuarioActual.CveUsuario, CveOS) Then If objOrdenServicio.UpdateOrdenesServiciosEstatus(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC").ToEntero, UsuarioActual.CveUsuario, CveOS) Then
Alert("Se cambió el Estatus de la Orden de Servicio", TipoMensaje.MsgInformacion, Liga) Alert("Se cambió el Estatus de la Orden de Servicio", TipoMensaje.MsgInformacion, Liga)
End If End If
@@ -1734,7 +1734,7 @@ Partial Class OS_OrdenesServicios
e.Row.FCLinkButton("imgComentario").OnClientClick = URL e.Row.FCLinkButton("imgComentario").OnClientClick = URL
'Cambia Estatus 'Cambia Estatus
Dim Estado = TmpDT(e.Row.RowIndex)("Estatus").ToString Dim Estado As String = TmpDT(e.Row.RowIndex)("Estatus").ToString
e.Row.FCLinkButton("imgEstatus").Attributes.Add("data-toggle", "confirmation") e.Row.FCLinkButton("imgEstatus").Attributes.Add("data-toggle", "confirmation")
If Estado = "False" Then If Estado = "False" Then
@@ -1777,7 +1777,7 @@ Partial Class OS_OrdenesServicios
End If End If
End Sub End Sub
Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting
Dim TieneError = False Dim TieneError As Boolean = False
Dim DbRow As DataRow = Nothing Dim DbRow As DataRow = Nothing
Dim ObjOS As New ClsOS Dim ObjOS As New ClsOS
ObjOS.IniciaTransacSQL() ObjOS.IniciaTransacSQL()
@@ -1957,7 +1957,7 @@ Partial Class OS_OrdenesServicios
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCuenta")) RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCuenta"))
End Sub End Sub
Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click
Dim TieneError = False Dim TieneError As Boolean = False
Dim objCuentasEquipos As New ClsGenerales() Dim objCuentasEquipos As New ClsGenerales()
objCuentasEquipos.IniciaTransacSQL() objCuentasEquipos.IniciaTransacSQL()
@@ -2364,7 +2364,7 @@ Partial Class OS_OrdenesServicios
Next Next
End If End If
Dim DR = TmpDT.Select($"Consecutivo = {CveConsecutivo}") Dim DR As DataRow() = TmpDT.Select($"Consecutivo = {CveConsecutivo}")
DR(0)("Materiales") = Materiales DR(0)("Materiales") = Materiales
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
@@ -2390,7 +2390,7 @@ Partial Class OS_OrdenesServicios
Dim CveTraspasoSolicitud As Integer = 0 Dim CveTraspasoSolicitud As Integer = 0
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim ErrorExistencia = False Dim ErrorExistencia As Boolean = False
Dim TextoExistencia As StringBuilder = New StringBuilder Dim TextoExistencia As StringBuilder = New StringBuilder
'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN 'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN
@@ -2468,7 +2468,7 @@ Partial Class OS_OrdenesServicios
Private Sub GvMaterialesModal_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMaterialesModal.RowDeleting Private Sub GvMaterialesModal_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMaterialesModal.RowDeleting
Dim ObjMateriales As New ClsOS Dim ObjMateriales As New ClsOS
Dim ObjInventario As New ClsInventarios(ObjMateriales.IniciaTransacSQL) Dim ObjInventario As New ClsInventarios(ObjMateriales.IniciaTransacSQL)
Dim TieneError = False Dim TieneError As Boolean = False
Dim DbRow As DataRow = Nothing Dim DbRow As DataRow = Nothing
Dim CveMaterial As Integer = GvMaterialesModal.Rows(e.RowIndex).DataKey("CveMaterial").ToEntero Dim CveMaterial As Integer = GvMaterialesModal.Rows(e.RowIndex).DataKey("CveMaterial").ToEntero
@@ -2478,24 +2478,24 @@ Partial Class OS_OrdenesServicios
If CveMaterial > 0 Then If CveMaterial > 0 Then
Dim CveMovimientoSalida = 0 Dim CveMovimientoSalida As Integer = 0
Dim CveMovimientoEntrada = 0 Dim CveMovimientoEntrada As Integer = 0
Dim CveMovimientoSalida2 = 0 Dim CveMovimientoSalida2 As Integer = 0
Dim CveMovimientoEntrada2 = 0 Dim CveMovimientoEntrada2 As Integer = 0
Dim CveMovimientoSalida3 = 0 Dim CveMovimientoSalida3 As Integer = 0
Dim CveMovimientoEntrada3 = 0 Dim CveMovimientoEntrada3 As Integer = 0
Dim AlmacenEntrada = -1 Dim AlmacenEntrada As Integer = -1
Dim FolioSalida = 0 Dim FolioSalida As Integer = 0
Dim FolioEntrada = 0 Dim FolioEntrada As Integer = 0
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim ErrorAC As Boolean = False Dim ErrorAC As Boolean = False
Dim ErrorExistencia = False Dim ErrorExistencia As Boolean = False
Dim TextoError = "" Dim TextoError As String = ""
Dim TextoExistencia As StringBuilder = New StringBuilder Dim TextoExistencia As StringBuilder = New StringBuilder
'Obtenemos los movimientos detalle 'Obtenemos los movimientos detalle
@@ -2521,7 +2521,7 @@ Partial Class OS_OrdenesServicios
If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
TieneError = True TieneError = True
TextoError = "Ocurrió un error al guardar los movimientos de entrada" TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For
@@ -2548,7 +2548,7 @@ Partial Class OS_OrdenesServicios
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada2, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada2, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
TieneError = True TieneError = True
TextoError = "Ocurrió un error al guardar los movimientos de entrada" TextoError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For
@@ -2576,8 +2576,6 @@ Partial Class OS_OrdenesServicios
End If End If
End If End If
End If End If
If Not TieneError Then If Not TieneError Then