diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 4e6967359..65e819be0 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -10591,7 +10591,7 @@ Public Class ClsPaginas
PaginaDict.Add("/CxC/RepCxCPeriodo.aspx".ToUpper(), 887)
#End Region
#Region "Exportaciones"
- PaginaDict.Add("/Export/RepExportaciones.aspx".ToUpper(), 77)
+ 'PaginaDict.Add("/Export/RepExportaciones.aspx".ToUpper(), 77)
PaginaDict.Add("/Export/ExpDetalle.aspx".ToUpper(), 77)
#End Region
#Region "Finanzas"
@@ -11362,6 +11362,12 @@ Public Class ClsPaginas
Case Else : Retorno = 9
End Select
End If
+ If Pagina.ToUpper() = ("/Export/RepExportaciones.aspx").ToUpper() Then
+ Select Case Request("Opcion")
+ Case "I" : Retorno = 85
+ Case Else : Retorno = 77
+ End Select
+ End If
Return Retorno
End Function
#End Region
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index bf2ccb6ec..3d6d102d3 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -5042,7 +5042,7 @@
-
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index dc292aa46..b9ee9e5b3 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15524,6 +15524,9 @@ Partial Class Compras_Compras
End If
End If
+ Dim ivaPorcentaje As Decimal = DTOCGV.MAX("IVAPorcentaje").ToDecimal
+ Dim IVAPorcentajeTmp As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+
If DTOCGV.MAX("IVAPorcentaje").ToDecimal <> TmpDT.MAX("IVAPorcentaje").ToDecimal Then
Alert("La orden de compra(s) tiene diferentes tasa de IVA.", TipoMensaje.MsgAdvertencia)
End If
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index a3e2ddbda..634f7cc68 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -5890,7 +5890,14 @@ Partial Class Compras_Proveedores
Private Sub CargaTipoTransaccion()
+
+
+ If GlobalDTDIOTTipoOperacion IsNot Nothing AndAlso GlobalDTDIOTTipoOperacion.Rows.Count = 0 Then
+ GlobalDTDIOTTipoOperacion = Nothing
+ End If
+
Dim Filtro As String = ""
+
Select Case DDlDIOTTipoTercero.SelectedValue
Case "1"
Filtro = "AplicaProvNacional = 1"
@@ -5900,8 +5907,11 @@ Partial Class Compras_Proveedores
Filtro = "AplicaProvGlobal = 1"
End Select
+ GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
+
DdlDIOTTipoOperacion.DataSource = GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
DdlDIOTTipoOperacion.DataBind()
+
End Sub
diff --git a/Contabilidad/DiarioPagos.aspx b/Contabilidad/DiarioPagos.aspx
index 6c193ac59..7c2ba64e9 100644
--- a/Contabilidad/DiarioPagos.aspx
+++ b/Contabilidad/DiarioPagos.aspx
@@ -695,6 +695,7 @@
+
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 36d0bbeb0..17bbe038d 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -794,7 +794,7 @@ Partial Class General_SaldosIniciales
Dim DTCuentasContables As New DataTable
- If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174) Then
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174, 184) Then
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -1445,7 +1445,7 @@ Partial Class General_SaldosIniciales
If CobranzaTelefono.Trim.Length > 10 Then CobranzaTelefono = ""
- Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString(), "")
+ Dim FormaPago As String = If(dt.Columns.Contains("FormaPago"), Row("FormaPago").ToString(), "")
Dim CveFormaPago33 As Integer = 99
Select Case FormaPago
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index e3f74c920..c73ea4d84 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -2569,7 +2569,8 @@
-
+
@@ -6028,53 +6029,103 @@
Cuenta Bancaria
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+ Seleccione uno
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index ec4deaea0..79361659d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1268,8 +1268,6 @@ Partial Class Clientes
CargaMetodosPago()
CargaPrecioLista()
CargaVendedores()
-
-
'CargaCorporativo()
CargaMetodosPago33()
@@ -1278,12 +1276,30 @@ Partial Class Clientes
CargaClasificaciones()
-
DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
DdlRegimenFiscal.DataBind()
CargaCombosComercioExterior()
+ CargaBancosSAT()
+ CargaMonedas()
+ End Sub
+
+ Private Sub CargaBancosSAT()
+
+ Dim ObjBancos As New ClsBancos
+
+ If ObjBancos.GetBancosSAT Then
+ DdlSatBanco.DataSource = ObjBancos.DtResultados
+ End If
+
+ ObjBancos.Dispose()
+
+ DdlSatBanco.DataBind()
+ DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
+
End Sub
Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione")
@@ -6790,14 +6806,16 @@ Partial Class Clientes
End If
ObjCuentasBancos.Dispose()
- CargaPSGridCuentasBancos()
-
- CargaMonedas()
+ CargaPSGridCuentasBancos()
+
+
End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
Dim EsBancomer As Boolean = False
- If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
+ If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or
+ DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BBVA") Or
+ DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
EsBancomer = True
End If
@@ -6852,15 +6870,19 @@ Partial Class Clientes
Dim Estatus As Boolean
If ChkEstatus2.Checked = True Then Estatus = True Else Estatus = False
- AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "", DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus)
+ AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "",
+ DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus, DdlSatBanco.SelectedValue.ToEntero)
End Sub
- Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean)
+ Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String,
+ CveMoneda As Integer, Moneda As String, Estatus As Boolean, CveSATBanco As Integer)
+
Dim ObjCuentasBancos As New ClsGenerales
+
If Modalidad = "A" Then
If CveCliente > 0 Then
- If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
+ If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveSATBanco:=CveSATBanco) Then
DTCuentasBancos.Clear()
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6871,6 +6893,31 @@ Partial Class Clientes
Else
Dim Row As DataRow
+
+ If TempDTCuentasBancos Is Nothing Then
+ TempDTCuentasBancos = New DataTable
+ TempDTCuentasBancos.Columns.Add("CveCuentaDeposito", GetType(Integer))
+ TempDTCuentasBancos.Columns.Add("BancoNombre", GetType(String))
+ TempDTCuentasBancos.Columns.Add("Sucursal", GetType(String))
+
+ TempDTCuentasBancos.Columns.Add("CLABE", GetType(String))
+ TempDTCuentasBancos.Columns.Add("SWIFT", GetType(String))
+ TempDTCuentasBancos.Columns.Add("Plaza", GetType(String))
+ TempDTCuentasBancos.Columns.Add("Cuenta", GetType(String))
+ TempDTCuentasBancos.Columns.Add("CIE", GetType(String))
+ TempDTCuentasBancos.Columns.Add("Referencia", GetType(String))
+ TempDTCuentasBancos.Columns.Add("RefCrediProveedor", GetType(String))
+ TempDTCuentasBancos.Columns.Add("CveMoneda", GetType(Integer))
+ TempDTCuentasBancos.Columns.Add("Moneda", GetType(String))
+ TempDTCuentasBancos.Columns.Add("EstatusPagoElectronico", GetType(Integer))
+ TempDTCuentasBancos.Columns.Add("Estatus", GetType(String))
+ TempDTCuentasBancos.Columns.Add("CveSATBanco", GetType(Integer))
+ TempDTCuentasBancos.Columns.Add("EstatusTexto", GetType(String))
+
+
+
+ End If
+
Row = TempDTCuentasBancos.NewRow
Row("BancoNombre") = NombreBanco
@@ -6886,6 +6933,7 @@ Partial Class Clientes
Row("Moneda") = Moneda
Row("EstatusPagoElectronico") = 0
Row("Estatus") = "True"
+ Row("CveSATBanco") = CveSATBanco
TempDTCuentasBancos.Rows.Add(Row)
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6896,7 +6944,8 @@ Partial Class Clientes
If CveCliente > 0 Then
- If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa) Then
+ If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa,
+ CveSATBanco:=CveSATBanco) Then
DTCuentasBancos.Clear()
CargaCuentasBancarias()
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -6920,6 +6969,7 @@ Partial Class Clientes
Row("CveMoneda") = CveMoneda
Row("Moneda") = Moneda
Row("Estatus") = Estatus
+ Row("CveSATBanco") = CveSATBanco
TempDTCuentasBancos.AcceptChanges()
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6932,6 +6982,7 @@ Partial Class Clientes
RecargaGlobalCuentasBancarias()
End Sub
Private Sub LimpiaCuentasBancarias()
+ DdlSatBanco.SelectedValueExist(-1)
TxtNombreBanco.Text = ""
TxtNumeroSucursal.Text = ""
TxtCLABE.Text = ""
@@ -7014,7 +7065,8 @@ Partial Class Clientes
End Sub
Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click
- Modalidad = "A"
+ Modalidad = "A"
+ DdlSatBanco.SelectedValueExist(-1)
TxtNombreBanco.Text = ""
LbAgregarCuentaBanco.Text = "Agregar"
TxtNumeroSucursal.Text = ""
@@ -7033,6 +7085,9 @@ Partial Class Clientes
Public Sub Edit_Click2(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+ DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco"))
TxtNombreBanco.Text = GvRow.DataKey("BancoNombre")
Modalidad = "U"
LbAgregarCuentaBanco.Text = "Actualizar"