From d5e26f429ec2ba4c70affe9909c3cd52d074f726 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 16 Jun 2023 14:27:04 -0700 Subject: [PATCH 01/13] -- pub general 5000 --- Planeacion/CatSubProyectos.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index fb428da68..90295d72b 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -224,7 +224,7 @@
- +
From 4d63280ac467b7d29565a8eac401fe0288d302ce Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 16 Jun 2023 14:28:28 -0700 Subject: [PATCH 02/13] -- otros ingresos con moneda diferente --- Ventas/ClientesAbonar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ec9df92c6..2286cfb44 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1010,7 +1010,7 @@ Partial Class Ventas_ClientesAbonar End If tipoCambioPago = Pago.TCPago - If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal + If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal * Pago.TCPago 'If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then ' EsAnticipoEspecial = True From b873136dbd0b8f7d0b6ae6b1b1ae62a5dd0c5008 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 17 Jun 2023 12:41:56 -0700 Subject: [PATCH 03/13] =?UTF-8?q?--=20se=20quit=C3=B3=20llamado=20a=20cont?= =?UTF-8?q?paq,=20en=20guarda=20=20importaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 33 +++++++++++----------------- 1 file changed, 13 insertions(+), 20 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 3ce600fa2..ee356f67d 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3926,7 +3926,6 @@ Partial Class Inventarios_RecepcionAlmacen Dim ObjCompras As New ClsCompras(ObjInventario.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim ObjOC As New ClsOC(ObjInventario.IniciaTransacSQL()) - Dim ObjContaAC As ClsContPAQi = Nothing 'ENTRADA ALMACÉN CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G6") @@ -4075,9 +4074,6 @@ Partial Class Inventarios_RecepcionAlmacen ImporteAbono = SubTotalPartida ImporteAbonoME = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal) - SubTotalPartida End If - - - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then ' si tiene valor es que hay complementaria If ImporteAbonoME > 0 Then @@ -4092,7 +4088,6 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - 'DOCUMENTOS RELACIONADOS AL MOVIMIENTO If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then @@ -4100,8 +4095,6 @@ Partial Class Inventarios_RecepcionAlmacen Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError) End If End If - - Else ErrorMovInv = True End If @@ -4114,16 +4107,16 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaAC.IniciaTransacSQL() - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then - MensajeError = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" - Else - ErrorMovInv = True - MensajeError = "Error al contabilizar los conceptos contables" - End If - End If + 'If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + ' ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) + ' ObjContaAC.IniciaTransacSQL() + ' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then + ' MensajeError = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" + ' Else + ' ErrorMovInv = True + ' MensajeError = "Error al contabilizar los conceptos contables" + ' End If + 'End If If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then @@ -4145,7 +4138,7 @@ Partial Class Inventarios_RecepcionAlmacen 'FINAL If Not ErrorMovInv Then ObjInventario.Commit() ' aplica los movimientos insertados - If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() + ' If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() RegistraScript("playsonidito('beep-07.wav')") Dim Msg As New StringBuilder @@ -4158,14 +4151,14 @@ Partial Class Inventarios_RecepcionAlmacen Limpia() Else ObjInventario.RollBack() - If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() + ' If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") GuardaLog(MensajeError) Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If ObjInventario.Dispose() - If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() + ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() End Sub Private Sub Limpia() CveCompraSurtir = -1 From c35883fdc882b8bdf5ba3704cc93e3a14cde5dbe Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Jun 2023 10:09:34 -0700 Subject: [PATCH 04/13] =?UTF-8?q?--=20cambios=20-=20ocultar=20columna=20de?= =?UTF-8?q?=20amortizac=C3=B3n=20-=20columna=20de=20descuentos,=20sale=20s?= =?UTF-8?q?olo=20si=20tiene=20datos=20-=20columna=20de=20ieps,=20se=20visu?= =?UTF-8?q?aliza=20si=20la=20empresa=20la=20deduce=20--=20repventasetalle,?= =?UTF-8?q?=20reacomodo=20a=20modal=20de=20perosnalizar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepVentaDetalle.aspx | 36 ++++------- Ventas/RepVentaDetalle.aspx.vb | 16 ++--- Ventas/RepVentas.aspx | 4 +- Ventas/RepVentas.aspx.vb | 106 ++++++++------------------------- 4 files changed, 44 insertions(+), 118 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 670edb5c3..91ec23517 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -379,7 +379,7 @@ - + @@ -580,8 +580,7 @@ - - + @@ -592,8 +591,7 @@ - - + @@ -605,8 +603,7 @@ - - + @@ -618,8 +615,7 @@ - - + @@ -630,8 +626,7 @@ - - + @@ -642,8 +637,7 @@ - - + @@ -654,8 +648,7 @@ - - + @@ -665,23 +658,16 @@ - - - + + - - + - - - - -
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 5eb5470d5..188b6390e 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -56,7 +56,6 @@ Partial Class RepVentaDetalle End Set End Property - Private Property TipoCliente As Integer Get If ViewState("TipoCliente") Is Nothing Then @@ -64,16 +63,12 @@ Partial Class RepVentaDetalle Else Return ViewState("TipoCliente").ToString.ToEntero End If - End Get - Set(value As Integer) ViewState("TipoCliente") = value End Set End Property - - Private Property TCEspecifico As Decimal Get Return ViewState("TCEspecifico").ToString.ToDecimal @@ -110,6 +105,7 @@ Partial Class RepVentaDetalle Personalizo = 0 CargaCombos() InicializaValores() + ConfiguraEmpresa() CargaDatos() If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then @@ -370,7 +366,6 @@ Partial Class RepVentaDetalle #Region "CONSULTAR" Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() - ConfiguraEmpresa() UPDatos.Update() End Sub Private Sub CargaDatos() @@ -423,6 +418,7 @@ Partial Class RepVentaDetalle End If ObjVentas.Dispose() + If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io Agrupador = DdlGrupo.SelectedItem.Text GvDatos.DataBind() @@ -451,12 +447,12 @@ Partial Class RepVentaDetalle End Function Private Sub ConfiguraEmpresa() - 'Dim ObjEmpresa As New ClsEmpresas() - 'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then + If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False - 'End If - 'ObjEmpresa.Dispose() + + ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS + End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index b9eee6313..4335aa294 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -356,12 +356,12 @@ - + - + diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 5fd05be8a..0ae957414 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -78,8 +78,9 @@ Partial Class Ventas_RepVentas TipoCambio = 1 TCEspecifico = -1 CargaCombos() - - 'MODALIDADES + ConfiguraEmpresa() + + 'MODALIDADES If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then Opcion = Request("Op").ToString Else @@ -155,6 +156,7 @@ Partial Class Ventas_RepVentas Private Sub ConfiguraEmpresa() ' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False + ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS End Sub Private Sub CargaCombos() @@ -210,9 +212,9 @@ Partial Class Ventas_RepVentas #End Region #Region " CARGA DATOS " - Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click - CargaDatos() - ConfiguraEmpresa() + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + + CargaDatos() Personaliza() UPDatos.Update() 'XmlConf(UsuarioActual.CveUsuario, 9) @@ -252,6 +254,8 @@ Partial Class Ventas_RepVentas GvDatos.DataSource = Nothing End If + If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io + Agrupador = DdlGrupo.SelectedItem.Text CveProyecto = DdlProyecto.SelectedValue.ToEntero ObjVentas.Dispose() @@ -474,82 +478,22 @@ Partial Class Ventas_RepVentas Personaliza() End Sub - Private Sub Personaliza() - - If ChkSubTotal2.Checked Then - GvDatos.Columns(5).Visible = True - Else - GvDatos.Columns(5).Visible = False - End If - - If ChkIEPS.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkRetIVA.Checked Then - GvDatos.Columns(8).Visible = True - Else - GvDatos.Columns(8).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkImpLoc.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkMinSub.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkAVGSub.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If - - If ChkMaxSub.Checked Then - GvDatos.Columns(14).Visible = True - Else - GvDatos.Columns(14).Visible = False - End If - - If ChkMinTot.Checked Then - GvDatos.Columns(17).Visible = True - Else - GvDatos.Columns(17).Visible = False - End If - - If ChkAvgTot.Checked Then - GvDatos.Columns(16).Visible = True - Else - GvDatos.Columns(16).Visible = False - End If - - If ChkMaxTot.Checked Then - GvDatos.Columns(15).Visible = True - Else - GvDatos.Columns(15).Visible = False - End If - - If CheckRefacturado.Checked Then - GvDatos.Columns(18).Visible = True - Else - GvDatos.Columns(18).Visible = False - End If - - - + Private Sub Personaliza() + + GvDatos.Columns(5).Visible = ChkSubTotal2.Checked + GvDatos.Columns(7).Visible = ChkIEPS.Checked + GvDatos.Columns(8).Visible = ChkRetIVA.Checked + GvDatos.Columns(9).Visible = ChkRetISR.Checked + GvDatos.Columns(10).Visible = ChkImpLoc.Checked + GvDatos.Columns(12).Visible = ChkMinSub.Checked + GvDatos.Columns(13).Visible = ChkAVGSub.Checked + GvDatos.Columns(14).Visible = ChkMaxSub.Checked + GvDatos.Columns(15).Visible = ChkMaxTot.Checked + GvDatos.Columns(16).Visible = ChkAvgTot.Checked + GvDatos.Columns(17).Visible = ChkMinTot.Checked + GvDatos.Columns(18).Visible = CheckRefacturado.Checked + + UPDatos.Update() End Sub #End Region From 06fa4ff05573d9e9b776e493a822ff853aeab325 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Jun 2023 10:29:34 -0700 Subject: [PATCH 05/13] =?UTF-8?q?--=20mostrar=20el=20folio=20de=20la=20p?= =?UTF-8?q?=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/ContabilizacionCompras.aspx | 2 +- Contabilidad/ContabilizacionCompras.aspx.cs | 1 + Contabilidad/ContabilizacionVentas.aspx | 2 +- Contabilidad/ContabilizacionVentas.aspx.cs | 11 ++++++++++- 4 files changed, 13 insertions(+), 3 deletions(-) diff --git a/Contabilidad/ContabilizacionCompras.aspx b/Contabilidad/ContabilizacionCompras.aspx index 9f2eaf940..38d109764 100644 --- a/Contabilidad/ContabilizacionCompras.aspx +++ b/Contabilidad/ContabilizacionCompras.aspx @@ -191,7 +191,7 @@ - + diff --git a/Contabilidad/ContabilizacionCompras.aspx.cs b/Contabilidad/ContabilizacionCompras.aspx.cs index aed42c95a..1217aa139 100644 --- a/Contabilidad/ContabilizacionCompras.aspx.cs +++ b/Contabilidad/ContabilizacionCompras.aspx.cs @@ -144,6 +144,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG { e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0; + e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}"; e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}"; } else diff --git a/Contabilidad/ContabilizacionVentas.aspx b/Contabilidad/ContabilizacionVentas.aspx index 3bd4788a6..cb4705728 100644 --- a/Contabilidad/ContabilizacionVentas.aspx +++ b/Contabilidad/ContabilizacionVentas.aspx @@ -158,7 +158,7 @@ - + diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs index 42f262ef1..0a7d03748 100644 --- a/Contabilidad/ContabilizacionVentas.aspx.cs +++ b/Contabilidad/ContabilizacionVentas.aspx.cs @@ -129,7 +129,16 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas e.Row.FCHyperLink("HplEdicion").Visible = true; } - e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0; + if (UsuarioActual.Empresa.TipoContabilidad == 1) + { + e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0; + e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}" ; + e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}"; + } + else + { + e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0; + } contP.Dispose(); GvD.DataBind(); From adbd4bb959b24d5fbebd184f0274a1b43eb92240 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Jun 2023 11:07:35 -0700 Subject: [PATCH 06/13] =?UTF-8?q?--=20correcci=C3=B3n=20del=20cambio=20ant?= =?UTF-8?q?erior?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepVentaDetalle.aspx | 4 +- Ventas/RepVentaDetalle.aspx.vb | 335 +++------------------------------ 2 files changed, 31 insertions(+), 308 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 91ec23517..c6a069f88 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -582,13 +582,13 @@ - + - + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 188b6390e..4e097c201 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -114,8 +114,6 @@ Partial Class RepVentaDetalle DVServicioDomicilio.Visible = True End If - - End If End Sub @@ -452,6 +450,7 @@ Partial Class RepVentaDetalle If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS + GvDatos.Columns(9).Visible = ChkIEPS.Checked End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -482,24 +481,6 @@ Partial Class RepVentaDetalle e.Row.FCLiteral("LtlFacturaCotizacion").Text = "" & e.Row.DBCampo("FolioVenta") & "" End If - 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left - 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left - 'e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left - If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-" If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "-" @@ -550,178 +531,38 @@ Partial Class RepVentaDetalle Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkFolio.Checked Then - GvDatos.Columns(1).Visible = True - Else - GvDatos.Columns(1).Visible = False - End If - - If ChkFecha.Checked Then - GvDatos.Columns(2).Visible = True - - Else - GvDatos.Columns(2).Visible = False - End If - - If ChkCliente.Checked Then - GvDatos.Columns(3).Visible = True - Else - GvDatos.Columns(3).Visible = False - End If - - If ChkSubTotal.Checked Then - GvDatos.Columns(4).Visible = True - Else - GvDatos.Columns(4).Visible = False - End If - - If ChkDescuento.Checked Then - GvDatos.Columns(5).Visible = True - Else - GvDatos.Columns(5).Visible = False - End If - - If ChlMotivoDescuento.Checked Then - GvDatos.Columns(6).Visible = True - Else - GvDatos.Columns(6).Visible = False - End If - - If ChkAmortizacion.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkIVA.Checked Then - GvDatos.Columns(8).Visible = True - Else - GvDatos.Columns(8).Visible = False - End If - - If ChkIEPS.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkRetIVA.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(11).Visible = True - Else - GvDatos.Columns(11).Visible = False - End If - - If ChkTotalImpuestos.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkTotal.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If + GvDatos.Columns(1).Visible = ChkFolio.Checked + GvDatos.Columns(2).Visible = ChkFecha.Checked + GvDatos.Columns(3).Visible = ChkCliente.Checked + GvDatos.Columns(4).Visible = ChkSubTotal.Checked + GvDatos.Columns(5).Visible = ChkDescuento.Checked + GvDatos.Columns(6).Visible = ChlMotivoDescuento.Checked + GvDatos.Columns(7).Visible = ChkAmortizacion.Checked + GvDatos.Columns(8).Visible = ChkIVA.Checked + GvDatos.Columns(9).Visible = ChkIEPS.Checked + GvDatos.Columns(10).Visible = ChkRetIVA.Checked + GvDatos.Columns(11).Visible = ChkRetISR.Checked + GvDatos.Columns(12).Visible = ChkTotalImpuestos.Checked + GvDatos.Columns(13).Visible = ChkTotal.Checked GvDatos.Columns(14).Visible = ChkMoneda.Checked - - If ChkSucursal.Checked Then - GvDatos.Columns(15).Visible = True - Else - GvDatos.Columns(15).Visible = False - End If - - If ChkSucursalEjecucion.Checked Then - GvDatos.Columns(16).Visible = True - Else - GvDatos.Columns(16).Visible = False - End If - - If ChkCodigo.Checked Then - GvDatos.Columns(17).Visible = True - Else - GvDatos.Columns(17).Visible = False - End If - - If ChkSucursalCliente.Checked Then - GvDatos.Columns(18).Visible = True - Else - GvDatos.Columns(18).Visible = False - End If - - If ChkSucursalCobranza.Checked Then - GvDatos.Columns(19).Visible = True - Else - GvDatos.Columns(19).Visible = False - End If - - If ChkSucursalEjecucion.Checked Then - GvDatos.Columns(20).Visible = True - Else - GvDatos.Columns(20).Visible = False - End If - - If ChkVendedor.Checked Then - GvDatos.Columns(21).Visible = True - Else - GvDatos.Columns(21).Visible = False - End If - - If ChkEstatusFactura.Checked Then - GvDatos.Columns(22).Visible = True - Else - GvDatos.Columns(22).Visible = False - End If - - If ChkMotivoCancelacion.Checked Then - GvDatos.Columns(23).Visible = True - Else - GvDatos.Columns(23).Visible = False - End If - - If ChkSeTimbro.Checked Then - GvDatos.Columns(24).Visible = True - Else - GvDatos.Columns(24).Visible = False - End If - - If ChkSeEnvioMail.Checked Then - GvDatos.Columns(25).Visible = True - Else - GvDatos.Columns(25).Visible = False - End If - - If ChkCuentaContable.Checked Then - GvDatos.Columns(26).Visible = True - Else - GvDatos.Columns(26).Visible = False - End If - - If ChkUsuario.Checked Then - GvDatos.Columns(27).Visible = True - Else - GvDatos.Columns(27).Visible = False - End If - - If ChkObservaciones.Checked Then - GvDatos.Columns(28).Visible = True - Else - GvDatos.Columns(28).Visible = False - End If - + GvDatos.Columns(15).Visible = ChkSucursal.Checked + GvDatos.Columns(16).Visible = ChkSucursalEjecucion.Checked + GvDatos.Columns(17).Visible = ChkCodigo.Checked + GvDatos.Columns(18).Visible = ChkSucursalCliente.Checked + GvDatos.Columns(19).Visible = ChkSucursalCobranza.Checked + GvDatos.Columns(20).Visible = ChkSucursalEjecucion.Checked + GvDatos.Columns(21).Visible = ChkVendedor.Checked + GvDatos.Columns(22).Visible = ChkEstatusFactura.Checked + GvDatos.Columns(23).Visible = ChkMotivoCancelacion.Checked + GvDatos.Columns(24).Visible = ChkSeTimbro.Checked + GvDatos.Columns(25).Visible = ChkSeEnvioMail.Checked + GvDatos.Columns(26).Visible = ChkCuentaContable.Checked + GvDatos.Columns(27).Visible = ChkUsuario.Checked + GvDatos.Columns(28).Visible = ChkObservaciones.Checked GvDatos.Columns(29).Visible = ChkFolioFiscal.Checked - GvDatos.Columns(30).Visible = ChkMailCliente.Checked - - GvDatos.Columns(31).Visible = True = ChkEstatusFacturacion.Checked - + GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked - GvDatos.Columns(33).Visible = ChkSaldo.Checked Personalizo = 1 @@ -966,124 +807,6 @@ Partial Class RepVentaDetalle Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte() Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario) - 'Dim ObjVentas As New ClsVentas - 'Dim Vta As Modelos.Factura = Nothing - - 'Dim TmpDTImpuestos = New DataTable - 'TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) - 'TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) - 'TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) - - 'If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - ' Dim dtVentas As DataTable = ObjVentas.DtResultados - - ' ' se rellenan los campos de la factura - ' Vta = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, Server.MapPath("/")) - - ' Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString - ' 'se rellena la sucursal - ' Vta.Cliente.Sucursal = New Modelos.ClienteModel(dtVentas(0)("CveCliente").ToString.ToEntero, UsuarioActual.CveEmpresa) - ' Vta.Cliente = New Modelos.ClienteModel - ' Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString - ' Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString - ' Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString - ' Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString - ' Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString - ' Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString - ' Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString - ' Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString - ' Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString - ' Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString - ' Vta.AtencionA = dtVentas(0)("AtencionA").ToString - ' Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString - ' Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString - ' Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString - ' Vta.Cliente.Mail = dtVentas(0)("Mail").ToString - ' Vta.RefDocto = dtVentas(0)("Ref").ToString - ' Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero - - - ' Vta.ClienteSucursal = New Modelos.SucursalModel - ' Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString - ' Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString - ' Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString - ' Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString - ' Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString - ' Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString - ' Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString - ' Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString - ' Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString - ' Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString - ' Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString - ' Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString - - ' Vta.EnviarA = New Modelos.EnviarAModel - ' Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero - ' Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString - ' Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString - ' Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString - ' Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString - ' Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString - - ' Dim DR As DataRow = TmpDTImpuestos.NewRow() - ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then - ' If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("IVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR) - - ' 'solo para eclipse, que muesre un subtotal debajo de IVA - ' If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 1000 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' End If - - ' If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra - ' Vta.DtDetalle = ObjVentas.DtResultados - ' End If - - ' If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then - ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then - ' Dim dtImpuesto As DataTable = ObjVentas.DtResultados - ' If dtImpuesto.Rows.Count > 0 Then - ' For Each Row As DataRow In dtImpuesto.Rows - ' Dim Orden = 80 - ' If Row("Importe").ToString.ToDouble <> 0 Then - ' DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString - ' DR("Importe") = Row("Importe").ToString.ToDouble - ' DR("Orden") = Orden - ' TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' Orden = Orden + 1 - ' End If - ' Next - ' End If - ' Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC") - ' Else - ' Vta.DtDeduccion = ObjVentas.DtResultados - ' End If - ' End If - - ' If ObjVentas.GetVentasFirmas(CveVenta) Then - ' Vta.DtFirmas = ObjVentas.DtResultados - ' End If - 'End If - 'ObjVentas.Dispose() - - 'If Not IsNothing(Vta) Then - ' PdfFactura(Vta) - ' Vta = Nothing - 'End If End Function From a45cd102c125791680881c7858ba10d67e74d178 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 19 Jun 2023 11:23:50 -0700 Subject: [PATCH 07/13] Formato remision E119 --- Empresas/119/Formatos/Remision.rdlc | 38 +++++++++++++++++++++++++---- 1 file changed, 33 insertions(+), 5 deletions(-) diff --git a/Empresas/119/Formatos/Remision.rdlc b/Empresas/119/Formatos/Remision.rdlc index 3294ad6ef..20118437f 100644 --- a/Empresas/119/Formatos/Remision.rdlc +++ b/Empresas/119/Formatos/Remision.rdlc @@ -685,11 +685,39 @@ Right + + + + Moneda: + + + + + + + + =Parameters!MonedaAbreviatura.Value + + + + + Textbox4 0.04117in 5.62784in - 0.99993in + 1.12493in 2.66068in 2