From 2dd5a1be99841ef4a8e40bfc2d7490a65c9db7ee Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 5 Apr 2024 17:57:31 -0700 Subject: [PATCH 1/5] --FIX. Impresion depositos caja --- Bancos/DepositosCaja.aspx.vb | 2 +- Empresas/Grales/Formatos/DepositoCaja.rdlc | 26 +++++++++++----------- 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 4f69cf666..2a9fc859b 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -553,7 +553,7 @@ Partial Class Bancos_DepositosCaja Dim File As Byte() = Nothing Try Using httpClient As New HttpClient() - httpClient.Timeout = New TimeSpan(0, 0, 40) + httpClient.Timeout = New TimeSpan(0, 1, 0) Using request As New HttpRequestMessage(HttpMethod.Get, Url) request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario={2}", CveEmpresa, DateTime.UtcNow.Ticks, CveUsuarioCreo))) Dim response = httpClient.SendAsync(request).Result diff --git a/Empresas/Grales/Formatos/DepositoCaja.rdlc b/Empresas/Grales/Formatos/DepositoCaja.rdlc index 1295c3fbc..15daf66f2 100644 --- a/Empresas/Grales/Formatos/DepositoCaja.rdlc +++ b/Empresas/Grales/Formatos/DepositoCaja.rdlc @@ -506,9 +506,9 @@ DataSet1 - 1.43975in + 1.6342in 0.43in - 7.89456in + 7.89455in @@ -761,8 +761,8 @@ Textbox2 - 4.74917cm - 15.02042cm + 5.31361cm + 15.35404cm 0.6cm 2.53175cm 7 @@ -795,8 +795,8 @@ Textbox4 - 4.74917cm - 17.56276cm + 5.31361cm + 17.89638cm 0.6cm 2.14313cm 8 @@ -999,10 +999,10 @@ Textbox12 - 2.96905cm - 12.49038cm + 3.44148cm + 0.12912cm 0.53299cm - 2.14725cm + 3.12013cm 13 =(Parameters!TipoPago.Value = "") @@ -1039,8 +1039,8 @@ Textbox12 - 2.96905cm - 15.61669cm + 3.44148cm + 3.28453cm 0.53299cm 3.76632cm 14 @@ -1056,10 +1056,10 @@ - 5.34917cm + 6.09cm - - - - -
  • - Generar EXCEL -
    • -
  • - Generar PDF -
    • -     -     - Personalizar -     - - - - - - - - - - -
    -
    -
    - - "> - -<%-- --%> -
    -
    -
    -
    - - <%--SubProyecto--%> -
    -
    - - -
    -
    - F.I.: -
    -
    -
    - - - - - - - - - - -
    -
    -
    - F.F.: -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -     -     -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    - Detalles del Corte - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCortes.aspx.vb" Inherits="Bancos_RepCortes" %> + + + + + + + + + +
  • + Generar EXCEL +
    • +
  • + Generar PDF +
    • +     +     + Personalizar +     + + + + + + + + + + +
    +
    +
    + + "> + + <%-- --%>
    -
    - - - - - - - -
    -
    - - - - +
    +
    +
    + + <%--SubProyecto--%> +
    +
    + + +
    +
    + F.I.: + +
    +
    +
    + + + + + + + + + + +
    +
    +
    + F.F.: + +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    + + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%----%> + + + + + + + + + + + + + + +
    +
    +
    +
    + Detalles del Corte + + + + + + +
    +
    + + + + + + + +
    +
    + + + + Serie - Folio - - - - - - + + + + + + + + + + + + - + - - <%----%> - - - - - - -
    -     -     - - - + + <%----%> + + + + + + +
    + + + + + - + + - + + - - + + + - + + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 41d2ada37..8ea467c4e 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -87,7 +87,7 @@ Partial Class Bancos_RepCortes If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then GvDatos.Columns(3).Visible = True GvDatos.Columns(4).Visible = True - GvDatos.Columns(12).Visible = True + GvDatos.Columns(13).Visible = True End If GvDatos.DataSource = DtCortes diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index f97eb6abc..a3fde73da 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1602,7 +1602,14 @@ Partial Class PopUpVerFactura If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then Dim lrds As New List(Of ReportDataSource) - Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen} + Dim DtMetodosPago = DtCortesVentasResumen.Copy() + + 'MOVER EL VENTAS CREDITO DE LA DERECHA A LA IZQUIERDA EN EL PDF + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'") + End If + + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago} lrds.Add(rds) Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas} lrds.Add(rds2) @@ -1689,6 +1696,14 @@ Partial Class PopUpVerFactura End If Next + Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'") + + Dim rowCredito = DtDatosResumen.NewRow() + rowCredito("Columna") = "Crédito" + rowCredito("Importe") = TotalCredito + rowCredito("Orden") = 4 + DtDatosResumen.Rows.Add(rowCredito) + Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosResumen.FiltraParametros("Orden > 0", "Orden")} lrds.Add(rds3) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 6007e8cf2..cbf9cb318 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -11,7 +11,7 @@ width: 200px; } - .btn-xs { + .btn-xs { padding: 0px 5px; } @@ -294,15 +294,15 @@ CssClass="ScrollAD table table-striped table-hover Widthall" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None" DataKeyNames="CveVenta,TipoDocto,Saldo,AtencionA,CveFormaPago33,SerieFolio"> - + - +   @@ -317,13 +317,17 @@
    Nombre:
             
    - -
    Folio:
    -
      
    - -
    -
    -
    + +
    Folio:
    +
      
    + +
    +
    +
    + +
    +
    +
    @@ -521,7 +525,7 @@ - +     @@ -664,15 +668,25 @@
    -
    +
    +
    +
    + +
    +
    + +
    +
    +
    +
    - +
    diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 556c2c13e..fbe4f03c8 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -38,6 +38,10 @@ Partial Class Ventas_PVCobranza Private Sub CargaFiltros() + If UsuarioActual.CveRol <> 1 Then + ChkAplicaGasto.Visible = False + End If + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyecto.DataBind() @@ -62,7 +66,11 @@ Partial Class Ventas_PVCobranza 'If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", CveMon)) DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", CveMon)) - DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", CveMon)) + DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", CveMon)) + + DdlCuentaGasto.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = 1 AND CveTipoCuenta = 1", CveMon)) + DdlCuentaGasto.DataBind() + DdlCuentaGasto.Items.Insert(0, New ListItem("Seleccione", "-1")) DtCC.Dispose() @@ -70,7 +78,7 @@ Partial Class Ventas_PVCobranza DdlCuentaTarjetaCredito.DataBind() DdlCuentaTarjetaDebito.DataBind() DdlCuentaCheque.DataBind() - DdlCuentaTransferencia.DataBind() + DdlCuentaTransferencia.DataBind() TxtImporteEfectivo.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") TxtImporteCredito.Attributes.Add("onKeyUp", "CalculaTotalPagoContado();") @@ -581,17 +589,73 @@ Partial Class Ventas_PVCobranza End Sub Private Sub BtnAceptarIE_Click(sender As Object, e As EventArgs) Handles BtnAceptarIE.Click - Dim ObjPVenta As New ClsPuntoVenta - If TxtCantidadIE.Text.ToEntero() > 0 Then - If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then - TxtCantidadIE.Text = "" - TxtDescripcionIE.Text = "" - RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso") - Alert("El movimiento se realizó correctamente") - UpIngresoEgreso.Update() - End If + If TxtCantidadIE.Text.ToEntero() <= 0 Then + Alert("La cantidad debe ser mayor a 0", TipoMensaje.MsgAdvertencia) + Exit Sub End If + + Dim TieneError As Boolean = False + Dim ObjPVenta As New ClsPuntoVenta + Dim ObjIE As New ClsBancos(ObjPVenta.IniciaTransacSQL()) + Dim ObjMov As New ClsContabilidad(ObjPVenta.IniciaTransacSQL()) + Try + Dim CveMoneda As Integer = 1 + Dim TipoCambio As Decimal = 1D + + Dim Importe As Decimal = TxtCantidadIE.Text.ToDecimal() + If Not ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, Importe, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then + TieneError = True + End If + If ChkAplicaGasto.Checked Then + + Dim CveTipoTransaccion As Integer = 2 + Dim CvePrePoliza = ObjMov.AddPrePolizas("PVCobranza/Gasto ", 23, Importe, Importe, CveMoneda, Now, "Gasto", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + 'TRANSFERENCIA BANCARIA + Dim EsAbonoEnCuenta As Boolean = False + Dim AplicaImpuestos As Boolean = False + Dim Folio As Long = ObjIE.GetNextFolio(DdlCuentaGasto.SelectedValue.ToEntero, CveTipoTransaccion) + + Dim CveIE = ObjIE.AddBancos_IE(DdlCuentaGasto.SelectedValue.ToEntero, CveTipoTransaccion, Now, Folio.ToString(), "", Importe, CveMoneda, + TipoCambio, TxtDescripcionIE.Text.Trim(), "", EsAbonoEnCuenta, AplicaImpuestos, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=Me.CveCorte) + + Dim TipoMovimiento As Boolean = True + + Dim Importe30 As Decimal = TxtCantidadIE.Text.ToDecimal + + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Importe30, 30, Folio.ToString(), Folio.ToString(), CveIE:=CveIE) Then + Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble + 'TEMPORAL - Préstamo Personal/Gasto por Comprobar + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Importe30, 28, Folio.ToString(), Folio.ToString(), CveIE:=CveIE, CvePersonal:=UsuarioActual.CvePersonal) Then + 'If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtImporte.Text.ToDecimal, 19, Ref, Conc, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then + ' TieneError = True + 'End If + Else + TieneError = True + End If + Else + TieneError = True + End If + + End If + Catch ex As Exception + TieneError = True + End Try + + If TieneError Then + ObjPVenta.RollBack() + Else + ObjPVenta.Commit() + End If + ObjPVenta.Dispose() + + If Not TieneError Then + TxtCantidadIE.Text = "" + TxtDescripcionIE.Text = "" + RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso") + Alert("El movimiento se realizó correctamente") + UpIngresoEgreso.Update() + End If End Sub Private Sub ImpresionDirectaPDF(CveVenta As Integer) @@ -663,4 +727,9 @@ Partial Class Ventas_PVCobranza End If End Sub + Protected Sub ChkAplicaGasto_CheckedChanged(sender As Object, e As EventArgs) + DivCuentaGasto.Visible = ChkAplicaGasto.Checked + + UpIngresoEgreso.Update() + End Sub End Class From 3e177d215f69863b1575e943ab23405b194a7f03 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 6 Apr 2024 20:45:51 -0700 Subject: [PATCH 5/5] --chk de gastos en cobranza --- Ventas/PVCobranza.aspx | 14 ++++++- Ventas/PVCobranza.aspx.vb | 80 ++++++++++++++++++++++++++++++++++----- 2 files changed, 83 insertions(+), 11 deletions(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index d6615ce7d..df04a029b 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -723,15 +723,25 @@
    -
    +
    +
    +
    + +
    +
    + +
    +
    +
    +
    - +
    diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 9d05b153f..1ff3ba6fd 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -635,17 +635,73 @@ Partial Class Ventas_PVCobranza End Sub Private Sub BtnAceptarIE_Click(sender As Object, e As EventArgs) Handles BtnAceptarIE.Click - Dim ObjPVenta As New ClsPuntoVenta - If TxtCantidadIE.Text.ToEntero() > 0 Then - If ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, TxtCantidadIE.Text.ToDouble, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then - TxtCantidadIE.Text = "" - TxtDescripcionIE.Text = "" - RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso") - Alert("El movimiento se realizó correctamente") - UpIngresoEgreso.Update() - End If + If TxtCantidadIE.Text.ToEntero() <= 0 Then + Alert("La cantidad debe ser mayor a 0", TipoMensaje.MsgAdvertencia) + Exit Sub End If + + Dim TieneError As Boolean = False + Dim ObjPVenta As New ClsPuntoVenta + Dim ObjIE As New ClsBancos(ObjPVenta.IniciaTransacSQL()) + Dim ObjMov As New ClsContabilidad(ObjPVenta.IniciaTransacSQL()) + Try + Dim CveMoneda As Integer = 1 + Dim TipoCambio As Decimal = 1D + + Dim Importe As Decimal = TxtCantidadIE.Text.ToDecimal() + If Not ObjPVenta.AddVta_MovimientosCajas(CveCorte, UsuarioActual.CveUsuario, Importe, TxtDescripcionIE.Text, HdnTipoMovimiento.Value.ToEntero(), NowADS()) Then + TieneError = True + End If + If ChkAplicaGasto.Checked Then + + Dim CveTipoTransaccion As Integer = 2 + Dim CvePrePoliza = ObjMov.AddPrePolizas("PVCobranza/Gasto ", 23, Importe, Importe, CveMoneda, Now, "Gasto", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + 'TRANSFERENCIA BANCARIA + Dim EsAbonoEnCuenta As Boolean = False + Dim AplicaImpuestos As Boolean = False + Dim Folio As Long = ObjIE.GetNextFolio(DdlCuentaGasto.SelectedValue.ToEntero, CveTipoTransaccion) + + Dim CveIE = ObjIE.AddBancos_IE(DdlCuentaGasto.SelectedValue.ToEntero, CveTipoTransaccion, Now, Folio.ToString(), "", Importe, CveMoneda, + TipoCambio, TxtDescripcionIE.Text.Trim(), "", EsAbonoEnCuenta, AplicaImpuestos, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=Me.CveCorte) + + Dim TipoMovimiento As Boolean = True + + Dim Importe30 As Decimal = TxtCantidadIE.Text.ToDecimal + + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Importe30, 30, Folio.ToString(), Folio.ToString(), CveIE:=CveIE) Then + Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble + 'TEMPORAL - Préstamo Personal/Gasto por Comprobar + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe, Importe30, 28, Folio.ToString(), Folio.ToString(), CveIE:=CveIE, CvePersonal:=UsuarioActual.CvePersonal) Then + 'If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtImporte.Text.ToDecimal, 19, Ref, Conc, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then + ' TieneError = True + 'End If + Else + TieneError = True + End If + Else + TieneError = True + End If + + End If + Catch ex As Exception + TieneError = True + End Try + + If TieneError Then + ObjPVenta.RollBack() + Else + ObjPVenta.Commit() + End If + ObjPVenta.Dispose() + + If Not TieneError Then + TxtCantidadIE.Text = "" + TxtDescripcionIE.Text = "" + RegistraScript("$('#DivIngresoEgreso').modal('hide')", "divingresoegreso") + Alert("El movimiento se realizó correctamente") + UpIngresoEgreso.Update() + End If End Sub Private Sub ImpresionDirectaPDF(CveVenta As Integer) @@ -816,6 +872,12 @@ Partial Class Ventas_PVCobranza End Sub + Protected Sub ChkAplicaGasto_CheckedChanged(sender As Object, e As EventArgs) + DivCuentaGasto.Visible = ChkAplicaGasto.Checked + + UpIngresoEgreso.Update() + End Sub + #End Region End Class