Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsOC.vb

@@ -2532,12 +2532,12 @@ Public Class ClsOC
     End Function
 #End Region
 
-    Public Function GetVentasRelacionadas(CveOCDetalle As String) As Boolean
+    Public Function GetVentasRelacionadas(CveOrdenCompra As Integer) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_OC_VentaRelacionada")
+        DataAdapter("PA_OC_VentasRelacionadas")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveOCDetalles", SqlDbType.NVarChar).Value = CveOCDetalle
+            .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
         End With
 
         Try

Bancos/IE.aspx.vb

@@ -436,6 +436,14 @@ Partial Class Bancos_IE
         End Set
 
     End Property
+    Private Property CveCorte As Integer
+        Get
+            Return IfNull(ViewState("CveCorte"), -1, ViewState("CveCorte").ToString().ToString()).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveCorte") = value
+        End Set
+    End Property
 
 
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -1180,6 +1188,16 @@ Partial Class Bancos_IE
         GvRH.DataBind()
         UpGvRH.Update()
     End Sub
+    Private Sub CargaCorteCaja()
+        'Checar si hay un Turno Abierto
+        Dim ObjPVenta As New ClsPuntoVenta
+        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                CveCorte = ObjPVenta.CveCorte
+            End If
+        End If
+        ObjPVenta.Dispose()
+    End Sub
 
 #Region "   CARGA PROVEEDOR   "
     Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
@@ -1459,6 +1477,11 @@ Partial Class Bancos_IE
                     DivCheques.Visible = False
                 End If
 
+            End If
+
+            'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE 
+            If UsuarioActual.TienePermisoProceso(160) AndAlso Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then
+                CargaCorteCaja()
             End If
 
             If dr("UsaTarjeta").ToString = "True" Then
@@ -2506,7 +2529,7 @@ Partial Class Bancos_IE
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                            CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
-                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"))
+                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte)
 
                 If CveIE > 0 Then
 

OC/OC.aspx

@@ -1503,7 +1503,7 @@
 
             </div>
         </div>
-        <div class="col-md-3" runat="server" id="DivVentaRelacionada">
+        <div class="col-md-3" runat="server" id="DivVentaRelacionada" visible="false">
             <div class="portlet light xspadding  bordered">
                 <div class="portlet-title">
                     <div class="caption font-green">
@@ -1514,10 +1514,10 @@
                         <a href="javascript;" class="expand" data-original-title="" title=""></a>
                     </div>
                 </div>
-                <asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,Folio"
+                <asp:GridView runat="server" ID="GvVentaRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveVenta,SerieFolio"
                     CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
                     <Columns>
-                        <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                        <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                     </Columns>
                 </asp:GridView>
             </div>

OC/OC.aspx.vb

@@ -518,8 +518,7 @@ Partial Class OC
                 End If
 
                 CargaDatos(CveOrdenCompra)
-                'CARGA VENTA RELACIONADA
+
-                CargaVentaRelacionada()
             Else
                 EsNuevo = True
                 InicializarValores()
@@ -1388,6 +1387,15 @@ Partial Class OC
                             LblUsuarioAsignado.Text = objOC.UsuarioAsignado
                         End If
 
+                        'CARGA VENTA RELACIONADA
+                        If objOC.GetVentasRelacionadas(pCveOrdenCompra) Then
+
+                            If objOC.DtResultados.Rows.Count > 0 Then
+                                DivVentaRelacionada.Visible = True
+                                GvVentaRelacionadas.DataSource = objOC.DtResultados
+                            End If
+                        End If
+
 
                     Case "REQ"
                         ViewState("TipoOC") = objOC.Tipo
@@ -1651,6 +1659,7 @@ Partial Class OC
         End If
 
         objOC.Dispose()
+        GvVentaRelacionadas.DataBind()
 
         'CARGA MOVTOS DE ALMACEN
         InicializaMovtosAlmacen()
@@ -7914,22 +7923,22 @@ Partial Class OC
         'End If
     End Sub
 
-    Private Sub CargaVentaRelacionada()
+    'Private Sub CargaVentaRelacionada()
-        Dim GridViewPSAux As GridView = GvD
+    '    Dim GridViewPSAux As GridView = GvD
-        Dim CveOCDetalle As New StringBuilder()
+    '    Dim CveOCDetalle As New StringBuilder()
-        For Each vd As GridViewRow In GridViewPSAux.Rows
+    '    For Each vd As GridViewRow In GridViewPSAux.Rows
-            Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
+    '        Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle")
-            CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
+    '        CveOCDetalle.AppendFormat("{0},", CveVentaDetalle)
-        Next
+    '    Next
-        Dim ObjVentas As New ClsOC()
+    '    Dim ObjVentas As New ClsOC()
-        If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
+    '    If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then
-            Dim V As DataTable = ObjVentas.DtResultados
+    '        Dim V As DataTable = ObjVentas.DtResultados
-            If V.Rows.Count > 0 Then
+    '        If V.Rows.Count > 0 Then
-                DivVentaRelacionada.Visible = True
+    '            DivVentaRelacionada.Visible = True
-                GvVentaRelacionadas.DataSource = V
+    '            GvVentaRelacionadas.DataSource = V
-                GvVentaRelacionadas.DataBind()
+    '            GvVentaRelacionadas.DataBind()
-            End If
+    '        End If
-        End If
+    '    End If
-        ObjVentas.Dispose()
+    '    ObjVentas.Dispose()
-    End Sub
+    'End Sub
 End Class