From d3167378f39541268ba4a198f3022c9d4e78978a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:25:56 -0700 Subject: [PATCH 01/10] --cvemoviientorelacionado transitorio --- App_Code/ClsInventarios.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 04f11c855..81a59e8f0 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -65,6 +65,8 @@ Public Class ClsInventarios Public Property ConceptoRelacionado As String Public Property CveMovimientoVirtual As Integer Public Property FolioVirtual As Integer + Public Property CveMovimientoTransitorio As Integer + Public Property FolioTransitorio As Integer Public Property Folio As Integer Public Property IDPoliza As Integer Public Property CvePrePoliza As Integer @@ -829,7 +831,10 @@ Public Class ClsInventarios TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) ConceptoRelacionado = dr("ConceptoRelacionado").ToString CveMovimientoVirtual = dr("CveMovimientoVirtual").ToString.ToEntero + FolioVirtual = dr("FolioVirtual").ToString.ToEntero + CveMovimientoTransitorio = dr("CveMovimientoTransitorio").ToString.ToEntero + FolioTransitorio = dr("FolioTransitorio").ToString.ToEntero TipoCambio = dr("TipoCambio").ToString.ToDouble FolioVenta = dr("FolioVenta").ToString From 3ad9bcae77106707dc8ea7b66c66531afc4f1804 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:26:05 -0700 Subject: [PATCH 02/10] =?UTF-8?q?cambio=20en=20m=C3=B3dulo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PagoDeudor.aspx.cs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 4a6183671..c4e0bac4f 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -336,7 +336,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas // DATOS PREPOLIZA if (DdlTipoTransaccionPrestamo.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolioPrestamo.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PRESTAMO DEUDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMonedaPrestamo, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("PRESTAMO DEUDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMonedaPrestamo, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { @@ -671,7 +671,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas // DATOS PREPOLIZA if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO DEUDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("PAGO DEUDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { From 63ba2f3d8365f04276afdc8cb60ec08c97cb0630 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:26:21 -0700 Subject: [PATCH 03/10] -- cvemovtorelacionado transitorio --- Inventarios/EntradasSalidas.aspx | 8 ++++++ Inventarios/EntradasSalidas.aspx.vb | 41 ++++++++++++++++++----------- 2 files changed, 33 insertions(+), 16 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index caa056712..1ce8ec81e 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -513,6 +513,14 @@ Virtual +
+ +
+ Transitorio +
+
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index ebc7303a3..c57e02d42 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -730,8 +730,17 @@ Partial Class Inventarios_EntradasSalidas If Mov.CveMovimientoVirtual > 0 Then DivMovtoVirtual.Visible = True HplMtoVirtual.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoVirtual + HplMtoVirtual.Text = Mov.FolioVirtual.ToString End If + If Mov.CveMovimientoTransitorio > 0 Then + DivMovtoTransitorio.Visible = True + HplMtoTransitorio.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoTransitorio + HplMtoTransitorio.Text = Mov.FolioTransitorio.ToString + End If + + + If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) If dr IsNot Nothing Then @@ -1798,7 +1807,7 @@ Partial Class Inventarios_EntradasSalidas If DdlConcepto.SelectedValue.ToEntero = 31 Then IdCtaContableOtro = 1319 End If - + EsContabilizable = False Case 30 CveConceptoContable = 181 TipoMovtoOtro = False @@ -3805,26 +3814,26 @@ Partial Class Inventarios_EntradasSalidas End If Else If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then - 'genero las prepolizas manuales - Dim tCveConcepto As Integer = 95 - Dim CveCuenta As Integer - If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 - IdCtaContable = 1 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then - ErrorMovInv = True + 'genero las prepolizas manuales + Dim tCveConcepto As Integer = 95 + Dim CveCuenta As Integer + If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 + IdCtaContable = 1 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then + ErrorMovInv = True - End If + End If - Else + Else - Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero Dim tCveConcepto As Integer = 69 - If DdlConcepto.SelectedValue = "30" Then - tCveConcepto = 181 - IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero - End If + If ObjInventario.CveConcepto = 37 Then + tCveConcepto = 181 + IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero + End If - For Each RowInv As DataRow In tmpCostos.Rows + For Each RowInv As DataRow In tmpCostos.Rows ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL If tCveConcepto = 69 Then IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero From 43c130cb4b3a170366cd94677c75841236730a74 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:26:44 -0700 Subject: [PATCH 04/10] -- modulo de prepolizas --- Bancos/PrestamoPersonal.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs index 038100bf5..09dbde1c3 100644 --- a/Bancos/PrestamoPersonal.aspx.cs +++ b/Bancos/PrestamoPersonal.aspx.cs @@ -263,7 +263,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas // DATOS PREPOLIZA if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlFuncionarioEmpleadoPago.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO PRESTAMOPER", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlFuncionarioEmpleadoPago.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { From 476f4accb43dbdeb75ba2acdede6da9ed19b41d7 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 12 Jul 2022 13:37:07 -0700 Subject: [PATCH 05/10] -- formato de usados, no manda bien la fecha --- Compras/PopUpVerFactura.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9dfcbe489..c148ba7af 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5196,7 +5196,7 @@ Partial Class PopUpVerFactura Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Direccion", Almacen)) - params.Add(New ReportParameter("FechaConFormato", Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("FechaConFormato", Fecha)) 'params.Add(New ReportParameter("FechaInicial", Fecha)) 'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Sucursal", "Sucursal")) From 5a3f64cb65aba764943cb9c0b7fa649f52624085 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 13 Jul 2022 16:49:55 -0700 Subject: [PATCH 06/10] -- prepoliza sin costo --- Inventarios/EntregaAlmacen.aspx.vb | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index be7ba0a55..7006cc25e 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2064,9 +2064,25 @@ Partial Class Inventarios_EntregaAlmacen End If If ErrorMovInv Then Exit For - Next End If + + If Not ErrorMovInv Then + Dim CvePrePolizaSinCosto As Integer = ObjConta.AddPrePolizas("EA/SinCost", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrega", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CvePrePolizaSinCosto > 0 Then + + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, False, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then + ErrorMovInv = True + End If + + If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, True, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=False) Then + ErrorMovInv = True + End If + Else + ErrorMovInv = True + End If + End If + End If If Not ErrorMovInv Then From 5e6c246cb7952ed97ada62ac4f1e5a244ab3db14 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 14 Jul 2022 08:20:37 -0700 Subject: [PATCH 07/10] RepCxC y Detalle Metas, entrga almacen correcion descarga PDF --- App_Code/ClsCompras.vb | 3 ++- App_Code/ClsMovimientos.vb | 12 +++++++++-- CxC/RepCxC.aspx | 17 ++++++++++++++- CxC/RepCxC.aspx.vb | 6 +++++- CxC/RepCxCDetalle.aspx | 20 ++++++++++++++++++ CxC/RepCxCDetalle.aspx.vb | 26 +++++++++++++++++++---- Inventarios/EntregaAlmacenRuta.aspx.cs | 29 ++++++++++++++++++++++---- 7 files changed, 100 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index e9431b099..8768624dd 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -2684,7 +2684,7 @@ Public Class ClsCompras Return Retorno End Function - Public Function AddRepCxCColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer) As Boolean + Public Function AddRepCxCColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer, Objetivo As Decimal) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_RepCxCColumnasAdd") With SqlAdapter.SelectCommand.Parameters @@ -2692,6 +2692,7 @@ Public Class ClsCompras .Add("@RangoInicial", SqlDbType.Float).Value = RangoInicial .Add("@RangoFinal", SqlDbType.Float).Value = RangoFinal .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@Objetivo", SqlDbType.Money).Value = Objetivo End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 71422d3bb..7553f2d76 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -16,7 +16,8 @@ Public Class ClsMovimientos Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction Private SqlCommand As SqlCommand - Private Data As DataTable + Private Data As DataTable + Private DS As DataSet 'Atributos de la clase Private disposedValue As Boolean = False ' Para detectar llamadas redundantes @@ -30,6 +31,12 @@ Public Class ClsMovimientos Get DtResultados = Data End Get + End Property + + Public ReadOnly Property DSResultados() As DataSet + Get + DSResultados = DS + End Get End Property Public Property AlertaMensaje As New StringBuilder @@ -329,6 +336,7 @@ Public Class ClsMovimientos Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean Dim Retorno As Boolean = False + DS = New DataSet 'Data = New DataTable 'SqlAdapter = New SqlDataAdapter("PA_RepCxCDetalle", SqlConexion) 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure @@ -371,7 +379,7 @@ Public Class ClsMovimientos End With Try - SqlAdapter.Fill(Data) + SqlAdapter.Fill(DS) Retorno = True Catch ex As Exception OnError("Ocurrió un error al obtener el Reporte de CxC Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index da8b8d323..3e639b089 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -572,11 +572,12 @@ + OnRowDataBound="GvPersonalizarRango_RowDataBound" GridLines="None" AllowPaging="False" DataKeyNames="Tipo,RangoInicial,RangoFinal,Objetivo"> + @@ -649,6 +650,20 @@ + + +
+
+
+ + + + + +
+
+
+ diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index fcbbe1977..da08d924d 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -811,6 +811,7 @@ Partial Class RepCxC DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo")) TxtRI.Text = gvRow.DataKey("RangoInicial") TxtRF.Text = gvRow.DataKey("RangoFinal") + TxtRObjetivo.Text = gvRow.DataKey("Objetivo").ToString.ToDecimal.ToString("###.00") If Not TxtRF.Text.ToDouble > 0 Then ChkMayor.Checked = True TxtRF.Enabled = False @@ -825,6 +826,7 @@ Partial Class RepCxC DdlTipo.SelectedIndex = 0 TxtRI.Text = "" TxtRF.Text = "" + TxtRObjetivo.Text = "" ChkMayor.Checked = False SoloNumeros2.Enabled = True TxtRF.Enabled = True @@ -864,12 +866,14 @@ Partial Class RepCxC Dt("RangoFinal") = TxtRF.Text.ToDouble Dt("Tipo") = DdlTipo.SelectedValue Dt("TipoEscrito") = DdlTipo.SelectedItem.Text + Dt("Objetivo") = TxtRObjetivo.Text.ToDecimal DtPersonalizarRango.Rows.InsertAt(Dt, DtPersonalizarRango.Rows.Count) ElseIf Modalidad = "U" Then DtPersonalizarRango.Rows(Index)("RangoInicial") = TxtRI.Text.ToDouble DtPersonalizarRango.Rows(Index)("RangoFinal") = TxtRF.Text.ToDouble DtPersonalizarRango.Rows(Index)("Tipo") = DdlTipo.SelectedValue DtPersonalizarRango.Rows(Index)("TipoEscrito") = DdlTipo.SelectedItem.Text + DtPersonalizarRango.Rows(Index)("Objetivo") = TxtRObjetivo.Text.ToDecimal DtPersonalizarRango.AcceptChanges() End If DtPersonalizarRango = DtPersonalizarRango.FiltraParametros("", "Tipo,RangoInicial,RangoFinal") @@ -914,7 +918,7 @@ Partial Class RepCxC ErrorTrans = True End If For Each Dr As DataRow In DtPersonalizarRango.Rows - If Not ObjComp.AddRepCxCColumnas(UsuarioActual.CveEmpresa, Dr("RangoInicial").ToString.ToDouble, Dr("RangoFinal").ToString.ToDouble, Dr("Tipo").ToString.ToEntero) Then + If Not ObjComp.AddRepCxCColumnas(UsuarioActual.CveEmpresa, Dr("RangoInicial").ToString.ToDouble, Dr("RangoFinal").ToString.ToDouble, Dr("Tipo").ToString.ToEntero, Dr("Objetivo").ToString.ToDecimal) Then ErrorTrans = True End If Next diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index cc3e6ad6f..b91380685 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -325,6 +325,26 @@ + + + +
+
+ + + + + + + + + +
+
+ + + +
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index dc9a65081..cf8087e86 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -234,7 +234,12 @@ Partial Class RepCxCDetalle ChkCuentaContableReferencia.Visible = True End If CargaAsignarCobranza() - TxtFechaCobranza.Text = Now.ToShortDateString + TxtFechaCobranza.Text = Now.ToShortDateString + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + DVCartera.Visible = True + End If + End If End Sub @@ -447,15 +452,28 @@ Partial Class RepCxCDetalle CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0)) Then - GvDatos.DataSource = ObjMovtos.DtResultados - dt = ObjMovtos.DtResultados + GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0) + dt = ObjMovtos.DSResultados.Tables(0) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1) + End If + + Else GvDatos.DataSource = Nothing End If ObjMovtos.Dispose() - GvDatos.DataBind() + GvDatos.DataBind() + + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + GvCartera.DataBind() + End If + + UPDatos.Update() + UpCartera.Update() Return dt diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 33d7a6cb2..b294170b0 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -213,8 +213,18 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (ObjTimbres.Timbrar()) { - MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); - MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + + if (ChkEmitirCartaPorte.Checked) + { + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + } + else + { + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre))); + } + + MensajeAlert.Append("
"); DdlChofer.SelectedValueExist("-1"); @@ -358,8 +368,19 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas //if (System.IO.File.Exists(ArchivoXML)) // MensajeAlert.AppendFormat("", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); MensajeAlert.AppendFormat("Folio: {0}  ", ObjTimbres.ObjFactura.SerieFolio); - MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); - MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + + MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + + if (ChkEmitirPorteRec.Checked) { + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + }else{ + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre))); + } + + + + + MensajeAlert.Append("
"); ////PDF //string ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio); From 597838a86768a841d56575da94c3ae128774f990 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 14 Jul 2022 08:30:39 -0700 Subject: [PATCH 08/10] EntregaAlmacenRuta, correcion de descarga pdf sin carta porte --- Inventarios/EntregaAlmacenRuta.aspx.cs | 42 +++++++++++++------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index af72e290d..2d1bcef57 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -213,8 +213,16 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (ObjTimbres.Timbrar()) { - MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); - MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + if (ChkEmitirCartaPorte.Checked) + { + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + } + else + { + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre))); + } + MensajeAlert.Append("
"); DdlChofer.SelectedValueExist("-1"); @@ -345,28 +353,20 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (ObjTimbres.Timbrar()) { - //ClsPaginas.PdfFactura(ref ObjTimbres.ObjFactura,"0",true); - - //MensajeAlert.Append("Emitido con éxito."); - - ////XML - //string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio); - //if (System.IO.File.Exists(ArchivoXML)) - // MensajeAlert.AppendFormat("", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); + MensajeAlert.AppendFormat("Folio: {0}  ", ObjTimbres.ObjFactura.SerieFolio); MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); - MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + + if (ChkEmitirPorteRec.Checked) + { + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); + } + else + { + MensajeAlert.AppendFormat("PDF   ", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre))); + } MensajeAlert.Append("
"); - ////PDF - //string ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio); - //if (System.IO.File.Exists(ArchivoPDF)) - // MensajeAlert.AppendFormat("", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); - - - //if (UsuarioActual.Empresa.Funcionalidad(161) == "1") - // MensajeAlert.AppendFormat("", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre))); - //else - // MensajeAlert.AppendFormat("", ModExtensiones.Encripta(String.Format("OP=CARPO&CveTimbre={0}", cvetimbre))); + } else From c1e594a24eefc685f261ef7fd749cd48c7f8871a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Jul 2022 12:00:46 -0700 Subject: [PATCH 09/10] -- acomodo de columnas --- Ventas/Clientes.aspx | 198 +++++++++++++++++++++---------------------- 1 file changed, 96 insertions(+), 102 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index a66411c6f..410f079fb 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -453,62 +453,49 @@
- +
-
- - - -
-
- - - - +
+
+ + + +
+
+ + + + +
+ +
+
+ + + + + + - <%--
- - - - -
+ + + +
-
- - - - -
+
+ + + + + + +
+
- --%> - -
- - - - - - - - - - -
- - -
- - - - - - -
-
@@ -600,7 +587,6 @@
-
@@ -617,64 +603,71 @@
- +
-
- - + + +
+
+ + + + + +
+
+ + +
- <%--
- - -
--%> -
- - - - - -
-
- - -
-
- - - - + +
+
+ + +
+
+ +
+
+
+
+ + + + +
-
- - - +
+ + + +
+
+
+ +
+ + + +
+ +
+ + + + + +
- -
- - - -
- -
- - - - - -
-
-
- - -
+
@@ -692,19 +685,20 @@
-
- - -
+
-
+
+ + +
+
-
+
From 05e1372561c8d98e4319970c5bd868279911a9bc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Jul 2022 12:01:52 -0700 Subject: [PATCH 10/10] -- --- Inventarios/EntregaAlmacenRuta.aspx.cs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 33d7a6cb2..7cc6f2788 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -204,8 +204,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas StringBuilder MensajeAlert = new StringBuilder(); //recorrer para timbrar MensajeAlert.Append(" Entregas creadas correctamente

"); - bool huboerror = false; - + foreach (int cvetimbre in ListaTimbres) { Timbres ObjTimbres = new Timbres("Ent", cvetimbre, UsuarioActual); @@ -225,8 +224,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas SeleccionarGenerar(1); } else - { - huboerror = true; + { MensajeAlert.AppendFormat("
  • {0}
", ObjTimbres.MsgError); } } @@ -287,7 +285,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (CveEntregaAlmacen > 0) { // se actualizan los datos de unidad, chofer, fechas y Carta porte - if (ObjGeneral.AsignaEntregaAlmacenRuta(DdlUnidadRec.SelectedValue.ToEntero(), DdlChoferRec.SelectedValue.ToEntero(), TxtFechaRec.Text.ToDate(), CveEntregaAlmacen, UsuarioActual.CveEmpresa)) + if (ObjGeneral.AsignaEntregaAlmacenRuta(DdlUnidadRec.SelectedValue.ToEntero(), DdlChoferRec.SelectedValue.ToEntero(), TxtFechaRec.Text.ToDate(), (TxtFechaRec.Text + " 23:59").ToDate(), CveEntregaAlmacen, UsuarioActual.CveEmpresa)) { int CveTimbre = ObjGeneral.AddGralTimbre("Rec", row.DataKey("CveSubProyecto").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: ChkEmitirPorteRec.Checked); @@ -856,7 +854,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } else { - ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,FolioReferencia:TxtFolioReferencia.Text,Referencia: TxtReferencia.Text,CveSubProyecto: DdlSubProyectoRecoleccion.SelectedValue.ToEntero()); + ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,FolioReferencia:TxtFolioReferencia.Text,Referencia: TxtReferencia.Text,CveSubProyecto: DdlSubProyectoRecoleccion.SelectedValue.ToEntero()); } if (ProcesoOK)