-- se quitó el uso de cvecuenta,

-- correcion de uso de importeME

Compras/Compras.aspx.vb

@@ -253,26 +253,13 @@ Partial Class Compras_Compras
             Return ViewState("CtaProveedor").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedor As Integer
-        Get
-            Return ViewState("CveCuentaProveedor").ToString.ToEntero
-        End Get
-    End Property
+
     Private ReadOnly Property CtaProveedorDeudores As Integer
         Get
             Return ViewState("CtaProveedorDeudores").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorDeudores As Integer
-        Get
-            Return ViewState("CveCuentaProveedorDeudores").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaProveedorAcreedores As Integer
-        Get
-            Return ViewState("CveCuentaProveedorAcreedores").ToString.ToEntero
-        End Get
-    End Property
+
     Private ReadOnly Property CtaProveedorAcreedores As Integer
         Get
             Return ViewState("CtaProveedorAcreedores").ToString.ToEntero
@@ -283,79 +270,43 @@ Partial Class Compras_Compras
             Return ViewState("CtaProveedorAnticipos").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorAnticipos As Integer
-        Get
-            Return ViewState("CveCuentaProveedorAnticipos").ToString.ToEntero
-        End Get
-    End Property
+
     Private ReadOnly Property CtaProveedorAnticiposExtranjera As Integer
         Get
             Return ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorAnticiposExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaProveedorAnticiposExtranjera").ToString.ToEntero
-        End Get
-    End Property
+
     Private ReadOnly Property CtaProveedorAnticiposComplementaria As Integer
         Get
             Return ViewState("CtaProveedorAnticiposComplementaria").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorAnticiposComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaProveedorAnticiposComplementaria").ToString.ToEntero
-        End Get
-    End Property
 
     Private ReadOnly Property CtaProveedorRetIVA As Integer
         Get
             Return ViewState("CtaProveedorRetIVA").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorRetIVA As Integer
-        Get
-            Return ViewState("CveCuentaProveedorRetIVA").ToString.ToEntero
-        End Get
-    End Property
+
 
     Private ReadOnly Property CtaProveedorRetISR As Integer
         Get
             Return ViewState("CtaProveedorRetISR").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorRetISR As Integer
-        Get
-            Return ViewState("CveCuentaProveedorRetISR").ToString.ToEntero
-        End Get
-    End Property
 
-    Private ReadOnly Property CveCuentaIEPS As Integer
-        Get
-            Return ViewState("CveCuentaIEPS").ToString.ToEntero
-        End Get
-    End Property
     Private ReadOnly Property CtaProveedorExtranjera As Integer
         Get
             Return ViewState("CtaProveedorExtranjera").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaProveedorExtranjera").ToString.ToEntero
-        End Get
-    End Property
     Private ReadOnly Property CtaProveedorComplementaria As Integer
         Get
             Return ViewState("CtaProveedorComplementaria").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaProveedorComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaProveedorComplementaria").ToString.ToEntero
-        End Get
-    End Property
+
     Private ReadOnly Property NombreProveedor As String
         Get
             Return ViewState("NombreProveedor").ToString
@@ -3289,18 +3240,6 @@ Partial Class Compras_Compras
                 ViewState("CtaProveedorComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
                 ViewState("IdCtaContDocsXPagar") = ObjProveedor.IdCtaContDocsXPagar
 
-                'Conta SIG
-                ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
-                ViewState("CveCuentaProveedorAnticipos") = ObjProveedor.CveCuentaAnticipos
-                ViewState("CveCuentaProveedorAnticiposExtranjera") = ObjProveedor.CveCuentaAnticiposExtranjera
-                ViewState("CveCuentaProveedorAnticiposComplementaria") = ObjProveedor.CveCuentaAnticiposComplementaria
-                ViewState("CveCuentaProveedorDeudores") = ObjProveedor.CveCuentaDeudor
-                ViewState("CveCuentaProveedorAcreedores") = ObjProveedor.CveCuentaAcreedor
-                ViewState("CveCuentaProveedorRetISR") = ObjProveedor.CveCuentaRetISR
-                ViewState("CveCuentaProveedorRetIVA") = ObjProveedor.CveCuentaRetIVA
-                ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
-                ViewState("CveCuentaProveedorComplementaria") = ObjProveedor.CveCuentaProveedoresComplementaria
-
 
                 ViewState("NombreProveedor") = ObjProveedor.RazonSocial
 
@@ -12876,7 +12815,6 @@ Partial Class Compras_Compras
 
                 If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlAcreedor.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then
                     ViewState("CtaProveedorAcreedores") = ObjProveedor.IdCtaContAcreedor
-                    ViewState("CveCuentaProveedorAcreedores") = ObjProveedor.CveCuentaAcreedor
                 End If