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

Clientes se retiran campos CveMetodoPago, NumCtaPago, ConvenioCIE desde base de datos, Validacion fecha de pago no debe ser menor a factura, ProveedoresAbonar, ClientesAbonar, PooIEVentas, PopIECopmpras

Browse Source
This commit is contained in:
rakcsle
2021-02-23 12:33:38 -07:00
parent f61d12fdcb
commit ee4f2cf2d9
14 changed files with 428 additions and 342 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
App_Code/ClsClientes.vb
View File

@@ -68,7 +68,7 @@ Public Class ClsClientes
Public Property RecepcionPagos As String Public Property RecepcionPagos As String
Public Property TipoPago As String Public Property TipoPago As String
Public Property CuentaContable As String Public Property CuentaContable As String
Public Property ConvenioCIE As String 'Public Property ConvenioCIE As String
Public Property FormaFacturacion As String Public Property FormaFacturacion As String
Public Property IdCtaContClientes As Integer Public Property IdCtaContClientes As Integer
Public Property IdCtaContMonedaExtranjera As Integer Public Property IdCtaContMonedaExtranjera As Integer
@@ -86,8 +86,8 @@ Public Class ClsClientes
Public Property CveCuentaFondoGarantia As Integer Public Property CveCuentaFondoGarantia As Integer
Public Property Codigo As String Public Property Codigo As String
Public Property LimiteCredito As Double Public Property LimiteCredito As Double
Public Property NumCtaPago As String 'Public Property NumCtaPago As String
Public Property CveMetodoPago As Integer 'Public Property CveMetodoPago As Integer
Public Property AplicaFEMSA As Boolean Public Property AplicaFEMSA As Boolean
Public Property FEMSA_NumSociedad As String Public Property FEMSA_NumSociedad As String
Public Property FEMSA_NumProveedor As String Public Property FEMSA_NumProveedor As String
@@ -341,11 +341,11 @@ Public Class ClsClientes
_CveCuentaRetIVA = Data.Rows(0)("IdCtaContRetIVASIG").ToString.ToEntero _CveCuentaRetIVA = Data.Rows(0)("IdCtaContRetIVASIG").ToString.ToEntero
_CveCuentaRetISR = Data.Rows(0)("IdCtaContRetISRSIG").ToString.ToEntero _CveCuentaRetISR = Data.Rows(0)("IdCtaContRetISRSIG").ToString.ToEntero
_CveCuentaFondoGarantia = Data.Rows(0)("IdCtaContFondoGarantiaSIG").ToString.ToEntero _CveCuentaFondoGarantia = Data.Rows(0)("IdCtaContFondoGarantiaSIG").ToString.ToEntero
_ConvenioCIE = Data.Rows(0)("ConvenioCIE").ToString '_ConvenioCIE = Data.Rows(0)("ConvenioCIE").ToString
_FormaFacturacion = Data(0)("FormaFacturacion").ToString _FormaFacturacion = Data(0)("FormaFacturacion").ToString
_LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble _LimiteCredito = Data(0)("LimiteCredito").ToString.ToDouble
_NumCtaPago = Data(0)("NumCtaPago").ToString '_NumCtaPago = Data(0)("NumCtaPago").ToString
_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero '_CveMetodoPago = Data(0)("CveMetodoPago").ToString.ToEntero
_AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString) _AplicaFEMSA = CBool(Data(0)("AplicaFEMSA").ToString)
_FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString _FEMSA_NumSociedad = Data(0)("FEMSA_NumSociedad").ToString
_FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString _FEMSA_NumProveedor = Data(0)("FEMSA_NumProveedor").ToString
@@ -569,7 +569,7 @@ Public Class ClsClientes
RetieneIVAFletes As Boolean, CveUsuario As Integer, CveEmpresa As Integer, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String, RetieneIVAFletes As Boolean, CveUsuario As Integer, CveEmpresa As Integer, NombreCorto As String, CveVendedor As Integer, PlazoCobranza As Integer, PlazoCobranzaRemision As Integer, RecepcionPagos As String, TipoPago As String,
IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String,
IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String,
ConvenioCIE As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, NumCtaPago As String, CveMetodoPago As Integer, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FEMSA_NumProveedor As String,
FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, Detallista_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, Detallista_NumProveedor As String,
SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, TelefonoExtension As String, TelefonoOtros As String, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, TelefonoExtension As String, TelefonoOtros As String, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer,
Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
@@ -637,14 +637,12 @@ Public Class ClsClientes
.Add("@CtaContCompClientes", SqlDbType.VarChar).Value = CtaCompClientes .Add("@CtaContCompClientes", SqlDbType.VarChar).Value = CtaCompClientes
.Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos .Add("@IdCtaContCompAnticipos", SqlDbType.Int).Value = IdCtaContCompAnticipos
.Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos .Add("@CtaContCompAnticipos", SqlDbType.VarChar).Value = CtaCompAnticipos
.Add("@ConvenioCIE", SqlDbType.VarChar).Value = ConvenioCIE
.Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
.Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago
.Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
.Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0)
.Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad
.Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor
@@ -754,7 +752,7 @@ Public Class ClsClientes
IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String, IdCtaContClientes As Integer, CtaContClientes As String, IdCtaContAnticipos As Integer, CtaContAnticipos As String, IdCtaContRetIVA As Integer, CtaContRetIVA As String, IdCtaContRetISR As Integer, CtaContRetISR As String, IdCtaFondoGarantia As Integer, CtaFondoGarantia As String,
IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String, IdCtaContCompClientes As Integer, CtaCompClientes As String, IdCtaContCompAnticipos As Integer, CtaCompAnticipos As String,
IdCtaContMonedaExtranjera As Integer, CtaContMonedaExtranjera As String, IdCtaContMonedaExtranjeraAnticipos As Integer, CtaContMonedaExtranjeraAnticipos As String, IdCtaContMonedaExtranjera As Integer, CtaContMonedaExtranjera As String, IdCtaContMonedaExtranjeraAnticipos As Integer, CtaContMonedaExtranjeraAnticipos As String,
ConvenioCIE As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, NumCtaPago As String, CveMetodoPago As Integer, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String, FormaFacturacion As String, Codigo As String, LimiteCredito As Double, AplicaFEMSA As Boolean, FEMSA_NumSociedad As String,
FEMSA_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String, FEMSA_NumProveedor As String, FEMSA_Mail As String, AplicaDetallista As Boolean, Detallista_GLNComprador As String, Detallista_Departamento As String, Detallista_GLNVendedor As String,
Detallista_NumProveedor As String, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, CveUsuario As Integer, CveCliente As Integer, CveUsuarioModifico As Integer, CveEmpresa As Integer, TelefonoExtension As String, TelefonoOtros As String, Detallista_NumProveedor As String, SevenEleven_NumProveedor As String, AplicaFord As Boolean, Ford_GSDB As String, CveUsuario As Integer, CveCliente As Integer, CveUsuarioModifico As Integer, CveEmpresa As Integer, TelefonoExtension As String, TelefonoOtros As String,
PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer, PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer,
@@ -833,14 +831,13 @@ Public Class ClsClientes
.Add("@IdCtaContMonedaExtranjera", SqlDbType.Int).Value = IdCtaContMonedaExtranjera .Add("@IdCtaContMonedaExtranjera", SqlDbType.Int).Value = IdCtaContMonedaExtranjera
.Add("@CtaContMonedaExtranjera", SqlDbType.VarChar).Value = CtaContMonedaExtranjera .Add("@CtaContMonedaExtranjera", SqlDbType.VarChar).Value = CtaContMonedaExtranjera
.Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos .Add("@IdCtaContMonedaExtranjeraAnticipos", SqlDbType.Int).Value = IdCtaContMonedaExtranjeraAnticipos
.Add("@CtaContMonedaExtranjeraAnticipos", SqlDbType.VarChar).Value = IdCtaContMonedaExtranjeraAnticipos .Add("@CtaContMonedaExtranjeraAnticipos", SqlDbType.VarChar).Value = IdCtaContMonedaExtranjeraAnticipos
.Add("@ConvenioCIE", SqlDbType.VarChar).Value = ConvenioCIE
.Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion .Add("@FormaFacturacion", SqlDbType.VarChar).Value = FormaFacturacion
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito .Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
.Add("@NumCtaPago", SqlDbType.VarChar).Value = NumCtaPago
.Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
.Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0) .Add("@AplicaFEMSA", SqlDbType.Bit).Value = If(AplicaFEMSA, 1, 0)
.Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad .Add("@FEMSA_NumSociedad", SqlDbType.VarChar).Value = FEMSA_NumSociedad
.Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor .Add("@FEMSA_NumProveedor", SqlDbType.VarChar).Value = FEMSA_NumProveedor

15
Bancos/PopIECompras.aspx.vb
View File

@@ -1382,12 +1382,21 @@ Partial Class Bancos_PopIECompras
Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator) Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator)
End If End If
End Sub End Sub
#End Region #End Region
#Region "G U A R D A R" #Region "G U A R D A R"
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
If FechaCompra.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
Alert($"La fecha de compra no puede ser mayor que la fecha de pago <br/> Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") } ", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
If Not Page.IsValid Then If Not Page.IsValid Then
Exit Sub Exit Sub
End If End If

559
Bancos/PopIEVentas.aspx.vb
View File

@@ -1386,12 +1386,21 @@ Partial Class Bancos_PopIEVentas
End If End If
UpDatos.Update() UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region "G U A R D A R" #Region "G U A R D A R"
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
If FechaVenta.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
Alert($"La fecha de venta no puede ser mayor que la fecha de pago <br/> Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
If Not Page.IsValid Then If Not Page.IsValid Then
Exit Sub Exit Sub
End If End If
@@ -2152,34 +2161,34 @@ Partial Class Bancos_PopIEVentas
Else Else
ImporteMovimiento = 0 ImporteMovimiento = 0
End If End If
CveSubProyectoContabilizar = CveSubProyectoVenta CveSubProyectoContabilizar = CveSubProyectoVenta
'Case 65 'Perdida 'Case 65 'Perdida
' If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then ' If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then
' IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria ' IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
' CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria ' CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
' Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta) ' Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
' TimpocambioGeneral = TCImpuestos ' TimpocambioGeneral = TCImpuestos
' Dim Diferencia As Decimal = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioVentaValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta ' Dim Diferencia As Decimal = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioVentaValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta
' Diferencia -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA ' Diferencia -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
' Diferencia += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA ' Diferencia += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
' Diferencia += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR ' Diferencia += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
' Diferencia -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS ' Diferencia -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
' Diferencia = Math.Round(Diferencia, 2) ' Diferencia = Math.Round(Diferencia, 2)
' 'si la diferencia es negativa es pérdida, si es positiva es ganancia ' 'si la diferencia es negativa es pérdida, si es positiva es ganancia
' If Diferencia > 0 AndAlso CveMonedaVenta = 2 Then ' If Diferencia > 0 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = Math.Abs(Diferencia) ' ImporteMovimiento = Math.Abs(Diferencia)
' ImporteMX = ImporteMovimiento ' ImporteMX = ImporteMovimiento
' End If ' End If
' Else ' Else
' ImporteMovimiento = 0 ' ImporteMovimiento = 0
' End If ' End If
' CveSubProyectoContabilizar = CveSubProyectoVenta ' CveSubProyectoContabilizar = CveSubProyectoVenta
Case 30 Case 30
If RBLContado.SelectedValue = "1" Then If RBLContado.SelectedValue = "1" Then
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
@@ -2882,249 +2891,249 @@ Partial Class Bancos_PopIEVentas
End If End If
Next Next
ImporteMovimiento = 0 ImporteMovimiento = 0
End If End If
'Case 16 'Ret ISR X Acreditar COMPRA 'Case 16 'Ret ISR X Acreditar COMPRA
' If RBLContado.SelectedValue = "5" Then ' If RBLContado.SelectedValue = "5" Then
' For Each rw As GridViewRow In GvCompras.Rows ' For Each rw As GridViewRow In GvCompras.Rows
' If rw.FCCheckBox("Chk").Checked Then ' If rw.FCCheckBox("Chk").Checked Then
' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then ' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then
' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal
' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra
' ImporteMX = ImporteMovimiento ' ImporteMX = ImporteMovimiento
' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = Math.Round(ImporteMX, 2)
' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}" ' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
' 'Conta ContPAQ ' 'Conta ContPAQ
' If IdCtaContRetISRProveedor > 0 Then ' If IdCtaContRetISRProveedor > 0 Then
' IdCtaContable = IdCtaContRetISRProveedor ' IdCtaContable = IdCtaContRetISRProveedor
' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then ' ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' 'Conta SIG ' 'Conta SIG
' If CveCuentaRetISRProveedor <> 0 Then ' If CveCuentaRetISRProveedor <> 0 Then
' CveCuenta = CveCuentaRetISRProveedor ' CveCuenta = CveCuentaRetISRProveedor
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' If ImporteMovimiento > 0 Then ' If ImporteMovimiento > 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
' MsgError = "No se pudo insertar la póliza" ' MsgError = "No se pudo insertar la póliza"
' End If ' End If
' End If ' End If
' End If ' End If
' End If ' End If
' Next ' Next
' ImporteMovimiento = 0 ' ImporteMovimiento = 0
' End If ' End If
'Case 23 'Ret ISR Acreditable COMPRA 'Case 23 'Ret ISR Acreditable COMPRA
' If RBLContado.SelectedValue = "5" Then ' If RBLContado.SelectedValue = "5" Then
' For Each rw As GridViewRow In GvCompras.Rows ' For Each rw As GridViewRow In GvCompras.Rows
' If rw.FCCheckBox("Chk").Checked Then ' If rw.FCCheckBox("Chk").Checked Then
' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then ' If rw.DataKey("CveRetIVAConcepto").ToString.ToDecimal = 1 Then
' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal
' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra
' ImporteMX = ImporteMovimiento ' ImporteMX = ImporteMovimiento
' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) ' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = Math.Round(ImporteMX, 2)
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
' 'Conta ContPAQ ' 'Conta ContPAQ
' If IdCtaContRetISRAcreditableProveedor > 0 Then ' If IdCtaContRetISRAcreditableProveedor > 0 Then
' IdCtaContable = IdCtaContRetISRAcreditableProveedor ' IdCtaContable = IdCtaContRetISRAcreditableProveedor
' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then ' ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' 'Conta SIG ' 'Conta SIG
' If CveCuentaRetISRProveedor <> 0 Then ' If CveCuentaRetISRProveedor <> 0 Then
' CveCuenta = CveCuentaRetISRProveedor ' CveCuenta = CveCuentaRetISRProveedor
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' If ImporteMovimiento > 0 Then ' If ImporteMovimiento > 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
' MsgError = "No se pudo insertar la póliza" ' MsgError = "No se pudo insertar la póliza"
' End If ' End If
' End If ' End If
' End If ' End If
' End If ' End If
' Next ' Next
' ImporteMovimiento = 0 ' ImporteMovimiento = 0
' End If ' End If
'Case 243 'Ret ISR x Acreditar Terceros y Arrendamiento 'Case 243 'Ret ISR x Acreditar Terceros y Arrendamiento
' If RBLContado.SelectedValue = "5" Then ' If RBLContado.SelectedValue = "5" Then
' For Each rw As GridViewRow In GvCompras.Rows ' For Each rw As GridViewRow In GvCompras.Rows
' If rw.FCCheckBox("Chk").Checked Then ' If rw.FCCheckBox("Chk").Checked Then
' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then ' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then
' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal
' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra
' ImporteMX = ImporteMovimiento ' ImporteMX = ImporteMovimiento
' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal ' ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = Math.Round(ImporteMX, 2)
' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}" ' If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
' 'Conta ContPAQ ' 'Conta ContPAQ
' If IdCtaContRetISRProveedor > 0 Then ' If IdCtaContRetISRProveedor > 0 Then
' IdCtaContable = IdCtaContRetISRProveedor ' IdCtaContable = IdCtaContRetISRProveedor
' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then ' ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' 'Conta SIG ' 'Conta SIG
' If CveCuentaRetISRProveedor <> 0 Then ' If CveCuentaRetISRProveedor <> 0 Then
' CveCuenta = CveCuentaRetISRProveedor ' CveCuenta = CveCuentaRetISRProveedor
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' If ImporteMovimiento > 0 Then ' If ImporteMovimiento > 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
' MsgError = "No se pudo insertar la póliza" ' MsgError = "No se pudo insertar la póliza"
' End If ' End If
' End If ' End If
' End If ' End If
' End If ' End If
' Next ' Next
' ImporteMovimiento = 0 ' ImporteMovimiento = 0
' End If ' End If
'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento 'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento
' If RBLContado.SelectedValue = "5" Then ' If RBLContado.SelectedValue = "5" Then
' For Each rw As GridViewRow In GvCompras.Rows ' For Each rw As GridViewRow In GvCompras.Rows
' If rw.FCCheckBox("Chk").Checked Then ' If rw.FCCheckBox("Chk").Checked Then
' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then ' If rw.DataKey("CveRetISRConcepto").ToString.ToDecimal = 2 Then
' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal ' Dim PorcentajePagoCompra = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal / rw.DataKey("Total").ToString.ToDecimal
' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then ' If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra ' ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra
' ImporteMX = ImporteMovimiento ' ImporteMX = ImporteMovimiento
' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 1 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) ' ImporteMX = ImporteMovimiento '* If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 1 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)
' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then ' ElseIf CveMoneda = 2 AndAlso CveMonedaVenta = 2 Then
' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra) ' ImporteMovimiento = (rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoCompra)
' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)
' End If ' End If
' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
' ImporteMX = Math.Round(ImporteMX, 2) ' ImporteMX = Math.Round(ImporteMX, 2)
' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
' 'Conta ContPAQ ' 'Conta ContPAQ
' If IdCtaContRetISRAcreditableProveedor > 0 Then ' If IdCtaContRetISRAcreditableProveedor > 0 Then
' IdCtaContable = IdCtaContRetISRAcreditableProveedor ' IdCtaContable = IdCtaContRetISRAcreditableProveedor
' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then ' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero ' IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' 'Conta SIG ' 'Conta SIG
' If CveCuentaRetISRProveedor <> 0 Then ' If CveCuentaRetISRProveedor <> 0 Then
' CveCuenta = CveCuentaRetISRProveedor ' CveCuenta = CveCuentaRetISRProveedor
' Else ' Else
' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then ' If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjMov.DtResultados.Rows.Count > 0 Then ' If ObjMov.DtResultados.Rows.Count > 0 Then
' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero ' CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
' End If ' End If
' End If ' End If
' End If ' End If
' If ImporteMovimiento > 0 Then ' If ImporteMovimiento > 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then ' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
' MsgError = "No se pudo insertar la póliza" ' MsgError = "No se pudo insertar la póliza"
' End If ' End If
' End If ' End If
' End If ' End If
' End If ' End If
' Next ' Next
' ImporteMovimiento = 0 ' ImporteMovimiento = 0
' End If ' End If
Case 14 'Iva por Acreditar COMPRA Case 14 'Iva por Acreditar COMPRA
If RBLContado.SelectedValue = "5" Then If RBLContado.SelectedValue = "5" Then
For Each rw As GridViewRow In GvCompras.Rows For Each rw As GridViewRow In GvCompras.Rows

24
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -711,6 +711,30 @@ Partial Class Bancos_ProveedoresAbonar
#Region " GUARDAR " #Region " GUARDAR "
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
For Each gvRowVal As GridViewRow In GvCxP.Rows
If gvRowVal.FCCheckBox("Chk").Checked Then
If gvRowVal.DataKey("Fecha").ToDate > TxtFechaDocumento.Text.ToDate Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }<br/>")
ValFechaDocumento = True
End If
End If
Next
If ValFechaDocumento Then
Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then
Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia) Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub

14
Compras/Compras.aspx.vb
View File

@@ -3988,6 +3988,20 @@ Partial Class Compras_Compras
Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
'------------------INICIA VALIDACIONES------------------ '------------------INICIA VALIDACIONES------------------
Dim TempIva As Decimal
For Each drowv As DataRow In TmpDT.Rows
TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal)
Next
Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva)
If Math.Abs(DifGenelraIvas) > 0.2 Then
Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim EstatusCredito As Integer = 0 Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0 Dim CveSubProyecto As Integer = 0
'Credito Multiple 'Credito Multiple

2
General/SaldosIniciales.aspx.vb
View File

@@ -1172,7 +1172,7 @@ Partial Class General_SaldosIniciales
Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format("NombreEstado ='{0}'", Estado)).ToEntero Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format("NombreEstado ='{0}'", Estado)).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, "", 1, 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,
BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado) Then BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado) Then
ErrorClientes = True ErrorClientes = True

3
OI/Tablero.aspx.cs
View File

@@ -121,6 +121,9 @@ public partial class OI_Tablero : ClsPaginas
{ {
CargaTablero(); CargaTablero();
this.Alert("El Tablero Se ha Eliminado"); this.Alert("El Tablero Se ha Eliminado");
}else
{
this.Alert("El Tablero Se ha Eliminado", ModExtensiones.TipoMensaje.MsgAdvertencia);
} }
} }
protected void LnkTableros_Click(object sender, EventArgs e) protected void LnkTableros_Click(object sender, EventArgs e)

8
Ventas/CatClientes.aspx
View File

@@ -316,12 +316,14 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false">
<%--<asp:TemplateField Visible="false">
<HeaderTemplate>CIE</HeaderTemplate> <HeaderTemplate>CIE</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCIE" runat="server" Text='<%# Eval("ConvenioCIE") %>'></asp:Literal> <asp:Literal ID="LtlCIE" runat="server" Text='<%# Eval("ConvenioCIE") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
<asp:TemplateField Visible="false" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField Visible="false" ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>Calle</HeaderTemplate> <HeaderTemplate>Calle</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
@@ -441,7 +443,7 @@
</tr> </tr>
<tr> <tr>
<td style="text-align: left"> <td style="text-align: left">
<asp:CheckBox ID="ChkCIE" runat="server" Text="CIE" /></td> <%--<asp:CheckBox ID="ChkCIE" runat="server" Text="CIE" /></td>--%>
<td style="text-align: left"> <td style="text-align: left">
<asp:CheckBox ID="ChkCalle" runat="server" Text="Calle" /></td> <asp:CheckBox ID="ChkCalle" runat="server" Text="Calle" /></td>
</tr> </tr>

10
Ventas/CatClientes.aspx.vb
View File

@@ -163,11 +163,11 @@ Partial Class CatClientes
GvDatos.Columns(21).Visible = ChkRetISR.Checked GvDatos.Columns(21).Visible = ChkRetISR.Checked
GvDatos.Columns(22).Visible = ChkPlazoCobranza.Checked GvDatos.Columns(22).Visible = ChkPlazoCobranza.Checked
GvDatos.Columns(23).Visible = ChkLimiteCredito.Checked GvDatos.Columns(23).Visible = ChkLimiteCredito.Checked
GvDatos.Columns(24).Visible = ChkCIE.Checked 'GvDatos.Columns(24).Visible = ChkCIE.Checked
GvDatos.Columns(25).Visible = ChkCalle.Checked GvDatos.Columns(24).Visible = ChkCalle.Checked
GvDatos.Columns(26).Visible = ChkCelular.Checked GvDatos.Columns(25).Visible = ChkCelular.Checked
GvDatos.Columns(27).Visible = ChkCorreoCotizacion.Checked GvDatos.Columns(26).Visible = ChkCorreoCotizacion.Checked
GvDatos.Columns(28).Visible = ChkOtroTelefono.Checked GvDatos.Columns(27).Visible = ChkOtroTelefono.Checked
CargaDatos() CargaDatos()

12
Ventas/Clientes.aspx
View File

@@ -906,27 +906,27 @@
</div> </div>
</div> </div>
<div class="portlet-body form"> <div class="portlet-body form">
<div class="form-group form-md-line-input"> <%-- <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtConvenioCIE" CssClass="form-control" runat="server" MaxLength="50" Enabled="false"></asp:TextBox> <asp:TextBox ID="TxtConvenioCIE" CssClass="form-control" runat="server" MaxLength="50" Enabled="false"></asp:TextBox>
<label for="<%= TxtConvenioCIE.ClientID.ToString()%>">Convenio CIE:</label> <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">Convenio CIE:</label>
</div> </div>--%>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtReferenciaFiscal" CssClass="form-control" runat="server" Enabled="false"></asp:TextBox> <asp:TextBox ID="TxtReferenciaFiscal" CssClass="form-control" runat="server" Enabled="false"></asp:TextBox>
<label for="<%= TxtReferenciaFiscal.ClientID.ToString()%>">Referencia:</label> <label for="<%= TxtReferenciaFiscal.ClientID.ToString()%>">Referencia:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <%-- <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNumCtaPago" CssClass="form-control" runat="server" MaxLength="30" Enabled="false"></asp:TextBox> <asp:TextBox ID="TxtNumCtaPago" CssClass="form-control" runat="server" MaxLength="30" Enabled="false"></asp:TextBox>
<label for="<%= TxtNumCtaPago.ClientID.ToString()%>">Número de cuenta de Pago: </label> <label for="<%= TxtNumCtaPago.ClientID.ToString()%>">Número de cuenta de Pago: </label>
<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="DdlMetodoPago" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlMetodoPago" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlMetodoPago.ClientID.ToString()%>">Método de Pago:</label> <label for="<%= DdlMetodoPago.ClientID.ToString()%>">Método de Pago:</label>
<asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>--%>
<div id="DivRetenciones" runat="server"> <div id="DivRetenciones" runat="server">
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">

30
Ventas/Clientes.aspx.vb
View File

@@ -1242,10 +1242,10 @@ Partial Class Clientes
End Sub End Sub
Private Sub CargaMetodosPago() Private Sub CargaMetodosPago()
DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ") 'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
DdlMetodoPagoSucursal.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") DdlMetodoPagoSucursal.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT")
DdlMetodoPagoSucursal.DataBind() DdlMetodoPagoSucursal.DataBind()
DdlMetodoPago.DataBind() 'DdlMetodoPago.DataBind()
End Sub End Sub
Private Sub CargaPrecioLista() Private Sub CargaPrecioLista()
DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa) DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
@@ -1495,10 +1495,8 @@ Partial Class Clientes
IdCtaAnticipos = ObjClientes.IdCtaContAnticipos.ToString IdCtaAnticipos = ObjClientes.IdCtaContAnticipos.ToString
IdCtaRetIVA = ObjClientes.IdCtaContRetIVA.ToString IdCtaRetIVA = ObjClientes.IdCtaContRetIVA.ToString
IdCtaRetISR = ObjClientes.IdCtaContRetISR.ToString IdCtaRetISR = ObjClientes.IdCtaContRetISR.ToString
IdCtaFondoGarantia = ObjClientes.IdCtaContFondoGarantia.ToString IdCtaFondoGarantia = ObjClientes.IdCtaContFondoGarantia.ToString
TxtConvenioCIE.Text = ObjClientes.ConvenioCIE 'DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString
TxtNumCtaPago.Text = ObjClientes.NumCtaPago
DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString
TxtFormaFacturacion.Text = ObjClientes.FormaFacturacion TxtFormaFacturacion.Text = ObjClientes.FormaFacturacion
ChkPermiteCredito.Checked = ObjClientes.PermiteCredito ChkPermiteCredito.Checked = ObjClientes.PermiteCredito
TxtLimiteCredito.Text = ObjClientes.LimiteCredito.FormatoNumero TxtLimiteCredito.Text = ObjClientes.LimiteCredito.FormatoNumero
@@ -2515,10 +2513,10 @@ Partial Class Clientes
End If End If
End If End If
Dim MetodoPago = DdlMetodoPago.SelectedValue.ToEntero 'Dim MetodoPago = DdlMetodoPago.SelectedValue.ToEntero
If UsuarioActual.Empresa.CvePlataforma = 3 Then 'If UsuarioActual.Empresa.CvePlataforma = 3 Then
MetodoPago = 1 ' MetodoPago = 1
End If 'End If
Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "") Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")
@@ -2529,7 +2527,7 @@ Partial Class Clientes
DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero,
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,
TxtConvenioCIE.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, TxtNumCtaPago.Text.Trim, MetodoPago, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim,
TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim,
TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero,
CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero,
@@ -2624,7 +2622,7 @@ Partial Class Clientes
DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,
DdlMonedaExtranjeraClientes.SelectedValue.ToEntero, DdlMonedaExtranjeraClientes.SelectedItem.Text, DdlMonedaExtranjeraAnticipos.SelectedValue.ToEntero, DdlMonedaExtranjeraAnticipos.SelectedItem.Text, DdlMonedaExtranjeraClientes.SelectedValue.ToEntero, DdlMonedaExtranjeraClientes.SelectedItem.Text, DdlMonedaExtranjeraAnticipos.SelectedValue.ToEntero, DdlMonedaExtranjeraAnticipos.SelectedItem.Text,
TxtConvenioCIE.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, TxtNumCtaPago.Text.Trim, DdlMetodoPago.SelectedValue.ToEntero, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim,
ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, UsuarioActual.CveUsuario, ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, UsuarioActual.CveUsuario,
CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero, CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero, DdlCorporativo.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero, CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero,
CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero, ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero, CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), CobranzaExt:=TxtCobranzaExt.Text, CveCondicionEntrega:=DdlCondicionesEntrega.SelectedValue.ToEntero, ImprimeNombreSucursal:=ChkMuestraNombre.Checked, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero, CobranzaContacto:=TxtCobranzaContacto.Text.Trim, CobranzaTelefono:=TxtCobranzaTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), CobranzaExt:=TxtCobranzaExt.Text,
@@ -6122,7 +6120,7 @@ Partial Class Clientes
End If End If
If TxtNumeroCuenta2.Text.Trim.Length = 0 AndAlso TxtCLABE.Text.Trim.Length = 0 AndAlso TxtSWIFT.Text.Trim.Length = 0 AndAlso TxtConvenioCIE.Text.Trim.Length = 0 Then If TxtNumeroCuenta2.Text.Trim.Length = 0 AndAlso TxtCLABE.Text.Trim.Length = 0 AndAlso TxtSWIFT.Text.Trim.Length = 0 Then
Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia) Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -9458,9 +9456,9 @@ Partial Class Clientes
ObjFactura.Fecha = Now ObjFactura.Fecha = Now
ObjFactura.CvePrePoliza = -1 ObjFactura.CvePrePoliza = -1
ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero 'ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text 'ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}") 'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero

26
Ventas/ClientesAbonar.aspx.vb
View File

@@ -652,6 +652,32 @@ Partial Class Ventas_ClientesAbonar
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
For Each gvRowVal As GridViewRow In GvCxC.Rows
If gvRowVal.FCCheckBox("Chk").Checked Then
If gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
End If
End If
Next
If ValFechaDocumento Then
Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If Not TxtImporte.Text.ToDecimal > 0 Then If Not TxtImporte.Text.ToDecimal > 0 Then
Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia) Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub

28
Ventas/Ventas.aspx.vb
View File

@@ -1588,14 +1588,16 @@ Partial Class Ventas
ViewState("EstatusCliente") = value ViewState("EstatusCliente") = value
End Set End Set
End Property End Property
Private Property CveMetodoPagoCliente As Integer
Get 'Private Property CveMetodoPagoCliente As Integer
Return ViewState("CveMetodoPagoCliente").ToString().ToEntero() ' Get
End Get ' Return ViewState("CveMetodoPagoCliente").ToString().ToEntero()
Set(value As Integer) ' End Get
ViewState("CveMetodoPagoCliente") = value ' Set(value As Integer)
End Set ' ViewState("CveMetodoPagoCliente") = value
End Property ' End Set
'End Property
Private Property Modalidad As String Private Property Modalidad As String
Get Get
Return ViewState("Modalidad").ToString() Return ViewState("Modalidad").ToString()
@@ -2047,7 +2049,7 @@ Partial Class Ventas
ImprimeNombreSucursal = False ImprimeNombreSucursal = False
RegistraScript("SetDisabledTxtTotal(true);") RegistraScript("SetDisabledTxtTotal(true);")
TrVistaPrevia.Visible = False TrVistaPrevia.Visible = False
CveMetodoPagoCliente = 1 'CveMetodoPagoCliente = 1
CveAlmacenExistenciasContrato = -1 CveAlmacenExistenciasContrato = -1
UpFacturar.Update() UpFacturar.Update()
'CargaTiposDocumentos() 'CargaTiposDocumentos()
@@ -5454,7 +5456,7 @@ Partial Class Ventas
If CveCliente = 239903 AndAlso UsuarioActual.CveEmpresa = 119 Then If CveCliente = 239903 AndAlso UsuarioActual.CveEmpresa = 119 Then
DdlMetodoPago33.Enabled = False DdlMetodoPago33.Enabled = False
ObjCliente.CveMetodoPago = 1 ' PUE, y que no se pueda modificar 'ObjCliente.CveMetodoPago = 1 ' PUE, y que no se pueda modificar
Else Else
DdlMetodoPago33.Enabled = True DdlMetodoPago33.Enabled = True
End If End If
@@ -5462,7 +5464,7 @@ Partial Class Ventas
Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero() Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero()
If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then
CveMetodoPagoCliente = ObjCliente.CveMetodoPago 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33) DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
@@ -6214,7 +6216,7 @@ Partial Class Ventas
End If End If
If CveVenta <= 0 Then If CveVenta <= 0 Then
CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero() 'CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero()
DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString()) DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString())
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)
@@ -6246,7 +6248,7 @@ Partial Class Ventas
Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero() Dim CveCotizacion As Integer = IfNull(ViewState("CveCotizacion"), 0).ToString().ToEntero()
If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then If CveVenta <= 0 AndAlso CveCotizacion <= 0 Then
CveMetodoPagoCliente = ObjCliente.CveMetodoPago 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago
DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33) DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty) DdlMetodoPago33_SelectedIndexChanged(DdlMetodoPago33, EventArgs.Empty)

2
vwd.webinfo
View File

@@ -176,6 +176,8 @@