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

-cleanup

Browse Source
This commit is contained in:
rrene
2022-06-18 11:20:49 -07:00
parent b925b5b408
commit 1a7816d5e4
36 changed files with 688 additions and 721 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
AC/CatPresupuestoEgresos.aspx.vb
View File

@@ -2,7 +2,6 @@
Option Explicit On Option Explicit On
Imports System.Data Imports System.Data
Imports System.Linq
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms

13
Acarreos/CatChoferes.aspx.vb
View File

@@ -1,5 +1,4 @@
Imports Extensiones Imports Extensiones
Imports System.Data
Partial Class Acarreos_CatChoferes Partial Class Acarreos_CatChoferes
@@ -70,10 +69,10 @@ Partial Class Acarreos_CatChoferes
'Else 'Else
Dim ObjAcar As New ClsAcarreos Dim ObjAcar As New ClsAcarreos
Dim Estatus = 0 Dim Estatus = 0
If ChkEstatus.Checked Then Estatus = 1 If ChkEstatus.Checked Then Estatus = 1
If HdnModalidad.Value = "A" Then If HdnModalidad.Value = "A" Then
If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then
CargaDatos() CargaDatos()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
@@ -87,9 +86,9 @@ Partial Class Acarreos_CatChoferes
End If End If
End If End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer")) RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
ObjAcar.Dispose() ObjAcar.Dispose()
UpDatos.Update() UpDatos.Update()
End Sub End Sub

5
Acumuladores/RepEntradasUsadosClientes.aspx.vb
View File

@@ -1,6 +1,5 @@
Imports Extensiones Imports System.Data
Imports System.Data Imports Extensiones
Imports System
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Acumuladores_RepEntradasUsadosClientes Partial Class Acumuladores_RepEntradasUsadosClientes

5
Acumuladores/RepIndicadorDiarioDetalle.aspx.vb
View File

@@ -1,11 +1,6 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data
Imports System.IO
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports System.IO.Compression
Partial Class Acumuladores_RepIndicadorDiarioDetalle Partial Class Acumuladores_RepIndicadorDiarioDetalle
Inherits ClsPaginas Inherits ClsPaginas

36
CRM/Acercamiento.aspx.cs
View File

@@ -1,23 +1,21 @@
using System; using ADSNetLibrary.SIGAPI.Models.CRM.Request;
using ADSNetLibrary.SIGAPI.Models.CRM.Response;
using ADSNetLibrary.SIGAPI.Models.Encuestas.Request;
using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
using ADSNetLibrary.SIGAPI.Services;
using ADSNetLibrary.SIGAPI.Services.CRM;
using ADSNetLibrary.SIGAPI.Services.Encuestas;
using Extensiones;
using MoreLinq;
using System;
using System.Collections.Generic; using System.Collections.Generic;
using System.Data;
using System.IO;
using System.Linq; using System.Linq;
using System.Web; using System.Web;
using System.Web.UI; using System.Web.UI;
using System.Web.UI.WebControls;
using System.IO;
using System.Data;
using Extensiones;
using System.Web.UI.HtmlControls; using System.Web.UI.HtmlControls;
using ADSNetLibrary.SIGAPI.Services.CRM; using System.Web.UI.WebControls;
using ADSNetLibrary.SIGAPI.Models.CRM.Request;
using ADSNetLibrary.SIGAPI.Models.CRM.Response;
using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
using ADSNetLibrary.SIGAPI.Models.Ventas.Response;
using MoreLinq;
using ADSNetLibrary.SIGAPI.Services;
using ADSNetLibrary.SIGAPI.Services.Encuestas;
using ADSNetLibrary.SIGAPI.Models.Encuestas.Request;
public partial class CRM_Acercamiento : ClsPaginas public partial class CRM_Acercamiento : ClsPaginas
{ {
@@ -313,7 +311,7 @@ public partial class CRM_Acercamiento : ClsPaginas
if (CveAcercamiento > 0) if (CveAcercamiento > 0)
{ {
ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
RequestAcercamiento AcercamientoModel = new RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamiento); RequestAcercamiento AcercamientoModel = new RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamiento);
var objAcercamiento = cRMService.GetAceracamientoCRM(AcercamientoModel); var objAcercamiento = cRMService.GetAceracamientoCRM(AcercamientoModel);
if (objAcercamiento.Result.Count > 0) if (objAcercamiento.Result.Count > 0)
{ {
@@ -619,7 +617,7 @@ public partial class CRM_Acercamiento : ClsPaginas
private void CargarPS() private void CargarPS()
{ {
DdlPS.setEsWebService(true); DdlPS.setEsWebService(true);
if(CvePS > 0) if (CvePS > 0)
{ {
string productoAsignado = get_GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS: CvePS).FiltroPrimeroValor("PSCodigo"); string productoAsignado = get_GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS: CvePS).FiltroPrimeroValor("PSCodigo");
DdlPS.SelectedValue = CvePS.ToString(); DdlPS.SelectedValue = CvePS.ToString();
@@ -771,7 +769,7 @@ public partial class CRM_Acercamiento : ClsPaginas
AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
AcercaminetoModel.FechaApertura = FechaApertura; AcercaminetoModel.FechaApertura = FechaApertura;
AcercaminetoModel.FechaCierre = FechaCierre != null? (DateTime)FechaCierre : ModExtensiones.MinFecha; AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
@@ -1173,7 +1171,7 @@ public partial class CRM_Acercamiento : ClsPaginas
int CveEmpresaCRM = DdlEmpresaCRM.SelectedValue.ToEntero(); int CveEmpresaCRM = DdlEmpresaCRM.SelectedValue.ToEntero();
int CveEtapa = HdfEtapaSeleccionada.Value.ToEntero() == -1 ? CveEtapaActual : HdfEtapaSeleccionada.Value.ToEntero(); int CveEtapa = HdfEtapaSeleccionada.Value.ToEntero() == -1 ? CveEtapaActual : HdfEtapaSeleccionada.Value.ToEntero();
if (ObjEventos.AddEventoAgenda(DdlTipoAgenda.SelectedValue.ToEntero(), TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridadAgenda.SelectedValue.ToEntero(), FechaInicio, FechaInicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoProcesoCRM: CveTipoProceso, CveAcercamientoCRM: CveAcercamiento, CveContactoCRM: CveContactoAgendar, CveEtapaProcesoCRM: CveEtapa, CveEmpresaCRM:CveEmpresaCRM)) if (ObjEventos.AddEventoAgenda(DdlTipoAgenda.SelectedValue.ToEntero(), TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridadAgenda.SelectedValue.ToEntero(), FechaInicio, FechaInicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoProcesoCRM: CveTipoProceso, CveAcercamientoCRM: CveAcercamiento, CveContactoCRM: CveContactoAgendar, CveEtapaProcesoCRM: CveEtapa, CveEmpresaCRM: CveEmpresaCRM))
{ {
limpiarModalAgendar(); limpiarModalAgendar();
RegistraScript("$('#ModalAgenda').modal('hide')"); RegistraScript("$('#ModalAgenda').modal('hide')");

29
CRM/EmpresaCRM.aspx.cs
View File

@@ -1,21 +1,20 @@
using System; using ADSNetLibrary.SIGAPI.Models.CRM.Request;
using ADSNetLibrary.SIGAPI.Models.CRM.Response;
using ADSNetLibrary.SIGAPI.Models.Encuestas.Request;
using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
using ADSNetLibrary.SIGAPI.Services;
using ADSNetLibrary.SIGAPI.Services.CRM;
using ADSNetLibrary.SIGAPI.Services.Encuestas;
using Extensiones;
using MoreLinq;
using System;
using System.Collections.Generic; using System.Collections.Generic;
using System.Data;
using System.IO;
using System.Linq; using System.Linq;
using System.Web; using System.Web;
using System.Web.UI; using System.Web.UI;
using System.Web.UI.WebControls; using System.Web.UI.WebControls;
using System.IO;
using System.Data;
using ADSNetLibrary.SIGAPI.Services.CRM;
using ADSNetLibrary.SIGAPI.Models.CRM.Request;
using ADSNetLibrary.SIGAPI.Models.CRM.Response;
using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
using ADSNetLibrary.SIGAPI.Models.Ventas.Response;
using Extensiones;
using MoreLinq;
using ADSNetLibrary.SIGAPI.Services;
using ADSNetLibrary.SIGAPI.Services.Encuestas;
using ADSNetLibrary.SIGAPI.Models.Encuestas.Request;
public partial class CRM_EmpresaCRM : ClsPaginas public partial class CRM_EmpresaCRM : ClsPaginas
{ {
@@ -1359,11 +1358,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DTRespuestasDatosTecnicos = responseGenericGetRespuestas.Result.ToDataTable(); DTRespuestasDatosTecnicos = responseGenericGetRespuestas.Result.ToDataTable();
} }
var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() { CveEmpresa = UsuarioActual.Empresa.CveEmpresa , CveEncuesta = CveEncuestaCRM, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = -1}); var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() { CveEmpresa = UsuarioActual.Empresa.CveEmpresa, CveEncuesta = CveEncuestaCRM, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = -1 });
if (responseGenericGetDatosTecnicosEmpresaCRM.IsSuccess) if (responseGenericGetDatosTecnicosEmpresaCRM.IsSuccess)
{ {
GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result; GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result;
if(responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0) if (responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0)
{ {
GvDatosTecnicos.Visible = true; GvDatosTecnicos.Visible = true;
} }

1
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -1,5 +1,4 @@
Imports System.Data Imports System.Data
Imports System.Linq
Imports Extensiones Imports Extensiones
Partial Class Contabilidad2_CatCuentasAsignaciones Partial Class Contabilidad2_CatCuentasAsignaciones

6
Contratos/ContratoObra.aspx.vb
View File

@@ -1,12 +1,12 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.IO
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports System.Globalization Imports System.Globalization
Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Partial Class Contratos_ContratoObra Partial Class Contratos_ContratoObra
Inherits ClsPaginas Inherits ClsPaginas

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2,10 +2,8 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones
Imports System.IO Imports System.IO
Imports Microsoft.Reporting.WebForms Imports Extensiones
Imports DocumentFormat.OpenXml.Drawing.Diagrams
'Imports DocumentFormat.OpenXml.Wordprocessing 'Imports DocumentFormat.OpenXml.Wordprocessing

2
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2,12 +2,10 @@
Option Explicit On Option Explicit On
Imports System.Data Imports System.Data
Imports System.Data.Entity.Core.Common.CommandTrees
Imports System.IO Imports System.IO
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Base.Indicator
Partial Class Inventarios_EntregaAlmacen Partial Class Inventarios_EntregaAlmacen
Inherits ClsPaginas Inherits ClsPaginas

116
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -1,28 +1,27 @@
using System; using Extensiones;
using System;
using System.Collections.Generic; using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data; using System.Data;
using Extensiones;
using Microsoft.Reporting.WebForms;
using System.Text; using System.Text;
using System.Web.UI.WebControls;
public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
{ {
DataTable DTGenerarDocumentos DataTable DTGenerarDocumentos
{ {
get { get
{
if(ViewState["DTGenerarDocumentos"] == null){ if (ViewState["DTGenerarDocumentos"] == null)
{
ViewState["DTGenerarDocumentos"] = new DataTable(); ViewState["DTGenerarDocumentos"] = new DataTable();
} }
return (DataTable)ViewState["DTGenerarDocumentos"]; return (DataTable)ViewState["DTGenerarDocumentos"];
} }
set { set
{
ViewState["DTGenerarDocumentos"] = (DataTable)value; ViewState["DTGenerarDocumentos"] = (DataTable)value;
} }
} }
@@ -70,7 +69,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
{ {
ViewState["SeleccionEntrega"] = false; ViewState["SeleccionEntrega"] = false;
} }
return (bool) ViewState["SeleccionEntrega"]; return (bool)ViewState["SeleccionEntrega"];
} }
set set
{ {
@@ -80,7 +79,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
int CveEntregaAlmacen int CveEntregaAlmacen
{ {
get { get
{
if (ViewState["CveEntregaAlmacen"] == null) if (ViewState["CveEntregaAlmacen"] == null)
{ {
@@ -105,7 +105,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
CargaDatos(); CargaDatos();
#region RECOLEECION #region RECOLEECION
// CargaDatosRecoleccion(); // CargaDatosRecoleccion();
#endregion #endregion
@@ -116,13 +116,13 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
{ {
if(DdlChofer.SelectedValue.ToEntero() <= 0) if (DdlChofer.SelectedValue.ToEntero() <= 0)
{ {
Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia); Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia);
return; return;
} }
if(DdlUnidadCamion.SelectedValue.ToEntero() <= 0) if (DdlUnidadCamion.SelectedValue.ToEntero() <= 0)
{ {
Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia); Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia);
return; return;
@@ -154,12 +154,12 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
break; break;
} }
DateTime fechallegada = (TxtFechaEntrega.Text + " 23:59").ToDate(); DateTime fechallegada = (TxtFechaEntrega.Text + " 23:59").ToDate();
int CveEntregaAlmacen = ObjGeneral.AddInvEntregaAlmacenRuta(row.DataKey("CveSubProyectoOrigen").ToEntero(), CveDireccionOrigen, CveDireccionDestino, row.DataKey("CveMovimiento").ToEntero(), DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "E", "","", "1900-01-01".ToDate(), Orden,0, 1); int CveEntregaAlmacen = ObjGeneral.AddInvEntregaAlmacenRuta(row.DataKey("CveSubProyectoOrigen").ToEntero(), CveDireccionOrigen, CveDireccionDestino, row.DataKey("CveMovimiento").ToEntero(), DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "E", "", "", "1900-01-01".ToDate(), Orden, 0, 1);
CveDireccionOrigen = row.DataKey("CveDireccionEnvio").ToEntero(); CveDireccionOrigen = row.DataKey("CveDireccionEnvio").ToEntero();
if (CveEntregaAlmacen > 0) if (CveEntregaAlmacen > 0)
{ {
int CveTimbre = ObjGeneral.AddGralTimbre("Ent", row.DataKey("CveSubProyectoOrigen").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:CveEntregaAlmacen, AplicaCP: ChkEmitirCartaPorte.Checked); int CveTimbre = ObjGeneral.AddGralTimbre("Ent", row.DataKey("CveSubProyectoOrigen").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: ChkEmitirCartaPorte.Checked);
if (CveTimbre <= 0) if (CveTimbre <= 0)
{ {
@@ -208,7 +208,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
foreach (int cvetimbre in ListaTimbres) foreach (int cvetimbre in ListaTimbres)
{ {
Timbres ObjTimbres = new Timbres("Ent", cvetimbre, UsuarioActual); Timbres ObjTimbres = new Timbres("Ent", cvetimbre, UsuarioActual);
MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio); MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio);
if (ObjTimbres.Timbrar()) if (ObjTimbres.Timbrar())
{ {
@@ -239,7 +239,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
ObjGeneral.RollBack(); ObjGeneral.RollBack();
} }
ObjGeneral.Dispose(); ObjGeneral.Dispose();
}else }
else
{ {
Alert(SBError.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia); Alert(SBError.ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia);
} }
@@ -369,7 +370,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
//if (UsuarioActual.Empresa.Funcionalidad(161) == "1") //if (UsuarioActual.Empresa.Funcionalidad(161) == "1")
// MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); // MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre)));
//else //else
// MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar Carta Porte</a></li></ul>", ModExtensiones.Encripta(String.Format("OP=CARPO&CveTimbre={0}", cvetimbre))); // MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar Carta Porte</a></li></ul>", ModExtensiones.Encripta(String.Format("OP=CARPO&CveTimbre={0}", cvetimbre)));
} }
else else
@@ -400,7 +401,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
private void CargaDatos() private void CargaDatos()
{ {
ClsGenerales ObjGeneral = new ClsGenerales(); ClsGenerales ObjGeneral = new ClsGenerales();
if (ObjGeneral.GetInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 1)) if (ObjGeneral.GetInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 1))
{ {
GvEntregas.DataSource = ObjGeneral.DtResultados; GvEntregas.DataSource = ObjGeneral.DtResultados;
DTDatosConsulta = ObjGeneral.DtResultados; DTDatosConsulta = ObjGeneral.DtResultados;
@@ -432,9 +433,9 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlChoferRec.DataBind(); DdlChoferRec.DataBind();
DdlChoferRec.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlChoferRec.Items.Insert(0, new ListItem("Seleccione", "-1"));
TxtFechaEntrega.Text = DateTime.Now.ToShortDateString(); TxtFechaEntrega.Text = DateTime.Now.ToShortDateString();
TabRecoleccion.Visible = UsuarioActual.Empresa.Funcionalidad(531)=="1"; TabRecoleccion.Visible = UsuarioActual.Empresa.Funcionalidad(531) == "1";
TxtFechaLimite.Text = DateTime.Now.ToShortDateString(); TxtFechaLimite.Text = DateTime.Now.ToShortDateString();
CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto); CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto);
@@ -446,7 +447,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
{ {
SeleccionarGenerar(1); SeleccionarGenerar(1);
} }
private void SeleccionarGenerar(int Opcion ) { private void SeleccionarGenerar(int Opcion)
{
if (SeleccionEntrega) if (SeleccionEntrega)
{ {
@@ -564,7 +566,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
} }
} }
private void OcultarmostarDatosEntrega(bool mostrar ) private void OcultarmostarDatosEntrega(bool mostrar)
{ {
//DVDatosEntrega1.Visible = mostrar; //DVDatosEntrega1.Visible = mostrar;
DVDatosEntrega2.Visible = mostrar; DVDatosEntrega2.Visible = mostrar;
@@ -598,9 +600,9 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
int NumOrden = 1; int NumOrden = 1;
foreach (string CveMovimiento in OrdenMovimientos) foreach (string CveMovimiento in OrdenMovimientos)
{ {
foreach(DataRow dRow in DTGenerarDocumentos.Rows) foreach (DataRow dRow in DTGenerarDocumentos.Rows)
{ {
if (CveMovimiento.ToEntero() == dRow["CveMovimiento"].ToString().ToEntero() ) if (CveMovimiento.ToEntero() == dRow["CveMovimiento"].ToString().ToEntero())
{ {
dRow["Orden"] = NumOrden; dRow["Orden"] = NumOrden;
} }
@@ -624,7 +626,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
protected void BtnConsultar_Click(object sender, EventArgs e) protected void BtnConsultar_Click(object sender, EventArgs e)
{ {
if(Tab.ActiveTabIndex == 0) if (Tab.ActiveTabIndex == 0)
{ {
CargaDatos(); CargaDatos();
} }
@@ -640,7 +642,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
#region RECOLECCION #region RECOLECCION
private DataTable InitDTRecoleccion() private DataTable InitDTRecoleccion()
{ {
DataTable DT = new DataTable(); DataTable DT = new DataTable();
@@ -649,8 +651,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DT.Columns.Add("CvePS", System.Type.GetType("System.Int32")); DT.Columns.Add("CvePS", System.Type.GetType("System.Int32"));
DT.Columns.Add("Cantidad", System.Type.GetType("System.Double")); DT.Columns.Add("Cantidad", System.Type.GetType("System.Double"));
DT.Columns.Add("CveUnidadMedida", System.Type.GetType("System.Int32")); DT.Columns.Add("CveUnidadMedida", System.Type.GetType("System.Int32"));
DT.Columns.Add("CveUsuario",System.Type.GetType("System.Int32")); DT.Columns.Add("CveUsuario", System.Type.GetType("System.Int32"));
DT.Columns.Add("FechaIng",System.Type.GetType("System.DateTime")); DT.Columns.Add("FechaIng", System.Type.GetType("System.DateTime"));
DT.Columns.Add("CodigoPS", System.Type.GetType("System.String")); DT.Columns.Add("CodigoPS", System.Type.GetType("System.String"));
DT.Columns.Add("Abreviatura", System.Type.GetType("System.String")); DT.Columns.Add("Abreviatura", System.Type.GetType("System.String"));
@@ -679,12 +681,14 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
if (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) if (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen))
{ {
GvModalPSRecoleccion.DataSource = ObjGenerales.DtResultados; GvModalPSRecoleccion.DataSource = ObjGenerales.DtResultados;
}else }
else
{ {
GvModalPSRecoleccion.DataSource = null; GvModalPSRecoleccion.DataSource = null;
} }
ObjGenerales.Dispose(); ObjGenerales.Dispose();
}else }
else
{ {
GvModalPSRecoleccion.DataSource = DTRecoleccion; GvModalPSRecoleccion.DataSource = DTRecoleccion;
} }
@@ -698,7 +702,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
private void ModalRecoleccionCargaDirecciones() private void ModalRecoleccionCargaDirecciones()
{ {
if(DdlModalRecoleccionCliente.SelectedValue.ToEntero() > 0) if (DdlModalRecoleccionCliente.SelectedValue.ToEntero() > 0)
{ {
ClsClientes ObjClientes = new ClsClientes(); ClsClientes ObjClientes = new ClsClientes();
if (ObjClientes.DireccionEnvioGet(-1, DdlModalRecoleccionCliente.SelectedValue.ToEntero(), -1)) if (ObjClientes.DireccionEnvioGet(-1, DdlModalRecoleccionCliente.SelectedValue.ToEntero(), -1))
@@ -772,7 +776,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlmodalRecoleccionDireccion.SelectedValueExist(-1); DdlmodalRecoleccionDireccion.SelectedValueExist(-1);
TxtModalRecoleccionCantidad.Text = ""; TxtModalRecoleccionCantidad.Text = "";
DdlModalRecoleccionUnidad.Items.Clear(); DdlModalRecoleccionUnidad.Items.Clear();
DdlModalRecoleccionUnidad.Items.Add(new ListItem("Seleccione una","-1")); DdlModalRecoleccionUnidad.Items.Add(new ListItem("Seleccione una", "-1"));
DdlProducto2.txtValue.Value = ""; DdlProducto2.txtValue.Value = "";
DdlProducto2.txtText.Value = ""; DdlProducto2.txtText.Value = "";
@@ -812,28 +816,28 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
ClsGenerales ObjGenerales = new ClsGenerales(); ClsGenerales ObjGenerales = new ClsGenerales();
ObjGenerales.IniciaTransacSQL(); ObjGenerales.IniciaTransacSQL();
if( CveEntregaAlmacen == -1) if (CveEntregaAlmacen == -1)
{ {
DateTime fechallegada = (TxtFechaEntrega.Text + " 23:59").ToDate(); DateTime fechallegada = (TxtFechaEntrega.Text + " 23:59").ToDate();
CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(DdlSubProyectoRecoleccion.SelectedValue.ToEntero(), DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1,-1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "R",TxtFolioReferencia.Text, TxtReferencia.Text, TxtFechaLimite.Text.ToDate(), 1,0,1) ; CveEntregaAlmacen = ObjGenerales.AddInvEntregaAlmacenRuta(DdlSubProyectoRecoleccion.SelectedValue.ToEntero(), DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, -1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), fechallegada, "R", TxtFolioReferencia.Text, TxtReferencia.Text, TxtFechaLimite.Text.ToDate(), 1, 0, 1);
if (CveEntregaAlmacen > 0) if (CveEntregaAlmacen > 0)
{ {
//CveTimbrenuevo = ObjGenerales.AddGralTimbre("Rec", "-1", -1, "-1", TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, -1); //CveTimbrenuevo = ObjGenerales.AddGralTimbre("Rec", "-1", -1, "-1", TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveEntregaAlmacen, -1);
//if (CveTimbrenuevo > 0) //if (CveTimbrenuevo > 0)
//{ //{
foreach (DataRow dRow in DTRecoleccion.Rows) foreach (DataRow dRow in DTRecoleccion.Rows)
{
if (ObjGenerales.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, dRow["CvePS"].ToString().ToEntero(), dRow["Cantidad"].ToString().ToDecimal(), dRow["CveUnidadMedida"].ToString().ToEntero(), UsuarioActual.CveUsuario))
{ {
if(ObjGenerales.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen,dRow["CvePS"].ToString().ToEntero(), dRow["Cantidad"].ToString().ToDecimal(),dRow["CveUnidadMedida"].ToString().ToEntero(), UsuarioActual.CveUsuario)) ProcesoOK = true;
{
ProcesoOK = true;
}
else
{
ProcesoOK = false;
break;
}
} }
else
{
ProcesoOK = false;
break;
}
}
//} //}
} }
} }
@@ -851,7 +855,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
else else
{ {
ObjGenerales.RollBack(); ObjGenerales.RollBack();
Alert("Ocurrió un error.",ModExtensiones.TipoMensaje.MsgError); Alert("Ocurrió un error.", ModExtensiones.TipoMensaje.MsgError);
} }
ObjGenerales.Dispose(); ObjGenerales.Dispose();
@@ -905,11 +909,11 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
protected void LnkModalAgregarPS_Click(object sender, EventArgs e) protected void LnkModalAgregarPS_Click(object sender, EventArgs e)
{ {
if(CveEntregaAlmacen > 0) if (CveEntregaAlmacen > 0)
{ {
ClsGenerales ObjGenerales = new ClsGenerales(); ClsGenerales ObjGenerales = new ClsGenerales();
if(ObjGenerales.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen,DdlProducto2.SelectedValue.ToEntero(), TxtModalRecoleccionCantidad.Text.ToEntero(), DdlModalRecoleccionUnidad.SelectedValue.ToEntero(), UsuarioActual.CveUsuario)) if (ObjGenerales.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, DdlProducto2.SelectedValue.ToEntero(), TxtModalRecoleccionCantidad.Text.ToEntero(), DdlModalRecoleccionUnidad.SelectedValue.ToEntero(), UsuarioActual.CveUsuario))
{ {
} }
@@ -917,17 +921,17 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
} }
else else
{ {
DataRow dRow = DTRecoleccion.NewRow() ; DataRow dRow = DTRecoleccion.NewRow();
dRow["CveEntregaAlmacenDetalle"] = -1; dRow["CveEntregaAlmacenDetalle"] = -1;
dRow["CveEntregaAlmacen"] = CveEntregaAlmacen; dRow["CveEntregaAlmacen"] = CveEntregaAlmacen;
dRow["CvePS"] = DdlProducto2.SelectedValue.ToEntero(); dRow["CvePS"] = DdlProducto2.SelectedValue.ToEntero();
dRow["Cantidad"] =TxtModalRecoleccionCantidad.Text.ToEntero(); dRow["Cantidad"] = TxtModalRecoleccionCantidad.Text.ToEntero();
dRow["CveUnidadMedida"] = DdlModalRecoleccionUnidad.SelectedValue.ToEntero(); dRow["CveUnidadMedida"] = DdlModalRecoleccionUnidad.SelectedValue.ToEntero();
dRow["CveUsuario"] =UsuarioActual.CveUsuario; dRow["CveUsuario"] = UsuarioActual.CveUsuario;
dRow["FechaIng"] = DateTime.Now; dRow["FechaIng"] = DateTime.Now;
dRow["CodigoPS"] = DdlProducto2.txtText.Value; dRow["CodigoPS"] = DdlProducto2.txtText.Value;
dRow["Abreviatura"] =DdlModalRecoleccionUnidad.SelectedItem.Text; dRow["Abreviatura"] = DdlModalRecoleccionUnidad.SelectedItem.Text;
DTRecoleccion.Rows.Add(dRow); DTRecoleccion.Rows.Add(dRow);
//GvModalPSRecoleccion.DataSource = DTRecoleccion; //GvModalPSRecoleccion.DataSource = DTRecoleccion;
@@ -948,7 +952,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
protected void Tab_ActiveTabChanged(object sender, EventArgs e) protected void Tab_ActiveTabChanged(object sender, EventArgs e)
{ {
if(Tab.ActiveTabIndex == 0) if (Tab.ActiveTabIndex == 0)
{ {
SeleccionEntrega = false; SeleccionEntrega = false;
SeleccionarGenerar(1); SeleccionarGenerar(1);
@@ -1010,7 +1014,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
if (ProcesoOK) if (ProcesoOK)
{ {
this.RegistraScript("$('#DivEditarEntrega').modal('hide');"); this.RegistraScript("$('#DivEditarEntrega').modal('hide');");
Alert("Dirección Actualizada correctamente.",ModExtensiones.TipoMensaje.ToastInformacion); Alert("Dirección Actualizada correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
CargaDatos(); CargaDatos();
} }

4
Inventarios/InventarioFisico.aspx.vb
View File

@@ -1,5 +1,5 @@
Imports Extensiones Imports System.Data
Imports System.Data Imports Extensiones
Partial Class Inventarios_InventarioFisico Partial Class Inventarios_InventarioFisico
Inherits ClsPaginas Inherits ClsPaginas

4
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1,11 +1,11 @@
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports Microsoft.Reporting.WebForms
Imports System.Data Imports System.Data
Imports Extensiones
Imports System.IO Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Partial Class Inventarios_RecepcionAlmacen Partial Class Inventarios_RecepcionAlmacen
Inherits ClsPaginas Inherits ClsPaginas

2
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -2,8 +2,8 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones
Imports System.IO Imports System.IO
Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
'Imports DocumentFormat.OpenXml.Wordprocessing 'Imports DocumentFormat.OpenXml.Wordprocessing

2
Inventarios/RepEntradasSalidas.aspx.vb
View File

@@ -1,7 +1,7 @@
Imports System.Data Imports System.Data
Imports System.IO
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.IO
Partial Class Inventarios_ReporteEntradasSalidas Partial Class Inventarios_ReporteEntradasSalidas
Inherits ClsPaginas Inherits ClsPaginas

72
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -1,15 +1,9 @@
using System; using Extensiones;
using System.Collections.Generic; using System;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using System.Data; using System.Data;
using Microsoft.Reporting.WebForms;
using System.IO; using System.IO;
using System.Text; using System.Text;
using System.Web.UI.WebControls;
public partial class General_RepEntregaAlmacenRuta : ClsPaginas public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
@@ -279,7 +273,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
ClsInventarios ObjInventarios = new ClsInventarios(); ClsInventarios ObjInventarios = new ClsInventarios();
if (ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa,Estatus:1) && ObjInventarios.DtResultados.Rows.Count > 0) if (ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, Estatus: 1) && ObjInventarios.DtResultados.Rows.Count > 0)
{ {
DdlModalCamion.DataSource = ObjInventarios.DtResultados; DdlModalCamion.DataSource = ObjInventarios.DtResultados;
} }
@@ -315,10 +309,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
protected void CargaEstatus() protected void CargaEstatus()
{ {
DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1")); DdlEstatus.Items.Insert(0, new ListItem("Todos ", "-1"));
DdlEstatus.Items.Insert(1, new ListItem("Registrado", "0")); DdlEstatus.Items.Insert(1, new ListItem("Registrado", "0"));
DdlEstatus.Items.Insert(2, new ListItem("Timbrado", "1")); DdlEstatus.Items.Insert(2, new ListItem("Timbrado", "1"));
DdlEstatus.Items.Insert(3, new ListItem("Cancelado ", "2")); DdlEstatus.Items.Insert(3, new ListItem("Cancelado ", "2"));
} }
protected void InicializaFechas() protected void InicializaFechas()
{ {
@@ -333,7 +327,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
ClsGenerales ObjGeneral = new ClsGenerales(); ClsGenerales ObjGeneral = new ClsGenerales();
if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(),UsuarioActual.CveUsuario)) if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(), UsuarioActual.CveUsuario))
{ {
DTDatos = ObjGeneral.DtResultados; DTDatos = ObjGeneral.DtResultados;
GVDatos.DataSource = DTDatos; GVDatos.DataSource = DTDatos;
@@ -387,7 +381,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero(); CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero(); CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero();
ModalActualizaDirecciones( CveTimbre); ModalActualizaDirecciones(CveTimbre);
if (CveDireccionOrigen > 0) if (CveDireccionOrigen > 0)
@@ -410,11 +404,12 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
} }
private void ModalActualizaDirecciones(int CveTimbre) private void ModalActualizaDirecciones(int CveTimbre)
{ {
ClsGenerales ObjGeneral = new ClsGenerales(); ClsGenerales ObjGeneral = new ClsGenerales();
if (ObjGeneral.GetInvEntregaAlmacenRutaRep( -1, UsuarioActual.CveEmpresa, -1, new DateTime(1900,01,01), new DateTime(9000, 01, 01),-1, CveTimbre)) { if (ObjGeneral.GetInvEntregaAlmacenRutaRep(-1, UsuarioActual.CveEmpresa, -1, new DateTime(1900, 01, 01), new DateTime(9000, 01, 01), -1, CveTimbre))
{
if (ObjGeneral.DtResultados.Rows.Count > 0) if (ObjGeneral.DtResultados.Rows.Count > 0)
{ {
@@ -438,7 +433,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
private void CargaModalCombosDirecciones(int CveCliente, int CveDireccionOrigen, int CveAlmacen ) private void CargaModalCombosDirecciones(int CveCliente, int CveDireccionOrigen, int CveAlmacen)
{ {
//DdlModalDireccionOrigen.Items.Clear(); //DdlModalDireccionOrigen.Items.Clear();
@@ -483,7 +478,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
Timbres ObjTimbres = new Timbres(TimbreTipoDocto, cvetimbre, UsuarioActual); Timbres ObjTimbres = new Timbres(TimbreTipoDocto, cvetimbre, UsuarioActual);
StringBuilder MensajeAlert = new StringBuilder(); StringBuilder MensajeAlert = new StringBuilder();
MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio); MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio);
if (ObjTimbres.MsgError =="" && ObjTimbres.Timbrar()) if (ObjTimbres.MsgError == "" && ObjTimbres.Timbrar())
{ {
MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
@@ -508,7 +503,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
string FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString(); string FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString();
string RFCReceptor = GvRow.DataKey("RFCReceptor").ToString(); string RFCReceptor = GvRow.DataKey("RFCReceptor").ToString();
string RFCEmisor = GvRow.DataKey("RFCEmisor").ToString(); string RFCEmisor = GvRow.DataKey("RFCEmisor").ToString();
int CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero(); int CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero();
int CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero(); int CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero();
int CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero(); int CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero();
string TimbreTipoDocto = GvRow.DataKey("TimbreTipoDocto").ToString(); string TimbreTipoDocto = GvRow.DataKey("TimbreTipoDocto").ToString();
@@ -516,11 +511,12 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
Timbrado ObjCancelacion = new Timbrado(); Timbrado ObjCancelacion = new Timbrado();
ClsGenerales ObjGenerales = new ClsGenerales(); ClsGenerales ObjGenerales = new ClsGenerales();
ObjGenerales.IniciaTransacSQL (); ObjGenerales.IniciaTransacSQL();
if (EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptor)) if (EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptor))
{ {
if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion,"", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa )){ if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{
ProcesoOK = true; ProcesoOK = true;
} }
} }
@@ -528,7 +524,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
ModExtensiones.RespuestaCancelacionSAT Resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion: 3); ModExtensiones.RespuestaCancelacionSAT Resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion: 3);
if (Resp.Verificado) { if (Resp.Verificado)
{
if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) if (ObjGenerales.CancelarTimbreTimbrado(CveTimbre, DateTime.Now, CvePACCancelacion, ObjCancelacion.CancelacionAcuse, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
{ {
@@ -588,11 +585,11 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
protected void BtnModalEditarentrega_Click(object sender, EventArgs e) protected void BtnModalEditarentrega_Click(object sender, EventArgs e)
{ {
bool ProcesoOK = true ; bool ProcesoOK = true;
ClsGenerales ObjGral = new ClsGenerales(); ClsGenerales ObjGral = new ClsGenerales();
if(!ObjGral.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen,-1,-1, DdlModalChofer.SelectedValue.ToEntero(), DdlModalCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa, if (!ObjGral.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, -1, -1, DdlModalChofer.SelectedValue.ToEntero(), DdlModalCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,
TxtFechaLlegada.Text.ToDate(), CveCamionRemolque1: DdlRemolque1.SelectedValue.ToEntero(), CveCamionRemolque2: DdlRemolque2.SelectedValue.ToEntero(), Distancia: TxtDistancia.Text.ToEntero(), TxtFechaLlegada.Text.ToDate(), CveCamionRemolque1: DdlRemolque1.SelectedValue.ToEntero(), CveCamionRemolque2: DdlRemolque2.SelectedValue.ToEntero(), Distancia: TxtDistancia.Text.ToEntero(),
CveConfigAutoTransporte: DdlConfigAuto.SelectedValue.ToEntero())) CveConfigAutoTransporte: DdlConfigAuto.SelectedValue.ToEntero()))
{ {
ProcesoOK = false; ProcesoOK = false;
@@ -648,12 +645,12 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
if (bool.Parse(e.Row.DataKey("AplicaCP"))) if (bool.Parse(e.Row.DataKey("AplicaCP")))
{ {
if (e.Row.FCHyperLink("HplPDF") != null) if (e.Row.FCHyperLink("HplPDF") != null)
e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre"))) ; e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
} }
else else
{ {
if (e.Row.FCHyperLink("HplPDF")!= null) if (e.Row.FCHyperLink("HplPDF") != null)
e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", e.Row.DataKey("CveTimbre"))); e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
} }
string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, e.Row.DataKey("TimbreTipoDocto"), e.Row.DataKey("SerieFolio")); string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, e.Row.DataKey("TimbreTipoDocto"), e.Row.DataKey("SerieFolio"));
@@ -771,7 +768,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{ {
ValidaConfiguracionVeiculo(); ValidaConfiguracionVeiculo();
} }
private void ValidaConfiguracionVeiculo() private void ValidaConfiguracionVeiculo()
{ {
DvRemolque1.Visible = false; DvRemolque1.Visible = false;
DvRemolque2.Visible = false; DvRemolque2.Visible = false;
@@ -834,7 +831,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
using (ClsInventarios ObjInv = new ClsInventarios()) using (ClsInventarios ObjInv = new ClsInventarios())
{ {
if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2,Estatus:1)) if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus: 1))
DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}"); DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero()}");
} }
try try
@@ -873,10 +870,10 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
using (ClsInventarios ObjInv = new ClsInventarios()) using (ClsInventarios ObjInv = new ClsInventarios())
{ {
if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus : 1)) if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus: 1))
DdlModalCamion.DataSource = ObjInv.DtResultados; DdlModalCamion.DataSource = ObjInv.DtResultados;
if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus: 1)) if (ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus: 1))
DdlRemolque1.DataSource = ObjInv.DtResultados; DdlRemolque1.DataSource = ObjInv.DtResultados;
} }
@@ -1028,7 +1025,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
DataTable DT = new DataTable(); DataTable DT = new DataTable();
if (ObjClientes.DireccionEnvioGet(CveDireccion, -1,-1)) if (ObjClientes.DireccionEnvioGet(CveDireccion, -1, -1))
{ {
DT = ObjClientes.DtResultados; DT = ObjClientes.DtResultados;
} }
@@ -1070,7 +1067,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
//CveDireccionEditar //CveDireccionEditar
if (!ObjCli.DireccionEnvioUpdate(-1, TxtEnvioDireccion.Text, TxtEnvioNoExt.Text, TxtEnvioNoInt.Text, "-1", "-1", "-1", TxtEnvioCP.Text.ToEntero(), "-1", UsuarioActual.CveUsuario, -1, CveDireccionEditar, "-1", -1, "-1", if (!ObjCli.DireccionEnvioUpdate(-1, TxtEnvioDireccion.Text, TxtEnvioNoExt.Text, TxtEnvioNoInt.Text, "-1", "-1", "-1", TxtEnvioCP.Text.ToEntero(), "-1", UsuarioActual.CveUsuario, -1, CveDireccionEditar, "-1", -1, "-1",
DdlDirClientePais.SelectedValue.ToEntero(), DdlDirClienteEstado.SelectedValue.ToEntero(), DdlDirClienteMunicipio.SelectedValue.ToEntero(), DdlDirClienteLocalidad.SelectedValue.ToEntero(), DdlDirClienteColonia.SelectedValue.ToEntero())){ DdlDirClientePais.SelectedValue.ToEntero(), DdlDirClienteEstado.SelectedValue.ToEntero(), DdlDirClienteMunicipio.SelectedValue.ToEntero(), DdlDirClienteLocalidad.SelectedValue.ToEntero(), DdlDirClienteColonia.SelectedValue.ToEntero()))
{
ErrorProceso = true; ErrorProceso = true;
} }
@@ -1104,7 +1102,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
} }
#endregion #endregion

27
Inventarios/RepProductosPorCaducar.aspx.cs
View File

@@ -1,13 +1,10 @@
using System; using Extensiones;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using System.Data;
using Microsoft.Reporting.WebForms; using Microsoft.Reporting.WebForms;
using System;
using System.Collections.Generic;
using System.Data;
using System.Text; using System.Text;
using System.Web.UI.WebControls;
public partial class Inventarios_RepProductosPorCaducar : ClsPaginas public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
@@ -47,8 +44,8 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
int CvePS = -1; int CvePS = -1;
if (DdlPS.SelectedValue.ToEntero() > 0) CvePS = DdlPS.SelectedValue.ToEntero(); if (DdlPS.SelectedValue.ToEntero() > 0) CvePS = DdlPS.SelectedValue.ToEntero();
// aqui siempre se visualiza la caducidad, sin importar la condición, porque siempre se valida la caducidad // aqui siempre se visualiza la caducidad, sin importar la condición, porque siempre se valida la caducidad
ClsInventarios ObjInventarios = new ClsInventarios(); ClsInventarios ObjInventarios = new ClsInventarios();
if (ObjInventarios.GetProductosCaducidad(DdlProveedor.SelectedValue.ToEntero(), FI, TxtFechaFin.Text.ToDate(), DdlSucursal.SelectedValue.ToEntero(), if (ObjInventarios.GetProductosCaducidad(DdlProveedor.SelectedValue.ToEntero(), FI, TxtFechaFin.Text.ToDate(), DdlSucursal.SelectedValue.ToEntero(),
DdlClasificacion.SelectedValue.ToEntero(), CvePS, Cves_Alamcenes, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion: DdlOpcion.SelectedValue.ToEntero())) DdlClasificacion.SelectedValue.ToEntero(), CvePS, Cves_Alamcenes, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion: DdlOpcion.SelectedValue.ToEntero()))
{ {
@@ -80,7 +77,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
private void CargarFechaText() private void CargarFechaText()
{ {
DateTime date = new DateTime(DateTime.Today.Year, DateTime.Today.Month,1); DateTime date = new DateTime(DateTime.Today.Year, DateTime.Today.Month, 1);
//TxtFechaInicio.Text = date.AddYears(-5).ToString("dd/MM/yyyy"); //TxtFechaInicio.Text = date.AddYears(-5).ToString("dd/MM/yyyy");
TxtFechaFin.Text = date.AddMonths(6).AddDays(-1).ToString("dd/MM/yyyy"); TxtFechaFin.Text = date.AddMonths(6).AddDays(-1).ToString("dd/MM/yyyy");
DdlPS.setEsWebService(true); DdlPS.setEsWebService(true);
@@ -119,14 +116,14 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
//} //}
//ObjClasificacion.Dispose(); //ObjClasificacion.Dispose();
DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa); DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
DdlClasificacion.DataBind(); DdlClasificacion.DataBind();
DdlClasificacion.Items.Insert(0,new ListItem("Todas","-1")); DdlClasificacion.Items.Insert(0, new ListItem("Todas", "-1"));
} }
private void CargaAlamacenes(int CveSubProyectoFiltro = -1) private void CargaAlamacenes(int CveSubProyectoFiltro = -1)
{ {
ddlAlmacen.Items.Clear(); ddlAlmacen.Items.Clear();
@@ -179,7 +176,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
@params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
@params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)); @params.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
@params.Add(new ReportParameter("OcultaCaducidad", ChkTiempoCaducidad.Checked ? "0": "1" )); @params.Add(new ReportParameter("OcultaCaducidad", ChkTiempoCaducidad.Checked ? "0" : "1"));

16
Inventarios/RepTraspasoEmitido.aspx.cs
View File

@@ -1,5 +1,4 @@
using System; using Extensiones;
using System.Collections.Generic;
using System; using System;
using System.Web.UI.WebControls; using System.Web.UI.WebControls;
using static Extensiones.ModExtensiones; using static Extensiones.ModExtensiones;
@@ -42,12 +41,12 @@ public partial class Inventarios_RepTraspasoEmitido : ClsPaginas
} }
protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
UpDatos.Update(); {
} if (e.Row.RowType == DataControlRowType.DataRow)
{ {
e.Row.Cells[6].Text = String.Format("<a class=\"texto\" href=\"/Compras/PopUpVerFactura.aspx?P={0}\" target=\"_blank\"><i class=\"fa fa-ad-excel\"></i></a>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", e.Row.DBCampo("CveMovimiento"), "XML", $"Tra-{e.Row.DBCampo("Folio")}", "Tra"))); e.Row.Cells[6].Text = String.Format("<a class=\"texto\" href=\"/Compras/PopUpVerFactura.aspx?P={0}\" target=\"_blank\"><i class=\"fa fa-ad-excel\"></i></a>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", e.Row.DBCampo("CveMovimiento"), "XML", $"Tra-{e.Row.DBCampo("Folio")}", "Tra")));
if (UsuarioActual.Empresa.Funcionalidad(161) == "1") if (UsuarioActual.Empresa.Funcionalidad(161) == "1")
if (e.Row.RowType == DataControlRowType.DataRow) e.Row.Cells[7].Text = String.Format("<a class=\"texto\" href=\"/Compras/PopUpVerFactura.aspx?P={0}\" target=\"_blank\"><i class=\"fa fa-ad-pdf\"></i></a>", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", e.Row.DBCampo("CveMovimiento"), "PDF", $"Tra-{e.Row.DBCampo("Folio")}", "Tra")));
else else
e.Row.Cells[7].Text = String.Format("<a class=\"texto\" href=\"/Compras/PopUpVerFactura.aspx?P={0}\" target=\"_blank\"><i class=\"fa fa-ad-pdf\"></i></a>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", e.Row.DBCampo("CveMovimiento"), "PDF", $"Tra-{e.Row.DBCampo("Folio")}", "Tra"))); e.Row.Cells[7].Text = String.Format("<a class=\"texto\" href=\"/Compras/PopUpVerFactura.aspx?P={0}\" target=\"_blank\"><i class=\"fa fa-ad-pdf\"></i></a>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", e.Row.DBCampo("CveMovimiento"), "PDF", $"Tra-{e.Row.DBCampo("Folio")}", "Tra")));
if (e.Row.DBCampo("CveEstatusTimbrado").ToEntero() == 2) if (e.Row.DBCampo("CveEstatusTimbrado").ToEntero() == 2)
@@ -58,9 +57,9 @@ public partial class Inventarios_RepTraspasoEmitido : ClsPaginas
} }
protected void LnkCancelarTraspaso_Click(object sender, EventArgs e) protected void LnkCancelarTraspaso_Click(object sender, EventArgs e)
} {
GridViewRow Gvr = (GridViewRow)(((LinkButton)sender).NamingContainer); GridViewRow Gvr = (GridViewRow)(((LinkButton)sender).NamingContainer);
Timbrado ObjCancelacion = new Timbrado();
DateTime CancelacionFecha = MinFecha; DateTime CancelacionFecha = MinFecha;
int CveEstatusTimbrado = 0; int CveEstatusTimbrado = 0;
string FolioFiscal = Gvr.DataKey("FolioFiscal").ToString(), SelloCancelacion = ""; string FolioFiscal = Gvr.DataKey("FolioFiscal").ToString(), SelloCancelacion = "";
@@ -68,7 +67,8 @@ public partial class Inventarios_RepTraspasoEmitido : ClsPaginas
var resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, UsuarioActual.Empresa.RFC, UsuarioActual.Empresa.RFC, 4, false); var resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, UsuarioActual.Empresa.RFC, UsuarioActual.Empresa.RFC, 4, false);
if (resp.Verificado) if (resp.Verificado)
{ {
int CveMovimiento = Gvr.DataKey("CveMovimiento").ToEntero(); CancelacionFecha = ObjCancelacion.CancelacionFecha;
SelloCancelacion = ObjCancelacion.CancelacionAcuse;
CveEstatusTimbrado = 2; CveEstatusTimbrado = 2;
} }
else else

4
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -3161,7 +3161,7 @@ Partial Class Inventarios_TraspasoAlmacen
If ChkTransitorio.Checked Then If ChkTransitorio.Checked Then
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ") DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ")
Else Else
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22) ") DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (1,21,22) ")
End If End If
DdlAlmacenDestino.DataBind() DdlAlmacenDestino.DataBind()
@@ -3171,7 +3171,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Str As String Dim Str As String
If ChkTransitorio.Checked Then If ChkTransitorio.Checked Then
Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} AND Estatus = 'Activo' ", Str)) DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} AND Estatus = 'Activo' ", Str))
Else Else
Str = String.Format(" AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto")) Str = String.Format(" AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto"))
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} ", Str)) DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} ", Str))

2
OC/OC.aspx.vb
View File

@@ -1,8 +1,8 @@
Option Explicit On Option Explicit On
Imports System.Data Imports System.Data
Imports Extensiones
Imports System.IO Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Newtonsoft.Json Imports Newtonsoft.Json

4
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -2,9 +2,9 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports Extensiones
Imports System.IO
Imports System.Data.OleDb Imports System.Data.OleDb
Imports System.IO
Imports Extensiones
Partial Class CatSubProyectos Partial Class CatSubProyectos
Inherits ClsPaginas Inherits ClsPaginas

4
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -1,5 +1,5 @@
Imports Extensiones Imports System.Data
Imports System.Data Imports Extensiones
Partial Class Sistemas_PopUpAddUsuario Partial Class Sistemas_PopUpAddUsuario
Inherits ClsPaginas Inherits ClsPaginas
#Region "PROPIEDADES" #Region "PROPIEDADES"

4
Sistemas/UsuarioDetalle.aspx
View File

@@ -1496,8 +1496,8 @@
<tr> <tr>
<td>Porcentaje Máximo:</td> <td>Porcentaje Máximo:</td>
<td> <td>
<asp:TextBox ID="TxtPorcentajeMaximoAutorizacion" runat="server" Width="100px"></asp:TextBox> <asp:TextBox ID="TxtPorcentajeMaximoAutorizacion" runat="server" Width="70px"></asp:TextBox>
<asp:RangeValidator ID="RVPM" runat="server" Type="Double" MinimumValue="0" MaximumValue="999999" ErrorMessage="El campo <b>''Porcentaje Máximo''</b> no tiene el formato correcto, por favor ingréselo." ControlToValidate="TxtPorcentajeMaximoAutorizacion" Display="None" ValidationGroup="GrpGuardar"></asp:RangeValidator> <asp:RangeValidator ID="RVPM" runat="server" Type="Decimal" MinimumValue="0" MaximumValue="999999.99" ErrorMessage="El campo <b>''Porcentaje Máximo''</b> no tiene el formato correcto, por favor ingréselo." ControlToValidate="TxtPorcentajeMaximoAutorizacion" Display="None" ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCEPM" runat="server" HighlightCssClass="vco" TargetControlID="RVPM" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEPM" runat="server" HighlightCssClass="vco" TargetControlID="RVPM" Width="300px"></ajax:ValidatorCalloutExtender>
</td> </td>
<td></td> <td></td>

3
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1,9 +1,8 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.Data Imports System.Data
Imports System.Threading Imports Extensiones
Partial Class Sistemas_UsuarioDetalle Partial Class Sistemas_UsuarioDetalle
Inherits ClsPaginas Inherits ClsPaginas

4
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -2,10 +2,10 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.Data Imports System.Data
Imports GemBox.Spreadsheet
Imports System.IO Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet
Partial Class Ventas_ActualizarPrecios Partial Class Ventas_ActualizarPrecios
Inherits ClsPaginas Inherits ClsPaginas

38
Ventas/Clientes.aspx.vb
View File

@@ -1,19 +1,15 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.Runtime.InteropServices
Imports System.IO
Imports Microsoft.Reporting.WebForms
Imports System.Data Imports System.Data
Imports System.Globalization Imports System.Globalization
Imports System.Net.Http Imports System.IO
Imports Newtonsoft.Json
Imports System.Threading.Tasks
Imports Newtonsoft.Json.Linq
Imports System.Net Imports System.Net
Imports System.Collections.Generic Imports System.Net.Http
Imports Newtonsoft.Json.Serialization Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Partial Class Clientes Partial Class Clientes
Inherits ClsPaginas Inherits ClsPaginas
@@ -2497,18 +2493,18 @@ Partial Class Clientes
End If End If
'CargaSucursal() 'CargaSucursal()
'If UsuarioActual.TienePermisoProceso(170) AndAlso TxtCodigo.Text.Trim = "" Then 'If UsuarioActual.TienePermisoProceso(170) AndAlso TxtCodigo.Text.Trim = "" Then
' Alert("Es necesario ingresar un Código", TipoMensaje.MsgAdvertencia) ' Alert("Es necesario ingresar un Código", TipoMensaje.MsgAdvertencia)
' Exit Sub ' Exit Sub
'End If 'End If
'Dim rowcodigo As DataTable = GlobalDTCliente.FiltraParametros(String.Format("Codigo='{0}' AND CveEmpresa={1} ", TxtCodigo.Text.Trim, UsuarioActual.CveEmpresa)) 'Dim rowcodigo As DataTable = GlobalDTCliente.FiltraParametros(String.Format("Codigo='{0}' AND CveEmpresa={1} ", TxtCodigo.Text.Trim, UsuarioActual.CveEmpresa))
'If (Not IsNothing(rowcodigo)) AndAlso (rowcodigo.Rows.Count > 0) AndAlso (rowcodigo.Rows(0)("CveCliente").ToString().Toentero() <> CveCliente) Then 'If (Not IsNothing(rowcodigo)) AndAlso (rowcodigo.Rows.Count > 0) AndAlso (rowcodigo.Rows(0)("CveCliente").ToString().Toentero() <> CveCliente) Then
' Alert(String.Format("ya existe un Cliente Con este Codigo '{0}'", TxtCodigo.Text.Trim), TipoMensaje.MsgAdvertencia) ' Alert(String.Format("ya existe un Cliente Con este Codigo '{0}'", TxtCodigo.Text.Trim), TipoMensaje.MsgAdvertencia)
' Exit Sub ' Exit Sub
'End If 'End If
Dim ObjClientes As New ClsClientes() Dim ObjClientes As New ClsClientes()
Dim objDoc As New ClsEdocumentacion(ObjClientes.IniciaTransacSQL()) Dim objDoc As New ClsEdocumentacion(ObjClientes.IniciaTransacSQL())
Dim MsgCuentaContable As String = "" Dim MsgCuentaContable As String = ""
Dim ErrorProceso As Boolean = False Dim ErrorProceso As Boolean = False

4
Ventas/MetasVendedoresDetalle.aspx.vb
View File

@@ -1,6 +1,4 @@
Imports System.Data Imports Extensiones
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class MetasVendedoresDetalle Partial Class MetasVendedoresDetalle
Inherits ClsPaginas Inherits ClsPaginas

7
Ventas/PV.aspx.vb
View File

@@ -1,15 +1,12 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.Data Imports System.Data
Imports System.IO Imports System.IO
Imports System.Linq
Imports System.Security.Cryptography.X509Certificates
Imports System.Globalization
Imports System.Net.Http Imports System.Net.Http
Imports Microsoft.Reporting.WebForms Imports System.Security.Cryptography.X509Certificates
Imports ADSSession Imports ADSSession
Imports Extensiones
Partial Class PV Partial Class PV
Inherits ClsPaginas Inherits ClsPaginas

32
Ventas/RepCancelacionesPorRespuesta.aspx.cs
View File

@@ -1,17 +1,11 @@
using System; using Extensiones;
using System;
using System.Collections.Generic; using System.Collections.Generic;
using System.Data; using System.Data;
using System.IO;
using System.Linq;
using System.ServiceModel;
using System.Text;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using Extensiones;
using static Extensiones.ModExtensiones;
using Microsoft.Reporting.WebForms;
using System.Net.Http; using System.Net.Http;
using System.Text;
using System.Web.UI.WebControls;
using static Extensiones.ModExtensiones;
public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
{ {
@@ -107,9 +101,9 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
{ {
Msg = resp.Mensaje; Msg = resp.Mensaje;
if (CveEstatusRefact == "4") if (CveEstatusRefact == "4")
{ {
Msg = Msg+ "<br/><a class='Texto' href='/Ventas/Ventas.aspx?CveDevolucion=" + CveVenta + "&NuevaFactura=1'> Refacturar</a>"; Msg = Msg + "<br/><a class='Texto' href='/Ventas/Ventas.aspx?CveDevolucion=" + CveVenta + "&NuevaFactura=1'> Refacturar</a>";
} }
Alert(Msg, TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion();", TextoConfirmacion: "Enviar", TextoSegundoBoton: "Cancelar"); Alert(Msg, TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion();", TextoConfirmacion: "Enviar", TextoSegundoBoton: "Cancelar");
} }
@@ -589,9 +583,9 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
e.Row.FCHyperLink("HplRefact").Visible = true; e.Row.FCHyperLink("HplRefact").Visible = true;
} }
if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID=="GvDatos") if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID == "GvDatos")
{ {
e.Row.FCLinkButton("BtnValidar").Text= "<i class='fa fa-check'>02</i>"; e.Row.FCLinkButton("BtnValidar").Text = "<i class='fa fa-check'>02</i>";
e.Row.FCLinkButton("BtnValidar").CssClass = "btn btn-circle btn-sm blue"; e.Row.FCLinkButton("BtnValidar").CssClass = "btn btn-circle btn-sm blue";
} }
//if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID == "GvDatos") //if (e.Row.DBCampo("CveEstatusRefacturacion") == "4" && gv.ID == "GvDatos")
@@ -615,7 +609,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
{ {
e.Row.FCLinkButton("LnkCancelar").Visible = true; e.Row.FCLinkButton("LnkCancelar").Visible = true;
//SOLO MOSTRAR SI LA FACTURA NUEVA ESTA EMITIDA //SOLO MOSTRAR SI LA FACTURA NUEVA ESTA EMITIDA
if (e.Row.DBCampo("CveEstatusRefacturacion") != "4" && e.Row.DBCampo("CveEstatusFacturaSustitucion") == "3") if (e.Row.DBCampo("CveEstatusRefacturacion") != "4" && e.Row.DBCampo("CveEstatusFacturaSustitucion") == "3")
{ {
e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true; e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true;
} }
@@ -824,9 +818,9 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
sb.Append($"</br> <a href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=CAN&CVEVTA={CveVenta}")}' class='Texto' target='_blank'>Imprimir Acuse</a>"); sb.Append($"</br> <a href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=CAN&CVEVTA={CveVenta}")}' class='Texto' target='_blank'>Imprimir Acuse</a>");
} }
if (respCancelacion.CveEstatus.Contiene(5,20)) if (respCancelacion.CveEstatus.Contiene(5, 20))
{ {
if (ObjVentas.UpdateEstatusVenta(CveVentaOriginal, 23, UsuarioActual.CveEmpresa, CveEstatusRefacturacion:4, CveMotivoCancelacion: CveMotivoCancelacion)) if (ObjVentas.UpdateEstatusVenta(CveVentaOriginal, 23, UsuarioActual.CveEmpresa, CveEstatusRefacturacion: 4, CveMotivoCancelacion: CveMotivoCancelacion))
{ {
sb.Append($"</br>La Factura <b>{SerieFolioOriginal}</b> fue desligada."); sb.Append($"</br>La Factura <b>{SerieFolioOriginal}</b> fue desligada.");
} }

6
Ventas/RepPS.aspx.vb
View File

@@ -1,11 +1,11 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports GemBox.Spreadsheet
Imports System.Globalization Imports System.Globalization
Imports Extensiones
Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Partial Class Ventas_RepPS Partial Class Ventas_RepPS
Inherits ClsPaginas Inherits ClsPaginas

2
Ventas/RepProductosServicios.aspx.vb
View File

@@ -1,9 +1,9 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.Data
Partial Class Ventas_RepProductosServicios Partial Class Ventas_RepProductosServicios
Inherits ClsPaginas Inherits ClsPaginas

2
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -3,9 +3,9 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.IO Imports System.IO
Imports System.IO.Compression
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.IO.Compression
Partial Class Ventas_RepProductosServiciosDetalle Partial Class Ventas_RepProductosServiciosDetalle
Inherits ClsPaginas Inherits ClsPaginas

2
Ventas/RepRecuperacionDetalle.aspx.vb
View File

@@ -3,9 +3,9 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.IO
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.IO
Partial Class Ventas_RepRecuperacionDetalle Partial Class Ventas_RepRecuperacionDetalle
Inherits ClsPaginas Inherits ClsPaginas

2
Ventas/RepRemisiones.aspx.vb
View File

@@ -2,8 +2,8 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class RepRemisiones Partial Class RepRemisiones
Inherits ClsPaginas Inherits ClsPaginas

86
Ventas/Ventas.aspx.vb
View File

@@ -1,16 +1,16 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports Extensiones
Imports System.Data Imports System.Data
Imports System.IO
Imports System.Xml
Imports Microsoft.Reporting.WebForms
Imports System.Security.Cryptography.X509Certificates
Imports System.Globalization
Imports System.Net.Http
Imports Newtonsoft.Json.Linq
Imports System.Diagnostics Imports System.Diagnostics
Imports System.Globalization
Imports System.IO
Imports System.Net.Http
Imports System.Security.Cryptography.X509Certificates
Imports System.Xml
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports Newtonsoft.Json.Linq
Partial Class Ventas Partial Class Ventas
Inherits ClsPaginas Inherits ClsPaginas
@@ -34798,48 +34798,48 @@ Partial Class Ventas
sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable) sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
Dim Relacionados = Timbrado.ConsultarUUIDRelacionados(UsuarioActual.Empresa, FolioFiscal, UsuarioActual.Empresa.FacturaProduccion) Dim Relacionados = Timbrado.ConsultarUUIDRelacionados(UsuarioActual.Empresa, FolioFiscal, UsuarioActual.Empresa.FacturaProduccion)
If Relacionados IsNot Nothing Then If Relacionados IsNot Nothing Then
Dim sbExtra As New StringBuilder() Dim sbExtra As New StringBuilder()
If Relacionados.Codigo = 500 Then If Relacionados.Codigo = 500 Then
sbExtra.Append("El servicio de verificación de documentos relacionados no esta disponible.") sbExtra.Append("El servicio de verificación de documentos relacionados no esta disponible.")
Else Else
sbExtra.Append(Relacionados.Mensaje) sbExtra.Append(Relacionados.Mensaje)
Dim SbHijos = New StringBuilder() Dim SbHijos = New StringBuilder()
Dim SbPadres = New StringBuilder() Dim SbPadres = New StringBuilder()
If Relacionados.RelacionadosPadre IsNot Nothing Then
For Each padre In Relacionados.RelacionadosPadre
SbPadres.AppendFormat("{0};", padre.Uuid)
Next
If SbPadres.Length > 0 Then
SbPadres.Remove(SbPadres.Length - 1, 1)
End If
End If
Using ObjVentas As New ClsVentas
If SbPadres.Length > 0 Then
If ObjVentas.GetFacturasRelacionadasPorFolioFiscal(SbPadres.ToString(), UsuarioActual.CveEmpresa) Then
Dim dtt As DataTable = ObjVentas.DtResultados.FiltraParametros($"CveVenta <> {CveVenta}")
For Each dr As DataRow In dtt.Rows
sb.AppendFormat("{0}-{1}-{2}<br/>", dr("TipoDocto"), dr("SerieFolio"), dr("FolioFiscal"))
Next
If Relacionados.RelacionadosPadre IsNot Nothing Then
For Each padre In Relacionados.RelacionadosPadre
SbPadres.AppendFormat("{0};", padre.Uuid)
Next
If SbPadres.Length > 0 Then
SbPadres.Remove(SbPadres.Length - 1, 1)
End If End If
End If End If
Using ObjVentas As New ClsVentas End Using
If SbPadres.Length > 0 Then
If ObjVentas.GetFacturasRelacionadasPorFolioFiscal(SbPadres.ToString(), UsuarioActual.CveEmpresa) Then
Dim dtt As DataTable = ObjVentas.DtResultados.FiltraParametros($"CveVenta <> {CveVenta}")
For Each dr As DataRow In dtt.Rows
sb.AppendFormat("{0}-{1}-{2}<br/>", dr("TipoDocto"), dr("SerieFolio"), dr("FolioFiscal"))
Next
End If
End If
End Using
End If
If sbExtra.Length > 0 Then
LbExtraRefacturacion.Text = $"<br><b>*{sbExtra.ToString()}</b>"
End If
End If End If
Alert(sb.ToString(), TipoMensaje.MsgInformacion)
If sbExtra.Length > 0 Then
LbExtraRefacturacion.Text = $"<br><b>*{sbExtra.ToString()}</b>"
End If
End If
Alert(sb.ToString(), TipoMensaje.MsgInformacion)
End Sub End Sub
End Class End Class