Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -1102,6 +1102,15 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property CveConceptoContable As Integer
+        Get
+            Return ViewState("CveConceptoContable").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveConceptoContable") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -1587,7 +1596,7 @@ Partial Class Compras_Compras
             HplAddClasificacion.Visible = False
             ImgClasificacion.Visible = False
         End If
-
+        CveConceptoContable = 5
 
 
 
@@ -4408,7 +4417,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) Then
+                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveConceptoContable:=CveConceptoContable) Then
 
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
@@ -19353,4 +19362,14 @@ Partial Class Compras_Compras
 
     End Sub
 
+    Public Sub LblProveedor_OnClick(sender As Object, e As EventArgs) Handles LblProveedor.Click
+        If LblProveedor.Text = "Proveedor:" Then
+            LblProveedor.Text = "Acreedor:"
+            CveConceptoContable = 305
+        Else
+            LblProveedor.Text = "Proveedor:"
+            CveConceptoContable = 5
+        End If
+    End Sub
+
 End Class