-
Productos que Faltan:
+
+
Registros Productos que Faltan:
+
-
-
Productos que Sobran:
+
+
Registros Productos que Sobran:
+
-
-
Productos Coincidentes:
+
+
Registros Productos Coincidentes:
+
-
-
+
+
@@ -438,36 +462,42 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 59919c262..e3ec81c96 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -83,6 +83,14 @@ Partial Class Inventarios_RepAnomalias
Dim Inventario As New ClsInventarios
Dim dt As DataTable = Nothing
+
+ If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
+ GvF.Columns(2).Visible = True
+ GvS.Columns(2).Visible = True
+ GvC.Columns(2).Visible = True
+ GvGrupos.Columns(1).Visible = True
+ End If
+
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
lbTitulo.Text = Inventario.InventarioFisico
lbObservaciones.Text = Inventario.Observaciones
@@ -214,18 +222,21 @@ Partial Class Inventarios_RepAnomalias
GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
- GvS.DataBind()
BanderaSerieLoteCad(GvS, DtS)
+ GvS.DataBind()
+
GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
- GvF.DataBind()
BanderaSerieLoteCad(GvF, DtF)
+ GvF.DataBind()
+
Dim DtC As DataTable = dt.FiltraParametros("Diferencia = 0")
GvC.DataSource = DtC
- GvC.DataBind()
BanderaSerieLoteCad(GvC, DtC)
+ GvC.DataBind()
+
If (GvF.Rows.Count > 0) Then
@@ -263,6 +274,40 @@ Partial Class Inventarios_RepAnomalias
DVNormal.Visible = False
DVGrupos.Visible = True
+ If DdlGPO.SelectedValue.ToEntero = 2 Then
+ GvGrupos.Columns(4).Visible = False
+ GvGrupos.Columns(5).Visible = False
+ GvGrupos.Columns(6).Visible = False
+ GvGrupos.Columns(7).Visible = False
+ Else
+ GvGrupos.Columns(4).Visible = True
+ GvGrupos.Columns(5).Visible = True
+ GvGrupos.Columns(6).Visible = True
+ GvGrupos.Columns(7).Visible = True
+ End If
+
+ If DdlGPO.SelectedValue.ToEntero = 2 Then
+ LtlGrupos1.Visible = False
+ LtlGrupos2.Visible = False
+ LtlGrupos3.Visible = False
+
+ LblGrupos1.Visible = False
+ LblGrupos2.Visible = False
+ LblGrupos3.Visible = False
+
+ Else
+
+ LtlGrupos1.Visible = True
+ LtlGrupos2.Visible = True
+ LtlGrupos3.Visible = True
+
+ LblGrupos1.Visible = True
+ LblGrupos2.Visible = True
+ LblGrupos3.Visible = True
+
+ End If
+
+ UpGeneral.Update()
LnkPDF.Visible = False
ImgExcel.Visible = False
@@ -270,14 +315,17 @@ Partial Class Inventarios_RepAnomalias
ImgExcelProdcutosCoinciden.Visible = False
LnkDescarExcelGrupos.Visible = True
- GvGrupos.DataSource = dt
+ GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0")
GvGrupos.DataBind()
LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString
LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString
LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString
- PSIguales()
+ If DdlGPO.SelectedValue.ToEntero = 1 Then
+ PSIguales()
+ End If
+
End If
@@ -419,17 +467,39 @@ Partial Class Inventarios_RepAnomalias
End Function
Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
- GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
+
+
+ Dim GvTemp As GridView = GvF
+
+ For Each GvRow As GridViewRow In GvTemp.Rows
+ GvRow.BackColor = Drawing.ColorTranslator.FromHtml("#white")
+ Next
+
+ 'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
+ GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString)
End Sub
Private Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
- GvS.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
+ Dim GvTemp As GridView = GvS
+
+ For Each GvRow As GridViewRow In GvTemp.Rows
+ GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
+ Next
+
+ 'GvS.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
+ GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos que Sobran " & Now.ToShortDateString)
End Sub
Private Sub ImgExcelProdcutosCoinciden_Click(sender As Object, e As EventArgs) Handles ImgExcelProdcutosCoinciden.Click
- GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
+ Dim GvTemp As GridView = GvC
+
+ For Each GvRow As GridViewRow In GvTemp.Rows
+ GvRow.BackColor = Drawing.ColorTranslator.FromHtml("white")
+ Next
+ 'GvC.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
+ GvTemp.ExportToExcel("Reporte de Inventario Fisico - Productos Coincidentes " & Now.ToShortDateString)
End Sub
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index b32a1baa1..42864b36b 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1178,25 +1178,28 @@ Partial Class Inventarios_TraspasoAlmacen
If Not ErrorMovInv Then
If ChkEmitirTimbrado.Checked Then
+
Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL)
Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
- CveTimbre = ObjGral.AddGralTimbre("Tra", "-1", -1, "", MinFecha, -1, CveMovimientoSalida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveSubProyectoTimbre, -1, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDateTime)
+ Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, CveMovimientoSalida, -1, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, "T", -1)
- If CveTimbre > 0 Then
- SerieInsertadaTimbre = ObjGral.SerieInsertada
- FolioInsertadoTimbre = ObjGral.FolioInsertado
+ If CveEntregaAlmacen > 0 Then
+ CveTimbre = ObjGral.AddGralTimbre("Tra", "-1", -1, "", MinFecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, CveSubProyectoTimbre)
+
+ If CveTimbre > 0 Then
+ SerieInsertadaTimbre = ObjGral.SerieInsertada
+ FolioInsertadoTimbre = ObjGral.FolioInsertado
+ Else
+ ErrorMovInv = True
+ End If
Else
ErrorMovInv = True
End If
End If
-
-
End If
-
-
If Not ErrorMovInv Then
DtTraslado = DtMovimientos.Copy
@@ -1218,7 +1221,7 @@ Partial Class Inventarios_TraspasoAlmacen
If ChkEmitirTimbrado.Checked Then
CveMovimientoTimbrado = CveMovimientoSalida
- Timbrar(CveTimbre, CveMovimientoTimbrado)
+ 'Timbrar(CveTimbre, CveMovimientoTimbrado)
End If
Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")
@@ -3499,7 +3502,7 @@ Partial Class Timbres
Public Property MsgError As StringBuilder
Public Property MensajeAlert As StringBuilder
- Private Property CvePaqueteriaGuia As Integer
+
Private Property CveMovimiento As Integer
Private Property UsuarioActual As Usuario
Private Property AplicaCP As Boolean
@@ -3996,7 +3999,7 @@ Partial Class Timbres
Respuesta = True
Dim objGrales As New ClsGenerales
- If Not objGrales.UpdateGralTimbre(CveTimbre, "-1", "-1", -1, ObjTimbrado.UUID, Now, CvePaqueteriaGuia, CveMovimiento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, UsuarioActual.Empresa.CvePAC, -1, New Date(1900, 1, 1), AplicaCP, -1, -1, -1, -1, -1) Then
+ If Not objGrales.UpdateGralTimbre(CveTimbre, "-1", "-1", -1, ObjTimbrado.UUID, Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, UsuarioActual.Empresa.CvePAC, -1, New Date(1900, 1, 1), AplicaCP, "-1") Then
GuardaLogAD($"Error no se actualizo registro de timbre {CveTimbre} ")
End If
objGrales.Dispose()
@@ -4068,15 +4071,13 @@ Partial Class Timbres
If CveTimbre > 0 Then
- If ObjGrales.GetGralTimbre(CveTimbre, "-1", "-1", -1, FI, FF, 0, UsuarioActual.CveEmpresa, -1, -1) Then
+ If ObjGrales.GetGralTimbre(CveTimbre, "-1", "-1", -1, FI, FF, 0, UsuarioActual.CveEmpresa, -1) Then
If ObjGrales.DtResultados.Rows.Count = 1 Then
CveMovimiento = ObjGrales.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero
- CvePaqueteriaGuia = ObjGrales.DtResultados.Rows(0)("Folio").ToString.ToEntero
-
FechaEntrega = ObjGrales.DtResultados.Rows(0)("FechaEntrega").ToString.ToDate
Serie = ObjGrales.DtResultados.Rows(0)("Serie").ToString