From 8e5181f73eb8b8a08282a476343fabb0bbeacf32 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 8 Aug 2020 10:08:45 -0700 Subject: [PATCH 1/4] - --- .../Grales/Formatos/RepPaqueteriasGuias.rdlc | 298 +----- General/RepPaqueteriasGuias.aspx.cs | 18 +- Inventarios/EntregaAlmacen.aspx.vb | 892 +++++++++--------- 3 files changed, 492 insertions(+), 716 deletions(-) diff --git a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc index ed799ade7..18eb39b46 100644 --- a/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc +++ b/Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc @@ -12,13 +12,13 @@ 2.2618cm - 2.38704cm + 1.66778cm - 2.96454cm + 6.13244cm - 4.68704cm + 2.12058cm 2.88704cm @@ -550,7 +550,7 @@ 0.14111cm 0.01325cm 0.84438cm - 20.68675cm + 20.56895cm @@ -564,7 +564,7 @@ 8.23098in - 3.71891cm + 3.99542cm true true @@ -609,7 +609,7 @@ - REPORTE DE PAQUETERÍAS GUÍAS + Reporte de Envíos - - true - true - - - - - Sucursal: - HTML - - - - - HTML - - - - =Parameters!Sucursal.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - 3.625cm + 3.9425cm 0cm 20.90669cm - 4 + 3 - + true true - Estatus: + =Parameters!Filtros.Value HTML - - - - HTML - - - - =Parameters!Estatus.Value - HTML - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Paquetería: - HTML - - - - - HTML - - - - =Parameters!Paqueteria.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Inicial: - HTML - - - - - HTML - - - - =Parameters!FechaInicio.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Final: - HTML - - - - - HTML - - - - =Parameters!FechaFin.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario Entrego: - - - - =Parameters!FiltroUsuario.Value - - - - @@ -1338,6 +1090,24 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + Cm 1d5d9525-4bdd-4783-9df6-cce93069c30f diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index 5a4109349..ebb868210 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -285,12 +285,12 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas { if (UsuarioActual.CveRol == 1339) { - DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0}", UsuarioActual.CveRol)); + DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0} AND Estatus = 1", UsuarioActual.CveRol), "Nombre"); DdlUsuarios.DataBind(); } else { - DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); + DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre"); DdlUsuarios.DataBind(); DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1")); } @@ -877,14 +877,20 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas @params.Add(new ReportParameter("FechaInicio", FechaInicio)); @params.Add(new ReportParameter("FechaFin", FechaFinal)); - //@params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio)); - //@params.Add(new ReportParameter("FechaIngFin", FechIngaFinal)); + @params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio)); + @params.Add(new ReportParameter("FechaIngFin", FechIngaFinal)); + @params.Add(new ReportParameter("Orden", DdlFiltro.SelectedItem.Text)); + @params.Add(new ReportParameter("EntregasDirectas", (ChkLote.Checked?"Solo entregas directas":"Entregas directas y por paquetería"))); @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); - @params.Add(new ReportParameter("Filtros", String.Format(" Sucursal: {0}  Estatus: {1}  Paquetería: {2}
Fecha Inicio: {3}  Fecha Fin: {4}", Sucursal, Estatus, Paqueteria, FechaInicio, FechaFinal))); + string Usuario = DdlUsuarios.SelectedValue == "-1" ? "No especificado" : DdlUsuarios.SelectedItem.Text; + + string FechasIngF = TxtFechaFinalIngreso.Text.Length > 0 ? string.Format("   < b > F.I.Ingreso: {0}", TxtFechaFinalIngreso.Text) : ""; + string FechasIngI = TxtFechaInicialIngreso.Text.Length > 0 ? string.Format("   < b > F.I.Ingreso: {0}", TxtFechaInicialIngreso.Text) : ""; + @params.Add(new ReportParameter("Filtros", String.Format(" Sucursal: {0}  Estatus: {1}  Paquetería: {2}  Tipo: {3}
Fecha Inicio: {4}  Fecha Fin: {5}{6}{7}  Usuario Entregó: {8}  Entregas: {9}", Sucursal, Estatus, Paqueteria, DdlTipo.SelectedItem.Text, FechaInicio, FechaFinal, FechasIngI, FechasIngF, Usuario, (ChkLote.Checked ? "Solo entregas directas" : "Entregas directas y por paquetería")))); + @params.Add(new ReportParameter("FiltroTipoPaqueteria", DdlTipo.SelectedItem.Text)); - string Usuario = DdlUsuarios.SelectedValue == "-1" ? "" : DdlUsuarios.SelectedItem.Text; @params.Add(new ReportParameter("FiltroUsuario", Usuario)); if (Imagen.Exists) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 74aac45cc..093b01a9f 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2,16 +2,16 @@ Option Explicit On Imports System.Data -Imports System.Data.Entity.Core.Common.CommandTrees +Imports System.Data.Entity.Core.Common.CommandTrees Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms -Imports Stimulsoft.Base.Indicator - +Imports Stimulsoft.Base.Indicator + Partial Class Inventarios_EntregaAlmacen - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "PROPIEDADES" Private Property CveVentaAD As Integer Get @@ -245,18 +245,18 @@ Partial Class Inventarios_EntregaAlmacen Set(value As Boolean) ViewState("EsDevolucionDirecta") = value End Set - End Property - Private Property FormaPaqueteria As Integer - Get - Return CType(ViewState("FormaPaqueteria"), Integer) - End Get - Set(value As Integer) - ViewState("FormaPaqueteria") = value - End Set - End Property - + End Property + Private Property FormaPaqueteria As Integer + Get + Return CType(ViewState("FormaPaqueteria"), Integer) + End Get + Set(value As Integer) + ViewState("FormaPaqueteria") = value + End Set + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -264,9 +264,9 @@ Partial Class Inventarios_EntregaAlmacen CargaParametrosAD() If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True End If - End Sub - - + End Sub + + #Region " INICIALIZA VALORES " Private Sub InicializaValores() TipoEstatus = -1 @@ -334,11 +334,11 @@ Partial Class Inventarios_EntregaAlmacen LimpiaCampos() - End Sub - + End Sub + #End Region - - + + #Region " CARGA PARAMETROS - EXCLUSIVO USO AD " Private Sub CargaParametrosAD() @@ -356,9 +356,9 @@ Partial Class Inventarios_EntregaAlmacen BtnGuardar.Visible = False End If - End Sub + End Sub #End Region - + #Region " CARGA PENDIENTES POR SURTIR " Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs) CargaFolios() @@ -476,11 +476,11 @@ Partial Class Inventarios_EntregaAlmacen End Select UpPendientes.Update() End If - End Sub - + End Sub + #End Region - - + + #Region " CARGA VENTA POR SURTIR " Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs) @@ -624,24 +624,24 @@ Partial Class Inventarios_EntregaAlmacen DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double)) End If - If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then - FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero - Dim FormaPaq As Integer = FormaPaqueteria - RbSinEntrega.Checked = False - RbEntregaInterna.Checked = False - RbEntregaExterna.Checked = False - Select Case FormaPaq - Case 1 - RbSinEntrega.Checked = True - LnkPaqueteriaDetalle.Visible = False - Case 2 - RbEntregaInterna.Checked = True - 'LnkPaqueteriaDetalle.Visible = True - DdlEstatus.SelectedValue = "5" - Case 3 - RbEntregaExterna.Checked = True - LnkPaqueteriaDetalle.Visible = True - End Select + If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then + FormaPaqueteria = DtDatos.Rows(0)("FormaPaqueteria").ToString.ToEntero + Dim FormaPaq As Integer = FormaPaqueteria + RbSinEntrega.Checked = False + RbEntregaInterna.Checked = False + RbEntregaExterna.Checked = False + Select Case FormaPaq + Case 1 + RbSinEntrega.Checked = True + LnkPaqueteriaDetalle.Visible = False + Case 2 + RbEntregaInterna.Checked = True + 'LnkPaqueteriaDetalle.Visible = True + DdlEstatus.SelectedValue = "5" + Case 3 + RbEntregaExterna.Checked = True + LnkPaqueteriaDetalle.Visible = True + End Select End If 'TxtFecha.Text = If(EsDevolucionVenta = 1, Now.ToShortDateString, DtDatos.Rows(0)("Fecha").ToString) End If @@ -828,8 +828,8 @@ Partial Class Inventarios_EntregaAlmacen If AplicaSeccion Then GvDatos.Columns(7).Visible = True If AplicaLote Then GvDatos.Columns(8).Visible = True - If AplicaCaducidad Then GvDatos.Columns(9).Visible = True - + If AplicaCaducidad Then GvDatos.Columns(9).Visible = True + End If GvDatos.DataSource = DtDatos @@ -891,10 +891,10 @@ Partial Class Inventarios_EntregaAlmacen 'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero) 'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt 'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind() - 'If dtt.Rows.Count > 1 Then - ' e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) - 'End If - 'dtt.Dispose() + 'If dtt.Rows.Count > 1 Then + ' e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) + 'End If + 'dtt.Dispose() End If Else @@ -955,14 +955,14 @@ Partial Class Inventarios_EntregaAlmacen End If objInv.Dispose() GvDocs.DataBind() - End Sub - - + End Sub + + #End Region - - + + #Region " AGREGAR " - + Protected Sub BtnSerie_Click(sender As Object, e As EventArgs) Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c) @@ -989,10 +989,10 @@ Partial Class Inventarios_EntregaAlmacen UpLoteBatch.Update() End If - End Sub - + End Sub + #Region " AGREGA POR SERIE/LOTE " - + Private Sub CreaDtDetalle() If DtDatosDetalle Is Nothing Then DtDatosDetalle = New DataTable @@ -1197,11 +1197,11 @@ Partial Class Inventarios_EntregaAlmacen DtDatosDetalle.AcceptChanges() CargaSerie() - End Sub + End Sub #End Region - + #Region " AGREGA CON LOTE BATCH " - + Private Sub CreaDtDetalleLote() If DtDatosDetalleLote Is Nothing Then DtDatosDetalleLote = New DataTable @@ -1389,9 +1389,9 @@ Partial Class Inventarios_EntregaAlmacen End Try DtDatosDetalleLote.AcceptChanges() CargaLote() - End Sub + End Sub #End Region - + #Region " AGREGA CON TXT | CODIGO - SERIE " Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs) @@ -1525,12 +1525,12 @@ Partial Class Inventarios_EntregaAlmacen End If TxtCantidadEspecialDiv.Text = "1" - End Sub + End Sub #End Region - + #End Region - - + + #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) @@ -1695,15 +1695,15 @@ Partial Class Inventarios_EntregaAlmacen DtTraspasos.Columns.Add("CveTipoAlmacen", GetType(Integer)) DtTraspasos.Columns.Add("CveConceptoMovimientoSalida", GetType(Integer)) - Dim CveMovimientoSalida = -1, FolioSalida = -1, CveMovimientoEntrada = -1, CveMovimientoEntradaApartado = -1, FolioEntrada = -1, CveMovimientoSalidaDevRem = -1, FolioMovimientoSalidaDevRem = -1, CveMovimientoEntradaDevRem = -1, FolioMovimientoEntradaDevRem = -1 - - - Dim DtDevSinCosto As New DataTable - DtDevSinCosto.Columns.Add("CveAlmacen", GetType(Integer)) - DtDevSinCosto.Columns.Add("Almacen", GetType(String)) - DtDevSinCosto.Columns.Add("CveMovimientoEntrada", GetType(Integer)) - DtDevSinCosto.Columns.Add("FolioEntrada", GetType(Integer)) - DtDevSinCosto.Columns.Add("CveTipoAlmacen", GetType(Integer)) + Dim CveMovimientoSalida = -1, FolioSalida = -1, CveMovimientoEntrada = -1, CveMovimientoEntradaApartado = -1, FolioEntrada = -1, CveMovimientoSalidaDevRem = -1, FolioMovimientoSalidaDevRem = -1, CveMovimientoEntradaDevRem = -1, FolioMovimientoEntradaDevRem = -1 + + + Dim DtDevSinCosto As New DataTable + DtDevSinCosto.Columns.Add("CveAlmacen", GetType(Integer)) + DtDevSinCosto.Columns.Add("Almacen", GetType(String)) + DtDevSinCosto.Columns.Add("CveMovimientoEntrada", GetType(Integer)) + DtDevSinCosto.Columns.Add("FolioEntrada", GetType(Integer)) + DtDevSinCosto.Columns.Add("CveTipoAlmacen", GetType(Integer)) DtDevSinCosto.Columns.Add("CveConceptoMovimientoSalida", GetType(Integer)) Try @@ -1961,15 +1961,15 @@ Partial Class Inventarios_EntregaAlmacen Dr1("CveMovimientoEntrada") = CveMovimientoEntradaApartado Dr1("FolioEntrada") = FolioEntrada - If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then - Dim CveSeccionAlmacen As Integer = -1 - For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If CBool(Dr("AplicaSeccion")) Then - CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExA, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero - Else - CveSeccionAlmacen = -1 - End If - + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then + Dim CveSeccionAlmacen As Integer = -1 + For Each Dr As DataRow In ObjInventario.DtResultados.Rows + If CBool(Dr("AplicaSeccion")) Then + CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExA, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero + Else + CveSeccionAlmacen = -1 + End If + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then ErrorMovInv = True TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") @@ -2041,11 +2041,11 @@ Partial Class Inventarios_EntregaAlmacen CantidadPendiente = 1 - If CBool(Dr("AplicaSeccion")) Then - CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr2("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero - Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr2("CveAlmacen"), Dr("CvePS"), CveSeccionAlmacen) - Else - CveSeccionAlmacen = -1 + If CBool(Dr("AplicaSeccion")) Then + CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr2("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero + Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr2("CveAlmacen"), Dr("CvePS"), CveSeccionAlmacen) + Else + CveSeccionAlmacen = -1 End If If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then @@ -2244,72 +2244,72 @@ Partial Class Inventarios_EntregaAlmacen End If Next End If - End If - ' TERMINA: GARANTIAS - - 'DEVOLUCION DE SIN COSTO - Dim CantidadEntradaSinCosto As Decimal = 0 - - If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso UsuarioActual.Empresa.Funcionalidad(587) = "1" Then - For Each Dr1 As DataRow In DtExistencias.FiltraParametros("CveTipoAlmacenDevolucion = 26").Rows - Dim CveMovimientoSalidaSinCosto = Dr1("CveMovimiento").ToString.ToEntero - - 'Dim CveAlmacenSinCosto As Integer = Dr1("CveAlmacenDevolucion").ToString().ToEntero() - - 'Dim AlmacenSinCosto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=26).FiltroPrimeroValor("Almacen", $"CveAlmacen={CveAlmacenSinCosto}").ToString() - + End If + ' TERMINA: GARANTIAS + + 'DEVOLUCION DE SIN COSTO + Dim CantidadEntradaSinCosto As Decimal = 0 + + If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso UsuarioActual.Empresa.Funcionalidad(587) = "1" Then + For Each Dr1 As DataRow In DtExistencias.FiltraParametros("CveTipoAlmacenDevolucion = 26").Rows + Dim CveMovimientoSalidaSinCosto = Dr1("CveMovimiento").ToString.ToEntero + + 'Dim CveAlmacenSinCosto As Integer = Dr1("CveAlmacenDevolucion").ToString().ToEntero() + + 'Dim AlmacenSinCosto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=26).FiltroPrimeroValor("Almacen", $"CveAlmacen={CveAlmacenSinCosto}").ToString() + Dim CveMovimientoDevolucionSinCosto = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, - Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4") - Dim FolioDevSinCosto = ObjInventario.Folio - - If Not CveMovimientoDevolucionSinCosto > 0 Then - ErrorMovInv = True - TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.") - Exit For - End If - - If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaSinCosto, UsuarioActual.CveEmpresa) Then - For Each Dr As DataRow In ObjInventario.DtResultados.Rows - - CantidadEntradaSinCosto += Dr("Cantidad").ToString.ToDecimal() - - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucionSinCosto, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then - ErrorMovInv = True - TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") - Exit For - End If - Next - End If - - If ErrorMovInv Then Exit For - - Dim DrMovto = DtDevSinCosto.NewRow - DrMovto("Almacen") = DdlAlmacen.SelectedItem.Text - DrMovto("CveAlmacen") = DdlAlmacen.SelectedValue.ToEntero() - DrMovto("CveMovimientoEntrada") = CveMovimientoDevolucionSinCosto - DrMovto("FolioEntrada") = FolioDevSinCosto - DrMovto("CveTipoAlmacen") = 10 - DrMovto("CveConceptoMovimientoSalida") = 41 - DtDevSinCosto.Rows.Add(DrMovto) - - If Not ErrorMovInv Then - ErrorMovInv = Not GenerarPrePoliza(ObjInventario, ObjVentas, ObjConta, CveMovimientoDevolucionSinCosto, TextoError) - End If - - Next + Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4") + Dim FolioDevSinCosto = ObjInventario.Folio + + If Not CveMovimientoDevolucionSinCosto > 0 Then + ErrorMovInv = True + TextoError.AppendFormat("Ocurrió un error al procesar los movimientos de traspaso de apartado. Por favor vuelva a intentar.") + Exit For + End If + + If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaSinCosto, UsuarioActual.CveEmpresa) Then + For Each Dr As DataRow In ObjInventario.DtResultados.Rows + + CantidadEntradaSinCosto += Dr("Cantidad").ToString.ToDecimal() + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucionSinCosto, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then + ErrorMovInv = True + TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") + Exit For + End If + Next + End If + + If ErrorMovInv Then Exit For + + Dim DrMovto = DtDevSinCosto.NewRow + DrMovto("Almacen") = DdlAlmacen.SelectedItem.Text + DrMovto("CveAlmacen") = DdlAlmacen.SelectedValue.ToEntero() + DrMovto("CveMovimientoEntrada") = CveMovimientoDevolucionSinCosto + DrMovto("FolioEntrada") = FolioDevSinCosto + DrMovto("CveTipoAlmacen") = 10 + DrMovto("CveConceptoMovimientoSalida") = 41 + DtDevSinCosto.Rows.Add(DrMovto) + + If Not ErrorMovInv Then + ErrorMovInv = Not GenerarPrePoliza(ObjInventario, ObjVentas, ObjConta, CveMovimientoDevolucionSinCosto, TextoError) + End If + + Next End If - Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV").ToDecimal() - - If TipoMovimiento = 1 Then - CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadSalidaSinCosto - ElseIf TipoMovimiento = 2 Then - CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto - End If - 'si el alamcen del que salio, es el mismo que entra, no hay traspasos. - If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero Then CveAlmacenTraspasoDestino = 0 - + Dim CantidadPendientePorSalir As Decimal = DtDatos.SUM("CantidadGV").ToDecimal() + + If TipoMovimiento = 1 Then + CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadSalidaSinCosto + ElseIf TipoMovimiento = 2 Then + CantidadPendientePorSalir = CantidadPendientePorSalir - CantidadEntradaSinCosto + End If + 'si el alamcen del que salio, es el mismo que entra, no hay traspasos. + If CveAlmacenTraspasoDestino = DdlAlmacen.SelectedValue.ToEntero Then CveAlmacenTraspasoDestino = 0 + If Not ErrorMovInv AndAlso CantidadPendientePorSalir > 0 Then Dim ConceptoMovimiento = 3 ConceptoMovimiento = If(TipoMovimiento = 1, ConceptoMovimiento, 18) @@ -2500,12 +2500,12 @@ Partial Class Inventarios_EntregaAlmacen ErrorMovInv = True TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de control de apartados") Exit For - End If - If CBool(Dr("AplicaSeccion")) Then - CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero - Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen) - Else - CveSeccionAlmacen = -1 + End If + If CBool(Dr("AplicaSeccion")) Then + CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenOrigen, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero + Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", CveAlmacenOrigen, Dr("CvePS"), CveSeccionAlmacen) + Else + CveSeccionAlmacen = -1 End If If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then ErrorMovInv = True @@ -2534,12 +2534,12 @@ Partial Class Inventarios_EntregaAlmacen Dr1("FolioEntrada") = FolioEntrada If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then - For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If CBool(Dr("AplicaSeccion")) Then - CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero - Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS"), CveSeccionAlmacen) - Else - CveSeccionAlmacen = -1 + For Each Dr As DataRow In ObjInventario.DtResultados.Rows + If CBool(Dr("AplicaSeccion")) Then + CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero + Dim a As String = String.Format("CveAlmacen={0}-CvePS:{1}-CveseccionAlmacen={2}", Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS"), CveSeccionAlmacen) + Else + CveSeccionAlmacen = -1 End If If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=CveSeccionAlmacen) Then @@ -2684,11 +2684,11 @@ Partial Class Inventarios_EntregaAlmacen End If 'Paqueterias guias - If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then - Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero() - Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text - Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) - Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() + If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then + Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero() + Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text + Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) + Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero @@ -2713,9 +2713,9 @@ Partial Class Inventarios_EntregaAlmacen Else Alert("Hace falta indicar un Sub Proyecto", TipoMensaje.MsgAdvertencia) ErrorMovInv = True - End If - ElseIf RbSinEntrega.Checked AndAlso Not ErrorMovInv Then - MandaCorreoEntrega(CveVentaSurtir) + End If + ElseIf RbSinEntrega.Checked AndAlso Not ErrorMovInv Then + MandaCorreoEntrega(CveVentaSurtir) End If Catch ex As Exception ErrorMovInv = True @@ -3154,11 +3154,11 @@ Partial Class Inventarios_EntregaAlmacen End If 'Paqueterias Guias - If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then - Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero() - Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text - Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) - Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() + If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then + Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero() + Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text + Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) + Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text Dim CvePaqueteria As Integer = GlobalDTPaqueterias(UsuarioActual.CveEmpresa, 0).FiltroPrimeroValor("CvePaqueteria", "").ToEntero @@ -3214,108 +3214,108 @@ Partial Class Inventarios_EntregaAlmacen EnviarCorreoEntrega(tCveVenta, UsuarioActual) End Sub - Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario) - 'Dim Correo As New ClsSisMail - Dim SerieFolio As String = "" - Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio) - Dim Cuerpo As New StringBuilder() - Dim Destinatario As String = "" - Dim MensajeEnviado = False - Dim tCvecliente As Integer - Dim tCveVendedor As Integer - Dim bytes() As Byte = Nothing - Dim ObjVentas As New ClsVentas() - - Dim strBody As New StringBuilder - If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then - Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("") - tCveVendedor = dr("CveVendedor").ToString.ToEntero - Dim CorreoVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", tCveVendedor)) - Dim CorreoAsistente As String = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=3).FiltroPrimeroValor("Correo", String.Format("CveSuperior = {0}", CveVendedor)) - Destinatario = String.Format("{0};{1};{2}", dr("CorreoNotificacion"), CorreoVendedor, CorreoAsistente) - tCvecliente = dr("CveCliente").ToString.ToEntero - - Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("") - If drC IsNot Nothing Then - - Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen")) - - Dim ClienteNombre As String = dr("ClienteNombre").ToString() - Dim FolioVenta As String = dr("SerieFolio").ToString() - Dim Pedido As String = dr("PedidoContrato").ToString() - Dim OrdenCompra As String = dr("OrdenCompra").ToString() - Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero() - Dim TipoDocto As String = dr("TipoDocto").ToString() - - Dim dtDetalle As New DataTable - If ObjVentas.GetVentaDetalle(CveVenta) Then - dtDetalle = ObjVentas.DtResultados - End If - Dim DetalleTable As String = "" - For Each dRow As DataRow In dtDetalle.Rows - Dim detalle As String = String.Format("{0}{1}{2}", dRow("Codigo"), dRow("Cantidad"), dRow("PS")) - DetalleTable += detalle - Next - - strBody.Append("") - strBody.Append("") - strBody.Append("") - strBody.Append("") - strBody.Append(" ") - strBody.Append("
") - strBody.Append($"") - strBody.Append("
") - strBody.Append("

") - strBody.Append($" Apreciable {ClienteNombre}, le confirmamos los") - strBody.Append(" productos surtidos y entregados en mostrador conforme a la") - strBody.Append($" {TipoDocto}:") - strBody.Append("

") - strBody.Append($"

{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}

") - strBody.Append("
") - strBody.Append(" ") - strBody.Append(DetalleTable) - strBody.Append(" ") - strBody.Append("
") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" Se entregaron los productos conforme a las especificaciones de su pedido y verificamos que no se presentara alguno de los siguientes inconvenientes:") - strBody.Append("

") - strBody.Append("

") - strBody.Append(" • Empaque violado.
") - strBody.Append("• Daño físico en la caja.
") - strBody.Append("• Producto incompleto o distinto al solicitado.
") - strBody.Append("• Alguna otra situación que se considere que compromete la integridad de la mercancía.
") - strBody.Append("") - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append($" Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}") - strBody.Append("

") - strBody.Append("
") - strBody.Append("

") - strBody.Append(" Gracias por su compra
") - 'strBody.Append(" Compuproveedores") - strBody.Append("

") - strBody.Append("

") - strBody.Append(" Sigue disfrutando de nuestros productos y servicios
") - 'strBody.Append(" www.compuproveedores.com") - strBody.Append("") - strBody.Append("

") - strBody.Append(" ") - strBody.Append("") - End If - - End If - ObjVentas.Dispose() - - Dim MailCls As New ClsSisMail - + Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario) + 'Dim Correo As New ClsSisMail + Dim SerieFolio As String = "" + Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio) + Dim Cuerpo As New StringBuilder() + Dim Destinatario As String = "" + Dim MensajeEnviado = False + Dim tCvecliente As Integer + Dim tCveVendedor As Integer + Dim bytes() As Byte = Nothing + Dim ObjVentas As New ClsVentas() + + Dim strBody As New StringBuilder + If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("") + tCveVendedor = dr("CveVendedor").ToString.ToEntero + Dim CorreoVendedor As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", tCveVendedor)) + Dim CorreoAsistente As String = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=3).FiltroPrimeroValor("Correo", String.Format("CveSuperior = {0}", CveVendedor)) + Destinatario = String.Format("{0};{1};{2}", dr("CorreoNotificacion"), CorreoVendedor, CorreoAsistente) + tCvecliente = dr("CveCliente").ToString.ToEntero + + Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("") + If drC IsNot Nothing Then + + Destinatario += String.Format(";{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen")) + + Dim ClienteNombre As String = dr("ClienteNombre").ToString() + Dim FolioVenta As String = dr("SerieFolio").ToString() + Dim Pedido As String = dr("PedidoContrato").ToString() + Dim OrdenCompra As String = dr("OrdenCompra").ToString() + Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero() + Dim TipoDocto As String = dr("TipoDocto").ToString() + + Dim dtDetalle As New DataTable + If ObjVentas.GetVentaDetalle(CveVenta) Then + dtDetalle = ObjVentas.DtResultados + End If + Dim DetalleTable As String = "" + For Each dRow As DataRow In dtDetalle.Rows + Dim detalle As String = String.Format("{0}{1}{2}", dRow("Codigo"), dRow("Cantidad"), dRow("PS")) + DetalleTable += detalle + Next + + strBody.Append("") + strBody.Append("") + strBody.Append("") + strBody.Append("") + strBody.Append(" ") + strBody.Append("
") + strBody.Append($"") + strBody.Append("
") + strBody.Append("

") + strBody.Append($" Apreciable {ClienteNombre}, le confirmamos los") + strBody.Append(" productos surtidos y entregados en mostrador conforme a la") + strBody.Append($" {TipoDocto}:") + strBody.Append("

") + strBody.Append($"

{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}

") + strBody.Append("
") + strBody.Append(" ") + strBody.Append(DetalleTable) + strBody.Append(" ") + strBody.Append("
") + strBody.Append("
") + strBody.Append("

") + strBody.Append(" Se entregaron los productos conforme a las especificaciones de su pedido y verificamos que no se presentara alguno de los siguientes inconvenientes:") + strBody.Append("

") + strBody.Append("

") + strBody.Append(" • Empaque violado.
") + strBody.Append("• Daño físico en la caja.
") + strBody.Append("• Producto incompleto o distinto al solicitado.
") + strBody.Append("• Alguna otra situación que se considere que compromete la integridad de la mercancía.
") + strBody.Append("") + strBody.Append("

") + strBody.Append("
") + strBody.Append("

") + strBody.Append($" Aceptando a entera satisfacción a las {Today.Hour}:{Today.Minute} hrs del {Today.ToString}") + strBody.Append("

") + strBody.Append("
") + strBody.Append("

") + strBody.Append(" Gracias por su compra
") + 'strBody.Append(" Compuproveedores") + strBody.Append("

") + strBody.Append("

") + strBody.Append(" Sigue disfrutando de nuestros productos y servicios
") + 'strBody.Append(" www.compuproveedores.com") + strBody.Append("") + strBody.Append("

") + strBody.Append(" ") + strBody.Append("") + End If + + End If + ObjVentas.Dispose() + + Dim MailCls As New ClsSisMail + Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) - Dim itemMail As New ClsSisMail.ArchivoMail() - LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"}) - - MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario) - MailCls = Nothing + Dim itemMail As New ClsSisMail.ArchivoMail() + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Entrega en mostrador"}) + + MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, "Enviado desde Entrega Almacen", strBody.ToString, Destinatario) + MailCls = Nothing End Sub Private Sub Limpia() @@ -3353,160 +3353,160 @@ Partial Class Inventarios_EntregaAlmacen CargaGvDatos() UpDatos.Update() - End Sub - + End Sub + #End Region - + #Region " TRASPASO - TRANSITORIO " Protected Sub ChkTransitorio_CheckedChanged(sender As Object, e As EventArgs) TxtResponsable.Text = "" DivTransitorio2.Visible = ChkTransitorio.Checked - End Sub + End Sub #End Region - + #Region "SECCION ALMACEN" - 'Private Sub CreaDtSeccionAlmacen() - ' DtSeccionAlmacen = New DataTable - ' DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal)) - ' DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer)) - ' DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer)) - ' DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer)) - ' DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String)) - ' DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer)) - 'End Sub - 'Private Sub CargaDdlAlmacen() - ' DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) - ' DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) - ' DdlSeccionAlmacen.DataBind() - 'End Sub - 'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs) - ' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - - ' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then - ' Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal - ' IndexSeccionAlmacen = gvRow.RowIndex - ' CvePS = gvRow.DataKey("CvePS").ToEntero - ' CargaSeccionAlmacen() - ' RegistraScript("$('#DModalSeccionAlmacen').modal()") - 'End Sub - - 'Private Sub CargaSeccionAlmacen() - ' Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen") - ' GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}") - ' GvSeccion.DataBind() - - ' TxtCantidadSeccion.Text = "" - ' DdlSeccionAlmacen.SelectedIndex = 0 - ' Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion - ' If CantidadRestante = 0 Then - ' RVTxtCantidad.MaximumValue = "1" - ' TxtCantidadSeccion.Enabled = False - ' Else - ' RVTxtCantidad.MaximumValue = CantidadRestante.ToString - ' TxtCantidadSeccion.Enabled = True - ' End If - - ' If CantidadTotalSeccion > 0 Then - ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False - ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen" - - ' Else - ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True - ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "" - - ' End If - - ' If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then - ' DdlAlmacen.Enabled = False - ' DdlAlmacen.ToolTip = "Cuenta con sección almacen" - ' Else - ' DdlAlmacen.Enabled = True - ' DdlAlmacen.ToolTip = "" - ' End If - - ' UpModalSeccionAlmacen.Update() - ' UpDatos.Update() - ' UpGenerales.Update() - 'End Sub - - 'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs) - - ' Dim ObjInv As New ClsInventarios - ' Dim CantidadDisponible As Decimal = 0 - ' If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, - ' CvePS, UsuarioActual.CveEmpresa) Then - ' If ObjInv.DtResultados.Rows.Count > 0 Then - ' CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal - ' End If - ' End If - ' ObjInv.Dispose() - - ' CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen") - - ' If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then - ' Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: {CantidadDisponible}", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' Dim Row As DataRow = Nothing - ' DtSeccionAlmacen.AcceptChanges() - ' Row = DtSeccionAlmacen.NewRow - ' Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal - ' Row("IndexSeccionAlmacen") = IndexSeccionAlmacen - ' Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero - ' Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text - ' Row("CvePS") = CvePS - ' Row("Consec") = DtSeccionAlmacen.Rows.Count + 1 - ' DtSeccionAlmacen.Rows.Add(Row) - ' DtSeccionAlmacen.AcceptChanges() - ' CargaSeccionAlmacen() - 'End Sub - - 'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs) - ' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - ' Dim Index As Integer = 0 - ' For Each Dr As DataRow In DtSeccionAlmacen.Rows - ' If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then - ' Exit For - ' End If - ' Index += 1 - ' Next - ' DtSeccionAlmacen.Rows.RemoveAt(Index) - ' DtSeccionAlmacen.AcceptChanges() - ' CargaSeccionAlmacen() - 'End Sub - - 'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs) - ' If Not CveVentaSurtir > 0 Then - ' Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then - ' Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - - ' Dim ObjInv As New ClsInventarios - ' If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - ' GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados - ' End If - ' ObjInv.Dispose() - ' GvVerSeccionesAlmacen.DataBind() - ' UpVerSeccionesAlmacen.Update() - ' RegistraScript("$('#ModalVerSeccionesAlmacen').modal()") - 'End Sub - + 'Private Sub CreaDtSeccionAlmacen() + ' DtSeccionAlmacen = New DataTable + ' DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal)) + ' DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer)) + ' DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer)) + ' DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer)) + ' DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String)) + ' DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer)) + 'End Sub + 'Private Sub CargaDdlAlmacen() + ' DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) + ' DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' DdlSeccionAlmacen.DataBind() + 'End Sub + 'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs) + ' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + + ' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then + ' Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + + ' CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal + ' IndexSeccionAlmacen = gvRow.RowIndex + ' CvePS = gvRow.DataKey("CvePS").ToEntero + ' CargaSeccionAlmacen() + ' RegistraScript("$('#DModalSeccionAlmacen').modal()") + 'End Sub + + 'Private Sub CargaSeccionAlmacen() + ' Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen") + ' GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}") + ' GvSeccion.DataBind() + + ' TxtCantidadSeccion.Text = "" + ' DdlSeccionAlmacen.SelectedIndex = 0 + ' Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion + ' If CantidadRestante = 0 Then + ' RVTxtCantidad.MaximumValue = "1" + ' TxtCantidadSeccion.Enabled = False + ' Else + ' RVTxtCantidad.MaximumValue = CantidadRestante.ToString + ' TxtCantidadSeccion.Enabled = True + ' End If + + ' If CantidadTotalSeccion > 0 Then + ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False + ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen" + + ' Else + ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True + ' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "" + + ' End If + + ' If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then + ' DdlAlmacen.Enabled = False + ' DdlAlmacen.ToolTip = "Cuenta con sección almacen" + ' Else + ' DdlAlmacen.Enabled = True + ' DdlAlmacen.ToolTip = "" + ' End If + + ' UpModalSeccionAlmacen.Update() + ' UpDatos.Update() + ' UpGenerales.Update() + 'End Sub + + 'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs) + + ' Dim ObjInv As New ClsInventarios + ' Dim CantidadDisponible As Decimal = 0 + ' If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, + ' CvePS, UsuarioActual.CveEmpresa) Then + ' If ObjInv.DtResultados.Rows.Count > 0 Then + ' CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal + ' End If + ' End If + ' ObjInv.Dispose() + + ' CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen") + + ' If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then + ' Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: {CantidadDisponible}", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + + ' Dim Row As DataRow = Nothing + ' DtSeccionAlmacen.AcceptChanges() + ' Row = DtSeccionAlmacen.NewRow + ' Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal + ' Row("IndexSeccionAlmacen") = IndexSeccionAlmacen + ' Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero + ' Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text + ' Row("CvePS") = CvePS + ' Row("Consec") = DtSeccionAlmacen.Rows.Count + 1 + ' DtSeccionAlmacen.Rows.Add(Row) + ' DtSeccionAlmacen.AcceptChanges() + ' CargaSeccionAlmacen() + 'End Sub + + 'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs) + ' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + ' Dim Index As Integer = 0 + ' For Each Dr As DataRow In DtSeccionAlmacen.Rows + ' If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then + ' Exit For + ' End If + ' Index += 1 + ' Next + ' DtSeccionAlmacen.Rows.RemoveAt(Index) + ' DtSeccionAlmacen.AcceptChanges() + ' CargaSeccionAlmacen() + 'End Sub + + 'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs) + ' If Not CveVentaSurtir > 0 Then + ' Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + + ' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then + ' Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + + ' Dim ObjInv As New ClsInventarios + ' If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + ' GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados + ' End If + ' ObjInv.Dispose() + ' GvVerSeccionesAlmacen.DataBind() + ' UpVerSeccionesAlmacen.Update() + ' RegistraScript("$('#ModalVerSeccionesAlmacen').modal()") + 'End Sub + #End Region - + #Region "DIVIDIR" - + Protected Sub Dividir(sender As Object, e As EventArgs) Dim index2 As Integer = 0 @@ -3587,11 +3587,11 @@ Partial Class Inventarios_EntregaAlmacen index2 += 1 Next - End Sub - - + End Sub + + #End Region - + #Region " GUIAS - SABE QUE ES PORQUE NO VEO QUE SE UTILIZE EN ALGUNA PARTE - EN MIRAS DE ELIMINAR - IPP 24 AGOSTO 2017 " Private Sub BtnNumeroGuia_Click(sender As Object, e As EventArgs) Handles BtnNumeroGuia.Click Dim Objeto As New ClsInventarios @@ -3625,11 +3625,11 @@ Partial Class Inventarios_EntregaAlmacen End If - End Sub + End Sub #End Region - + #Region "SUGERENCIAS" - + Protected Sub BtnVerSugerencias_Click(sender As Object, e As EventArgs) If Not CveVentaSurtir > 0 Then Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia) @@ -3729,12 +3729,12 @@ Partial Class Inventarios_EntregaAlmacen params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) ImprimirPDF("Empresas/Grales/Formatos/RepEntregaAlmacenSugerencia.rdlc", DtDatosSugerencias, params, "Equipo GPS") - End Sub - + End Sub + #End Region - + #Region "TipoEntrega" - + Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs) If RbEntregaExterna.Checked Then RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')") @@ -3754,15 +3754,15 @@ Partial Class Inventarios_EntregaAlmacen TxtNoCajas.Text = "" TxtObservacionesPaqInterna.Text = "" UpPaqInterna.Update() - End Sub - Protected Sub PaqueteriaDetalle_Click(sender As Object, e As EventArgs) - If RbEntregaExterna.Checked Then - RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')") - ElseIf RbEntregaInterna.Checked Then - 'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')") - End If - End Sub + End Sub + Protected Sub PaqueteriaDetalle_Click(sender As Object, e As EventArgs) + If RbEntregaExterna.Checked Then + RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveVenta={CveVentaSurtir}',800,547,'N')") + ElseIf RbEntregaInterna.Checked Then + 'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')") + End If + End Sub #End Region - - + + End Class From cac6ee80a71fe61aed9c30cf4ff1c29d6af0d923 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 10 Aug 2020 11:07:09 -0700 Subject: [PATCH 2/4] - --- Contabilidad/LibroDiario.aspx.vb | 13 +++--- Contabilidad2/RepLibroDiario.aspx | 4 +- Contabilidad2/RepLibroDiario.aspx.vb | 60 ++++++++++++++++++++++------ 3 files changed, 56 insertions(+), 21 deletions(-) diff --git a/Contabilidad/LibroDiario.aspx.vb b/Contabilidad/LibroDiario.aspx.vb index d3507a095..fd61a89cf 100644 --- a/Contabilidad/LibroDiario.aspx.vb +++ b/Contabilidad/LibroDiario.aspx.vb @@ -51,11 +51,12 @@ Partial Class Contabilidad_LibroDiario InicializaValores() - If UsuarioActual.Empresa.UsaAC Then - BtnConsultar.Enabled = True - Else - Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) - End If + BtnConsultar.Enabled = True + 'If UsuarioActual.Empresa.UsaAC Then + ' BtnConsultar.Enabled = True + 'Else + ' Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) + 'End If End If End Sub @@ -212,7 +213,6 @@ Partial Class Contabilidad_LibroDiario #Region " IMPRIMIR " -#End Region Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) @@ -245,5 +245,6 @@ Partial Class Contabilidad_LibroDiario ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) End Sub +#End Region End Class diff --git a/Contabilidad2/RepLibroDiario.aspx b/Contabilidad2/RepLibroDiario.aspx index 4224c2fa5..33fb505ac 100644 --- a/Contabilidad2/RepLibroDiario.aspx +++ b/Contabilidad2/RepLibroDiario.aspx @@ -83,8 +83,8 @@ - - + + diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb index 3f01252dc..5eb60c12e 100644 --- a/Contabilidad2/RepLibroDiario.aspx.vb +++ b/Contabilidad2/RepLibroDiario.aspx.vb @@ -90,20 +90,19 @@ Partial Class Contabilidad2_RepLibroDiario Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - - ''CABECERA - 'If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then - ' e.Row.Font.Bold = True - ' e.Row.Cells(4).Text = "" - ' e.Row.Cells(5).Text = "" - ' e.Row.Cells(6).Text = "" - ' e.Row.Cells(7).Text = "" - ' e.Row.Cells(8).Text = "" - ' e.Row.CssClass = "SubTotales" ' - 'End If + 'CABECERA + If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then + e.Row.Font.Bold = True + e.Row.Cells(4).Text = "" + e.Row.Cells(5).Text = "" + e.Row.Cells(6).Text = "" + e.Row.Cells(7).Text = "" + e.Row.Cells(8).Text = "" + e.Row.CssClass = "SubTotales" ' + End If 'DETALLE - If e.Row.DBCampo("Codigo") <> "" Then + If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 2 Then e.Row.Cells(0).Text = "" e.Row.Cells(1).Text = "" e.Row.Cells(2).Text = "" @@ -111,7 +110,7 @@ Partial Class Contabilidad2_RepLibroDiario End If 'SUBTOTAL - If e.Row.DBCampo("Codigo") = "" Then + If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 3 Then e.Row.Font.Bold = True e.Row.Cells(0).Text = "" e.Row.Cells(1).Text = "" @@ -141,4 +140,39 @@ Partial Class Contabilidad2_RepLibroDiario End If End Sub +#Region " IMPRIMIR " + + Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click + 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) + 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) + 'DtDatos = DtDatos + ImprimirReporte() + End Sub + + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) + 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) + 'DtDatos = DtDatos + ImprimirReporte("EXCEL") + End Sub + + Private Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim lista = New List(Of CrystalParametro) + lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) + lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy"))) + lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy"))) + lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) + + If Imagen.Exists Then + lista.Add(New CrystalParametro("LogoPath", logouri)) + Else + lista.Add(New CrystalParametro("LogoPath", "")) + End If + + ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) + End Sub +#End Region End Class From c3fc1a24dac9e177a1650f9b0e100bc63104d6e9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 10 Aug 2020 17:21:22 -0700 Subject: [PATCH 3/4] Cambios PDF API-Sali --- Ashx/GenerarPDFFactura.ashx | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) diff --git a/Ashx/GenerarPDFFactura.ashx b/Ashx/GenerarPDFFactura.ashx index b6a4e841c..e1b597879 100644 --- a/Ashx/GenerarPDFFactura.ashx +++ b/Ashx/GenerarPDFFactura.ashx @@ -44,7 +44,13 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Dim ListaDS = New List(Of ReportDataSource) Dim Parametros As New List(Of ReportParameter) - Dim Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc" + Dim Formato As String = "" + + If datos.API_SALI Then + Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPISali.rdlc" + Else + Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc" + End If Parametros.Add(New ReportParameter("Empresa", datos.Empresa.Empresa)) Parametros.Add(New ReportParameter("RFC", datos.Empresa.RFC)) @@ -69,6 +75,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Parametros.Add(New ReportParameter("UsoCFDI", datos.Factura.UsoCFDI)) Parametros.Add(New ReportParameter("Vencimiento", datos.Factura.FechaVencimiento)) Parametros.Add(New ReportParameter("SubTotal", datos.Factura.SubTotal)) + Parametros.Add(New ReportParameter("Descuentos", datos.Factura.Descuentos)) Parametros.Add(New ReportParameter("IVA", datos.Factura.IVA)) Parametros.Add(New ReportParameter("IEPS", datos.Factura.IEPS)) Parametros.Add(New ReportParameter("Total", datos.Factura.Total)) @@ -81,8 +88,17 @@ Public Class GenerarPDFFactura : Implements IHttpHandler DtDatos.Columns.Add(New DataColumn("PU", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("IVA", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("IEPS", GetType(Decimal))) + DtDatos.Columns.Add(New DataColumn("Descuento", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("Total", GetType(Decimal))) + Dim DtImpuestos As New DataTable + DtImpuestos.Columns.Add(New DataColumn("Impuesto", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("Tipo", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("Base", GetType(Decimal))) + DtImpuestos.Columns.Add(New DataColumn("TipoFactor", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("TasaOCuota", GetType(String))) + DtImpuestos.Columns.Add(New DataColumn("Importe", GetType(Decimal))) + For Each PS In datos.Factura.ListaProductos Dim Row = DtDatos.NewRow() Row("Cantidad") = PS.Cantidad @@ -91,12 +107,24 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Row("PU") = PS.PU Row("IVA") = PS.IVA Row("IEPS") = PS.IEPS + Row("Descuento") = PS.Descuento Row("Total") = (PS.Cantidad * PS.PU) + PS.IVA + PS.IEPS DtDatos.Rows.Add(Row) Next + Dim RowImpuesto = DtImpuestos.NewRow() + RowImpuesto("Impuesto") = "IVA" + RowImpuesto("Tipo") = "Traslado" + RowImpuesto("Base") = datos.Factura.SubTotal + RowImpuesto("TipoFactor") = "Tasa" + RowImpuesto("TasaOCuota") = "16%" + RowImpuesto("Importe") = datos.Factura.IVA + + DtImpuestos.Rows.Add(RowImpuesto) + ListaDS.Add(New ReportDataSource("DsProductos", DtDatos)) + ListaDS.Add(New ReportDataSource("DsImpuestos", DtImpuestos)) ImprimirbytesPDF(context, StreamPDF(context, Formato, ListaDS, Parametros), "Factura") End If @@ -337,6 +365,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler Public Property Cliente As ClienteWS Public Property Empresa As EmpresaWS Public Property Timbrado As DatosSATWS + Public Property API_SALI As Boolean End Class From d35958755b970b7b828902eb41b50d940bdaffbd Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 10 Aug 2020 21:49:02 -0700 Subject: [PATCH 4/4] - --- Contabilidad2/RepLibroDiario.aspx.vb | 8 ++++++++ Empresas/Grales/Formatos/LibroDiario.rpt | Bin 245760 -> 245760 bytes Inventarios/RepNotasSinAlmacen.aspx | 2 +- Inventarios/RepNotasSinAlmacen.aspx.vb | 11 ++++++----- 4 files changed, 15 insertions(+), 6 deletions(-) diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb index 5eb60c12e..9ae6cf4b7 100644 --- a/Contabilidad2/RepLibroDiario.aspx.vb +++ b/Contabilidad2/RepLibroDiario.aspx.vb @@ -94,10 +94,16 @@ Partial Class Contabilidad2_RepLibroDiario If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then e.Row.Font.Bold = True e.Row.Cells(4).Text = "" + e.Row.Cells(4).Visible = False e.Row.Cells(5).Text = "" + e.Row.Cells(5).Visible = False e.Row.Cells(6).Text = "" + e.Row.Cells(6).Visible = False e.Row.Cells(7).Text = "" + e.Row.Cells(7).Visible = False e.Row.Cells(8).Text = "" + e.Row.Cells(8).Visible = False + e.Row.Cells(3).ColumnSpan = 6 e.Row.CssClass = "SubTotales" ' End If @@ -107,6 +113,8 @@ Partial Class Contabilidad2_RepLibroDiario e.Row.Cells(1).Text = "" e.Row.Cells(2).Text = "" e.Row.Cells(3).Text = "" + e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "") + e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "") End If 'SUBTOTAL diff --git a/Empresas/Grales/Formatos/LibroDiario.rpt b/Empresas/Grales/Formatos/LibroDiario.rpt index 4b918418b40b0fcdc928deff9a3e4b419e6ab20c..e91fe1e651b76f7beffd4202b45254563e62f82e 100644 GIT binary patch delta 10279 zcmZv=WmFwa)TqhfV8PwpH9&B8cXvsU;1Jvo?!h&<9C6%2cP*M0HXdE zeIXzo5*0Ly($-wtNVDN1vd#VGQZe)KPS)I~U8m!V?wM16q{gDd0_9qe{&mxE>>o~U zAgxPfJgm>Fp^BC0e46>z`09jC36n;?IXSPLO(Hh7NLlix-?OFq5{yis#eV$HDs8?5 zNDW5P3LgZ__QT%aV{=yblN(=g&jys$i{$|E-sm9l;)pZG6!JbRM`jK$%&8oY-#GSx zc8Y@Fw8E?q5xq$7{rfB~AE*2231{xPUBXTDcxd1zUOuu7uI-6dsStTO*tQMU$-^0&u-u?EcI8j|D504 zOOpl@2@LM&U|83PlH1qx@Kfnk19b5&`>X9Az1P1(Mt0WGE3aDP=gQ{#lSp+ftqnhT zSu-D}sxz+a>68_XNt&cd;WWxsKnUZ%D&~TUEgB}q(ChjI8e~;>W>PSh+0E+rqVQB} zlG1kUCc!EG!3JoOH>|@v)JYHIR->akY@4PEp+WwlG_`o6cZv=924A^i0?C>bg9rpR zBqmsfNzdX%qkMJAudP^xV2Bt9Tl^ecYZ|X_8j%@j4n;Z7SSQx&khll~zf2lk>sDuTQ z29y-6NDnhwYs29)9uou^y!nQjhK-cm-lZs#DuGb3MuYzf;{Sk95OvNHT zr*1A^scNJSKNkQ=?6Vo*3c*d_hIj5+d-vp~N1OU7G+u-uXa5lMDV#vzo;E9BzV>!5 z3gj+kS)Iy5r!d1ob%0gy=IH>vfR~1{0bo2>nmnjo6;8BRSDVpFwRR?MW1|9EM%TiL zpNPnZQ#(Zhf2Be2if=CeZnU}b zZFb%0W=E~rD+b8^T36fTxB9bb$WJ$CBHpM3!caP-#1@j;rADBYOhkY1uM5ofA$Ah8 z@UO2blQUfQ9PH@Ro0x$vHi~`OD~@&D2u`42&6)b@kG)3VxNbJ&Rx=afwhbe>zagZC zpK8cT|Hj<~5siqv`%(Rp*sf_OmOmn(Bs~@rl?SVZ4jPtq2wiK`8A*k?nF{rEw}((w zF`*{)$uu#iyf1;t|Jsd71VzOTz@mn%FgN?iLpmoCYiXa`7ubMy;NS_*yG)0_xO5ql z9&%${*?^A_#1a#2_^am(#hEWf&2*@bNhYgs+^Nos#`El+@v~5mXLD%i2V~`7Px9dS zC}Y(mf}egT*LYDa4MW%kBwLX*J`>+PsqKzH@MdO#zMc_js+9i43aycCao-koIE_Xf zX~>cGI^*!WKwSj!$|m>v%{nj>gIDSKRi<&iqtgroTK9s*R$?8h~FpDpUY_@(Y*pV}`;8Zms*sre@Rrde2cT#rJm4=F+ zi1@xQwm6N~wB_ynvoO>{!QleLpg)U(>gS~ZA^Bge zfFSt<>Jv5yZU~OgDEvuHVVa8N|DAt^|7pUX_Zn90yBPb$1fws%Kx7So&!U4^#W}(+ zkERx}hbD~xBI@S=_js%LYmw`LJpKtI=sP%m4M73^rh`E_5qMAItM#uZ5W=&$u0K#~ zETQa;jVsyy9$zNg3{4R#=~}YsX)9tGq3KPYYCjNJ|s#L!KjMSg`ZoRhYj1I+8fi0-q2j+k zhVbKCHeIlRN(*JD-xYvj#0Vv%2|69ug3N^hm1X5n>9jX9-i?eIqq=>-Z&r)9qXln{ zF}aUXOaLQ8A_YGbbQ(vsn%8d=OS@)woh3dbSC#;~GmXU(E#o&Ynh@M#Lah5;w%>bb z&nU>wCb~lg+N952G-Gzu$J${EKM{aI>vwi+GTzxBlB(Z+ROGN(s-`rSfld3T@Fb@s z$<>D~Q99Ji+#YO^bhy)tM_#CJT zL*Pehxo-7K=yykq%g!e0fMpVpT|(4&}5twba_rt%*=^eQZtCm)0U_W z4pP7HjmFOSjZ<8qhh_LX@$H_PF=Yev4=M#g7iXlS?040R5g{=!^Pbvv@Lb$< zTq}Rdb0}4hyJC%%xqyt^UT?KoM(fYMi!XPF|E0VuRre!GJ}}rPN)v_5879acf^z`M zMSg#HfAT>YMz27~Ab4tbdQ8aiAegzGPYod82^d;>+)9l#N7Y<>aOS4^k# ze6zq$=OJU{+$FB$3XKBsGyLH2%X5)KaRH&kVZ(Fp?W#UD_pnl&Z%!uu!PecD z25%s-Oj3>qeLK$GYtV6|OY<4K_Xaodd@Mnmw2C$`hpE9*zYObmXpx0T4c#6KoD|q%S*Ad3+@z4vrz>xU zl*L7}Tq2_%ePih%p5gY6^cHYKLbduW73vU_@Fjkj9v|3${iJcX0>({onLf6#&QllA z%7$`vSF8Qzpq@2S@tKK_PFI47eGm-vmDMQJ|I$nBpuZ!KDypUWs(8zNoc1QgWRcJ} z$d`>}wA~n7nzYuhm}P;~%4SWw;tIfK_L#6FTO500Z+L##qxR+zh zrLHbnpcYB4BD6Aa5V*KFNX!7re-cEM5v-@)sr0%GY>0Uxi7#ENq}JrKw~#g- zMbVfS;%|z~rzMbd31;d@4HBcag-y=EA;3wNpRThr81S?B15-kVPTdZwLYlR|CwYsJ zl1ZC?P@juImyWPKnRGYvgAmD^HccL5A9nCqrdizSR)*Dj{ur=g)qfZ>>|^lbK>Tq! zf~LH)-nZGp3RnTDGhxpSVcgr?Ysa@(1@Kk;mLZ7s_Ouek6Cm8KfE)wWKL5Wbs8InG&yCHR0jAsNKvPSS() z;+1TpC-E#Nz<7E@xrj##;@2p4)8mDw>kk)26?Ft zJ4Ur({NhBG%EUpiLpC&4IK*FX``H&VGmoi7LyIyjWGoX_#&bYD*E|9^6^Jgdo8RSP zj(^ppwEZ>drP=f0j@5yhE#}vk(dZcb78px3^42vN1KB;X2!m)I&~pKQ7r51!;>xt{ zR8ayV5MSVW4L>24`POJ5_eC_XyvI<5^j$*H;xCQXvI#TkuNFUUts+w>=b~Sv9{rCV zG=>oD7Ufr&?Z3M@6l8|)d6jT{@?Y8iM1tEZ+J=ID;t=Y6BQJmV@+Y!N zXED*0bia&Jz@+jx)K6e!#~~>1pzF*k3mCWujdyd$yw924?PV#8BEX}5gEp4Z{hHV{ zC8Fpat?W^SvBe}AgoOycu1ltS;kQ-Z42`VbRwwdJV3NYEE*BD23M5Iqe>}A;3H+6L z)}B1a`;ghUt0tz8|KMaxdSiqs(QC17JLAJYHCY2$^!(!2LV;K0N<`J>VA5lPXSk{e zqGfK2Q=qN#bs~IS4JsHQD!nP%`~racTh(F6UOF*<3lwJ~iLREM2eM2CQ0=H^hnTE; z{IIQ)vXGPo;>@AKn`QI-IKpcz}<=uJEsOp0MWx9F!pVZnJevy%=j zcru)35{QiAqGeH%;UU<71mJgzZBYfEQ8z+nf8f^DR-y1D`^GJ_I4@lU z*^2+n)|@;UiHaU-=9U>M62zr%pFPgL%Wv6Tn)x?cjuco5I73X}CinbJs`#PTxyw)=!wi2 z;AZQ7CFru%&`~C%PIPggci56*M4CYz@=W2-r{FEo)PtDK-)L*4Qr|pfjL~LA97=;^ zxU!D&m#Y!i-OS-qDu1tu)eegR<(epp(W9#)Xr`_^`fI@;YpGkbluymdGEd*bV-~Vi z)Vj8mI%s*!L7-aCW5`N?otV0C+uwX#hwg~0F(gzLHytDCr{IdKwBDIP@7tA!yu1Sl z`im8qzSsxVM!(-8*H`CBIwF?rO&{1ckG3`;dCwh)h$=-g{U5FaW0J$9VYXa_hA~i~ zmcKLVNhF##FB}aXULRsK?!HAt-~GJyO*{#nLTId?X<0*}V;1XyC5RbuCE=obyZq7n z#av1h{W!NVR08toslFRs7*L0u0RW-7bdrV;0*Zejvn|m^7k@DCm8Jshm|q01SiK_OoJ$ zMC$8~m}!%Lw{$t+czg78>|*6<@)M{@#x6K%x_f&b`4j>{i4y-QeIhC3F9dN;XBfgd zzfOxiF(xK~>{^(S34+as11gCbkA3jhH~1O~rTi44h7Hj=WP^wD@1W!AZ#$SyVZZ3) z;i@fSB@HV$Feki|^*>Mw;Z)3AWQw5!E6<}CsLJZrdUD6Cj{X-fIA^2^U~gVoV8~482)G571dSbb=N;uwx3c!AQ*h3#fpOXKKV=(D1V~w9u`C3`D3|dp1HU1GDqy4+NzMUdhmOqMp z(>zyGm^IBgXm~lh;5uJtFQ&3uxcWX@=i6hzw)A&OffHo1C$J@+)ES!P(>AOoc#vA7!C4M)-Uh@e`y^kUwdw=OO0gp%ddjvJkTiwG8Q7g12DCvYO(y=IZvcM26apv3(;esw>4TH<&mH&< z5{Cb85CQ^)oShjJLRge`OZU(C!wY%$k4&F1=pjP2e*6hB#G1PJ4fqSW^^0ca0F+#> z*<^lCf`lyYsQU$a@wv{fDVha?eqbrf0L3UjP94fT&j3g_pm)%41E`wLPbwwwiab76vs*8bir- zWUA+d2u;)d;!fw}_oVjO(<RLCFC4Qi$8*%n$R>>mf?Is3N|tGnp!zIiQm&@gGryujQzY-uvY zU}#Ca*-?5a7ua97%Lsc@Yd72lKneknJE8UBu$&HbiPW8A@N`BtakZv zwNCHN@cAo0?e22~xa7i_Y)_KYQe*~e*rNW0vvZcBF;HaT^5D$wg$5oXqb%z>@@Hh& z;nzg`OcIdM4`D8}9oH_;6t6QGZSGeqLB?|%vr{>v>E68=*zOd@`=bFG%#JvG7p>B# zFFeRosJv}ud6q^_<3i^2OF^M&A`uO|_+A~Y*Uk*QUJlOx0W?qMh z*Lskn0O5Wj=~ygt%KyfL<&o>V#`jydzY44rmW0VQDqfC0vzX@~=5B@kJcHrp#WlZv zyn5SoG6bsq*6i!K7I(=pr7CMaDg{B7&{3@;TBvV;iBK6*?m;Ek$%u2emM%sz@*qCe zU0BD(t?Ps8;c@R|k(c|lhrO74h0XX)@@W=}6nwaN7eF8;*hZdK${46G zrtDAEKWy}{T;xbQ{%wiGKI{oEL85m=$}SqMM`opoDjGf9aa3w)bd515tz!yj=5|GZ zRn7l66TTP};7iG`Jj9u|l3p5TZeYeK?!&J&eT8Tj`PTtfk7%>*X0Wev?qud?QMwlq zKc+te)6X$c^DgIT4^U7wnhXqRy~VGOACdgk8YYy)`&K%gTFY1#{iw{NI{Nn@?3PCGwJQPbMeBJ;%Ai{X-D;t@SAi#s z=U$^Z?EW2A#P22~CB)~P7p*1U_u!A;gCi;Nq!$qEd zTJsQeFH0AN(T^R~q*yt7QQ>D?JajM%VH((wvG{>D_XIcCy-ivOHBbk0%Wny5qgN*1 zI21Skf(|7t?4|gymvSYFdGnhm-+w}-tu^G>Np1)A?i_tu!hq=Yym+inOxV}&D?&oN zMd>nW#C@@P^IA@ASct;njTT!~HrZaWx1>4rqS zqz}who^_pwIhxqkdo*0QwUOqj%sq*%a~&4*UZBp{7@)nd=7L~diQ*WiJC;)QWb^%feS7A}kJv-@j&yfC@#n8#y>5kaVxcOSGcHL zARXLnpI%6HziwX~EXQ?lPC(3o1rZrqx8;^d-#K?5%iDtUeWq0nb%m6O(i4gJx= zNy(mLeD@ouL8MaMqk0L|-z16N!o(|i`!wqP-S(wFFvtFfmhWsf7pvnvUc2}ElPf+>FoS`=WK--=E&T)4> zX6BmDUN2x&sP8oZHs1-s=%vdIRE2sy(?u)c>XjmhRwo|XKpHk(4t&->7?-POjZ^*D zAdRX&%a6H@jQFBIvyK0rdrWBA-CqL*ti>z%XBL^C!IkHbhvCfXK?vlI6u)FbT&kWb zh~K;_JViYHw8unt+Tah0LEXZtDz7}h1y3OYmv~wlc{9Sy+SlY?xT8DP1>@3h{1XqJ z8LgI3be4?lJeBVjc=~zS>DHt>qfsQrBjf9W3Q@X?g(YCJZkM!ay;qjgN(i$cfeld>=?q^ zzO7tmJiB{!1`assj9M~<)5KKaUh%cZY54o&QiX_Mc_I13Y%eI~E^{bU!k99aTCfc| zr*8Z9WA}{ms2jYiA@e#*!z28DdbHt5IS!<(SX2Y%&r&LB9Pn9s*w8mEnE%rMmSe>zT-^8OAq&|~pyjnm!8T7nuJl%HCo`5#7Qyqj7ANN3o)Ey2Z_`256rxfzY$tV^oOhS(3Q#%h z7-QlNmMAD8MaBTH)3r_V2Zw;l(r;zZ0@1-JH;JJ-!$W=Kvq5jjErWAYj${ zPsHQs%sO%EaX=xTEMkhqjzG(C#w#(PtEd6vGn5(5| z^qr`c7vYB@2ymdEv3dI=IKkm&E^|-Q!&aY(>G8&(1q_Xu9se(Xe<*3(+7=Fb`10Rr zmS6#Q!ns(Rc|(%Uze1SrrT)7qwt)3a!J?4P{a-m#;R#fvID!H)X)mWsXt}PC=y_z6 zT__ZStF7U3WE7D*@rbTV5qua|US(3UXQghc^u|*_&~2z@Lq%<+82%XiRZ2PpZs4i? z^3qpo1tQfTXm#od0gVpv^PNH-nqro`!z62e<)6vMv-O#e_URqNi9j1 zKEgM7Uycqjsb)WaJu@lJ`3vQ;Xci&U81Csc2+u`Q%+*^U?@N?7oy_y+^L}EcEwq5j(F2w>HmWGC zmkFzmXFg8lG3Xf+8rIqVSOU_~7Dp+l3ZVXDHjU7tD zxw>kt0J2@b3>0Zas{WgxkOU@AS=C>bh;|19~X5-5|no& zW)S%F%~z5grzXo-zSFJZwz6+e!ZG`%f_gm3o5vew*l^8T98!nQ0pwN&iCt9|5TXTe z>-uJf9GL5?aiqi?imMTz4W}2L2~?0&Qm!vMMUr>)oBarxy^#XJGxzB0y_93*&z1Cl z$*fL@hL0o>JbyyMCLBOPrd6h|+JBxEc8zn)((wPL4$oQIr`{6Uau;n7_~`LEgBq~$ z2^R-Q#9o3EMj3bGbqd^yV+K2yI1_&eLOTew?h`CD8SF7+f6(7zp1o)XplZ=)`#T4J zzuO%tRERlNXqKQf*W{U?sejs>E8cc_!&>Sy8-7!lJVrZe;Zc2d_6};l-~>O?{;B!9 z7(h1gb81kG`{-g?q-JHk>>k576%;hN(h@r!xb=li^x>szml*#(3vRmswmRg9_#5m- zXzjMMC$G%l8IJ(vE)=^(=Q!?ggPRa_C;4O$7!REq%>Vq#`#lhc*&S z+5g(~MDhgN8t;gSZ{EOL7$3i;CK;j8t^1r`jHAegAnMM`*3+pP`qxAB3Ur=edG)*~ z^h@`j!CfT#aoHW|lF*If5pw}J*OmSbHn%dO4J*d}aGMOq^>d!-*5wGz75 z&OE1(IRgVfPx7`%-emvpLEi8GbC3@MzC#Mbga3sCkpa;EOCdl<0x44T-GBvg4vbAv zKuSow|C6a0`_v61V1Z~L7Z9MA;t~f0LF<3Y0LPSP7hv`OPdecJk97E)`!D`K82s0d X`yL7IP6i4CiV}g4VAND#H|75YvG}o# delta 9428 zcmZ8`Wl$W@(&Y?;J3$g8$lxx)-95OwyKB(F-3E6L4#6e3JHZoNgS!NW<-OhgwracT z+&gm90QYFvu~4(B|sn7A-{l-^zmm5_=BQ${e^iS;4LQOrD>xDB%n)BP~EB90}Fh;TrnCh0AuBrH|h?O+M|3X8_R)Msq z)^Wm5m^;i!jV*p#jYR|LK*B+R%I5w^VbVno$d(AKKm>#1@4EapfrpgBrkqH3FKEQq zL`NgSEGlxrB^JewUb266FcxxY{EqiYkk1G4}bdVFuDt-GCoQT%qJmB zK{`^6*gXJPhH#@}a2WL75A7Rg3|Yw^N3kpaBDwYEinh(CeHy}Bn_c<2j4+rRkd+d7*+@YF=96>BD=P23H9Oc40gpW5=lDp!MO?TUw#;}+A) zy(T*c0okdpCB_lFp!{O9+d2#uY$6E8wz*Wk;OrSpGC?R;ViGw z)636*hi_GB1F}a0Pw-P&MGa^{QqVSJEIkZYOO&{vfYvsv-$pM;S2os~8xU3ZRkoXU z4L4T@EP>LIXY^rlc{FNc7&284ctecC9mbH>`q-5w^SSMIBB-I``dv06gB54|8{|L- zuvDy$Lr&Wq49-4BE@!r+XqFuOK!Cp3hWCocm%-QO;FG5Vc6c zjhAc)18BO!7vTOO(>X&3#>*C5g@|=T(><9sw@`&>)$?2M3dUBPnO?A`V$~jtVfY)u zRHI4hv@F%6yOwt0$z<|Qxelw-*6zE6p9#orB(IQ@mp15g)nQYZ$QIqEd=)l{EokP5 zMN!$F7cSv&Dr&Nak{%^vTcZtCe;<@4wfFc6W9hlW1*{w6P=hhHd7|~3hWOlSwQ^sn z!2U9W`TJx?tN7Ts9$M6#Zp?NXE=`uNqPsBzjMu3d!JjRUEkXebS%tEvK$zN(-J}x9#*()jIXy>NWi=1kU~U zhj0s!o3i<=TnR=?xWGCftthteIi^&iTPa1vhl;+qpLMYA*G%WIU7sY#*afphuNl(x z*RO~w*;d;*gn&ZT9-LwdX$x}M`@KdSqDn=dO~!=X_E>eg66v$9AblBqY3y~BU98+g zr1j2_Z+=woFLF)ose&wXdQA*y)L@oEDtJKl`8MEON_ zJaj~6x4Suo)`Kg6v-Rj8&OWiwQQlW;8Knbk^C3 z+SldOahGoepZO3`@Os)ZdW*9|j8lM}?N5Z1lbWRfqF2V{_Rq+jqt_jpPB?N6$d$)$ zB95F@A^?9UI#cDXx%>i){QIA*WW3g7x$GV8#EK_+h9#a$>gejk#g2Vug}wKtbQ~<- zqkH+KmCf-!LBI*S!J*76X<5n9pT{)H@Oti3MB#52pWM8jBkR~O%*Sz>SBz8jrRF@` zEp7sAA9t^eC%(vuha>U4!eJtf)X@bE(;)w(ZRlyN`imj;-GW?Z+2;wG)^hU*Xj0~x z%Xg|aMqSN=E-M6X-PRQZMgaSNCgb~Rs{YMfe|;|u4X}uxfMW3PMZpGO3~&IL1Ki#@ z$va@*@ddyEV1M_*?@&sXiTd(?_`CbB3BR9C`WJ~`$`_Ihk(?nUe}L~r$9fy}N!PUB z(c^r$j4xS?D|n3KN}k&XlUJYQLDD391=Yu0vtXAJ|4l#r$RdL=x*tC|FTeD78#g<# zVe4%5h0&gvP#WGB?;tFXtBuM4e~>d5O<@qTWJMIIqGL$@>)0mR6~8-qRwwykNbso) zTYjRoRh(#z%pgQ!s4!N-9#c#Ku2p72=_dF325UYkzB$^}G!fp!{BQH;Dg*r(=U71-aW493}HChSgn=<*<}=& zMW&5!;L(WMsx3nuO%#Z%9@Z4jm8B7NRYl$R6FC)DIH*f}=*gFP%~hzpDWb-{G_y>j zc3egpoqvL$(&Zm_Y->(f5TQF|$_actaE(LRy56_sBqIoq_Cjt92|yY6RtleoJH@Wp zE^Wx3;q+veEB+Wz!M@s4HZ)<_6~2e5OX4-!3F$xAO6AT7HxkVA1|rElC}A%I@Z$%i z8l~{%Xvh%v?GWSzt>FFmg*c%Z!13_KrJ_->`-tx>>hHO)MFA($EEA8HALV5j(*PL2Help}`y0Utov&4Nc65Qy4$BN4ce?gZPm*|VFn+=c&Nxi*&Tiy| ze2SQrdl~BTOC139W_s%pEJ^M}{fCTO=T_vHqEm38|FqMfBLQwhVbax!N(z?nEReZ2 z-A7@y`dYkaE8`SFpr_*cQzH-T_mdz-!bwpGvOhf)YTxh+)&L~|dqKH-rdP(LOOsq5 zrVol45l_p!5Kw1p!d!{Pik!1{UA;Mq8qBy2&j!>J$_X9~CU z!@XQsSKmZ?(=$dzlnL4pY>I8}a!EB44Xew-Z?7b44&g&ioiv2@ z|K#b4T$R{{RoU6aix8NtHq|*U%3Y_roR+Bgt>6|vlJlA{_u^l7i(*nN5au86h*d^l z^Xr_S3NxAD43y0-Fg@TCCHnI6thRJQ&NSyQ3K0RHxP=5J1-v*tjGTo1D(E)a*UP^h zNbLZGkWiC0;M0h>e}jVBz)9ivcuXwtLH}mnIOAI`1inTW zS_LmJ~ZIUIB+shi;(;IhQh+^27IBSA{libBe787Ts{m*mU}V@OP4sw~7CcvtvC8XPat-@1mv z$%Tv8Eie;F5M&9K-qR+Tb);$-An< z;%`)(faNBjEJ~61keG79w}xx~@>G2|Yl8yE^@H6xJ?wcP0@ERQ^`~1AWEaOd2cdq0 zc0A9Rw|Cia{ly*JvkH%w@!C)x#eUiV!K)w(ZgLt+0&SA0AYZZ-Lay=r{JCEi7hUpDQUX%Lz*qH0xZ6|a%U)RXB4lr5T*nc)Ao<2gU-Ju zo|)hemu}3?Kc~J)D$mkD>Z!U|1oeHAk812z{=hcCeyjYM*1vh0s{4r+%g{<)?Jh)H zrY~QzF))CMuwN1zbyvS{=j7bJLvc_bHWP1So>EVeqJgERUiPZ|4_Vqb`w(*FWQ(FB zC~`-6AsT8A5x@C)o?k{C?plEW`MzhnRj=Ffbw}y+c+gr+9FJi>#5*?jrglhxEVoOr`VQjj>TteSXWKm*-|Hbqbe%J?Zg;>&P)!(Y^qh09U6U(a5NIpG9saF0f{`mKZ z!q42wN|8u!6>t!L1tzO$)iNu*z&wk1*~sShMo0<8Al`V^u<_}}k(}t^=_?#WzSgtg zh2*(e`zzMribAx*D4oFh#mLl>%iZI6P=^b?7bmW6QE2;N#!)Dp=!N00N9Z^XM{!-k z+lF(PtSld+<0uXXY{ardOTFMF<>}3&~ zEnpp31b&`Jh8Kw|RCVEX2qI|wauI*ih9yDT{`5)L)0~QJ^G5Y7Bw6&{9M_;-XlUP) za*#`#+?TNDOYMmf86E3zDKSZy=_$vnkKbLn8|XJrXOI<2WI_ST3AFCNP0;^4U;u!6 zJYgVYZDtb;&nK>>+x%%Tb1fPKtA{v7Cq^8Y<;pu1#&(o0jwEy@o%lz<^pborO^o3>oCiGW zMg<4HR8jJg-e3oaIS)ROG4T}<6~`1CjvescuH00Vr(1<{&HfYtHJF5&)k+z3S+&Iq zX7nzTZc_^{q2l3LB5g7$5%a+Yet0m_jEn`tb`w z`St7?V3CiUh-3Syx!5kfsbqcxX-=Hk^z*k9-!P~aFJ)8ovA?I6`7M5P)a8!3>$4Nl z58?#%J>A*wU^^SepE06TSlk0PDhw!v#q=VE`)6aLS3(08UlPTOG+|=q@nuUgH0ZLf z40Bs$YS;Gda9wLr1`H!)8s9Q~*uDir8VvcvE~iR&Ybi9SGd)ZXN0FOSckvQXB=%F= zY-X;Of_RcN{pPc+3|7h|^q^1v!_ zHwb^s212T>hnT{ME&(>aWer=WkD=jDpQRxXJAFzQo4@x`LRQ?CEWKk9a6%sPvSmoo z37LZ-t{2?DGBTSgCjSvD1Pkq|dCTC@u#ykd$bLZqCy$UuUEp1T6 ziy4a4*Q?P(&s!uYdh|e34jOERX|M)iX#_9ZVPax>otbd3NS7=}V71(I(e~Y4?nP?E z#**>hD7(16ez55lV^I6hqLm0IduNNn^^G5bEjq_Y$%}ti^+m4Zii?*8T{2$EU8z+B z-wMP7C6Nwyzi8222eJB%vz+SI{H6pB_IG-#|9Ya0zB`h?qF3<)z?wEt?PJ=%Ek1|U zQ=100!tgIT}_lX`BTVE(sHSaP&RsO@QECL+6x2Op(s}{_w|-pm!UpnK^Cwr9G5> zuZmtyYLb0IoD_2{m7Df3t~%@6d=c<3L&=(5)^tW_x{2M5)CCBtJyI>o7z7O#)Nmtq zhKMVpXW7QPj5dZ+?Z?zkAGD#rSUln(MzFk3o$+zknxiOeov5ZOSP7+ zE2@hUUS05}|H-l^K9W^B7Lk(tTLp)?w5M~lgc?aWKrD8OMoOz<(iyv8*zLyDRVsBcyD0q=-3%%JaxEG^r9d35)eMtE zoqV^7xs)8oleIh^OqgVyc1yT&rLB{7ugVT?q$cxH4eRunHxPl^yrl$>_p+s zNVX1gFZHR^BgMfM1>|v0I`yE|!nIKNeD!`|%wgdX*hH=MA?zw0i$5&za;XC^i?aV@ zku_GAc3LKw;|%u~=m^HW(jabJsT8X6`J0m{QC-KLBzMA1%zCYZ`m4{bF|4J2*2fs~ z7>2jGuZo#Oj?1RcF=Td~&1_Bas-2y+qME5E4`O$dHO#8ADvBf$6p93}PvO^=4u^pn zE$wt+eSrxUD=va1^>Q1zaG3~wGM1W9_imaXqRUO&ujkG;=T?lJZVf9$b}$f)kZCI! zm6KD<$PZBYR+)r8BJOmP_Mx91Eihr3H`!Aj3;JXsark@imK}%$8|A~=WJ*kOr6>pW{6rGpXs=oJ2cA;nRBJL2xY-5^H8^a!M1Zd-Or9`Tm)iWynK;CcXEMf zI~28QLOJ1#n)w5-<)n{x{^}#*uU#qyNS(-J(a_!nKI#U z1d3i7z!0;pOB6xP{|F)IzBRr5!Lqs-QFqcYTP1xcFONV?W$5#4a0@0C5m8Nc8+oKd z_&R)gM~r^nhM*rTsP|{qR9v6enO@%Sb32rCOf=V-`kD-;O8e)!*1V0(;aS9O|H0&P ziHKl-2IbmH>+8?eOU@ue%~i?~q+tJTRITcrBv892*ZXL*1PBX!oFz{rb%UdS?-b^e zyhv>^YUS_$Gcy79xc=8CU6Td^)sx)GAVAfmTQX)`^!J-6??8PA+B-Vl2lt%~JYYT$ zoW^^|n+6>R$|dpApaxG5+<)aXX0+QQpVHFTlOr%TV-J{lX^cIv~S#lU)XK+-j2f#;Sqh3yM zQPlXxr7d!*{8UO+coY<0N}xNnad6MGRC3};AfHi2v17o{pK$>>Y6d>N0d$C;67tIn zooudj;?^kP4bDfb^%Oo43*)LKdDrzH1fnGbYhBDSqPv*cxLjvK%^r>_ z@q!+{8Qdl7cqoLOFGMQ=^;)peR$$J))>Tv+S6B`;D=zhg=0HJB0J zTwN(&`IwaRx#-LZ&tKLwO}ari2! z{UobXd3rMz+eERAy}Q~4-^$w!Lrif?m8H^@v(=Zf%VUba2_m8bjV-zlTPE%G&hj*H45nRby6x^6ZaOkDGq-+80 z0r|XC9h$yaN2|Wngcm z)xj1F$5{wpEO-ic)j4Grw`v{`2NUxuKWhtNWv=!Q-Hp#dpYoyc_pM$8~Muf zGYhfF?ZmRfu9NIZNvT;i!VI6xqDfM=Ug(ch#m=K177n*A+hpfkBc0r%oXv^@BXbly z=5$k^?bRUok~a=o$x4i-5tB%%1S}P#*V^m>%aNyV5_JbujNW`3WMf?-a&Xe3Ik%B2 zq3!{`A;j83h8mqySs65iKOqU%hDXFlJ%h(X`nbQ7F9uVkMA&VKr$f}QXW~7FbP37@ z`~!=VtnLzf2QharkzN2#45+q3A1xwYaOhp94o4tw$ztR?-tM84df7enFoI76%NEDB z!I>5Fih<0qKY_vjly&w`XDq&HSY`=-Ysv+4*H&G~{3Rl`Qf@5w4%zE(29FaMAD4X= zL6BnD%II=F|16b2u*2TJ?z-CH!3rvL+Z7k#Y?j~(1%S$Fp)y;D?4PZ2g4*{AWiQ7X zBVQrtS=0Pjsc#n0ylhC~XdbJ>f$`p;Bs+PlHI|nM3%7zHxon-(wa90EVODyBReM8A z%tdBMc7GEBx$DFZ;z1Sik~{Uq_^bUE?63LGt?@bS09m9Pk?%WS$_@!FK z4bxwZd~WVZ-0eKogL24))~JHd9yMvP{3TrwaW*~#<~Z#aJK8e!dQ@)9?eg z6D5N}X9-jKGuM?Gh9Ef#$Ers%s&K}%FK7-`a`^5le|g;S{R5aKB+Eo0qAU&hINu;y zqn#5LY??#J_gKf0p*9GG`NrQvsEuf_TEBbSp!-XVi-zZ{ctop_P5Aj z+<+VSu^=&;snQuR?qCq21U?Le{F&T-|58~s(@c_F%$v;blH>9Q6zNhtwhy&7xW zZ57q9&`=m8i(e_W4aHht+!^B8dXD&zPZUhMtjxJnqkgT-(CBHd)ro3w&d!wCiBW?X zkO+qz^YGd2*PA8Qi4XFD7aC~jmv!NXD@4y@1Up(zL;JP8{`?fg&mvwYu*C6Y#>ZH5 zmoV~kY!N-M%hfgg3TP zp@nYKKfuTuWoHlj4EEM%k=1VoU-MaZ1orZ?r8s6#v4~@V?Oc5AM{@`sA(oC?kdRT( z&wrCCTH1TK7pMaP=UJg%O@&w&gFk0kkZZ$u0Kb@+uj%bVNJTc}d=%>-fT)lM>}$C} z-Ja=#POO*IDdgp2BgCM)u*(1zdk&d1oPWBH{guCOREBT9ZJ>4Al79}V?l5v~ji@#c z72U2LH*98=>fDZ89@!e663>)HEdky4rdo*1(X!b>o^`m9qgsqLOBWl4Xm%}4`#+Go1`RF3{ea(Ux0vo;t0(q)X)X=5c)o+#>s%&o zwrt?p75Z84K@)DEm`eeNMk7*r8J=r;rDS$6htk7yTv5UObxbU6ImJAq6xGtkHw_Sh zf~>KxX9Ld5uU-|6QI6!7i&0G&)EjnP6?chqI)*cFurknRFrj>f^ur2|R2b)dH$VCC zXEZ@rMUP~^+ITHmKP5}bs$3&1=j$#c7oyZe{aqpBJlU+|cp!()m#w=SIT~s7YGG2M zD)rTrt}TQX%R-kENhFL4*eumF!sV%BoAs3NS3uP9p~*~PS;RSI|4pK^Y+~&u1rvQP zlZE1{!SQbU*=#!ma@M@$QLk@K5#PEx-759pDOfyBWWyV7n}B1nvt-4 zcy9_daL20KS>1}<1cq5O-awdi_~5GxLxI^K_=t~p-@$z3Yb3uQjVP`NaZ#=&p7{`0 z!vqR1%fPo@L!_X-fscBG7V$U{aAJ{V4+g9e^!{sppWu^fA;?zUG?s-woMEQyex^5f}ZAsT;gO4?3KJ0Bd~-V64{IsZHd<&@UUS#SXmkH)WXA znpN--R#Dq#>VhhP4vn^YEEPB^WRTC65|)r>{zvOqNQfOb4Y~YO2-U}GIZnw!ux`!C z)W5o?WpQjhJ-jHGsC+`cCq0%tR97=P&C24YkNL6%OmG4etjMY6#lv$><9WLE0+{P> zg!_cf-t|=MvmV}rO;h>t@rwcmc_C;Irj(1ix0?BHSJDV4@{P>LxBk7>sQNtN@&rK> zlUsXS1iuE1rac_WVaFuySV|%WF_7!|OnE5`4<;qj$lO4FsWI=Ze$(s!wEDt$|F6}L z0lmVUBep!og3y6!nDHP|&?pd)0h$UBBx1QJ19AfQH?dkP2w zr}-`vT+$xgK|lUSZQ%Y_ZM^6I --%> -
Proyecto:
+
diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index 0f7e28329..95cdd8db2 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -93,12 +93,13 @@ Partial Class RepNotasSinAlmacen 'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa) 'DdlSucursal.DataBind() - DdlSubProyecto.Items.Clear() - DdlSubProyecto.SelectedValue = Nothing - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1) - DdlSubProyecto.DataBind() + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + 'DdlSubProyecto.Items.Clear() + 'DdlSubProyecto.SelectedValue = Nothing + 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1) + 'DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) + 'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) End Sub Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click