From 28ac9292984d66eb4d1e3aa59c66841f2364e9f2 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 Oct 2023 17:18:36 -0700 Subject: [PATCH 01/70] -- chofer/remolques asignados --- Inventarios/CatUnidades.aspx | 37 +++++++++++++++++++--- Inventarios/CatUnidades.aspx.vb | 55 +++++++++++++++++++++------------ 2 files changed, 68 insertions(+), 24 deletions(-) diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index aec32d5ad..cf7fb7af6 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -32,7 +32,7 @@ @@ -45,8 +45,7 @@ - - + @@ -270,7 +269,16 @@
-
+
+
+ + + + + +
+
+
@@ -286,6 +294,27 @@
+
+
+ +
+
+ + + + + +
+
+
+
+ + + + + +
+
diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb index c171aaf2a..a41b52811 100644 --- a/Inventarios/CatUnidades.aspx.vb +++ b/Inventarios/CatUnidades.aspx.vb @@ -21,24 +21,21 @@ Partial Class Inventarios_CatUnidades Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then CargaCombos() - CargaDdlProveedor() + 'CargaDdlProveedor() CargaDatos() End If End Sub - Private Sub CargaDdlProveedor() - DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() - End Sub - - + 'Private Sub CargaDdlProveedor() + ' DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + ' DdlProveedor.DataBind() + 'End Sub Public Sub CargaDatos() - Dim ObjInventarios As New ClsInventarios If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, Estatus:=-1) Then @@ -81,6 +78,29 @@ Partial Class Inventarios_CatUnidades DdlTiposRemolque.Items.Insert(0, New ListItem("Seleccione Uno ", "-1")) UpModalUnidades.Update() + 'If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then + ' DdlRemolque1.DataSource = ObjInv.DtResultados + 'End If + + If UsuarioActual.CveEmpresa.Contiene(2, 13) Then + divrowRemolques.Visible = True + divChoferAsignado.Visible = True + DdlChoferAsignado.DataSource = GlobalDTChoferes(UsuarioActual.CveEmpresa) + DdlChoferAsignado.DataBind() + DdlChoferAsignado.Items.Insert(0, New ListItem("-", "0")) + Dim ObjInventarios As New ClsInventarios + + If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa, CveTipoCamion:=2, Estatus:=-1) Then + DdlRemolque1Asignado.DataSource = ObjInventarios.DtResultados + DdlRemolque2Asignado.DataSource = ObjInventarios.DtResultados + End If + ObjInventarios.Dispose() + + DdlRemolque1Asignado.DataBind() + DdlRemolque2Asignado.DataBind() + DdlRemolque1Asignado.Items.Insert(0, New ListItem("-", "0")) + DdlRemolque2Asignado.Items.Insert(0, New ListItem("-", "0")) + End If End Sub @@ -160,6 +180,9 @@ Partial Class Inventarios_CatUnidades TxtMarca.Text = GvRow.DataKey("Marca") TxtColor.Text = GvRow.DataKey("Color") ChkEstatus.Checked = If(Boolean.Parse(GvRow.DataKey("Estatus")), True, False) + DdlChoferAsignado.SelectedValueExist(GvRow.DataKey("CveChoferAsignado").ToEntero) + DdlRemolque1Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque1Asignado").ToEntero) + DdlRemolque2Asignado.SelectedValueExist(GvRow.DataKey("CveRemolque2Asignado").ToEntero) 'ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2") @@ -181,11 +204,10 @@ Partial Class Inventarios_CatUnidades Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) - Dim CveCamionEliminar = GvRow.DataKey("CveCamion").ToEntero() + Dim CveCamionEliminar As Integer = GvRow.DataKey("CveCamion").ToEntero() Using ObjInventarios As New ClsInventarios - If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then UpDatos.Update() @@ -213,14 +235,14 @@ Partial Class Inventarios_CatUnidades If CveCamion <= 0 Then If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) Then Alert("Unidad agregada correctamente") Else ErrorPrceso = True End If Else If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text, ChkEstatus.Checked, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, Color:=TxtColor.Text, Marca:=TxtMarca.Text, CveChoferAsignado:=DdlChoferAsignado.SelectedValue.ToEntero, CveRemolque1Asignado:=DdlRemolque1Asignado.SelectedValue.ToEntero, CveRemolque2Asignado:=DdlRemolque2Asignado.SelectedValue.ToEntero) Then Alert("Unidad actualizada correctamente") Else ErrorPrceso = True @@ -228,9 +250,6 @@ Partial Class Inventarios_CatUnidades End If End Using - - - If Not ErrorPrceso Then GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing CargaDatos() @@ -238,10 +257,6 @@ Partial Class Inventarios_CatUnidades UpDatos.Update() End If - - - - End Sub From 4eb757fd3184d9d32c6fa6ef4791b235ba7efb89 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 Oct 2023 17:18:44 -0700 Subject: [PATCH 02/70] =?UTF-8?q?--=20correcci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../RepEstadoResultadosHorizontal.aspx | 22 +--- .../RepEstadoResultadosHorizontal.aspx.vb | 112 +++++++----------- 2 files changed, 47 insertions(+), 87 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 90b294e3f..2182ca3a2 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -872,14 +872,7 @@
- - - - - - - - + @@ -1218,14 +1211,7 @@ - <%-- - - - - - --%> - - <%----%> + @@ -1234,7 +1220,7 @@ - + <%----%> @@ -1415,7 +1401,7 @@ - + diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 983e2b1d0..381008825 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -4,6 +4,7 @@ Option Strict On Imports System.Data Imports System.Drawing Imports System.IO +Imports DocumentFormat.OpenXml.VariantTypes Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms @@ -597,12 +598,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim Row As DataRow = DtIngresosMes.NewRow - Dim TotalActual = 0.0, TotalAnterior = 0.0 + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 If DtIngresosMes.Rows.Count > 0 Then For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal Next Row.Item("Nombre") = "TOTAL INGRESOS " @@ -620,7 +621,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtIngresosMes.Rows.Add(Row) End If - Dim T1 = TotalActual, T2 = TotalAnterior + Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior TotalActual = 0 TotalAnterior = 0 @@ -629,8 +630,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtGastosMes.Rows.Count > 0 Then For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal Next Row.Item("Nombre") = "TOTAL GASTOS" @@ -807,13 +808,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim Row As DataRow = DtIngresosMesH.NewRow - Dim TotalActual = 0.0, TotalAnterior = 0.0 + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 If DtIngresosMesH.Rows.Count > 0 Then For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal Next Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal @@ -896,20 +897,18 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtIngresosMesH.Rows.Add(Row) End If - Dim T1 = TotalActual, T2 = TotalAnterior + Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior TotalActual = 0 TotalAnterior = 0 Row = DtGastosMesH.NewRow If DtGastosMesH.Rows.Count > 0 Then - For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal Next - Dim Enero As Decimal = (DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")).ToDecimal Dim Febrero As Decimal = (DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")).ToDecimal Dim Marzo As Decimal = (DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")).ToDecimal @@ -1631,9 +1630,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim Row As DataRow = DtIngresosAnualH.NewRow - Dim TotalActual = 0.0, TotalAnterior = 0.0 - - + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 Dim IndexData As Integer = 0 Dim IndexGv As Integer = 1 Dim IndexMax As Integer = 1 @@ -1653,9 +1650,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtIngresosAnualH.Rows.Count > 0 Then - - - For Each dCoumn As DataColumn In DtIngresosAnualH.Columns If IndexData >= 13 Then @@ -1697,8 +1691,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal Next @@ -1744,7 +1738,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DtIngresosAnualH.Rows.Add(Row) End If - Dim T1 = TotalActual, T2 = TotalAnterior + Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior TotalActual = 0 TotalAnterior = 0 @@ -1790,8 +1784,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal Next IndexData = 13 @@ -2098,12 +2092,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim Row As DataRow = DtIngresosSubProyectoH.NewRow - Dim TotalActual = 0.0, TotalAnterior = 0.0 + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 Dim IndexData As Integer = 0 Dim IndexGv As Integer = 1 Dim IndexMax As Integer = 1 - Dim IndexSubProyecto = 0 + Dim IndexSubProyecto As Integer = 0 Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 If IndexSubProyectoMax > GvIngresosSubProyectoH.Columns.Count - 2 Then @@ -2198,16 +2192,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If dColumn.ColumnName = "SinSubProyecto" Then Exit For End If - Next - If DtIngresosSubProyectoH.Rows.Count > 0 Then - For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal Next IndexData = 13 @@ -2231,7 +2222,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If Next - Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)") 'TotalActual.ToString Row.Item("PorcentajeActual") = 100.0 @@ -2242,9 +2232,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero DtIngresosSubProyectoH.Rows.Add(Row) Else - - - Row.Item("Nombre") = "INGRESOS " Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" @@ -2254,7 +2241,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If DtIngresosSubProyectoH.Rows.Add(DtIngresosSubProyectoH.NewRow()) - Dim T1 = TotalActual, T2 = TotalAnterior + Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior TotalActual = 0 TotalAnterior = 0 @@ -2269,23 +2256,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For IndexData = 13 To IndexTotales If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número - Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.FiltroPrimeroValor($"{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal - Dim TotalProyectoEgreso As Decimal = DtGastosSubProyectoH.FiltroPrimeroValor($"{DtGastosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal + Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.SUMD($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") + Dim TotalProyectoEgreso As Decimal = DtGastosSubProyectoH.SUMD($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") Row.Item(IndexData) = TotalProyectoIngreso - TotalProyectoEgreso 'Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") If TotalProyectoIngreso <> 0 Or TotalProyectoEgreso <> 0 Then - If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Else Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / TotalProyectoIngreso End If - - Else Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0" End If @@ -2293,31 +2277,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If Next - Dim totalTemp As Decimal = DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("Nombre") = "Resultado del ejercicio" Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") Row.Item("CtaMayor") = -2 Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero - - Row.Item("PorcentajeAcumulado") = (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")) - + If DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") <> 0 Then + Row.Item("PorcentajeAcumulado") = (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")) + End If DTTotalesSubProyectoH.Rows.Add(Row) End If - DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH) DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH) - - GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH GvIngresosSubProyectoH.DataBind() - - - 'GvIngresosSubProyectoH.Columns(55).Visible = True - 'GvIngresosSubProyectoH.Columns(56).Visible = True - - UpDatosSubProyectoH.Update() End Sub @@ -2367,8 +2341,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim IndiceMax As Integer = 1 + CountDinamico Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth - If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then - IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3 End If For IndiceInicio = 1 To IndiceMax @@ -2392,8 +2366,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico - If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then - IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3 End If For IndiceInicio = 1 To IndiceMax @@ -2406,23 +2380,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico - If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 2 Then - IndiceMax = GvIngresosSubProyectoH.Columns.Count - 2 + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3 End If For IndiceInicio = 1 To IndiceMax Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal e.Row.Cells(IndiceInicio).Text = $"
{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
" - Next IndiceInicio - End If + 'If e.Row.FCHyperLink("HLAnterior") IsNot Nothing Then e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00")) - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then - e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red - End If + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + 'End If End If @@ -2546,9 +2520,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim sr3 As New StreamReader(htmlStream3) - Dim myStr1 = sr1.ReadToEnd() - Dim myStr2 = sr2.ReadToEnd() - Dim myStr3 = sr3.ReadToEnd() + Dim myStr1 As String = sr1.ReadToEnd() + Dim myStr2 As String = sr2.ReadToEnd() + Dim myStr3 As String = sr3.ReadToEnd() sr1.Dispose() sr2.Dispose() From 85cc1bd5fce221a5e6b93c1a808d4f0868f31899 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Oct 2023 08:45:15 -0700 Subject: [PATCH 03/70] - mejora en manejo de TXTTC --- Bancos/ProveedoresAbonar.aspx | 20 ++++++++++++++------ Bancos/ProveedoresAbonar.aspx.vb | 2 +- 2 files changed, 15 insertions(+), 7 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 874770e8c..20835831c 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -570,19 +570,21 @@ var chkPesosBancos = $get("ChkPagarPesos"); var chkDolaresBancos = $get("ChkPagarDolares"); - if (t.checked) { txt.value = FormatoNumero(importe, 2); } else { txt.value = ""; } - if (chkPesosBancos) { + if (chkPesosBancos && chkPesosBancos.checked) { CambiaPesosDolares() - } else if (chkDolaresBancos) { + } else if (chkDolaresBancos && chkDolaresBancos.checked) { CambiaDolaresPesos() } - + else { + var Suma = SumaValores(); + $get('TxtImporte').value = FormatoNumero(Suma, 2); + } } function SumaValores(aplicaTC) { @@ -637,6 +639,8 @@ function FnCambia(chk, txt, saldo, op, text, Tipo) { debugger; + var chkPesosBancos = $get("ChkPagarPesos"); + var chkDolaresBancos = $get("ChkPagarDolares"); if (op == 1) { if (txt.value != '') { chk.checked = true; @@ -659,8 +663,12 @@ $get('TxtTotal').value = FormatoNumero(Suma + (ToDouble($get('TxtOtrosImportes').value * -1)), 2); } - CambiaPesosDolares() - CambiaDolaresPesos() + if (chkPesosBancos && chkPesosBancos.checked) { + CambiaPesosDolares() + } else if (chkDolaresBancos && chkDolaresBancos.checked) { + CambiaDolaresPesos() + } + } diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 48d7cad99..2a8781769 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1143,7 +1143,6 @@ Partial Class Bancos_ProveedoresAbonar RegistraScript("CambiaPesosDolares();") Else CveMoneda = dr("CveMoneda").ToString.ToEntero - If CveMoneda = 1 Then RegistraScript("CambiaDolaresPesos();") End If @@ -1357,6 +1356,7 @@ Partial Class Bancos_ProveedoresAbonar Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs) If ChkPagarPesos.Checked Then DivTC.Visible = True + DivTCDolares.Visible = False CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4) From 7149f23be188f337050c8cf1bea821e5c3c6a47f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 07:29:26 -0700 Subject: [PATCH 04/70] - --- App_Code/ClsPaginas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7a59a1ea4..afa1c8e06 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6045,7 +6045,7 @@ Public Class ClsPaginas Else RutaFormato = RutaFormato.Replace(".rdlc", ".mrt") - params.Add(New ReportParameter("SucursalCliente", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) + params.Add(New ReportParameter("ClienteSucursal", If(Vta.ClienteSucursal.Sucursal Is Nothing, "", Vta.ClienteSucursal.Sucursal.ToString))) retorno = StreamBytesStimul("Facturas", RutaFormato, lrds, params, NombreArchivo:=NombreArchivo, Formato:="PDF") If UsuarioActual.Empresa.Funcionalidad(707) = "1" Then From 4737bbde3810212bad66f2525f74023811e53ad1 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 14:14:13 -0700 Subject: [PATCH 05/70] -- cambio de tipo de dato de int a string, del campo Empresas.CP --- App_Code/ClsBancos.vb | 2 +- App_Code/ClsSisEmpresas.vb | 10 +++++----- App_Code/Empresa.vb | 2 +- Sistemas/Empresa.aspx.vb | 40 ++++++++++++-------------------------- 4 files changed, 19 insertions(+), 35 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index e7a21f5c5..f12d507c9 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1123,7 +1123,7 @@ Public Class ClsBancos Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago, dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal, - UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado, + UsuarioActual.Empresa.CP, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado, RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString) diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 7218f50ce..ada1fd59f 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -338,7 +338,7 @@ Public Class ClsSisEmpresas _Empresa.Colonia = Data.Rows(0)("Colonia").ToString _Empresa.Ciudad = Data.Rows(0)("Ciudad").ToString _Empresa.Estado = Data.Rows(0)("Estado").ToString - _Empresa.CP = Data.Rows(0)("CP").ToString().ToEntero + _Empresa.CP = Data.Rows(0)("CP").ToString() _Empresa.Regimen = Data.Rows(0)("Regimen").ToString _Empresa.CodigoRegimenFiscal = Data.Rows(0)("CodigoRegimenFiscal").ToString _Empresa.RegimenFiscal = Data.Rows(0)("RegimenFiscal").ToString @@ -458,7 +458,7 @@ Public Class ClsSisEmpresas Return Retorno End Function Public Function AddEmpresa(CveEmpresa As Integer, Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, - RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, + RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, CveUsuario As Integer, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, @@ -487,7 +487,7 @@ Public Class ClsSisEmpresas .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.Int).Value = CP + .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Contacto", SqlDbType.VarChar).Value = Contacto .Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Mail", SqlDbType.VarChar).Value = Mail @@ -588,7 +588,7 @@ Public Class ClsSisEmpresas End Function Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, - RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, + RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean, UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String, @@ -611,7 +611,7 @@ Public Class ClsSisEmpresas .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad .Add("@Estado", SqlDbType.VarChar).Value = Estado .Add("@RFC", SqlDbType.VarChar).Value = RFC - .Add("@CP", SqlDbType.Int).Value = CP + .Add("@CP", SqlDbType.VarChar).Value = CP .Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Contacto", SqlDbType.VarChar).Value = Contacto .Add("@Mail", SqlDbType.VarChar).Value = Mail diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index ff38fa730..9125fe0bd 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -13,7 +13,7 @@ Public Class Empresa Public Property Colonia As String Public Property Ciudad As String Public Property Estado As String - Public Property CP As Integer + Public Property CP As String Public Property RFC As String Public Property CURP As String Public Property Telefono As String diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index 00a305730..907dc904d 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -5,7 +5,6 @@ Imports System.Data Imports Extensiones Imports System.IO - Partial Class Sistemas_Empresa Inherits ClsPaginas @@ -379,12 +378,12 @@ Partial Class Sistemas_Empresa Dim ObjContPAQ As ClsContPAQi = Nothing Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL()) - Dim TextoError = "" - Dim TextoOK = "" + Dim TextoError As String = "" + Dim TextoOK As String = "" If CveEmpresa = -1 Then If ObjEmpresas.AddEmpresa(TxtCveEmpresa.Text.Trim.ToEntero, TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, - TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, + TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, @@ -431,7 +430,7 @@ Partial Class Sistemas_Empresa Else If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, - TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim, + TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", ChkEstatus.Checked, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, @@ -551,7 +550,7 @@ Partial Class Sistemas_Empresa If ObjContPAQ IsNot Nothing Then ObjContPAQ.Dispose() End Sub Private Function AgregarFuncionalidad(ObjEmpresas As ClsSisEmpresas, CveFuncionalidad As Integer, ByRef Ddl As DropDownList) As String - Dim Retorno = "" + Dim Retorno As String = "" If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(TxtCveEmpresa.Text.Trim.ToEntero, CveFuncionalidad, Ddl.SelectedValue) Then Retorno = "Ocurrió un error al vincular la cuenta contable" @@ -683,8 +682,8 @@ Partial Class Sistemas_Empresa Dim Archivokey As Archivo = Nothing Dim Archivocer As Archivo = Nothing - Dim dirbase = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) - Dim dirbasepfx = "" ' String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + Dim dirbase As String = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + Dim dirbasepfx As String = "" ' String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) If EmpresaEditar IsNot Nothing Then dirbase = String.Format("{0}Certificados\Fiel\", EmpresaEditar.Ruta) dirbasepfx = String.Format("{0}Certificados\", EmpresaEditar.Ruta) @@ -832,11 +831,11 @@ Partial Class Sistemas_Empresa Dim ArchivoLLave As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoKey) Dim ArchivoCertificado As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoCer) - Dim llaveByte = System.IO.File.ReadAllBytes(ArchivoLLave) - Dim certByte = System.IO.File.ReadAllBytes(ArchivoCertificado) + Dim llaveByte As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave) + Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado) - Dim RFCEmisor = TxtRFC.Text.Trim() - Dim contrasena = TxtContraseñaKey.Text.Trim() + Dim RFCEmisor As String = TxtRFC.Text.Trim() + Dim contrasena As String = TxtContraseñaKey.Text.Trim() Dim conector As New Profact.TimbraCFDI33.Conector(EmpresaEditar.FacturaProduccion) @@ -846,7 +845,7 @@ Partial Class Sistemas_Empresa conector.EstableceCredenciales(Credenciales) End If - Dim result = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) + Dim result As Profact.TimbraCFDI.ResultadoRegistro = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) If result.Exitoso Then Alert("El emisor se registró correctamente.
" & result.Descripcion) @@ -860,11 +859,6 @@ Partial Class Sistemas_Empresa End Sub - - - - - Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click TxtCargaImg.getfiles().Archivos = Nothing TxtCargaImg.Text = "[]" @@ -953,14 +947,8 @@ Partial Class Sistemas_Empresa End If - - Next - - - - If Not TieneError Then Alert("Certificado cargado con exito") RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo")) @@ -968,10 +956,6 @@ Partial Class Sistemas_Empresa TxtCargaImg.getfiles().Archivos = Nothing UpAddArchivo.Update() - - - - End Sub Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click From c51bc18ea6f1a23a38fc27068816d65fce762f3c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 14:15:24 -0700 Subject: [PATCH 06/70] -- que no se cargue combo de cuentas --- Contabilidad/RegPrePolizaS.aspx.vb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 7c8cb4597..98d0b4655 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -463,7 +463,6 @@ Partial Class ContabilidadC_RegPrePolizaS LnkAddConcepto.Visible = True CargaConceptos() CargaSubProyectos() - CargaCuentasContables() End If ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) @@ -663,11 +662,11 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then DdlCuentaContableE.DataSource = ObjConta.DtResultados - DdlCuentaContable.DataSource = ObjConta.DtResultados + 'DdlCuentaContable.DataSource = ObjConta.DtResultados DtCuentasContables = ObjConta.DtResultados End If ObjConta.Dispose() - DdlCuentaContable.DataBind() + 'DdlCuentaContable.DataBind() DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0")) DdlCuentaContableE.DataBind() DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) From a32120285ef496bdcc15dfee2778b393bd2d6a60 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 19:43:06 -0700 Subject: [PATCH 07/70] =?UTF-8?q?--=20correci=C3=B3n=20en=20visualizaci?= =?UTF-8?q?=C3=B3n=20de=20gr=C3=A1ficas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 381008825..e11cceb97 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -2060,15 +2060,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If dColumn.ColumnName.ToEntero > 0 Then If DtDatosSubProyectoH.MAX(String.Format("[{0}]", dColumn.ColumnName)).ToDecimal = 0 Then ColumnasEliminar.Add(dColumn.ColumnName) - 'DtDatosSubProyectoH.Columns.Remove(dColumn.ColumnName) End If End If - Next If ColumnasEliminar.Count > 0 Then For Each columna As String In ColumnasEliminar DtDatosSubProyectoH.Columns.Remove(columna) + Dim drrs As DataRow() = DTSubProyectosCabecerasH.Select($"CveSubProyecto = {columna}") 'limpio los valores + For Each drt As DataRow In drrs + DTSubProyectosCabecerasH.Rows.Remove(drt) + Next Next End If @@ -2162,14 +2164,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True End If - If dColumn.ColumnName = "SinSubProyecto" Then GvIngresosSubProyectoH.Columns(IndexGv).Visible = False GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = False End If - End If - listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) + listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {dColumn.ColumnName}")}) End If Else From 5bb31e6c94e3523c485635d9381753ce157b47ab Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:32:58 -0700 Subject: [PATCH 08/70] -- nueva columna clasif ecommerce --- App_Code/ClsProductosServicios.vb | 6 ++++-- Ventas/ProductosServicios.aspx | 23 +++++++++++++++-------- Ventas/ProductosServicios.aspx.vb | 8 ++++++-- 3 files changed, 25 insertions(+), 12 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 368ab5a2f..3b544ba40 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -412,7 +412,7 @@ Public Class ClsProductosServicios Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0) As Integer + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -515,6 +515,7 @@ Public Class ClsProductosServicios .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce .Add("@EcommercePrecio", SqlDbType.SmallMoney).Value = EcommercePrecio + .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce End With @@ -650,7 +651,7 @@ Public Class ClsProductosServicios Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, - Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0) As Boolean + Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -753,6 +754,7 @@ Public Class ClsProductosServicios .Add("@EcommerceEtiquetas", SqlDbType.VarChar).Value = EcommerceEtiquetas .Add("@ActivoEcommerce", SqlDbType.VarChar).Value = ActivoEcommerce .Add("@EcommercePrecio", SqlDbType.SmallMoney).Value = EcommercePrecio + .Add("@CveClasificacionEcommerce", SqlDbType.Int).Value = CveClasificacionEcommerce End With diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 570c23b81..12fdc005c 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -561,20 +561,27 @@ -
-
- - - - -
- +
+
+ + + + +
+
+ + + + + +
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 4815e1a3a..90fc18d49 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -430,6 +430,9 @@ Partial Class ProductosyServicios End If If UsuarioActual.CveEmpresa = 119 Then DiveCommerce.Visible = True + Dim CveCategoria2 As Integer = GlobalDTGralCategorias2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "Categoria = 'Ecommerce'").ToEntero + DdlEcommerceClasificacion.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa, CveCategoria2) + DdlEcommerceClasificacion.DataBind() End If End Sub @@ -978,6 +981,7 @@ Partial Class ProductosyServicios TxtEcommerceNota.Text = ObjProductosServicios.DtResultados.Rows(0)("NotasAdicionales").ToString TxtEcommerceEtiquetas.Text = ObjProductosServicios.DtResultados.Rows(0)("EcommerceEtiquetas").ToString TxtEcommercePrecio.Text = ObjProductosServicios.DtResultados.Rows(0)("EcommercePrecio").ToString.ToDecimal.ToString("#,###.####") + DdlEcommerceClasificacion.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveClasificacionEcommerce").ToString) Try DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing) @@ -1464,7 +1468,7 @@ Partial Class ProductosyServicios CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked, CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim, CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked, - NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal) > 0 Then + NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, CveClasificacionEcommerce:=DdlEcommerceClasificacion.SelectedValue.ToEntero) > 0 Then ViewState("CvePS") = ObjProductosServicios.CvePS For Each GVR As GridViewRow In GvImpuestosLocales.Rows If GVR.FCCheckBox("ChkDeduccion").Checked Then @@ -1536,7 +1540,7 @@ Partial Class ProductosyServicios CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim, CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero, Litraje:=TxtLitraje.Text.ToDecimal, RegistroRSCO:=TxtRegistroRSCO.Text, FechaVigenciaRSCO:=TxtFechaVigenciaRSCO.Text.ToDate, VigenciaIndeterminadaRSCO:=ChkFechaIndeterminadaRSCO.Checked, - NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, ActivoEcommerce:=ChkActivoEcommerce.Checked, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal) Then + NombreComercial:=TxtNombreComercial.Text.Trim, NotasAdicionales:=TxtEcommerceNota.Text.Trim, EcommerceEtiquetas:=TxtEcommerceEtiquetas.Text.Trim, ActivoEcommerce:=ChkActivoEcommerce.Checked, EcommercePrecio:=TxtEcommercePrecio.Text.Trim.ToDecimal, CveClasificacionEcommerce:= DdlEcommerceClasificacion.SelectedValue.toentero) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True From 7f2770d4878704d8b6bad27f57a97b2883d44063 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:33:17 -0700 Subject: [PATCH 09/70] -- redirect a nuevos dominios SMS, VYA --- LogIn.aspx.vb | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb index ef77f6476..d8a2015f0 100644 --- a/LogIn.aspx.vb +++ b/LogIn.aspx.vb @@ -47,7 +47,7 @@ Partial Class LogIn ReturnUrl = Request("ReturnUrl").ToString() End If - Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") + Dim strdomain As String = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") If Request.Url.Port <> 80 Then strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") End If @@ -210,7 +210,7 @@ Partial Class LogIn Dim Usuario As Usuario = Nothing 'Dim UsuarioAsignaciones As Usuario = Nothing - Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) + Dim isgps As Boolean = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper()) Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, CvePlataforma:=If(isgps, 3, -1)) 'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa) If Not isgps AndAlso Usuario IsNot Nothing AndAlso Usuario.CvePlataforma = 3 Then ' SI ES de la plataforma 3(GPS), no debe de entar por liga normal @@ -235,13 +235,15 @@ Partial Class LogIn If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183 If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153 If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13 + If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tcveEmpresa = 186 + If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tcveEmpresa = 188 Usuario.CveEmpresa = tcveEmpresa End If CreaObjetoEmpresa(Usuario) ADSSessionConfig.sessionUser.MultipleEmpresa = True Dim x As New ADSSessionObj(Usuario.CveUsuario, Usuario.CveEmpresa) - Dim _sessionid = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) + Dim _sessionid As String = Encripta(String.Format("{0}|{1}", Usuario.CveUsuario, x.SessionID)) ADSSessionConfig.SessionManager(OpcionSession.agregarSession, x) If Usuario.CvePlataforma = 6 And Usuario.CveRol = 10 Then @@ -281,7 +283,7 @@ Partial Class LogIn End Using End If - Dim cookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario.ToString, False) + Dim cookie As HttpCookie = FormsAuthentication.GetAuthCookie(Usuario.CveUsuario.ToString, False) Response.Cookies.Add(cookie) Dim routeangular As String Dim puerto As String = "" @@ -291,7 +293,7 @@ Partial Class LogIn Else puerto = String.Format(":{0}", 84) End If - Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") + Dim strdomain As String = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") If Request.Url.Port <> 80 Then strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") End If @@ -323,7 +325,7 @@ Partial Class LogIn If Not IsNothing(Context.Session("UsuarioSIG")) Then Dim usuario As Usuario = DirectCast(Context.Session("UsuarioSIG"), Usuario) - Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With { + Dim tokenDescriptor As New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With { .Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()), New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()), New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", ClsPaginas.NowADS().ToLongDateString())}), @@ -331,8 +333,8 @@ Partial Class LogIn .SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials( New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")), Microsoft.IdentityModel.Tokens.SecurityAlgorithms.HmacSha256Signature)} - Dim tokenHandler = New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler() - Dim newtoken = tokenHandler.CreateToken(tokenDescriptor) + Dim tokenHandler As New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler() + Dim newtoken As SecurityToken = tokenHandler.CreateToken(tokenDescriptor) Dim stokenn As String = tokenHandler.WriteToken(newtoken) Return stokenn Else @@ -395,18 +397,16 @@ Partial Class LogIn End Sub Public Function GenerateJSONWebToken(ByVal user As UserModel) As String - Dim securityKey = New SymmetricSecurityKey(Encoding.UTF8.GetBytes("ThisismySecretKey")) - Dim credentials = New SigningCredentials(securityKey, SecurityAlgorithms.HmacSha256) - Dim claims = {New Claim("Nombre", user.Nombre), New Claim("CveUsuario", user.CveUsuario.ToString()), New Claim("CveEmpresa", user.CveEmpresa.ToString()), New Claim("CvePerfil", user.CvePerfil.ToString()), New Claim("Mail", user.Mail.ToString())} - Dim token = New JwtSecurityToken("Test.com", "Test.com", claims, expires:=ClsPaginas.NowADS().AddMinutes(120), signingCredentials:=credentials) + Dim securityKey As New SymmetricSecurityKey(Encoding.UTF8.GetBytes("ThisismySecretKey")) + Dim credentials As New SigningCredentials(securityKey, SecurityAlgorithms.HmacSha256) + Dim claims As IEnumerable(Of Claim) = {New Claim("Nombre", user.Nombre), New Claim("CveUsuario", user.CveUsuario.ToString()), New Claim("CveEmpresa", user.CveEmpresa.ToString()), New Claim("CvePerfil", user.CvePerfil.ToString()), New Claim("Mail", user.Mail.ToString())} + Dim token As New JwtSecurityToken("Test.com", "Test.com", claims, expires:=ClsPaginas.NowADS().AddMinutes(120), signingCredentials:=credentials) Return New JwtSecurityTokenHandler().WriteToken(token) End Function Public Class UserModel Public Sub New() Me.CveUsuario = -1 End Sub - - Public Property CveUsuario As Integer Public Property Mail As String Public Property Nombre As String From 2e186d30bbbaafae1fca706b42f36054c6462ca1 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:33:40 -0700 Subject: [PATCH 10/70] option explicit --- Sistemas/DefinicionEmpresa.aspx.vb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Sistemas/DefinicionEmpresa.aspx.vb b/Sistemas/DefinicionEmpresa.aspx.vb index fd0370de2..92beea029 100644 --- a/Sistemas/DefinicionEmpresa.aspx.vb +++ b/Sistemas/DefinicionEmpresa.aspx.vb @@ -712,8 +712,8 @@ Partial Class Sistemas_DefinicionEmpresa Dim ObjContPAQ As ClsContPAQi = Nothing Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL()) - Dim TextoError = "" - Dim TextoOK = "" + Dim TextoError As String = "" + Dim TextoOK As String = "" If False Then @@ -781,7 +781,7 @@ Partial Class Sistemas_DefinicionEmpresa ' DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1, ' IdCuentaIEPSxTrasladar:=-1, IdCuentaIEPSTrasladado:=-1) Then If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, - TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1", + TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1", "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus, FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos, @@ -884,7 +884,7 @@ Partial Class Sistemas_DefinicionEmpresa If ObjContPAQ IsNot Nothing Then ObjContPAQ.Dispose() End Sub Private Function AgregarFuncionalidad(ObjEmpresas As ClsSisEmpresas, CveFuncionalidad As Integer, ByRef Ddl As DropDownList) As String - Dim Retorno = "" + Dim Retorno As String = "" If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(UsuarioActual.CveEmpresa, CveFuncionalidad, Ddl.SelectedValue) Then Retorno = "Ocurrió un error al vincular la cuenta contable" @@ -1038,11 +1038,11 @@ Partial Class Sistemas_DefinicionEmpresa Dim ArchivoLLave As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoKey) Dim ArchivoCertificado As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoCer) - Dim llaveByte = System.IO.File.ReadAllBytes(ArchivoLLave) - Dim certByte = System.IO.File.ReadAllBytes(ArchivoCertificado) + Dim llaveByte As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave) + Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado) - Dim RFCEmisor = TxtRFC.Text.Trim() - Dim contrasena = TxtContraseñaKey.Text.Trim() + Dim RFCEmisor As String = TxtRFC.Text.Trim() + Dim contrasena As String = TxtContraseñaKey.Text.Trim() Dim conector As New Profact.TimbraCFDI33.Conector(EmpresaEditar.FacturaProduccion) @@ -1052,7 +1052,7 @@ Partial Class Sistemas_DefinicionEmpresa conector.EstableceCredenciales(Credenciales) End If - Dim result = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) + Dim result As Profact.TimbraCFDI.ResultadoRegistro = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena) If result.Exitoso Then Alert("El emisor se registró correctamente.
" & result.Descripcion) From 295dc694164f67eaa2b359a729e10424731a1f8a Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:34:01 -0700 Subject: [PATCH 11/70] =?UTF-8?q?--=20correcci=C3=B3n=20de=20error=20en=20?= =?UTF-8?q?columnas=20de=20ot.=20ingresos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/ReembolsosComprobaciones.aspx | 15 +-------------- Compras/ReembolsosComprobaciones.aspx.vb | 18 +++++++++--------- 2 files changed, 10 insertions(+), 23 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 23e5a0f69..6e09a63bc 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -401,20 +401,7 @@ - - - CveCompra - - - - - - CveProveedor - - - - - + Ot. Ing. diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 6fdb67d3c..cfb6c0604 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -273,11 +273,11 @@ Partial Class Compras_ReembolsosComprobaciones If ChkAjusteOI.Checked Then TxtOtrosImportes.Visible = True TxtTotal.Visible = True - GvCxP.Columns(15).Visible = True + GvCxP.Columns(12).Visible = True Else TxtOtrosImportes.Visible = False TxtTotal.Visible = False - GvCxP.Columns(15).Visible = False + GvCxP.Columns(12).Visible = False TxtOtrosImportes.Text = "" TxtTotal.Text = "" RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);") @@ -292,11 +292,11 @@ Partial Class Compras_ReembolsosComprobaciones If ChkOtrosIngresosCheque.Checked Then TxtOtrosImportes.Visible = True TxtTotal.Visible = True - GvCxP.Columns(15).Visible = True + GvCxP.Columns(14).Visible = True Else TxtOtrosImportes.Visible = False TxtTotal.Visible = False - GvCxP.Columns(15).Visible = False + GvCxP.Columns(14).Visible = False TxtOtrosImportes.Text = "" TxtTotal.Text = "" RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);") @@ -687,7 +687,7 @@ Partial Class Compras_ReembolsosComprobaciones If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso Not ChkMesSiguiente.Checked) Then 'Si es caja chica metemos el concepto 30, si es funcionario metemos 29 ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, ImporteMovto * tipoCambio, If(CveCajaChica > 0, 30, 29), Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, ImporteMovto * tipoCambio, If(CveCajaChica > 0, 30, 29), Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then MsgError = "Detalle" End If End If @@ -698,13 +698,13 @@ Partial Class Compras_ReembolsosComprobaciones If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(506) = "1" And CbPermitirExcedente.Checked = True And SaldoExcedente > 0 Then If DDlPermitirExcedente.SelectedValue = "1" Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 132, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 132, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then MsgError = "Detalle Reembolso Personal" End If ElseIf DDlPermitirExcedente.SelectedValue = "2" Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 29, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 29, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then MsgError = "Detalle Reembolso Personal Excedente" End If End If @@ -747,7 +747,7 @@ Partial Class Compras_ReembolsosComprobaciones Pago.CveMonedaPago = CveMoneda Pago.CvePersonal = CvePersonal - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, ImporteMovto * tipoCambio, 30, Referencia, ConceptoMovimiento, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, ImporteMovto * tipoCambio, 30, Referencia, ConceptoMovimiento, CveIE:=CveIEExcedente, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto)) Then MsgError = "no se pudo insertar el detalle de la poliza" End If @@ -757,7 +757,7 @@ Partial Class Compras_ReembolsosComprobaciones 'Otros Ingresos If ChkAjusteOI.Checked Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, 78, Referencia, ConceptoMovimiento, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, 78, Referencia, ConceptoMovimiento, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal)) Then MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" End If End If From c21d0641c99a871de928d1d1d5458bb6e500e616 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:34:27 -0700 Subject: [PATCH 12/70] =?UTF-8?q?mejora=20en=20validaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepVentasUtilidadPadre.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index 83879613c..ebf3144c8 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -136,7 +136,7 @@ Partial Class Ventas_RepVentasUtilidadPadre GvDatos.DataSource = ObjVentas.DtResultados DtDatos = ObjVentas.DtResultados End If - If DtDatos.Rows.Count > 0 Then + If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then Dim Utilidad As Double = DtDatos.Rows(0)("Utilidad").ToString.ToDouble Dim Perdida As Double = DtDatos.Rows(0)("Perdida").ToString.ToDouble Dim Costo As Double = DtDatos.Rows(0)("Costo").ToString.ToDouble From bceb1064f083f49dee032b51ff05ca5aa8d7a8f7 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Oct 2023 10:34:59 -0700 Subject: [PATCH 13/70] -- unificar a un solo campo de Tipo de cambio --- Bancos/ProveedoresAbonar.aspx | 26 +++++++++--------------- Bancos/ProveedoresAbonar.aspx.vb | 35 +++++++++++++------------------- 2 files changed, 24 insertions(+), 37 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 20835831c..a8ea186c6 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -70,16 +70,10 @@ - - - -
- T.C: - - - - + +
+