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() Private Sub CargaDdls()
DdlEstado.DataSource = GlobalDTEstado("MEX") DdlEstado.DataSource = GlobalDTGralEstados("MEX")
DdlEstado.DataBind() DdlEstado.DataBind()
DdlEstado.Items.Insert(0, New ListItem("Seleccione uno", "-1")) 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 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() CargaDatos()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
End If End If
ElseIf HdnModalidad.Value = "U" Then 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 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() CargaDatos()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing
End If End If
End If End If
@@ -131,8 +133,7 @@ Partial Class Acarreos_CatChoferes
DdlMunicipio.Items.Clear() DdlMunicipio.Items.Clear()
If DdlEstado.SelectedValue.ToEntero > 0 Then If DdlEstado.SelectedValue.ToEntero > 0 Then
Dim ClaveSATEstado As String = GlobalDTEstado("MEX").FiltroPrimeroValor("ClaveSATEstado", $" CveEstado = {DdlEstado.SelectedValue} ") DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlEstado.SelectedValue.ToEntero)
DdlMunicipio.DataSource = GlobalDTMunicipio(ClaveSATEstado)
DdlMunicipio.DataBind() DdlMunicipio.DataBind()
End If End If
@@ -247,11 +248,9 @@ Partial Class Acarreos_CatChoferes
If DdlEstado.SelectedValue > 0 Then If DdlEstado.SelectedValue > 0 Then
Dim ClaveSATEstado As String = GlobalDTEstado("MEX").FiltroPrimeroValor("ClaveSATEstado", $" CveEstado = {DdlEstado.SelectedValue} ") DdlMunicipio.DataSource = GlobalDTGralMunicipios("-1", CveEstado:=DdlEstado.SelectedValue)
DdlMunicipio.DataSource = GlobalDTMunicipio(ClaveSATEstado)
DdlMunicipio.DataBind() DdlMunicipio.DataBind()
End If End If
DdlMunicipio.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) 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 #End Region
#Region " E S T A D O S" '#Region " E S T A D O S"
Public Function GetGralEstados() As Boolean ' Public Function GetGralEstados() As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Gral_EstadoGet") ' DataAdapter("PA_Gral_EstadoGet")
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
OnError("Ocurrió un error al obtener el Catálogo de Estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' OnError("Ocurrió un error al obtener el Catálogo de Estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return Retorno
End Function
#End Region
#Region " M U N I C I P I O S" ' Return Retorno
Public Function GetGralMunicipios() As Boolean ' End Function
Dim Retorno As Boolean = False '#End Region
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" '#Region " M U N I C I P I O S"
Public Function GetGralPaises() As Boolean ' Public Function GetGralMunicipios() As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_Gral_PaisGet") ' DataAdapter("PA_Gral_MunicipioGet")
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
OnError("Ocurrió un error al obtener el Catálogo de Paises.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' OnError("Ocurrió un error al obtener el Catálogo de Municipios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return Retorno ' Return Retorno
End Function ' End Function
#End Region '#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" #Region " P O B L A C I O N E S"
Public Function GetGralPoblaciones() As Boolean Public Function GetGralPoblaciones() As Boolean
@@ -2716,7 +2716,7 @@ Public Class ClsGenerales
Public Function GetSATFraccionArancelaria() As Boolean Public Function GetSATFraccionArancelaria() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_FraccionArancelariaGet") DataAdapter("PA_Gral_SAT_FraccionArancelariaGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
End With End With
Try Try
@@ -2730,7 +2730,7 @@ Public Class ClsGenerales
Public Function GetSATIncoterm() As Boolean Public Function GetSATIncoterm() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_IncotermGet") DataAdapter("PA_Gral_SAT_IncotermGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
End With End With
Try Try
@@ -2744,7 +2744,7 @@ Public Class ClsGenerales
Public Function GetSATMotivoTraslado() As Boolean Public Function GetSATMotivoTraslado() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_MotivoTrasladoGet") DataAdapter("PA_Gral_SAT_MotivoTrasladoGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
End With End With
Try Try
@@ -2758,7 +2758,7 @@ Public Class ClsGenerales
Public Function GetSATTipoOperacion() As Boolean Public Function GetSATTipoOperacion() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_TipoOperacionGet") DataAdapter("PA_Gral_SAT_TipoOperacionGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
End With End With
Try Try
@@ -2771,7 +2771,7 @@ Public Class ClsGenerales
End Function End Function
Public Function GetSATUnidadesAduana() As Boolean Public Function GetSATUnidadesAduana() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_UnidadAduanaGet") DataAdapter("PA_Gral_SAT_UnidadAduanaGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
End With End With
Try Try
@@ -2785,7 +2785,7 @@ Public Class ClsGenerales
Public Function GetSATPais() As Boolean Public Function GetSATPais() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_PaisGet") DataAdapter("PA_Gral_SAT_PaisGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
End With End With
Try Try
@@ -2799,7 +2799,7 @@ Public Class ClsGenerales
Public Function GetSATEstado(ClaveSATPais As String) As Boolean Public Function GetSATEstado(ClaveSATPais As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_EstadoGet") DataAdapter("PA_Gral_SAT_EstadoGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais .Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais
End With End With
@@ -2814,7 +2814,7 @@ Public Class ClsGenerales
Public Function GetSATMunicipio(ClaveSATEstado As String) As Boolean Public Function GetSATMunicipio(ClaveSATEstado As String) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_MunicipioGet") DataAdapter("PA_Gral_SAT_MunicipioGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@ClaveSATEstado", SqlDbType.VarChar).Value = ClaveSATEstado .Add("@ClaveSATEstado", SqlDbType.VarChar).Value = ClaveSATEstado
End With End With
@@ -2830,7 +2830,7 @@ Public Class ClsGenerales
Public Function GetSATLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As Boolean Public Function GetSATLocalidad(Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("Gral_SAT_LocalidadGet") DataAdapter("PA_Gral_SAT_LocalidadGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado .Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
.Add("@CveMunicipio", SqlDbType.VarChar).Value = CveMunicipio .Add("@CveMunicipio", SqlDbType.VarChar).Value = CveMunicipio

16
App_Code/ClsPaginas.vb
View File

@@ -386,9 +386,9 @@ Public Class ClsPaginas
Application("GlobalDTGralPaises") = value Application("GlobalDTGralPaises") = value
End Set End Set
End Property 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 Get
Dim AppNombre As String = "GlobalDTEstado" Dim AppNombre As String = "GlobalDTGralEstados"
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjGrales As New ClsGenerales Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATEstado("-1") Then Application(AppNombre) = ObjGrales.DtResultados Else Application(AppNombre) = Nothing 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) If CvePais > 0 Then Filtro.AppendFormat(" AND CvePais = {0} ", CvePais)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Filtro.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTEstado = Dv.ToTable GlobalDTGralEstados = Dv.ToTable
Dv.Dispose() Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = "GlobalDTEstado" Dim AppNombre As String = "GlobalDTGralEstados"
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property 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 Get
Dim AppNombre As String = "GlobalDTMunicipio" Dim AppNombre As String = "GlobalDTGralMunicipios"
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjGrales As New ClsGenerales Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATMunicipio("-1") Then Application(AppNombre) = ObjGrales.DtResultados Else Application(AppNombre) = Nothing 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) If CveEstado > 0 Then Filtro.AppendFormat(" AND CveEstado = {0} ", CveEstado)
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Filtro.ToString, "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Filtro.ToString, "", DataViewRowState.CurrentRows)
GlobalDTMunicipio = Dv.ToTable GlobalDTGralMunicipios = Dv.ToTable
Dv.Dispose() Dv.Dispose()
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = "GlobalDTMunicipio" Dim AppNombre As String = "GlobalDTGralMunicipios"
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property 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 '' T R A S L A D O S
'DETALLES '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
If drr("PS").ToString.Length = 1 Then
tPS = drr("Obs").ToString
Else
If drr("PS").ToString.Length = 0 Then
tPS = ""
Else 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
End If
'CONDICIONANTE, ESPECIAL 'CONDICIONANTE, ESPECIAL
If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO 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, Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
.Descripcion = tPS, .Descripcion = tPS,
.ValorUnitario = drr("PU").ToString.ToDecimal, .ValorUnitario = drr("PU").ToString.ToDecimal,
.Importe = drr("TotalImporte").ToString.ToDecimal, .Importe = drr("TotalImporte").ToString.ToDecimal,
.Descuento = drr("Descuento").ToString.ToDecimal, .Descuento = drr("Descuento").ToString.ToDecimal,
.Unidad = drr("UM").ToString, .Unidad = drr("UM").ToString,
.ClaveUnidad = drr("SATClaveUM").ToString, .ClaveUnidad = drr("SATClaveUM").ToString,
.ClaveProdServ = drr("SATClaveProdServ").ToString, .ClaveProdServ = drr("SATClaveProdServ").ToString,
.Noidentificacion = drr("Noidentificacion").ToString, .Noidentificacion = drr("Noidentificacion").ToString,
.CuentaPredial = drr("CuentaPredial").ToString} .CuentaPredial = drr("CuentaPredial").ToString}
'VERIFICA SUMA SUBTOTALES 'VERIFICA SUMA SUBTOTALES
If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES
concepto.Importe = totSubTotal concepto.Importe = totSubTotal
End If End If
totSubTotal = totSubTotal - concepto.Importe totSubTotal = totSubTotal - concepto.Importe
'SIEMPRE ESTAMOS AGREGANDO EL IVA '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}) '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) Timbre.Conceptos.Add(concepto)
i += 1 i += 1
Next Next
End If
End If End If

2
Contratos/Contrato.aspx.vb
View File

@@ -2754,7 +2754,7 @@ Partial Class Contratos_Default
Private Sub CargaGVGastos() Private Sub CargaGVGastos()
Dim objContrato As New ClsContratos Dim objContrato As New ClsContratos
If objContrato.GetContratoGastos(CveContrato) Then If objContrato.GetContratoGastos(CveContrato, UsuarioActual.cveempresa) Then
DtGastos = objContrato.DtResultados DtGastos = objContrato.DtResultados
GvContratosGastos.DataSource = DtGastos GvContratosGastos.DataSource = DtGastos
SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") 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() Private Sub CargaGVGastos()
Dim objContrato As New ClsContratos Dim objContrato As New ClsContratos
If objContrato.GetContratoGastos(CveContrato) Then If objContrato.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then
DtGastos = objContrato.DtResultados DtGastos = objContrato.DtResultados
GvContratosGastos.DataSource = DtGastos GvContratosGastos.DataSource = DtGastos
SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") 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) if (!IsPostBack)
{ {
DdlEstado.DataSource = get_GlobalDTGralEstados("MEX");
DdlEstado.DataSource = get_GlobalDTEstado("Mex");
DdlEstado.DataBind(); DdlEstado.DataBind();

6
General/SaldosIniciales.aspx.vb
View File

@@ -1033,7 +1033,7 @@ Partial Class General_SaldosIniciales
' Exit For ' Exit For
'End If 'End If
Else 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, 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, "-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 If (myarraystr.Length > 0) Then
CveEstado = myarraystr(0).ToEntero() CveEstado = myarraystr(0).ToEntero()
Else Else
CveEstado = GlobalDTGralEstados(1).FiltroPrimeroValor("CveEstado", $"Clave = '{Estado}'").ToString.ToEntero CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"Clave = '{Estado}'").ToString.ToEntero
End If End If
If CveEstado = 0 Then If CveEstado = 0 Then
CveEstado = -1 CveEstado = -1
@@ -2465,7 +2465,7 @@ Partial Class General_SaldosIniciales
crow = 1 crow = 1
ccol = ccol + 1 ccol = ccol + 1
Catalogos.Cell(crow, ccol).Value = "Estado" 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 crow = crow + 1
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado")) Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado"))
Next 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) 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) if (DdlmodalRecoleccionDireccion.SelectedValue.ToEntero() <= 0)
{ {
Alert("Debe seleccionar la dirección de recolección", ModExtensiones.TipoMensaje.MsgAdvertencia); Alert("Debe seleccionar la dirección de recolección", ModExtensiones.TipoMensaje.MsgAdvertencia);
return; return;
} }
int CveTimbrenuevo = -1;
bool ProcesoOK = false; bool ProcesoOK = false;
//int CveSubProyectoCliente = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1, DdlModalRecoleccionCliente.SelectedValue.ToEntero()).FiltroPrimeroValor("CveSubProyecto").ToEntero();
ClsGenerales ObjGenerales = new ClsGenerales(); ClsGenerales ObjGenerales = new ClsGenerales();
ObjGenerales.IniciaTransacSQL(); ObjGenerales.IniciaTransacSQL();

61
Inventarios/TraspasoAlmacen.aspx
View File

@@ -778,66 +778,7 @@
</div> </div>
</div> </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>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <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 DivTransitorio2.Visible = True
End If 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.CveEmpresa.Contiene(1, 119, 140, 2) Then
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
@@ -224,8 +228,6 @@ Partial Class Inventarios_TraspasoAlmacen
TipoSeccionAlmacen = 0 TipoSeccionAlmacen = 0
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
TxtFecha.Enabled = False TxtFecha.Enabled = False
@@ -236,8 +238,8 @@ Partial Class Inventarios_TraspasoAlmacen
End If End If
Else Else
If ChkTransitorio.Checked Then If ChkTransitorio.Checked Then
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);") RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
DivTransitorio2.Visible = True DivTransitorio2.Visible = True
End If End If
@@ -390,7 +392,7 @@ Partial Class Inventarios_TraspasoAlmacen
'Llena Almacen Transitorio 'Llena Almacen Transitorio
DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorio.DataBind() DdlAlmacenTransitorio.DataBind()
DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1"))
'Llena Almacen Recepcion 'Llena Almacen Recepcion
DdlAlmacenRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)") 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")) DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
TxtFechaEntrega.Text = Now.ToShortDateString TxtFechaEntrega.Text = Now.ToShortDateString
TxtFechaEnvio.Text = Now.ToShortDateString
'Llena Responsables Transitorio 'Llena Responsables Transitorio
'DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) 'DdlResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -1192,13 +1195,13 @@ Partial Class Inventarios_TraspasoAlmacen
MensajeAlert.Append("Se realizó con éxito el traspaso.") 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/> 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))) 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 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 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 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/><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))) 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 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) 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 End If
@@ -2626,7 +2629,7 @@ Partial Class Inventarios_TraspasoAlmacen
Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer) 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/>") 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))) 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 End If
'PDF 'PDF
Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio) 'Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
If File.Exists(ArchivoPDF) Then '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))) ' 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 'End If
If ChkEmitirCartaPorte.Checked Then 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))) 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.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
DdlUnidadCamion.DataBind() DdlUnidadCamion.DataBind()
Using ObjGral As New ClsGenerales 'Using ObjGral As New ClsGenerales
If ObjGral.GetCartaPorteConfigAutoTransportes() Then ' If ObjGral.GetCartaPorteConfigAutoTransportes() Then
DdlConfigAuto.DataSource = ObjGral.DtResultados ' DdlConfigAuto.DataSource = ObjGral.DtResultados
End If ' End If
End Using 'End Using
DdlConfigAuto.DataBind() 'DdlConfigAuto.DataBind()
End Sub End Sub
Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click 'Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
'Dim ObjInventarios As New ClsInventarios ' '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 ' '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');") ' ' RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
' CargarCamiones() ' ' CargarCamiones()
' LimpiarAgregarCamion() ' ' LimpiarAgregarCamion()
'End If ' 'End If
'ObjInventarios.Dispose() ' 'ObjInventarios.Dispose()
End Sub 'End Sub
Private Sub LimpiarAgregarCamion() 'Private Sub LimpiarAgregarCamion()
TxtPlacaNuevo.Text = "" ' TxtPlacaNuevo.Text = ""
TxtEspecificacionNuevo.Text = "" ' TxtEspecificacionNuevo.Text = ""
TxtAnio.Text = "" ' TxtAnio.Text = ""
TxtTipoPermisoSCT.Text = "" ' TxtTipoPermisoSCT.Text = ""
TxtNumermisoSCT.Text = "" ' TxtNumermisoSCT.Text = ""
TxtNombreAseguradora.Text = "" ' TxtNombreAseguradora.Text = ""
TxtNumPolizaSeguro.Text = "" ' TxtNumPolizaSeguro.Text = ""
End Sub 'End Sub
Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
'If DdlUnidadCamion.SelectedValue = "-1" Then 'If DdlUnidadCamion.SelectedValue = "-1" Then

17
Planeacion/CatSubProyectos.aspx.vb
View File

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

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

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

4
RH/CatPersonal.aspx.vb
View File

@@ -188,7 +188,7 @@ Partial Class RH_CatPersonal
DdlJornada.DataBind() DdlJornada.DataBind()
End Sub End Sub
Private Sub CargaEstados() Private Sub CargaEstados()
DdlEstados.DataSource = GlobalDTGralEstados(1) DdlEstados.DataSource = GlobalDTGralEstados("MEX")
DdlEstados.DataBind() DdlEstados.DataBind()
End Sub End Sub
Private Sub CargaTipoRegimen() Private Sub CargaTipoRegimen()
@@ -902,7 +902,7 @@ Partial Class RH_CatPersonal
crow = 1 crow = 1
ccol = ccol + 1 ccol = ccol + 1
Catalogos.Cell(crow, ccol).Value = "Estado" 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 crow = crow + 1
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado")) Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveEstado"), row("Estado"))
Next Next

2
RH/Personal.aspx
View File

@@ -315,7 +315,7 @@
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <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> <label for="<%= DdlEstados.ClientID.ToString()%>">Estado: </label>
<i></i> <i></i>
</div> </div>

28
RH/Personal.aspx.vb
View File

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

6
RH/Prospectos.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class Prospectos_Prospectos
DdlPaises.SelectedValue = "1" DdlPaises.SelectedValue = "1"
DdlEmpresaPaises.SelectedValue = "1" DdlEmpresaPaises.SelectedValue = "1"
DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind() DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind()
DdlFiscalEstados.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstados.DataBind() DdlFiscalEstados.DataSource = GlobalDTGralEstados("MEX") : DdlFiscalEstados.DataBind()
'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind() 'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind()
@@ -337,11 +337,11 @@ Partial Class Prospectos_Prospectos
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) 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 End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) 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 End Sub
Protected Sub CargaCaracteristicas() 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) Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub End Sub
Public Sub ExportToExcelGTest(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing) 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 End Sub
Protected Sub GvAuxCliente_RowDataBound(sender As Object, e As GridViewRowEventArgs) 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") Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
DdlEstadoSAT.Items.Clear() DdlEstadoSAT.Items.Clear()
DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
DdlEstadoSAT.DataBind() DdlEstadoSAT.DataBind()
DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -4388,21 +4388,12 @@ Partial Class Clientes
Private Sub CargaDirClienteEstado() Private Sub CargaDirClienteEstado()
DdlDirClienteEstado.Items.Clear() DdlDirClienteEstado.Items.Clear()
If DdlDirClientePais.SelectedValue.ToEntero > 0 Then 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 End If
DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlDirClienteEstado.DataBind() DdlDirClienteEstado.DataBind()
End Sub 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
Private Sub CargaDirClienteColonia() Private Sub CargaDirClienteColonia()
DdlDirClienteColonia.Items.Clear() DdlDirClienteColonia.Items.Clear()
If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
@@ -4498,7 +4489,7 @@ Partial Class Clientes
ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False) 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") If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
UpAddDireccion.Update() UpAddDireccion.Update()
RegistraScript("$('#divAddDireccionEnvio').modal();") RegistraScript("$('#divAddDireccionEnvio').modal();")
End Sub End Sub
Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click Private Sub BtnAgregarDireccion_Click(sender As Object, e As EventArgs) Handles BtnAgregarDireccion.Click
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -6936,16 +6927,25 @@ Partial Class Clientes
Private Sub CargaEstado() Private Sub CargaEstado()
DdlEstado.Items.Clear() DdlEstado.Items.Clear()
If DdlPais.SelectedValue.ToEntero() > 0 Then 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 End If
DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlEstado.DataBind() DdlEstado.DataBind()
End Sub 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() Private Sub CargaMunicipio()
DdlMunicipio.Items.Clear() DdlMunicipio.Items.Clear()
If DdlEstado.SelectedValue.ToEntero() > 0 Then 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 End If
DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMunicipio.DataBind() DdlMunicipio.DataBind()

2
Ventas/PV.aspx.vb
View File

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