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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-28 18:23:51 -07:00
parent 341f479bd7 98cccccebc
commit c94b5a151f
8 changed files with 51 additions and 151 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsVentas.vb
View File

@@ -5606,13 +5606,15 @@ Public Class ClsVentas
End Function End Function
Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, LineaAdicionalComprobante As String, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_LineasAdicionalesVentaUpdate") DataAdapter("PA_Vta_LineasAdicionalesVentaUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@LineaAdicionalComprobante", SqlDbType.VarChar).Value = LineaAdicionalComprobante
.Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

3
Bancos/RepIE.aspx.vb
View File

@@ -6,7 +6,6 @@ Imports Microsoft.Reporting.WebForms
Imports Extensiones Imports Extensiones
Partial Class Bancos_RepIE Partial Class Bancos_RepIE
Inherits ClsPaginas Inherits ClsPaginas
Private Shared missing As Object = System.Reflection.Missing.Value
#Region "PROPIEDADES" #Region "PROPIEDADES"
Private Property Conciliacion As Boolean Private Property Conciliacion As Boolean
@@ -76,7 +75,7 @@ Partial Class Bancos_RepIE
TipoPagina = Request("Tipo") TipoPagina = Request("Tipo")
DdlEstatusIE.SelectedValueExist("1") DdlEstatusIE.SelectedValueExist("1")
DdlEstatusIE.Enabled = False ' DdlEstatusIE.Enabled = False
'habilita especificar otros ingresos en conciliaciones 'habilita especificar otros ingresos en conciliaciones
AceptaOtrosIngresos = If(UsuarioActual.Empresa.Funcionalidad(124) = "1", True, False) AceptaOtrosIngresos = If(UsuarioActual.Empresa.Funcionalidad(124) = "1", True, False)

2
Compras/RepCxPDetalle.aspx.vb
View File

@@ -230,7 +230,7 @@ Partial Class RepCxPDetalle
Me.CveProveedor = CveProveedor Me.CveProveedor = CveProveedor
If DdlProveedores.SelectedValue.ToEntero > 0 Then If DdlProveedores.SelectedValue.ToEntero > 0 Then
DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor).FiltroPrimeroValor("RazonSocial").ToString
Else Else
DdlProveedores.SelectedText = "-" DdlProveedores.SelectedText = "-"
End If End If

138
Global.asax
View File

@@ -99,54 +99,6 @@
End Using End Using
GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now)) GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R O S P E C T O S
'GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
'Using ObjProspectos As New ClsProspectos
'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
'If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
'If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
'If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
'If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
'If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
'If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
'If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
'If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
'If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
'If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
'If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
'If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
'If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
'If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
'If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
'If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
'If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
'If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
'End Using
'GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C L A S I F I C A C I O N E S
'Using ObjClasificaciones As New ClsClasificaciones()
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'F A M I L I A S
'If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P R E S U P U E S T O
'If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C L A S I F I C A C I O N E S 2
'If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
'End Using
'GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -158,14 +110,6 @@
GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O M B U S T I B L E S
'Using ObjFlotillas As New ClsFlotillas
'If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
'If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
'End Using
'GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -194,26 +138,26 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ''------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
' R A S T R E O '' R A S T R E O
Using ObjGPS As New ClsGPS 'Using ObjGPS As New ClsGPS
If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then ' If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then
If ObjGPS.DtResultados.Rows.Count > 0 Then ' If ObjGPS.DtResultados.Rows.Count > 0 Then
Application("GlobalDTDispositivos") = ObjGPS.DtResultados ' Application("GlobalDTDispositivos") = ObjGPS.DtResultados
Else ' Else
Application("GlobalDTDispositivos") = Nothing ' Application("GlobalDTDispositivos") = Nothing
End If ' End If
End If ' End If
If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then ' If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then
If ObjGPS.DtResultados.Rows.Count > 0 Then ' If ObjGPS.DtResultados.Rows.Count > 0 Then
Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados ' Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados
Else ' Else
Application("GlobalDTDispositivosUsuarios") = Nothing ' Application("GlobalDTDispositivosUsuarios") = Nothing
End If ' End If
End If ' End If
End Using 'End Using
GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) 'GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now))
'If EsProduccion = "1" Then 'If EsProduccion = "1" Then
@@ -277,48 +221,6 @@
'sessionData.Remove(HttpContext.Current.Session.SessionID) 'sessionData.Remove(HttpContext.Current.Session.SessionID)
'Application("s") = sessionData 'Application("s") = sessionData
End Sub End Sub
#Region "S Q L D E P E N D E N C Y"
'Public Sub RegisterNotification()
' Try
' 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created
' Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
' 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event
' Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones"
' 'Start the SQL Dependency
' SqlDependency.Start(connectionString)
' Using connection As New SqlConnection(connectionString)
' Using command As New SqlCommand(commandText, connection)
' connection.Open()
' Dim sqlDependency = New SqlDependency(command)
' AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange
' ' NOTE: You have to execute the command, or the notification will never fire.
' Using reader As SqlDataReader = command.ExecuteReader()
' End Using
' End Using
' End Using
' Catch ex As Exception
' End Try
'End Sub
'Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs)
' If e.Info = SqlNotificationInfo.Update Then
' Try
' Dim ObjNotificaciones As New ClsSisNotificaciones
' ObjNotificaciones.ObtenerNotificaciones()
' ObjNotificaciones.Dispose()
' 'System.Threading.Thread.Sleep(5000)
' RegisterNotification()
' Catch ex As Exception
' End Try
' End If
' 'Call the RegisterNotification method again
'End Sub
#End Region
</script> </script>

19
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -716,14 +716,17 @@ Partial Class Sistemas_UsuarioDetalle
'DdlSubProyectos.SelectedValueExist(CveSubProyecto) 'DdlSubProyectos.SelectedValueExist(CveSubProyecto)
End Sub End Sub
Private Sub CargaPersonal() Private Sub CargaPersonal()
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
Dim RH As New ClsRH 'Dim RH As New ClsRH
If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then 'If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then
dt = RH.DtResultados ' dt = RH.DtResultados
End If 'End If
RH.Dispose() 'RH.Dispose()
If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then
dt = GlobalDTRHPersonal(DdlEmpresaAsignaciones.SelectedValue.ToEntero)
End If
DdlPersonal.Items.Clear() DdlPersonal.Items.Clear()
DdlPersonal.DataSource = dt DdlPersonal.DataSource = dt
DdlPersonal.DataBind() DdlPersonal.DataBind()

4
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1001,8 +1001,8 @@ Partial Class Ventas_ClientesAbonar
Dim IdCtaContable As Integer = If(EsAnticipoEspecial, IdCtaAnticipo, IdCuentaCliente) Dim IdCtaContable As Integer = If(EsAnticipoEspecial, IdCtaAnticipo, IdCuentaCliente)
If VentaActual.CveMoneda = 2 Then IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaExtranjeraAnticipo, IdCtaContMonedaExtranjera) If VentaActual.CveMoneda = 2 Then IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaExtranjeraAnticipo, IdCtaContMonedaExtranjera)
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 3, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 95, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
Else Else

6
Ventas/RepLineasAdicionales.aspx
View File

@@ -128,13 +128,13 @@
OnRowCommand="GvLAPO_RowCommand" OnRowCommand="GvLAPO_RowCommand"
OnRowDataBound="GvLAPO_RowDataBound"> OnRowDataBound="GvLAPO_RowDataBound">
<Columns> <Columns>
<asp:BoundField DataField="Agrupador" HeaderText="Agrupador" /> <asp:HyperLinkField DataTextField="Agrupador" HeaderText="Agrupador" />
<asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" /> <asp:BoundField DataField="LineaAdicional" HeaderText="PO" />
<asp:BoundField DataField="Importe" HeaderText="Importe PO" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Importe" HeaderText="Importe PO" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Abreviatura" HeaderText="Mon" /> <asp:BoundField DataField="Abreviatura" HeaderText="Mon" />
<asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" /> <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
<asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="DiasVencimiento" HeaderText="D.Plazo" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="DiasTranscurridos" HeaderText="D.Trans" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="DiasTranscurridos" HeaderText="D.Trans" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="FechaVenta" HeaderText="F. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="FechaVenta" HeaderText="F. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField DataField="FechaVencimientoVenta" HeaderText="F. Venc. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField DataField="FechaVencimientoVenta" HeaderText="F. Venc. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />

26
Ventas/RepLineasAdicionales.aspx.cs
View File

@@ -204,8 +204,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
bool errorCargaComprobante = false; bool errorCargaComprobante = false;
string FileExtension = "-1"; string FileExtension = "-1";
List<Archivo> filesgral = Anexo.getfiles().Archivos; List<Archivo> filesgral = Anexo.getfiles().Archivos;
string filemove = "";
string filemove = ""; string filemove = "";
FileInfo fiNuevo; FileInfo fiNuevo;
@@ -257,12 +256,10 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
fiNuevo = new FileInfo(RutaArchivoTemp); fiNuevo = new FileInfo(RutaArchivoTemp);
if (fiNuevo.Exists)
if (fiNuevo.Exists) if (fiNuevo.Exists)
{ {
try try
{
if (File.Exists($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"))
if (File.Exists($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}")) if (File.Exists($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"))
{ {
File.Delete($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"); File.Delete($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}");
@@ -274,7 +271,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
{ {
errorCargaComprobante = true; errorCargaComprobante = true;
} }
if (!errorCargaComprobante) if (!errorCargaComprobante)
{ {
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();
@@ -289,23 +286,22 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
} }
if (!errorCargaComprobante) if (!errorCargaComprobante)
{ {
CargaDatos(); CargaDatos();
Anexo.Text = "[]";
Anexo.Text = "[]"; Anexo.Text = "[]";
RegistraScript("$('#ModalComprobante').modal('hide');", ""); RegistraScript("$('#ModalComprobante').modal('hide');", "");
Alert("Comprobante actualizado correctamente."); Alert("Comprobante actualizado correctamente.");
} }
UpAddComprobancte.Update(); UpAddComprobancte.Update();
} }
protected void LnkCambiarEstatus_Click(object sender, EventArgs e) protected void LnkCambiarEstatus_Click(object sender, EventArgs e)
{ {
GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToEntero(); int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToEntero();
int CveVenta = GvRow.DataKey("CveVenta").ToEntero(); int CveVenta = GvRow.DataKey("CveVenta").ToEntero();
bool errorCambioEstatus = false; bool errorCambioEstatus = false;
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();
@@ -336,9 +332,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
GridView gvTemp = GvLAPO; GridView gvTemp = GvLAPO;
gvTemp.Columns[12].Visible = false; gvTemp.Columns[12].Visible = false;
//gvTemp.ExportToExcelX("ReportePO" + DateTime.Now.ToShortDateString()); //gvTemp.ExportToExcelX("ReportePO" + DateTime.Now.ToShortDateString());
gvTemp.ExportToExcelGembox( "ReportePO", UsuarioActual, "Reporte PO ", AnchoImagen:150); gvTemp.ExportToExcelGembox( "ReportePO", UsuarioActual, "Reporte PO ", AnchoImagen:150);
}
} }
} }
@@ -348,7 +342,6 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
if (e.Row.RowType == DataControlRowType.DataRow) if (e.Row.RowType == DataControlRowType.DataRow)
{ {
LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus");
LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus"); LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus");
LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante"); LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante");
LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante");
@@ -367,7 +360,8 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
LnkCargarComprobante.Visible = false; LnkCargarComprobante.Visible = false;
LnkDescargaComprobante.Visible = false; LnkDescargaComprobante.Visible = false;
} }
else else
{
if (e.Row.DataKey("CveVenta").ToEntero() > 0 && e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 1) if (e.Row.DataKey("CveVenta").ToEntero() > 0 && e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 1)
{ {