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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-04-04 20:53:45 -07:00
parent b13bcf4c71 353d4ef218
commit 3db411e5bb
16 changed files with 85 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Acarreos/CatChoferes.aspx
View File

@@ -32,8 +32,7 @@
DataKeyNames="CveChofer,Chofer,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveTransportista,Identificacion,Domicilio,Telefono,Ciudad,RFC,Licencia,NumeroInterior,NumeroExterior,Colonia,Estado,NumRegidTribOperador,ResidenciaFiscalOperador,CP,CveEstado,CveMunicipio,CveLocalidad,CveColonia,ClaveSATColoniaCP"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Choferes">
<Columns>
<asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Chofer" HeaderText="Chofer" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="FechaIng" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
@@ -83,10 +82,10 @@
<asp:TextBox ID="TxtRFC" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
<label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<%-- <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTransportista" DataValueField="CveTransportista" DataTextField="Transportista" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" Width="200px"></asp:DropDownList>
<label for="<%= DdlTransportista.ClientID.ToString()%>">Transportista:</label>
</div>
</div>--%>
<div class="row ">

58
Acarreos/CatChoferes.aspx.vb
View File

@@ -12,7 +12,7 @@ Partial Class Acarreos_CatChoferes
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
CargaDdlTransportista()
' CargaDdlTransportista()
CargaDdls()
@@ -44,16 +44,16 @@ Partial Class Acarreos_CatChoferes
End Sub
Private Sub CargaDdlTransportista()
Dim ObjAcar As New ClsAcarreos()
If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTransportista.DataSource = ObjAcar.DtResultados
DdlTransportista.DataBind()
End If
ObjAcar.Dispose()
UpAddChofer.Update()
End Sub
'Private Sub CargaDdlTransportista()
' Dim ObjAcar As New ClsAcarreos()
' If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then
' DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
' DdlTransportista.DataSource = ObjAcar.DtResultados
' DdlTransportista.DataBind()
' End If
' ObjAcar.Dispose()
' UpAddChofer.Update()
'End Sub
Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click
@@ -65,32 +65,32 @@ Partial Class Acarreos_CatChoferes
End If
If DdlTransportista.SelectedValue = "-1" Then
Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
Else
'If DdlTransportista.SelectedValue = "-1" Then
' Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
'Else
Dim ObjAcar As New ClsAcarreos
Dim ObjAcar As New ClsAcarreos
Dim Estatus = 0
If ChkEstatus.Checked Then Estatus = 1
If HdnModalidad.Value = "A" Then
If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, 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()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, 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()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
End If
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()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, -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()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
End If
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer"))
ObjAcar.Dispose()
UpDatos.Update()
End If
End Sub
Public Sub Edit_Click(sender As Object, e As EventArgs)
@@ -121,7 +121,7 @@ Partial Class Acarreos_CatChoferes
DdlResidenciaFiscalOperador.SelectedValueExist("-1")
DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador"))
DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
' DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
divEstatus.Visible = True
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
@@ -182,7 +182,7 @@ Partial Class Acarreos_CatChoferes
TxtLicencia.Text = ""
DdlTransportista.SelectedValueExist(-1)
' DdlTransportista.SelectedValueExist(-1)
TxtRFC.Text = ""
TxtNumInt.Text = ""
TxtNumExt.Text = ""

1
Acumuladores/RepIndicadorDiario.aspx.vb
View File

@@ -76,7 +76,6 @@ Partial Class ACumuladores_RepIndicadorDiario
CargaCombos()
CargaDatos()
End If
End Sub

3
App_Code/ClsPuntoVenta.vb
View File

@@ -222,13 +222,14 @@ Public Class ClsPuntoVenta
Return Retorno
End Function
Public Function GetCortesDetalleVentas(CveCorte As Integer, CveEmpresa As Integer) As Boolean
Public Function GetCortesDetalleVentas(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CortesDetalleVentasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCorte", SqlDbType.Int).Value = CveCorte
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With

2
Bancos/PagoDeudor.aspx.cs
View File

@@ -681,7 +681,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
{
string Conc = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text;
string Ref = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text;
decimal ImporteBanco = TxtImporte.Text.ToDecimal();
decimal ImporteBanco = TxtImporte.Text.ToDecimal().RoundSQL();
decimal ImporteMNBanco = ImporteBanco;
decimal ImporteComplementaria = 0;
decimal TC = TxtTCDolaresPago.Text.ToDecimal();

4
General/CATIEPSxEntidadFed.aspx.cs
View File

@@ -61,13 +61,13 @@ public partial class General_CATIEPSxEntidadFed : ClsPaginas
RfechaInicio = RfechaInicio.ToDate().ToString("yyyy/MM/dd");
RfechaFin = RfechaFin.ToDate().ToString("yyyy/MM/dd");
CargaIEPSxEntidadFed();
//CargaIEPSxEntidadFed();
}
}
protected void CargaIEPSxEntidadFed()
{
ClsGenerales ObjIEPS = new ClsGenerales();
ObjIEPS.IEPSxEntidadFed(RcveEstado, RtasaIEPS, RfechaInicio, RfechaFin, 119, RAgrupador);
ObjIEPS.IEPSxEntidadFed(RcveEstado, RtasaIEPS, RfechaInicio, RfechaFin, UsuarioActual.CveEmpresa, RAgrupador);
GVIEPSxEntidadFed.DataSource = ObjIEPS.DtResultados;
DtIEPS = ObjIEPS.DtResultados;
ObjIEPS.Dispose();

2
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End Sub
Private Sub CargaCombos()
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2, 4,12,14,16,19, 26)")
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,4,8,12,14,16,19, 26)")
DdlAlmacen.DataSource = DtAlmacenes
DdlAlmacen.DataBind()

10
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2216,6 +2216,9 @@ Partial Class Inventarios_EntradasSalidas
If DdlConcepto.Items.FindByValue("3") Is Nothing Then
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Salida Almacen ", "3"))
End If
If DdlConcepto.Items.FindByValue("45") Is Nothing Then
DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Salida de Usado ", "45"))
End If
End If
@@ -4136,7 +4139,7 @@ Partial Class Inventarios_EntradasSalidas
Dim CodigoPS As String = ""
Dim PS As String = ""
Dim CveSeccionAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero
Dim CveSeccionAlmacen As Integer = DdlSeccionCambio.SelectedValue.ToEntero
Dim Serie As String = If(TxtSerieCambio.Text = "", "", TxtSerieCambio.Text)
Dim Lote As String = If(TxtLoteCambio.Text = "", "", TxtLoteCambio.Text)
Dim Caducidad As String = If(TxtCaducidadCambio.Text = "", MinFecha.ToShortDateString, TxtCaducidadCambio.Text)
@@ -4535,7 +4538,8 @@ Partial Class Inventarios_EntradasSalidas
ImporteConcepto += PUEntrada * Dr("Cantidad").ToString.ToDecimal()
'INSERTA EL MOVIMIENTO DE ENTRADA
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUMVigencia").ToString.ToEntero, Dr("CvePSVigencia").ToString.ToEntero, PUEntrada, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero) Then
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUMVigencia").ToString.ToEntero, Dr("CvePSVigencia").ToString.ToEntero, PUEntrada, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString,
Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then
Mensaje = "Ocurrió un error al guardar los movimientos de entrada"
ErrorMovInv = True
Exit For
@@ -5403,7 +5407,7 @@ Partial Class Inventarios_EntradasSalidas
Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
Timbre.Comprobante.Subtotal = Obj.SubTotal
Timbre.Comprobante.SubTotal = Obj.SubTotal
Timbre.Comprobante.Descuentos = Obj.Descuento
Timbre.Comprobante.Moneda = Obj.MonedaSAT
Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)

33
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -817,7 +817,7 @@ Partial Class Inventarios_TraspasoAlmacen
#Region " GUARDAR "
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
If ChkEmitirCartaPorte.Checked Then
If ChkTransitorio.Checked AndAlso ChkEmitirCartaPorte.Checked Then
If DdlChofer.SelectedValue.ToEntero <= 0 Then
Alert("Debe de seleccionar un chofer.", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -3115,13 +3115,34 @@ Partial Class Inventarios_TraspasoAlmacen
Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (26) AND Estatus = 'Activo'")
If ChkTransitorio.Checked Then
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (26) AND Estatus = 'Activo' ")
Else
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (26) ")
End If
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
ElseIf DrAlmO("CveTipoAlmacen").ToString.ToEntero = 22 Then 'Recepcion de Usados
ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("22") Then 'Recepcion de Usados
If ChkTransitorio.Checked Then
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ")
Else
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22) ")
End If
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("21") Then 'dev proveedor
If ChkTransitorio.Checked Then
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ")
Else
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22) ")
End If
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (21,22) AND Estatus = 'Activo'")
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else
@@ -3129,10 +3150,12 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Str As String
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
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
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))
End If
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) AND Estatus = 'Activo' {0} ", Str))
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))

2
RH/CatRegistroPatronal.aspx
View File

@@ -34,7 +34,7 @@
<br />
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="800px"
DataKeyNames="CveRegistroPatronal,RegistroPatronal,Estatus,CveEmpresa,FechaIng,CveUsuario" EmptyDataText="No se encontraron Registros Patronales" ToolTip="Listado de Registros Patronales"
CssClass="table table-striped table-advance table-hover" GridLines="None">
CssClass="table table-hover table-striped table-advance table-hover Widthall " GridLines="None">
<Columns>
<asp:BoundField HeaderText="Registro Patronal" DataField="RegistroPatronal" ItemStyle-HorizontalAlign="Left" />

2
RH/Personal.aspx
View File

@@ -1763,7 +1763,7 @@
<asp:UpdatePanel runat="server" ID="UpFonacotGrid" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVNomFonacot" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall"
AutoGenerateColumns="False" ShowHeaderWhenEmpty="true" EmptyDataText="No ahi créditos fonacot registrados."
AutoGenerateColumns="False" ShowHeaderWhenEmpty="true" EmptyDataText="No hay créditos FONACOT registrados."
DataKeyNames="CveFonacot,CvePersonal,NumeroCredito,Descripcion,Periodo,CveTipoCalculo,ImporteCredito,ImporteFijo,PagosHechos,MontoAcumulado,Saldo,CveEstatus,Observaciones,CveUsuarioIng">
<Columns>
<asp:TemplateField HeaderText="Numero crédito">

21
SAT/Default.aspx
View File

@@ -1,21 +0,0 @@
<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="SAT_Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

14
SAT/Default.aspx.cs
View File

@@ -1,14 +0,0 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
public partial class SAT_Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
}
}

2
Ventas/RepRecuperacionDetalle.aspx
View File

@@ -289,6 +289,8 @@
<asp:BoundField HeaderText="Num. Cuenta" DataField="NumCuenta" />
<asp:BoundField HeaderText="Dias Vencimiento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" DataField="DiasVencimiento" />
<asp:BoundField HeaderText="Dias Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" DataField="DiasPagados" />
<asp:BoundField HeaderText="Forma Pago" DataField="FormaPago" />
<asp:BoundField HeaderText="CondicionesPago" DataField="CondicionesPago" />
</Columns>
</asp:GridView>
</ContentTemplate>

11
Ventas/Ventas.aspx.vb
View File

@@ -6372,7 +6372,7 @@ Partial Class Ventas
If CveCliente > 0 Then CargaAnticipos(CveCliente) : UpAnticipos.Update()
If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 Then
If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
DivVentasUsados.Visible = True
Dim ObjClientes As New ClsClientes
@@ -22468,12 +22468,13 @@ Partial Class Ventas
#Region " DEVOLUCION ALMACEN "
Private Sub InicializaDevolucionAlmacen()
If Not GvInv.Rows.Count > 0 Then
Exit Sub
If CveVenta.Contiene(2035312, 2035310, 2039679) Then
LBAplicaDevolucion.Visible = True
End If
If CveVenta = 1651560 Then
LBAplicaDevolucion.Visible = True
If Not GvInv.Rows.Count > 0 Then
Exit Sub
End If
If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then

2
vwd.webinfo
View File

@@ -462,6 +462,8 @@