- cuenta de concepto 308, acreedor

Bancos/ProveedoresAbonar.aspx.vb

@@ -138,6 +138,17 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaProveedorExtranjera").ToString.ToEntero
         End Get
     End Property
+    Private ReadOnly Property CtaAcreedor As Integer
+        Get
+            Return ViewState("CtaAcreedor").ToString.ToEntero
+        End Get
+    End Property
+
+    Private ReadOnly Property IdCtaAcreedorExtranjera As Integer
+        Get
+            Return ViewState("IdCtaAcreedorExtranjera").ToString.ToEntero
+        End Get
+    End Property
 
     Private ReadOnly Property CveCuentaProveedor As Integer
         Get
@@ -215,6 +226,11 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaContComplementaria").ToString.ToEntero
         End Get
     End Property
+    Private ReadOnly Property IdCtaContAcreedorComplementaria As Integer
+        Get
+            Return ViewState("IdCtaContAcreedorComplementaria").ToString.ToEntero
+        End Get
+    End Property
 
     Private ReadOnly Property IdCtaContRetIVA As Integer
         Get
@@ -521,7 +537,10 @@ Partial Class Bancos_ProveedoresAbonar
 
                 ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
                 ViewState("IdCtaProveedorExtranjera") = ObjProveedor.IdCtaContProveedoresExtranjera
+                ViewState("CtaAcreedor") = ObjProveedor.IdCtaContAcreedor
+                ViewState("IdCtaAcreedorExtranjera") = ObjProveedor.IdCtaContAcreedorExtranjera
                 ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
+                ViewState("IdCtaAcreedorComplementaria") = ObjProveedor.IdCtaContAcreedorComplementaria
 
                 ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
                 ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
@@ -1013,8 +1032,13 @@ Partial Class Bancos_ProveedoresAbonar
                                                     ConceptoMovimiento = $"{HplProveedor.Text} F:{gvr.DataKey("SerieFolio")}"
                                                     'cuando son dolares, y tienen complementaria, se hace el registro
                                                     If gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                        IdCtaContable = CtaProveedor
-                                                        CveCuenta = CveCuentaProveedor
+                                                        If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
+                                                            IdCtaContable = CtaAcreedor
+                                                        Else
+                                                            IdCtaContable = CtaProveedor
+                                                            CveCuenta = CveCuentaProveedor
+                                                        End If
+
                                                     Else
                                                         Dim CveConceptoComplementaria As Integer = 206
                                                         If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoComplementaria = 310