From 5a2942c894892c190f41e22ac1fc4de768bac69d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Jun 2020 21:33:43 -0700 Subject: [PATCH 1/4] - vnetas vinculadas --- App_Code/ClsOC.vb | 6 +++--- OC/OC.aspx | 2 +- OC/OC.aspx.vb | 49 ++++++++++++++++++++++++++++------------------- 3 files changed, 33 insertions(+), 24 deletions(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 20d2c9d8f..dbda19f3b 100644 --- a/App_Code/ClsOC.vb +++ b/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 diff --git a/OC/OC.aspx b/OC/OC.aspx index 54e04febc..e369bf855 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1503,7 +1503,7 @@ -
+
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 62d30797d..793816bbb 100644 --- a/OC/OC.aspx.vb +++ b/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() - Dim GridViewPSAux As GridView = GvD - Dim CveOCDetalle As New StringBuilder() - For Each vd As GridViewRow In GridViewPSAux.Rows - Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle") - CveOCDetalle.AppendFormat("{0},", CveVentaDetalle) - Next - Dim ObjVentas As New ClsOC() - If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then - Dim V As DataTable = ObjVentas.DtResultados - If V.Rows.Count > 0 Then - DivVentaRelacionada.Visible = True - GvVentaRelacionadas.DataSource = V - GvVentaRelacionadas.DataBind() - End If - End If - ObjVentas.Dispose() - End Sub + 'Private Sub CargaVentaRelacionada() + ' Dim GridViewPSAux As GridView = GvD + ' Dim CveOCDetalle As New StringBuilder() + ' For Each vd As GridViewRow In GridViewPSAux.Rows + ' Dim CveVentaDetalle As String = vd.DataKey("CveOrdenCompraDetalle") + ' CveOCDetalle.AppendFormat("{0},", CveVentaDetalle) + ' Next + ' Dim ObjVentas As New ClsOC() + ' If ObjVentas.GetVentasRelacionadas(CveOCDetalle.ToString) Then + ' Dim V As DataTable = ObjVentas.DtResultados + ' If V.Rows.Count > 0 Then + ' DivVentaRelacionada.Visible = True + ' GvVentaRelacionadas.DataSource = V + ' GvVentaRelacionadas.DataBind() + ' End If + ' End If + ' ObjVentas.Dispose() + 'End Sub End Class From 72217d88d3302a0d66af1dab36a3b478d7b67366 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 25 Jun 2020 11:52:32 -0700 Subject: [PATCH 2/4] BDH: Pagar NC con C.CH debe descontar en el corte --- Bancos/IE.aspx.vb | 27 ++++++++++++++++++++++++++- 1 file changed, 26 insertions(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index cfb1e58c4..7b6fc323e 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -437,6 +437,15 @@ Partial Class Bancos_IE 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" @@ -1291,6 +1300,17 @@ Partial Class Bancos_IE End If ObjCliente.Dispose() 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 #End Region #Region " CARGA PERSONAL " @@ -1428,6 +1448,11 @@ Partial Class Bancos_IE 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 CargaGridTarjetas() Else @@ -2471,7 +2496,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)) + 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), CveCorte:=Me.CveCorte) If CveIE > 0 Then From 2a460c6ab8061f1b1b51eb4dfe8f3398c27767cc Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 25 Jun 2020 12:03:13 -0700 Subject: [PATCH 3/4] BDH: Pagar NC con C.CH debe descontar en el corte (despues del merge) --- Bancos/IE.aspx.vb | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index a1fff0611..47e593526 100644 --- a/Bancos/IE.aspx.vb +++ b/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 From 34cacc1afa23fa66d3383955fe1c080bfb6dab5f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Jun 2020 12:34:27 -0700 Subject: [PATCH 4/4] --serie folio --- OC/OC.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index e369bf855..180918c6d 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1514,10 +1514,10 @@
- - +