- acreedor/proveedor

App_Code/ClsCompras.vb

@@ -191,7 +191,7 @@ Public Class ClsCompras
                               AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional IdPoliza As Integer = -1,
                               Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
                               Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
-                              Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveConceptoContable As Integer = -1) As Boolean
+                              Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -240,7 +240,7 @@ Public Class ClsCompras
             .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
             .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra
             .Add("@TotalOriginal", SqlDbType.Money).Value = TotalOriginal
-            .Add("@CveTipoConcepto", SqlDbType.Int).Value = CveConceptoContable
+            .Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto
         End With
 
         Try

Compras/Compras.aspx.vb

@@ -1102,12 +1102,12 @@ Partial Class Compras_Compras
         End Set
     End Property
 
-    Private Property CveConceptoContable As Integer
+    Private Property CveTipoConcepto As Integer
         Get
-            Return ViewState("CveConceptoContable").ToString.ToEntero
+            Return ViewState("CveTipoConcepto").ToString.ToEntero
         End Get
         Set(value As Integer)
-            ViewState("CveConceptoContable") = value
+            ViewState("CveTipoConcepto") = value
         End Set
     End Property
 
@@ -1130,7 +1130,7 @@ Partial Class Compras_Compras
             SubTotalOriginal = 0
             CveConceptoContableAlmacen = 0
             EsNoDeducible = False
-
+            CveTipoConcepto = 1
             '******** Prorrateo ********************************************
             If UsuarioActual.Empresa.Funcionalidad(117) <> "" Then
                 btnProrateo.Visible = True
@@ -1595,23 +1595,20 @@ Partial Class Compras_Compras
 
             HplAddClasificacion.Visible = False
             ImgClasificacion.Visible = False
-        End If
-        CveConceptoContable = 5
-
-
-
-        'If CargoFactura Then
-        '    'If UsuarioActual.Empresa.Funcionalidad(128) = "1" Then
-        '    '    If TmpDT.MAX("CvePS").ToEntero > 0 Then
-        '    '        BtnGuardar.Enabled = False
-        '    '        RegistraScript($"AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={CveProveedor}&Masterimpoup=true',1000,600,'S'); return false;")
-
-        '    '    End If
-        '    'End If
-        'End If
-
-
-        'RegistraScript("ScrollVentanaAddProducto();")
+        End If
+
+        'If CargoFactura Then
+        '    'If UsuarioActual.Empresa.Funcionalidad(128) = "1" Then
+        '    '    If TmpDT.MAX("CvePS").ToEntero > 0 Then
+        '    '        BtnGuardar.Enabled = False
+        '    '        RegistraScript($"AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={CveProveedor}&Masterimpoup=true',1000,600,'S'); return false;")
+
+        '    '    End If
+        '    'End If
+        'End If
+
+
+        'RegistraScript("ScrollVentanaAddProducto();")
     End Sub
 
 #Region "C A R G A S"
@@ -2501,7 +2498,8 @@ Partial Class Compras_Compras
 
 
                 DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString)
-                DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString)
+                DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString)
+                If dr("CveTipoConcepto").ToString.ToEntero = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
 
                 HdnCveEstatusFactura.Value = dr("CveEstatusFactura").ToString
                 LblCompraEstatus.Text = dr("EstatusFactura").ToString
@@ -4417,7 +4415,7 @@ Partial Class Compras_Compras
                               TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
                                                     CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
                                                     AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
-                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveConceptoContable:=CveConceptoContable) Then
+                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto) Then
 
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
@@ -6648,6 +6646,7 @@ Partial Class Compras_Compras
                                                                     CveCuenta = CveCuentaProveedorExtranjera
                                                                 End If
                                                             End If
+                                                            If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
 
                                                         Case 59 'Documentos
                                                             importeMovimiento = importeCreditos
@@ -19363,12 +19362,12 @@ Partial Class Compras_Compras
     End Sub
 
     Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
-        If LblProveedor.Text = "Proveedor:" Then
+        If CveTipoConcepto = 1 Then
             LblProveedor.Text = "Acreedor:"
-            CveConceptoContable = 305
+            CveTipoConcepto = 2
         Else
             LblProveedor.Text = "Proveedor:"
-            CveConceptoContable = 5
+            CveTipoConcepto = 1
         End If
     End Sub