diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index dfad4ec10..9cb694e84 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/Acarreos/CatChoferes.aspx.vb
@@ -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"))
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 1ac11fb10..bf21e1368 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -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
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index a66b688da..585900c20 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -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
diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb
index 0c276d71c..b2b8b5ed5 100644
--- a/App_Code/Timbres.vb
+++ b/App_Code/Timbres.vb
@@ -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
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 02127071e..5c84bf091 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -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")
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 48783158d..c920c753a 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -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")
diff --git a/General/CATIEPSxEntidadFed.aspx.cs b/General/CATIEPSxEntidadFed.aspx.cs
index f7b1f8390..bf502cc9e 100644
--- a/General/CATIEPSxEntidadFed.aspx.cs
+++ b/General/CATIEPSxEntidadFed.aspx.cs
@@ -45,8 +45,7 @@ public partial class General_CATIEPSxEntidadFed : ClsPaginas
{
if (!IsPostBack)
{
-
- DdlEstado.DataSource = get_GlobalDTEstado("Mex");
+ DdlEstado.DataSource = get_GlobalDTGralEstados("MEX");
DdlEstado.DataBind();
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 29783ce3d..16a094279 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -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
diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs
index 8343851b5..763e9c45a 100644
--- a/Inventarios/EntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/EntregaAlmacenRuta.aspx.cs
@@ -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();
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index 5b5ecc4c9..fc90b53db 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -778,66 +778,7 @@
- <%--Modal para agregar camion--%>
-
-
-
-
-
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 723248d5f..9816595a8 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -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("
Folio de Salida: {0}", FolioSalida, CveMovimientoSalida)
- MensajeAlert.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
- If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("
Folio Virtual: {2}
Imprimir Salida Virtual", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
+ MensajeAlert.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
+ If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("
Folio Virtual: {2}
Imprimir Salida Virtual", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
If Not ChkTransitorio.Checked Then
MensajeAlert.AppendFormat("
Folio de Entrada: {0}", FolioEntrada, CveMovimientoEntrada)
- MensajeAlert.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
- If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("
Folio Virtual: {2}
Imprimir Entrada Virtual", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
+ MensajeAlert.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
+ If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("
Folio Virtual: {2}
Imprimir Entrada Virtual", 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("
")
@@ -2645,10 +2648,10 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.AppendFormat("", 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("", 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("", 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("", 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
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 183b83dca..6b1be4d73 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -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()
diff --git a/Prospectos/Solicitudes/CatProspectosSolicitudes.aspx.vb b/Prospectos/Solicitudes/CatProspectosSolicitudes.aspx.vb
index bb17bde84..04c1315de 100644
--- a/Prospectos/Solicitudes/CatProspectosSolicitudes.aspx.vb
+++ b/Prospectos/Solicitudes/CatProspectosSolicitudes.aspx.vb
@@ -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()
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index 0ea8a913b..0c52b2c21 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -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
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 934e0dfea..eb30a7930 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -315,7 +315,7 @@
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 99c1f3210..698506230 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -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
diff --git a/RH/Prospectos.aspx.vb b/RH/Prospectos.aspx.vb
index 49ace671c..09dfecc84 100644
--- a/RH/Prospectos.aspx.vb
+++ b/RH/Prospectos.aspx.vb
@@ -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()
diff --git a/Ventas/AuxiliarCliente.aspx.vb b/Ventas/AuxiliarCliente.aspx.vb
index 441481afb..19218064a 100644
--- a/Ventas/AuxiliarCliente.aspx.vb
+++ b/Ventas/AuxiliarCliente.aspx.vb
@@ -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)
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 796946d7b..460eb1640 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -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()
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 3dfe0c31e..0465c385d 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -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"))
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5e8d6547b..3ce4c3d19 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -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()