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

unificación de GlobalDT Estados,Municipios

Browse Source 
cambios en para carta porte
This commit is contained in:
rrene
2021-12-12 09:12:20 -07:00
parent d58d6d0451
commit 09365748de
21 changed files with 215 additions and 277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Acarreos/CatChoferes.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Acarreos_CatChoferes
Private Sub CargaDdls()
DdlEstado.DataSource = GlobalDTEstado("MEX")
DdlEstado.DataSource = GlobalDTGralEstados("MEX")
DdlEstado.DataBind()
DdlEstado.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -77,11 +77,13 @@ Partial Class Acarreos_CatChoferes
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
End If
@@ -131,8 +133,7 @@ Partial Class Acarreos_CatChoferes
DdlMunicipio.Items.Clear()
If DdlEstado.SelectedValue.ToEntero > 0 Then
Dim ClaveSATEstado As String = GlobalDTEstado("MEX").FiltroPrimeroValor("ClaveSATEstado", $" CveEstado = {DdlEstado.SelectedValue} ")
DdlMunicipio.DataSource = GlobalDTMunicipio(ClaveSATEstado)
DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlEstado.SelectedValue.ToEntero)
DdlMunicipio.DataBind()
End If
@@ -247,11 +248,9 @@ Partial Class Acarreos_CatChoferes
If DdlEstado.SelectedValue > 0 Then
Dim ClaveSATEstado As String = GlobalDTEstado("MEX").FiltroPrimeroValor("ClaveSATEstado", $" CveEstado = {DdlEstado.SelectedValue} ")
DdlMunicipio.DataSource = GlobalDTMunicipio(ClaveSATEstado)
DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlEstado.SelectedValue)
DdlMunicipio.DataBind()
End If
DdlMunicipio.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))

102
App_Code/ClsGenerales.vb
View File

@@ -592,50 +592,50 @@ Public Class ClsGenerales
#End Region
#Region " E S T A D O S"
Public Function GetGralEstados() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_EstadoGet")
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Catálogo de Estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
'#Region " E S T A D O S"
' Public Function GetGralEstados() As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Gral_EstadoGet")
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener el Catálogo de Estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
#Region " M U N I C I P I O S"
Public Function GetGralMunicipios() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_MunicipioGet")
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Catálogo de Municipios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
' Return Retorno
' End Function
'#End Region
#Region " P A I S E S"
Public Function GetGralPaises() As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_PaisGet")
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el Catálogo de Paises.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#End Region
'#Region " M U N I C I P I O S"
' Public Function GetGralMunicipios() As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Gral_MunicipioGet")
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener el Catálogo de Municipios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
'#End Region
'#Region " P A I S E S"
' Public Function GetGralPaises() As Boolean
' Dim Retorno As Boolean = False
' DataAdapter("PA_Gral_PaisGet")
' Try
' SqlAdapter.Fill(Data)
' Retorno = True
' Catch ex As Exception
' OnError("Ocurrió un error al obtener el Catálogo de Paises.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End Try
' Return Retorno
' End Function
'#End Region
#Region " P O B L A C I O N E S"
Public Function GetGralPoblaciones() As Boolean
@@ -2716,7 +2716,7 @@ Public Class ClsGenerales
Public Function GetSATFraccionArancelaria() As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_FraccionArancelariaGet")
DataAdapter("PA_Gral_SAT_FraccionArancelariaGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
@@ -2730,7 +2730,7 @@ Public Class ClsGenerales
Public Function GetSATIncoterm() As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_IncotermGet")
DataAdapter("PA_Gral_SAT_IncotermGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
@@ -2744,7 +2744,7 @@ Public Class ClsGenerales
Public Function GetSATMotivoTraslado() As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_MotivoTrasladoGet")
DataAdapter("PA_Gral_SAT_MotivoTrasladoGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
@@ -2758,7 +2758,7 @@ Public Class ClsGenerales
Public Function GetSATTipoOperacion() As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_TipoOperacionGet")
DataAdapter("PA_Gral_SAT_TipoOperacionGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
@@ -2771,7 +2771,7 @@ Public Class ClsGenerales
End Function
Public Function GetSATUnidadesAduana() As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_UnidadAduanaGet")
DataAdapter("PA_Gral_SAT_UnidadAduanaGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
@@ -2785,7 +2785,7 @@ Public Class ClsGenerales
Public Function GetSATPais() As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_PaisGet")
DataAdapter("PA_Gral_SAT_PaisGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try
@@ -2799,7 +2799,7 @@ Public Class ClsGenerales
Public Function GetSATEstado(ClaveSATPais As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_EstadoGet")
DataAdapter("PA_Gral_SAT_EstadoGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais
End With
@@ -2814,7 +2814,7 @@ Public Class ClsGenerales
Public Function GetSATMunicipio(ClaveSATEstado As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_MunicipioGet")
DataAdapter("PA_Gral_SAT_MunicipioGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@ClaveSATEstado", SqlDbType.VarChar).Value = ClaveSATEstado
End With
@@ -2830,7 +2830,7 @@ Public Class ClsGenerales
Public Function GetSATLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_LocalidadGet")
DataAdapter("PA_Gral_SAT_LocalidadGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
.Add("@CveMunicipio", SqlDbType.VarChar).Value = CveMunicipio

16
App_Code/ClsPaginas.vb
View File

@@ -386,9 +386,9 @@ Public Class ClsPaginas
Application("GlobalDTGralPaises") = value
End Set
End Property
Property GlobalDTEstado(ClaveSATPais As String, Optional CvePais As Integer = -1) As DataTable
Property GlobalDTGralEstados(ClaveSATPais As String, Optional CvePais As Integer = -1) As DataTable
Get
Dim AppNombre As String = "GlobalDTEstado"
Dim AppNombre As String = "GlobalDTGralEstados"
If Application(AppNombre) Is Nothing Then
Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATEstado("-1") Then Application(AppNombre) = ObjGrales.DtResultados Else Application(AppNombre) = Nothing
@@ -401,20 +401,20 @@ Public Class ClsPaginas
If CvePais > 0 Then Filtro.AppendFormat(" AND CvePais = {0} ", CvePais)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTEstado = Dv.ToTable
GlobalDTGralEstados = Dv.ToTable
Dv.Dispose()
End Get
Set(value As DataTable)
Dim AppNombre As String = "GlobalDTEstado"
Dim AppNombre As String = "GlobalDTGralEstados"
Application(AppNombre) = value
End Set
End Property
Property GlobalDTMunicipio(ClaveSATEstado As String, Optional CveEstado As Integer = -1) As DataTable
Property GlobalDTGralMunicipios(ClaveSATEstado As String, Optional CveEstado As Integer = -1) As DataTable
Get
Dim AppNombre As String = "GlobalDTMunicipio"
Dim AppNombre As String = "GlobalDTGralMunicipios"
If Application(AppNombre) Is Nothing Then
Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATMunicipio("-1") Then Application(AppNombre) = ObjGrales.DtResultados Else Application(AppNombre) = Nothing
@@ -427,12 +427,12 @@ Public Class ClsPaginas
If CveEstado > 0 Then Filtro.AppendFormat(" AND CveEstado = {0} ", CveEstado)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTMunicipio = Dv.ToTable
GlobalDTGralMunicipios = Dv.ToTable
Dv.Dispose()
End Get
Set(value As DataTable)
Dim AppNombre As String = "GlobalDTMunicipio"
Dim AppNombre As String = "GlobalDTGralMunicipios"
Application(AppNombre) = value
End Set
End Property

63
App_Code/Timbres.vb
View File

@@ -283,44 +283,45 @@ Public Class Timbres
'' T R A S L A D O S
'DETALLES
If Obj.DtDetalle IsNot Nothing Then
For Each drr As DataRow In Obj.DtDetalle.Rows
For Each drr As DataRow In Obj.DtDetalle.Rows
If drr("PS").ToString.Length = 1 Then
tPS = drr("Obs").ToString
Else
If drr("PS").ToString.Length = 0 Then
tPS = ""
If drr("PS").ToString.Length = 1 Then
tPS = drr("Obs").ToString
Else
tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
If drr("PS").ToString.Length = 0 Then
tPS = ""
Else
tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
End If
End If
End If
'CONDICIONANTE, ESPECIAL
If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO
'CONDICIONANTE, ESPECIAL
If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO
Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
.Descripcion = tPS,
.ValorUnitario = drr("PU").ToString.ToDecimal,
.Importe = drr("TotalImporte").ToString.ToDecimal,
.Descuento = drr("Descuento").ToString.ToDecimal,
.Unidad = drr("UM").ToString,
.ClaveUnidad = drr("SATClaveUM").ToString,
.ClaveProdServ = drr("SATClaveProdServ").ToString,
.Noidentificacion = drr("Noidentificacion").ToString,
.CuentaPredial = drr("CuentaPredial").ToString}
'VERIFICA SUMA SUBTOTALES
If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES
concepto.Importe = totSubTotal
End If
totSubTotal = totSubTotal - concepto.Importe
Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
.Descripcion = tPS,
.ValorUnitario = drr("PU").ToString.ToDecimal,
.Importe = drr("TotalImporte").ToString.ToDecimal,
.Descuento = drr("Descuento").ToString.ToDecimal,
.Unidad = drr("UM").ToString,
.ClaveUnidad = drr("SATClaveUM").ToString,
.ClaveProdServ = drr("SATClaveProdServ").ToString,
.Noidentificacion = drr("Noidentificacion").ToString,
.CuentaPredial = drr("CuentaPredial").ToString}
'VERIFICA SUMA SUBTOTALES
If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES
concepto.Importe = totSubTotal
End If
totSubTotal = totSubTotal - concepto.Importe
'SIEMPRE ESTAMOS AGREGANDO EL IVA
'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
'SIEMPRE ESTAMOS AGREGANDO EL IVA
'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
Timbre.Conceptos.Add(concepto)
i += 1
Next
Timbre.Conceptos.Add(concepto)
i += 1
Next
End If
End If

2
Contratos/Contrato.aspx.vb
View File

@@ -2754,7 +2754,7 @@ Partial Class Contratos_Default
Private Sub CargaGVGastos()
Dim objContrato As New ClsContratos
If objContrato.GetContratoGastos(CveContrato) Then
If objContrato.GetContratoGastos(CveContrato, UsuarioActual.cveempresa) Then
DtGastos = objContrato.DtResultados
GvContratosGastos.DataSource = DtGastos
SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")

2
Contratos/ContratoObra.aspx.vb
View File

@@ -2808,7 +2808,7 @@ Partial Class Contratos_ContratoObra
Private Sub CargaGVGastos()
Dim objContrato As New ClsContratos
If objContrato.GetContratoGastos(CveContrato) Then
If objContrato.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then
DtGastos = objContrato.DtResultados
GvContratosGastos.DataSource = DtGastos
SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")

3
General/CATIEPSxEntidadFed.aspx.cs
View File

@@ -45,8 +45,7 @@ public partial class General_CATIEPSxEntidadFed : ClsPaginas
{
if (!IsPostBack)
{
DdlEstado.DataSource = get_GlobalDTEstado("Mex");
DdlEstado.DataSource = get_GlobalDTGralEstados("MEX");
DdlEstado.DataBind();

6
General/SaldosIniciales.aspx.vb
View File

@@ -1033,7 +1033,7 @@ Partial Class General_SaldosIniciales
' Exit For
'End If
Else
Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero
Dim CveSATEstado As Integer = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado ='{0}'", Estado.ToUpper)).ToEntero
If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString, "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
"-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
@@ -2152,7 +2152,7 @@ Partial Class General_SaldosIniciales
If (myarraystr.Length > 0) Then
CveEstado = myarraystr(0).ToEntero()
Else
CveEstado = GlobalDTGralEstados(1).FiltroPrimeroValor("CveEstado", $"Clave = '{Estado}'").ToString.ToEntero
CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"Clave = '{Estado}'").ToString.ToEntero
End If
If CveEstado = 0 Then
CveEstado = -1
@@ -2465,7 +2465,7 @@ Partial Class General_SaldosIniciales
crow = 1
ccol = ccol + 1
Catalogos.Cell(crow, ccol).Value = "Estado"
For Each row As DataRow In GlobalDTGralEstados(1).Rows
For Each row As DataRow In GlobalDTGralEstados("MEX").Rows
crow = crow + 1
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado"))
Next

16
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -780,28 +780,16 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
protected void BtnModalRecoleccionGuardar_Click(object sender, EventArgs e)
{
//if (DdlChofer.SelectedValue.ToEntero() <= 0)
//{
// Alert("Debe seleccionar un chofer.", ModExtensiones.TipoMensaje.MsgAdvertencia);
// return;
//}
//if (DdlUnidadCamion.SelectedValue.ToEntero() <= 0)
//{
// Alert("Debe seleccionar una unidad", ModExtensiones.TipoMensaje.MsgAdvertencia);
// return;
//}
if (DdlmodalRecoleccionDireccion.SelectedValue.ToEntero() <= 0)
{
Alert("Debe seleccionar la dirección de recolección", ModExtensiones.TipoMensaje.MsgAdvertencia);
return;
}
int CveTimbrenuevo = -1;
bool ProcesoOK = false;
//int CveSubProyectoCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1, DdlModalRecoleccionCliente.SelectedValue.ToEntero()).FiltroPrimeroValor("CveSubProyecto").ToEntero();
ClsGenerales ObjGenerales = new ClsGenerales();
ObjGenerales.IniciaTransacSQL();

61
Inventarios/TraspasoAlmacen.aspx
View File

@@ -778,66 +778,7 @@
</div>
</div>
</div>
<%--Modal para agregar camion--%>
<asp:UpdatePanel runat="server">
<ContentTemplate>
<div id="DivAgregarNuevoCamion" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Agregar Unidad</h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtPlacaNuevo.ClientID.ToString()%>">Placa:</label>
<asp:TextBox ID="TxtPlacaNuevo" CssClass="form-control" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator runat="server" ID="RfvTxtPlacaNuevo" ControlToValidate="TxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor ingréselo." ValidationGroup="VgNuevoCamion"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator runat="server" ID="RevTxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> no contiene los caracteres suficientes." ControlToValidate="TxtPlacaNuevo" ValidationExpression="^.{6,8}$" ValidationGroup="VgNuevoCamion"></asp:RegularExpressionValidator>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtEspecificacionNuevo.ClientID.ToString()%>">Especificación:</label>
<asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= DdlConfigAuto.ClientID.ToString()%>">Configuración Carta Porte:</label>
<asp:DropDownList ID="DdlConfigAuto" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="ClaveConfigAutoTransporteDescripcion" DataValueField="ClaveConfigAutoTransporte">
<asp:ListItem Selected="True" Text="Seleccione" Value=""></asp:ListItem>
</asp:DropDownList>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtAnio.ClientID.ToString()%>">Año:</label>
<asp:TextBox ID="TxtAnio" CssClass="form-control" runat="server" type="number"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtTipoPermisoSCT.ClientID.ToString()%>">Tipo Permiso SCT:</label>
<asp:TextBox ID="TxtTipoPermisoSCT" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNumermisoSCT.ClientID.ToString()%>">Numero Permiso SCT:</label>
<asp:TextBox ID="TxtNumermisoSCT" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNombreAseguradora.ClientID.ToString()%>">Nombre Aseguradora:</label>
<asp:TextBox ID="TxtNombreAseguradora" CssClass="form-control" runat="server"></asp:TextBox>
</div>
<div class="form-group form-md-line-input input-iconright">
<label for="<%= TxtNumPolizaSeguro.ClientID.ToString()%>">Numero Póliza Seguro:</label>
<asp:TextBox ID="TxtNumPolizaSeguro" CssClass="form-control" runat="server"></asp:TextBox>
</div>
</div>
<div class="modal-footer">
<asp:Button ID="BtnAgregarCamion" Text="Agregar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

79
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -204,6 +204,10 @@ Partial Class Inventarios_TraspasoAlmacen
DivTransitorio2.Visible = True
End If
If UsuarioActual.CveEmpresa.Contiene(141, 152, 158, 159, 160, 161, 162, 163) Then
ChkEmitirTimbrado.Visible = False
End If
If UsuarioActual.CveEmpresa.Contiene(1, 119, 140, 2) Then
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
@@ -224,8 +228,6 @@ Partial Class Inventarios_TraspasoAlmacen
TipoSeccionAlmacen = 0
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
TxtFecha.Enabled = False
@@ -236,8 +238,8 @@ Partial Class Inventarios_TraspasoAlmacen
End If
Else
If ChkTransitorio.Checked Then
Else
If ChkTransitorio.Checked Then
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
DivTransitorio2.Visible = True
End If
@@ -390,7 +392,7 @@ Partial Class Inventarios_TraspasoAlmacen
'Llena Almacen Transitorio
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorio.DataBind()
DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1"))
'Llena Almacen Recepcion
DdlAlmacenRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)")
@@ -417,6 +419,7 @@ Partial Class Inventarios_TraspasoAlmacen
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaEntrega.Text = Now.ToShortDateString
TxtFechaEnvio.Text = Now.ToShortDateString
'Llena Responsables Transitorio
'DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -1192,13 +1195,13 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.Append("Se realizó con éxito el traspaso.")
MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
MensajeAlert.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
If Not ChkTransitorio.Checked Then
MensajeAlert.AppendFormat("<br/><br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioEntrada, CveMovimientoEntrada)
MensajeAlert.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
End If
@@ -2626,7 +2629,7 @@ Partial Class Inventarios_TraspasoAlmacen
Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer)
Dim ObjTimbres As New Timbres("T", CveTimbre, UsuarioActual)
Dim ObjTimbres As New Timbres("Tra", CveTimbre, UsuarioActual)
MensajeAlert.Append("<br/><br/>")
@@ -2645,10 +2648,10 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
End If
'PDF
Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
If File.Exists(ArchivoPDF) Then
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
End If
'Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
'If File.Exists(ArchivoPDF) Then
' MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
'End If
If ChkEmitirCartaPorte.Checked Then
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)))
@@ -2911,34 +2914,34 @@ Partial Class Inventarios_TraspasoAlmacen
DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
DdlUnidadCamion.DataBind()
Using ObjGral As New ClsGenerales
If ObjGral.GetCartaPorteConfigAutoTransportes() Then
DdlConfigAuto.DataSource = ObjGral.DtResultados
End If
End Using
'Using ObjGral As New ClsGenerales
' If ObjGral.GetCartaPorteConfigAutoTransportes() Then
' DdlConfigAuto.DataSource = ObjGral.DtResultados
' End If
'End Using
DdlConfigAuto.DataBind()
'DdlConfigAuto.DataBind()
End Sub
Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
'Dim ObjInventarios As New ClsInventarios
'If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
' RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
' CargarCamiones()
' LimpiarAgregarCamion()
'End If
'ObjInventarios.Dispose()
End Sub
'Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
' 'Dim ObjInventarios As New ClsInventarios
' 'If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, ConfigCartaPorte:=DdlConfigAuto.SelectedValue, Anio:=TxtAnio.Text.ToEntero(), TipoPermisoSCT:=TxtTipoPermisoSCT.Text, NumPermisoSCT:=TxtNumermisoSCT.Text, NombreAseguradora:=TxtNombreAseguradora.Text, NumPolizaSeguro:=TxtNumPolizaSeguro.Text, CveEmpresa:=UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
' ' RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
' ' CargarCamiones()
' ' LimpiarAgregarCamion()
' 'End If
' 'ObjInventarios.Dispose()
'End Sub
Private Sub LimpiarAgregarCamion()
TxtPlacaNuevo.Text = ""
TxtEspecificacionNuevo.Text = ""
TxtAnio.Text = ""
TxtTipoPermisoSCT.Text = ""
TxtNumermisoSCT.Text = ""
TxtNombreAseguradora.Text = ""
TxtNumPolizaSeguro.Text = ""
End Sub
'Private Sub LimpiarAgregarCamion()
' TxtPlacaNuevo.Text = ""
' TxtEspecificacionNuevo.Text = ""
' TxtAnio.Text = ""
' TxtTipoPermisoSCT.Text = ""
' TxtNumermisoSCT.Text = ""
' TxtNombreAseguradora.Text = ""
' TxtNumPolizaSeguro.Text = ""
'End Sub
Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
'If DdlUnidadCamion.SelectedValue = "-1" Then

17
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -46,12 +46,12 @@ Partial Class CatSubProyectos
Dim objsubproyecto As New ClsSubProyectos
'If objsubproyecto.GetSubProyectosexcel(9, UsuarioActual.CveEmpresa) Then
' 'DatatableToExcel(objsubproyecto.DtResultados)
' objsubproyecto.DtResultados.ExportToExcel("subproyecto")
'End If
objsubproyecto.Dispose()
'Dim objsubproyecto As New ClsSubProyectos
''If objsubproyecto.GetSubProyectosexcel(9, UsuarioActual.CveEmpresa) Then
'' 'DatatableToExcel(objsubproyecto.DtResultados)
'' objsubproyecto.DtResultados.ExportToExcel("subproyecto")
''End If
'objsubproyecto.Dispose()
If Not UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
'GvDatos.Columns(0).Visible = False
@@ -496,7 +496,6 @@ Partial Class CatSubProyectos
ObjOC.Commit()
End If
ObjOC.Dispose()
End If
End If
@@ -829,7 +828,7 @@ Partial Class CatSubProyectos
Private Sub CargaEstado()
DdlEstado.Items.Clear()
If DdlPais.SelectedValue.ToEntero > 0 Then
DdlEstado.DataSource = GlobalDTEstado("-1", DdlPais.SelectedValue.ToEntero)
DdlEstado.DataSource = GlobalDTGralEstados("-1", DdlPais.SelectedValue.ToEntero)
End If
DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlEstado.DataBind()
@@ -838,7 +837,7 @@ Partial Class CatSubProyectos
Private Sub CargaMunicipio()
DdlMunicipio.Items.Clear()
If DdlEstado.SelectedValue.ToEntero > 0 Then
DdlMunicipio.DataSource = GlobalDTMunicipio("-1", DdlEstado.SelectedValue.ToEntero)
DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlEstado.SelectedValue.ToEntero)
End If
DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMunicipio.DataBind()

6
Prospectos/Solicitudes/CatProspectosSolicitudes.aspx.vb
View File

@@ -45,7 +45,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudes
DdlPaises.DataSource = GlobalDTGralPaises : DdlPaises.DataBind()
DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind()
DdlFiscalEstados.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstados.DataBind()
DdlFiscalEstados.DataSource = GlobalDTGralEstados("MEX") : DdlFiscalEstados.DataBind()
'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind()
@@ -210,11 +210,11 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudes
ObjProspectos.Dispose()
End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
ddl.DataSource = GlobalDTGralEstados("-1", CvePais:=CvePais) : ddl.DataBind()
End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=CveEstado) : ddl.DataBind()
End Sub
Protected Sub CargaCaracteristicas()

4
RH/CatPersonal.aspx.vb
View File

@@ -188,7 +188,7 @@ Partial Class RH_CatPersonal
DdlJornada.DataBind()
End Sub
Private Sub CargaEstados()
DdlEstados.DataSource = GlobalDTGralEstados(1)
DdlEstados.DataSource = GlobalDTGralEstados("MEX")
DdlEstados.DataBind()
End Sub
Private Sub CargaTipoRegimen()
@@ -902,7 +902,7 @@ Partial Class RH_CatPersonal
crow = 1
ccol = ccol + 1
Catalogos.Cell(crow, ccol).Value = "Estado"
For Each row As DataRow In GlobalDTGralEstados(1).Rows
For Each row As DataRow In GlobalDTGralEstados("MEX").Rows
crow = crow + 1
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado"))
Next

2
RH/Personal.aspx
View File

@@ -315,7 +315,7 @@
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEstados" runat="server" DataTextField="Estado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList>
<asp:DropDownList ID="DdlEstados" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control input-sm select2me"></asp:DropDownList>
<label for="<%= DdlEstados.ClientID.ToString()%>">Estado: </label>
<i></i>
</div>

28
RH/Personal.aspx.vb
View File

@@ -1282,7 +1282,7 @@ Partial Class RH_Personal
End Sub
Private Sub CargaEstados(pCvePais As Integer)
DdlEstados.DataSource = GlobalDTGralEstados(pCvePais)
DdlEstados.DataSource = GlobalDTGralEstados("-1", pCvePais)
DdlEstados.DataBind()
End Sub
@@ -4456,22 +4456,22 @@ Partial Class RH_Personal
Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero()
Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal
Dim RFCReceptor As String = gvr.DataKey("RFC").ToString()
'Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
'Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
'Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero()
'Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal
'Dim RFCReceptor As String = gvr.DataKey("RFC").ToString()
Dim Obj As New Timbrado
'Dim Obj As New Timbrado
If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
Dim ObjNomina As New ClsNominas()
ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
ObjNomina.Dispose()
Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
End If
'If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
' Dim ObjNomina As New ClsNominas()
' ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
' ObjNomina.Dispose()
' Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
'End If
Obj = Nothing
'Obj = Nothing
End Sub

6
RH/Prospectos.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class Prospectos_Prospectos
DdlPaises.SelectedValue = "1"
DdlEmpresaPaises.SelectedValue = "1"
DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind()
DdlFiscalEstados.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstados.DataBind()
DdlFiscalEstados.DataSource = GlobalDTGralEstados("MEX") : DdlFiscalEstados.DataBind()
'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind()
@@ -337,11 +337,11 @@ Partial Class Prospectos_Prospectos
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
ddl.DataSource = GlobalDTGralEstados("-1", CvePais:=CvePais) : ddl.DataBind()
End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=CveEstado) : ddl.DataBind()
End Sub
Protected Sub CargaCaracteristicas()

2
Ventas/AuxiliarCliente.aspx.vb
View File

@@ -100,7 +100,7 @@ Partial Class Ventas_AuxiliarCliente
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
Public Sub ExportToExcelGTest(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing)
ExportToExcelGembox(Gv, NombreArchivoXLSx, Usuario, txtFechaI.Text, txtFechaF.Text, Titulo, "", 1)
ExportToExcelGembox(Gv, NombreArchivoXLSx, Usuario, Titulo)
End Sub
Protected Sub GvAuxCliente_RowDataBound(sender As Object, e As GridViewRowEventArgs)

32
Ventas/Clientes.aspx.vb
View File

@@ -997,7 +997,7 @@ Partial Class Clientes
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
DdlEstadoSAT.Items.Clear()
DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
DdlEstadoSAT.DataBind()
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -4388,21 +4388,12 @@ Partial Class Clientes
Private Sub CargaDirClienteEstado()
DdlDirClienteEstado.Items.Clear()
If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
DdlDirClienteEstado.DataSource = GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString)
DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero)
End If
DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlDirClienteEstado.DataBind()
End Sub
Private Sub CargaDirClienteMunicipio()
DdlDirClienteMunicipio.Items.Clear()
If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
DdlDirClienteMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString)
End If
DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlDirClienteMunicipio.DataBind()
End Sub
End Sub
Private Sub CargaDirClienteColonia()
DdlDirClienteColonia.Items.Clear()
If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
@@ -4498,7 +4489,7 @@ Partial Class Clientes
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
UpAddDireccion.Update()
RegistraScript("$('#divAddDireccionEnvio').modal();")
RegistraScript("$('#divAddDireccionEnvio').modal();")
End Sub
Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
Dim ObjClientes As New ClsClientes
@@ -6936,16 +6927,25 @@ Partial Class Clientes
Private Sub CargaEstado()
DdlEstado.Items.Clear()
If DdlPais.SelectedValue.ToEntero() > 0 Then
DdlEstado.DataSource = GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString())
DdlEstado.DataSource = GlobalDTGralEstados("-1", DdlPais.SelectedValue.ToEntero())
End If
DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlEstado.DataBind()
End Sub
Private Sub CargaDirClienteMunicipio()
DdlDirClienteMunicipio.Items.Clear()
If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero)
End If
DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlDirClienteMunicipio.DataBind()
End Sub
Private Sub CargaMunicipio()
DdlMunicipio.Items.Clear()
If DdlEstado.SelectedValue.ToEntero() > 0 Then
DdlMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTGralPaises.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString())
DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlEstado.SelectedValue.ToEntero())
End If
DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMunicipio.DataBind()

2
Ventas/PV.aspx.vb
View File

@@ -2456,7 +2456,7 @@ Partial Class PV
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
DdlEstadoSAT.Items.Clear()
DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
DdlEstadoSAT.DataBind()
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))

32
Ventas/Ventas.aspx.vb
View File

@@ -4074,7 +4074,7 @@ Partial Class Ventas
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
DdlEstadoSAT.Items.Clear()
DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
DdlEstadoSAT.DataBind()
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -8712,7 +8712,10 @@ Partial Class Ventas
Dim TmpDT7Eleven As New DataTable
Dim TmpDTComplementosTimbrado As New DataTable
PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
If AplicaFEMSA Then
PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
End If
'DOCUMENTO ACTUAL
If DebeTimbrar Then
SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
@@ -9807,7 +9810,7 @@ Partial Class Ventas
'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text)
'ObjFactura.PedidoContrato = TxtPedidoContrato.Text.Trim
ObjFactura.AtnA = TxtAtencionA.Text
ObjFactura.AtencionA = TxtAtencionA.Text
ObjFactura.FordGSDB = ""
ObjFactura.NumeroContrato = NumeroContrato
@@ -10979,18 +10982,18 @@ Partial Class Ventas
Dim ComExtPais, ComExtEstado, ComExtMunicipio, ComExtColonia, ComExtCalle, ComExtNumero, ComExtCP As String
ComExtColonia = "" : ComExtMunicipio = ""
ComExtPais = GlobalDTPais.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
ComExtPais = GlobalDTGralPaises.FiltroPrimeroValor("ClaveSATPais", $"CvePais={DdlComExtPais.SelectedValue}")
ComExtCalle = TxtComExtCalle.Text.Trim
ComExtNumero = TxtComExtNumero.Text.Trim
ComExtCP = TxtComExtCP.Text.Trim
If ComExtPais = "MEX" Then
ComExtEstado = GlobalDTEstado(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
ComExtMunicipio = GlobalDTMunicipio(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
ComExtColonia = GlobalDTColonia(ComExtMunicipio).FiltroPrimeroValor("ClaveSATColonia", $"CveColonia={DdlComExtColonia.SelectedValue}")
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
ComExtMunicipio = GlobalDTGralMunicipios(ComExtEstado).FiltroPrimeroValor("ClaveSATMunicipio", $"CveMunicipio={DdlComExtMunicipio.SelectedValue}")
ComExtColonia = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=DdlComExtColonia.SelectedValue.ToEntero).FiltroPrimeroValor("ClaveSATColonia", "")
Else
If ComExtPais.Contiene("USA", "CAN") Then
ComExtEstado = GlobalDTEstado(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
ComExtEstado = GlobalDTGralEstados(ComExtPais).FiltroPrimeroValor("ClaveSATEstado", $"CveEstado={DdlComExtEstado.SelectedValue}")
Else
ComExtEstado = TxtComExtEstado.Text.Trim
End If
@@ -15086,10 +15089,15 @@ Partial Class Ventas
ErrorConta = True
End If
If Not ErrorConta AndAlso Not ObjConta.PrePolizaSimplificacion(ObjFactura.CvePrePoliza, UsuarioActual.CveEmpresa) Then
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrepoliza, 3) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Ventas/Ventas-Anticipos | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrepoliza}", "LogPrePolizas")
ErrorConta = True
End If
End If
@@ -27948,7 +27956,7 @@ Partial Class Ventas
#Region "Comercio Exterior"
Private Sub CargaPais()
DdlComExtPais.Items.Clear()
DdlComExtPais.DataSource = GlobalDTPais()
DdlComExtPais.DataSource = GlobalDTGralPaises()
DdlComExtPais.DataBind()
DdlComExtPais.SelectedValueExist("151")
End Sub
@@ -27956,7 +27964,7 @@ Partial Class Ventas
Private Sub CargaEstado()
DdlComExtEstado.Items.Clear()
If DdlComExtPais.SelectedValue.ToEntero() > 0 Then
DdlComExtEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString())
DdlComExtEstado.DataSource = GlobalDTGralEstados("-1", CvePais:=DdlComExtPais.SelectedValue.ToEntero)(0)("ClaveSATPais").ToString()
End If
DdlComExtEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlComExtEstado.DataBind()
@@ -27965,7 +27973,7 @@ Partial Class Ventas
Private Sub CargaMunicipio()
DdlComExtMunicipio.Items.Clear()
If DdlComExtEstado.SelectedValue.ToEntero() > 0 Then
DdlComExtMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString())
DdlComExtMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlComExtEstado.SelectedValue.ToEntero())
End If
DdlComExtMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlComExtMunicipio.DataBind()
@@ -27975,7 +27983,7 @@ Partial Class Ventas
Private Sub CargaColonia()
DdlComExtColonia.Items.Clear()
If DdlComExtMunicipio.SelectedValue.ToEntero() > 0 Then
DdlComExtColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlComExtPais.SelectedValue.ToEntero()}")(0)("ClaveSATPais").ToString()).FiltraParametros($"CveEstado = {DdlComExtEstado.SelectedValue.ToEntero()}")(0)("ClaveSATEstado").ToString()).FiltraParametros($"CveMunicipio = {DdlComExtMunicipio.SelectedValue.ToEntero()}")(0)("ClaveSATMunicipio").ToString())
DdlComExtColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", CveMunicipio:=DdlComExtMunicipio.SelectedValue.ToEntero)
End If
DdlComExtColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlComExtColonia.DataBind()