From 9deddb32b82e0b1d64f4055b21ad7bbd63ef93d0 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 3 Jun 2020 12:33:05 -0700 Subject: [PATCH] -- cmabios guias --- App_Code/ClsInventarios.vb | 6 +++++- Inventarios/EntregaAlmacen.aspx | 9 ++++---- Inventarios/EntregaAlmacen.aspx.vb | 11 +++++----- Inventarios/EntregasPorRealizar.aspx | 9 ++++++-- Inventarios/EntregasPorRealizar.aspx.cs | 23 +++++++++++++++++++++ Inventarios/PaquetesArmadoDesarmado.aspx.vb | 4 ++++ Inventarios/ResguardoMaterial.aspx | 2 +- Inventarios/ResguardoMaterial.aspx.vb | 4 ++-- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 2 ++ 10 files changed, 54 insertions(+), 18 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 62b5e8d2e..4e2ca49e7 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4749,13 +4749,17 @@ Public Class ClsInventarios #Region "MOVIMIENTOS SALIDA" - Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveCliente As Integer, CveClasificacion As Integer, Grupo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepMovimientosSalidaGet") With SqlAdapter.SelectCommand.Parameters .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Grupo", SqlDbType.Int).Value = Grupo End With Try SqlAdapter.Fill(Data) diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index d319e23a8..0b3268214 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -244,9 +244,9 @@ - - - + + + @@ -883,8 +883,7 @@ # Cajas: - - + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 7f6dcafec..d68c26807 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2,10 +2,7 @@ Option Explicit On Imports System.Data -Imports System.IO -Imports System.Linq -Imports CrystalDecisions.[Shared].Json -Imports ExcelLibrary.BinaryFileFormat +Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms @@ -2424,7 +2421,9 @@ Partial Class Inventarios_EntregaAlmacen Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero() Dim Observaciones As String = TxtObservacionesPaqInterna.Text - Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) + Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero + + Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) If CvePaqueteriaGuia > 0 Then @@ -2783,7 +2782,7 @@ Partial Class Inventarios_EntregaAlmacen Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("") Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen")) - Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1} han sido enviados a entrega.

", dr("NombreCliente"), dr("SerieFolio"))) + Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1} han sido enviados a entrega.

", dr("ClienteNombre"), dr("SerieFolio"))) Cuerpo.AppendLine("

Dudas y aclaraciones con su coordinador empresarial.") End If diff --git a/Inventarios/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx index 9b5943b7e..d69b660a6 100644 --- a/Inventarios/EntregasPorRealizar.aspx +++ b/Inventarios/EntregasPorRealizar.aspx @@ -15,9 +15,13 @@ - <%--Paqueterías Guías--%>Entrega Interna + Entregas por Realizar +
  • + PDF +
    • +     @@ -70,9 +74,10 @@   + -   +   diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index bf831e4e3..4ccde9706 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -76,4 +76,27 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas DdlUsuario.DataBind(); DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); } + + private void ImprimirPDF() + { + + // params As New List(Of ReportParameter); + + //params.Add(New ReportParameter("Fecha", FechaI)); + //params.Add(New ReportParameter("AsignadoA", "")); + //params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); + + ////If Imagen.Exists Then + //// params.Add(New ReportParameter("LogoPath", logouri)) + ////Else + //// params.Add(New ReportParameter("LogoPath", "")) + ////End If + //ImprimirPDF("Empresas/Grales/Formatos/RepVentas.rdlc", dt, params, String.Format("EntregasAsignadas-{0}", Now.ToDateTime.ToShortDateString), Formato:= "PDF") + + } + + protected void LnkImprimir_Click(object sender, EventArgs e) + { + ImprimirPDF(); + } } \ No newline at end of file diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx.vb b/Inventarios/PaquetesArmadoDesarmado.aspx.vb index 54ec0779b..3d075a75a 100644 --- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb +++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb @@ -200,6 +200,10 @@ Partial Class Inventarios_PaquetesArmadoDesarmado End Sub #End Region + Protected Sub BtnSerie_Click(sender As Object, e As EventArgs) + + End Sub + #Region " PROCESAR - VERIFICAR EXISTENCIAS " Protected Sub BtnVerificarExistenciasArmado_Click(sender As Object, e As EventArgs) TipoMovimiento = 1 diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index 05c36bef0..a543fe7b5 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -208,7 +208,7 @@ Clasificación
    Producto U.M. - Serie - Lote + Serie Observaciones diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index f6173c7ed..debb185dc 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -787,7 +787,7 @@ Partial Class Inventarios_ResguardoMaterial Dim Cont As Integer = 0 For Each Gvr As GridViewRow In GvMLiberacion.Rows 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, -1, Gvr.DataKey("SerieLote").ToString, Gvr.DataKey("Observaciones").ToString) 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, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Observaciones").ToString) Then MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." TieneError = True Exit For @@ -809,7 +809,7 @@ Partial Class Inventarios_ResguardoMaterial If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then Cont = 0 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, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then + 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, -1, Dr("Serie").ToString, Dr("Observaciones").ToString) Then TieneError = True MensajeError = "Ocurrió un error al guardar los movimientos de entrada" Exit For diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 97b534794..f942b9039 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3288,7 +3288,7 @@ - Correo Notificaciones:  + Correo Notificacion:  diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 296643417..4928b7d97 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3938,6 +3938,8 @@ Partial Class Ventas TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2) TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2) TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2) + TxtCorreoNotificaciones.Text = DbRowVenta("CorreoNotificacion").ToString() + If TxtRetIVA.Text.ToDecimal() > 0 Then TrRetIVA.Style.Add("display", "") UsuarioActual.Empresa.MostrarRetIVA = True