-- se quita envío de cvecuenta

Bancos/ProveedoresAbonar.aspx.vb

@@ -150,18 +150,6 @@ Partial Class Bancos_ProveedoresAbonar
         End Get
     End Property
 
-    Private ReadOnly Property CveCuentaProveedor As Integer
-        Get
-            Return ViewState("CveCuentaProveedor").ToString.ToEntero
-        End Get
-    End Property
-
-    Private ReadOnly Property CveCuentaProveedorExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaProveedorExtranjera").ToString.ToEntero
-        End Get
-    End Property
-
     Private Property IdCuenta As Integer
         Get
             Return ViewState("IdCuenta").ToString.ToEntero
@@ -171,15 +159,6 @@ Partial Class Bancos_ProveedoresAbonar
         End Set
     End Property
 
-    Private Property CveCuentaB As Integer
-        Get
-            Return ViewState("CveCuentaB").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaB") = value
-        End Set
-    End Property
-
     Private Property CveProveedorSucursal As Integer
         Get
             Return ViewState("CveProveedorSucursal").ToString.ToEntero
@@ -198,15 +177,6 @@ Partial Class Bancos_ProveedoresAbonar
         End Set
     End Property
 
-    Private Property CveCuentaBancariaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBancariaComplementaria") = value
-        End Set
-    End Property
-
     Private Property PermiteModificarImporte As Boolean
         Get
             Return CType(ViewState("PermiteModificarImporte").ToString, Boolean)
@@ -252,28 +222,7 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaContRetISRAcreditable").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaMonedaExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaMonedaExtranjera").ToString.ToEntero
-        End Get
-    End Property
 
-    Private ReadOnly Property CveCuentaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaComplementaria").ToString.ToEntero
-        End Get
-    End Property
-
-    Private ReadOnly Property CveCuentaRetIVA As Integer
-        Get
-            Return ViewState("CveCuentaRetIVA").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaRetISR As Integer
-        Get
-            Return ViewState("CveCuentaRetISR").ToString.ToEntero
-        End Get
-    End Property
     Private Property EmpresaPrueba As Boolean
         Get
             Return CBool(ViewState("EmpresaPrueba"))
@@ -352,15 +301,10 @@ Partial Class Bancos_ProveedoresAbonar
                 ViewState("IdCtaContComplementaria") = 0
                 ViewState("IdCtaContRetIVA") = 0
                 ViewState("IdCtaContRetISR") = 0
-                ViewState("CveCuentaMonedaExtranjera") = 0
-                ViewState("CveCuentaComplementaria") = 0
-                ViewState("CveCuentaRetIVA") = 0
-                ViewState("CveCuentaRetISR") = 0
             End If
 
 
             IdCuenta = 0
-            CveCuentaB = 0
             PermiteModificarImporte = True
             TxtFechaIncobrable.Text = Now.ToShortDateString
 
@@ -959,7 +903,6 @@ Partial Class Bancos_ProveedoresAbonar
                             Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
                             Dim idCuentaContabilizacion As Long = 1
                             Dim CuentasContablesInvalidas As New StringBuilder
-                            Dim CveCuentaContabilizacion As Long = 1
                             Dim CuentasContablesInvalidasSIG As New StringBuilder
                             Dim ConceptoContable As Integer
                             Dim TipoMovimiento As Boolean
@@ -1090,7 +1033,7 @@ Partial Class Bancos_ProveedoresAbonar
                                                         IdCtaContable = IdCtaContComplementaria
                                                         If ImporteMovimiento <> 0 AndAlso (UsaComplementariaProveedores Or IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos 
                                                             importeMX = ImporteMovimiento
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, CveConceptoComplementaria, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompraValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompraValuacion, CveCuenta:=CveCuentaComplementaria) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, CveConceptoComplementaria, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompraValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompraValuacion) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -1952,11 +1895,6 @@ Partial Class Bancos_ProveedoresAbonar
                                                         idCuentaContabilizacion = 0
                                                     End If
 
-                                                    'Conta SIG
-                                                    If CveCuentaB < 1 Then
-                                                        CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                        CveCuentaContabilizacion = 0
-                                                    End If
                                                     ImporteMovimiento = 0
                                                 Case Else
                                                     ImporteMovimiento = 0
@@ -2004,17 +1942,17 @@ Partial Class Bancos_ProveedoresAbonar
 
                             If (Not DivTarjeta.Visible Or DdlTarjeta.SelectedValue.ToEntero = -1) Then
                                 If TipoCambioPago > 1 AndAlso CveMoneda = 2 Then
-                                    If UsaComplementariaBancos Or (CveCuentaBancariaComplementaria > 0 OrElse IdCuentaBancariaComplementaria > 0) Then
+                                    If UsaComplementariaBancos Or (IdCuentaBancariaComplementaria > 0) Then
                                         If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                                             TipoCambioPago = TxtTCDolares.Text.ToDecimal
                                         ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then
                                             TipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                         End If
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=If(TipoCambioPago = 1, 0, TxtImporte.Text.ToDecimal), CveCuenta:=CveCuentaB, TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=If(TipoCambioPago = 1, 0, TxtImporte.Text.ToDecimal), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), Referencia, 204, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round((TxtImporte.Text.Trim.ToDecimal * TipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 1, 0, TxtImporte.Text.ToDecimal), TipoCambio:=TipoCambioPago, CveCuenta:=CveCuentaBancariaComplementaria, CveSubProyecto:=CveSubProyecto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), Referencia, 204, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round((TxtImporte.Text.Trim.ToDecimal * TipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 1, 0, TxtImporte.Text.ToDecimal), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
                                     Else
@@ -2024,7 +1962,7 @@ Partial Class Bancos_ProveedoresAbonar
                                             TipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                         End If
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), CveCuenta:=CveCuentaB, TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
 
@@ -2036,7 +1974,7 @@ Partial Class Bancos_ProveedoresAbonar
                                         TipoCambioPago = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToString.ToDecimal
                                     End If
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), CveCuenta:=CveCuentaB, TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                         MsgError = "No se pudo insertar la póliza"
                                     End If
 
@@ -2500,9 +2438,7 @@ Partial Class Bancos_ProveedoresAbonar
             End If
 
             IdCuenta = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaB = dr("IdCtaContableSIG").ToString.ToEntero
             IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
-            CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
         End If
 
         ' si no tiene CveMoneda, o es -1, cuando cambia de cuenta filtra las facturas
@@ -3099,7 +3035,6 @@ Partial Class Bancos_ProveedoresAbonar
         For Each gr As GridViewRow In GvCxP.Rows
             If gr.FCCheckBox("Chk").Checked Then
                 Dim IdCtaContable As Integer = CtaProveedor
-                Dim CveCuenta As Integer = CveCuentaProveedor
                 Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal
                 Dim TCCompra As Decimal = gr.DataKey("TipoCambio").ToDecimal
                 Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaIncobrable.Text.ToDate).ToDecimal
@@ -3129,30 +3064,23 @@ Partial Class Bancos_ProveedoresAbonar
 
                 If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then
                     IdCtaContable = IdCtaContComplementaria
-                    CveCuenta = CveCuentaProveedorExtranjera
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra) Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra, CveCuenta:=CveCuentaComplementaria) Then
                         MsgError = "No se pudo insertar la póliza"
                     End If
                     IdCtaContable = IdCtaProveedorExtranjera
-                    CveCuenta = CveCuentaProveedorExtranjera
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, CveCuenta:=CveCuenta) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 Else
                     If CveMoneda > 1 Then
                         IdCtaContable = IdCtaProveedorExtranjera
-                        CveCuenta = CveCuentaProveedorExtranjera
                     End If
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, CveCuenta:=CveCuenta) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 End If
 
-
-
-
-
                 Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal
 
                 If MsgError = "" AndAlso gr.DataKey("IVA").ToDecimal > 0 Then
@@ -3181,11 +3109,10 @@ Partial Class Bancos_ProveedoresAbonar
                     If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
                         If ObjConta.DtResultados.Rows.Count > 0 Then
                             IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
-                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
                         End If
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), CveCuenta:=CveCuenta) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra))) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
@@ -3194,7 +3121,7 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
                 ' se manda al ot ingresos, los impuestos por acreditar
-                If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, 78, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveCuenta:=-1, CveSubProyecto:=CveSubProyecto) Then
+                If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, 78, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                     MsgError = "Ocurrio un error al saldar el movimiento"
                 End If