From 6b275b803c77b16ecde3814a47e79cf5511e29f7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 8 Apr 2024 14:39:44 -0700 Subject: [PATCH 1/3] --reacomodo generacion de pdf de cotizacion --- Ventas/Ventas.aspx.vb | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 24c5d6b73..5c1359c8a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16374,7 +16374,7 @@ Partial Class Ventas Else Try If CveVenta > 0 Then - ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) + ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, VerificaAlmacen:=False) End If pdf = PdfFactura(ObjFactura) @@ -31451,7 +31451,13 @@ Partial Class Ventas Alert($"{MensajeError}. Por favor vuelva a intentar.", TipoMensaje.MsgError) Else ObjVentas.Commit() + End If + ObjVentas.Dispose() + ObjConta.Dispose() + ObjCGame.Dispose() + + If Not OcurrioError Then 'ELIMINA PDF VIEJO Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}-{3}.pdf", UsuarioActual.Empresa.Ruta, DdlTipoComprobante.SelectedValue, Serie, Folio)) If ArchivoPDF.Exists Then @@ -31465,12 +31471,7 @@ Partial Class Ventas Else Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=" & CveVenta & "&&Tipo=Cot"";") End If - End If - - ObjVentas.Dispose() - ObjConta.Dispose() - ObjCGame.Dispose() End Sub #End Region From 60cba3a55a93e7fc4cf2666be1a8e2b1f334329f Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 8 Apr 2024 15:25:08 -0700 Subject: [PATCH 2/3] Pagos a proveedor --- Bancos/PopIECompras.aspx | 2 +- Bancos/PopIECompras.aspx.vb | 20 ++++++++++++++++++++ Bancos/ProveedoresAbonar.aspx | 5 +++-- Bancos/ProveedoresAbonar.aspx.vb | 25 +++++++++++++++++++++++++ 4 files changed, 49 insertions(+), 3 deletions(-) diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index 80d0624c6..9b31ac375 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -524,7 +524,7 @@
- +
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index cdda5974c..43e4d2d87 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -861,6 +861,9 @@ Partial Class Bancos_PopIECompras CargaCuentas() CargaCuentasDepositos() + + ValidaFechaDocumentoDiasPosteriores() + UpDatos.Update() End Sub @@ -1718,4 +1721,21 @@ Partial Class Bancos_PopIECompras End Sub + + Private Sub ValidaFechaDocumentoDiasPosteriores() + + + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString + Calendario.EndDate = NowADS().AddDays(2) + + If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString + Calendario.EndDate = NowADS().AddDays(30) + End If + + UpDatos.Update() + UpGuardar.Update() + + End Sub + End Class \ No newline at end of file diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index fe63b8585..cdadcb7d9 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -99,14 +99,15 @@ - + - + diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 562c77be4..8e8952fee 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1074,6 +1074,8 @@ Partial Class Bancos_ProveedoresAbonar CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) RecargaCuentasDepositos() + ValidaFechaDocumentoDiasPosteriores() + UpGuardar.Update() End Sub #End Region @@ -1612,6 +1614,29 @@ Partial Class Bancos_ProveedoresAbonar End Sub + Private Sub ValidaFechaDocumentoDiasPosteriores() + + + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString + RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(2).ToShortDateString + + RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior 2 días de la fecha actual" + + Calendario.EndDate = NowADS().AddDays(2) + + If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then + + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString + RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(30).ToShortDateString + RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior 30 días de la fecha actual" + + Calendario.EndDate = NowADS().AddDays(30) + End If + + UpDatos.Update() + UpGuardar.Update() + + End Sub Protected Sub chkaplicaDescuento_CheckedChanged(sender As Object, e As EventArgs) From 836a9027cfb1171599bf8abeb7373cf5df5e7594 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 8 Apr 2024 16:39:23 -0700 Subject: [PATCH 3/3] =?UTF-8?q?mostrar=20rengl=C3=B3n=20con=20el=20saldo?= =?UTF-8?q?=20contable=20en=20Corte.=20solo=20para=20rol=3D1,=20de=20la=20?= =?UTF-8?q?cuenta=20de=20caja=20chica?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/RepCortes.aspx | 71 +++++++++++++++++++++++++++++----------- Bancos/RepCortes.aspx.vb | 20 +++++++++++ 2 files changed, 71 insertions(+), 20 deletions(-) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index ad94189eb..8b002e2c8 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -315,7 +315,7 @@ - <%----%> + <%----%> @@ -362,18 +362,20 @@
-
+

Detalles del Corte - +
-
- +
+
+ Porcentajes de IVA + @@ -381,20 +383,49 @@
-
- - - - - - - - - - - - -
+
+
+ Depositos Caja +
+
+ + + + + + + + + + + + +
+
+ +
+
+
+ Anexo +
+
+ + + + + + + + + + + + + +
+
+ +
@@ -408,7 +439,7 @@ - + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 0c345af30..399bfd788 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -174,6 +174,7 @@ Partial Class Bancos_RepCortes DtCortesVentasResumen = Vn.DtResultados End If If UsuarioActual.CveEmpresa.Contiene(190, 192) Then + DivIVA.Visible = True If Vn.GetCortesDetalleVentasResumenIVA(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then GvPorIVA.DataSource = Vn.DtResultados End If @@ -181,6 +182,9 @@ Partial Class Bancos_RepCortes If Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then GvDep.DataSource = Vn.DtResultados + If Vn.DtResultados.Rows.Count > 0 Then + DivDep.Visible = True + End If End If If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then @@ -199,10 +203,26 @@ Partial Class Bancos_RepCortes End If Vn.Dispose() Vent.Dispose() + + GvD.DataBind() GvP.DataBind() GvDep.DataBind() GvPorIVA.DataBind() + + If UsuarioActual.CveEmpresa = 193 AndAlso UsuarioActual.CveRol = 1 Then + DivAnexo.Visible = True + + Dim CveCuenta As Integer = 186367 + Using ObjConta As New ClsContabilidad + If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then + GvAnexo.DataSource = ObjConta.DtResultados + End If + End Using + + GvAnexo.DataBind() + End If + UPPDetalle.Update() UpAcciones.Update() End Sub