From f4a5119a60f3d2b4f0431502810b625c5307aafe Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 10 Apr 2024 08:53:04 -0700 Subject: [PATCH 01/17] - mejora --- Bancos/RepCortes.aspx | 4 ++-- Bancos/RepCortes.aspx.vb | 7 +++++++ 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index c173f0204..445b67a16 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -385,7 +385,7 @@

- Depositos Caja + Depósitos Caja
@@ -406,7 +406,7 @@

- Anexo + Contabilidad
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 399bfd788..472b87af2 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -227,6 +227,13 @@ Partial Class Bancos_RepCortes UpAcciones.Update() End Sub + Private Sub GvDep_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDep.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + e.Row.FCHyperLink("HplImpPol").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={ e.Row.DBCampo("CvePrePoliza")}")}" + End If + + End Sub + #End Region From a3f7ad70cd063bd55c4a21b86a016f65200fec3c Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 10 Apr 2024 09:26:09 -0700 Subject: [PATCH 02/17] GDiaz - Compras Prontos Pagos --- App_Code/ClsPaginas.vb | 16 ++++ Bancos/PopIECompras.aspx | 2 +- Bancos/PopIECompras.aspx.vb | 14 +-- Bancos/ProveedoresAbonar.aspx | 6 ++ Bancos/ProveedoresAbonar.aspx.vb | 89 +++++++++++++++++-- Compras/Compras.aspx.vb | 38 +++++--- Inventarios/Kardex.aspx | 17 +++- Inventarios/Kardex.aspx.vb | 146 ++++++++++++++++++++++++++++++- 8 files changed, 293 insertions(+), 35 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3fc7edff6..f6868d9ec 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9010,6 +9010,22 @@ Public Class ClsPaginas If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True End If End If + + If Pago.TipoPago.Contiene("RNC") AndAlso Not ErrorMovtos Then ' R E M I S I Ó N D E N O T A D E C R E D I T O + '371 + Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor) + + If Pago.CveMonedaPago > 1 Then + 'Agregamos la Extranjera + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 371, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + Else + 'Agregamos Nacional + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 371, Pago.Referencia, Concepto, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True + End If + End If + If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(17, Pago.CveMonedaPago, True, CompraActual.CveTipoConceptoProveedor) If Pago.CveMonedaPago > 1 Then diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index 9b31ac375..94086dd01 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -524,7 +524,7 @@
- +
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 43e4d2d87..0ecfd9ef6 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1679,13 +1679,6 @@ Partial Class Bancos_PopIECompras UpGuardar.Update() End Sub - Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init - RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString - Calendario.EndDate = NowADS() - - End Sub - - Protected Sub CVTxtImporte_ServerValidate(source As Object, args As ServerValidateEventArgs) @@ -1721,15 +1714,22 @@ Partial Class Bancos_PopIECompras End Sub + Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString + Calendario.EndDate = NowADS().AddDays(2) + + End Sub Private Sub ValidaFechaDocumentoDiasPosteriores() RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString Calendario.EndDate = NowADS().AddDays(2) + RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior a 6 meses de la fecha actual" If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString + RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior a 6 meses de la fecha actual" Calendario.EndDate = NowADS().AddDays(30) End If diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index cdadcb7d9..1b1028021 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -338,7 +338,13 @@ + + + + + + diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 8e8952fee..f4c14812e 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -317,6 +317,9 @@ Partial Class Bancos_ProveedoresAbonar chkaplicaDescuento.Visible = True End If + + tmpValida() + End If End Sub @@ -1607,10 +1610,10 @@ Partial Class Bancos_ProveedoresAbonar #End Region Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init - RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString RVTxtFechaDocumentoMenor.MinimumValue = NowADS().AddMonths(-38).ToShortDateString - RVTxtFechaDocumentoMenor.MaximumValue = NowADS().ToShortDateString - Calendario.EndDate = NowADS() + RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(2).ToShortDateString + Calendario.EndDate = NowADS().AddDays(2) End Sub @@ -1620,17 +1623,17 @@ Partial Class Bancos_ProveedoresAbonar RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(2).ToShortDateString RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(2).ToShortDateString - RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior 2 días de la fecha actual" + RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior a 6 meses de la fecha actual" Calendario.EndDate = NowADS().AddDays(2) If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1, 16) Then - RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(30).ToShortDateString - RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(30).ToShortDateString - RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior 30 días de la fecha actual" + RVTxtFechaDocumento.MaximumValue = NowADS().AddDays(182).ToShortDateString + RVTxtFechaDocumentoMenor.MaximumValue = NowADS().AddDays(182).ToShortDateString + RVTxtFechaDocumento.ErrorMessage = "ERROR:
La fecha del documento no puede ser superior a 6 meses de la fecha actual" - Calendario.EndDate = NowADS().AddDays(30) + Calendario.EndDate = NowADS().AddDays(182) End If UpDatos.Update() @@ -1645,5 +1648,75 @@ Partial Class Bancos_ProveedoresAbonar UPCompras.Update() End Sub + + + + Private Sub tmpValida() + + Dim ValidaSAT As Boolean = True + Dim ImporteSeleccionado As Decimal = 0 + 'If UsuarioActual.Empresa.Funcionalidad(529) = "1" OrElse ChkNoValidaSAT.Checked Then ValidaSAT = False + + If ValidaSAT Then + Dim Validada As Boolean = False + Dim MsgValidadas As New StringBuilder + Dim Valida As New ClsValidaCFDi() + 'verifico ante el SAT las compras que voy a pagar + For Each gvr As GridViewRow In GvCxP.Rows + If gvr.FCCheckBox("Chk").Checked Then + + ImporteSeleccionado += gvr.FCTextBox("TxtAbonar").Text.ToDecimal + If gvr.DataKey("UUID") <> "" Then + + Valida.Verificar(gvr.DataKey("UUID"), gvr.DataKey("RFC"), UsuarioActual.Empresa.RFC, gvr.DataKey("TotalOriginal").ToDecimal) + + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa < 2 Then + Valida.EsValida = 1 + End If + + If Valida.EsValida <> 1 Then + + Validada = False + If Valida.EsValida = 2 Then 'Cancelada + 'estatus inventario, no surtida + If gvr.DataKey("EstatusInventario") = "1" Then + MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1} , relacione su factura nueva para descontar saldo
", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion")) + Else + MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1} con movimientos de almacen, relacione su factura nueva para descontar saldo
", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion")) + End If + Else + MsgValidadas.AppendFormat("Factura No se pudo Validar: {0} - {1}
", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion")) + End If + End If + End If + End If + Next + + Valida.Dispose() + + 'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui + + If MsgValidadas.Length > 0 Then + Alert(String.Format("
Las Facturas presentan la siguiente situación ante el SAT.
{0}", MsgValidadas.ToString), TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Else + For Each gvr As GridViewRow In GvCxP.Rows + If gvr.FCCheckBox("Chk").Checked Then + ImporteSeleccionado += gvr.FCTextBox("TxtAbonar").Text.ToDecimal + End If + Next + End If + + If ImporteSeleccionado <= 0 Then + Alert("Seleccione facturas", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End Sub + + + Protected Sub Button1_Click(sender As Object, e As EventArgs) + tmpValida() + End Sub End Class diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index aeb94a329..10ff8bcbb 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1511,6 +1511,11 @@ Partial Class Compras_Compras ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then + DdlTipoComprobante.Items.Clear() + DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC")) + End If + ViewState("CveCompra") = Request("CveCompra") CargaCompra() BtnGuardar.Enabled = False @@ -3235,6 +3240,13 @@ Partial Class Compras_Compras BtnRegenerarPrePolizaAlmacen_Click(Nothing, Nothing) End If + If DdlTipoComprobante.SelectedValue = "RNC" And CompraSaldo <> TxtTotal.Text.ToDecimal Then + BtnCancelarCompra.Visible = False + BtnEliminarCompra.Visible = False + End If + + + Else Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) End If @@ -7012,7 +7024,7 @@ Partial Class Compras_Compras Pago.Referencia = CompraActual.SerieFolio Pago.TCPago = CompraActual.TC Pago.AplicaAcreditable = False - Pago.TipoPago = "NC" + Pago.TipoPago = "RNC" Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC Dim CompraPago As New Compra @@ -7029,19 +7041,19 @@ Partial Class Compras_Compras ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraPago, Pago, CvePrePoliza, ObjConta) - If Not ErrorPrepoliza Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, - CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then - ErrorPrepoliza = True - End If + 'If Not ErrorPrepoliza Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, + ' CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then + ' ErrorPrepoliza = True + ' End If - If Not ErrorPrepoliza Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, - CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then - ErrorPrepoliza = True - End If - End If - End If + ' If Not ErrorPrepoliza Then + ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, + ' CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then + ' ErrorPrepoliza = True + ' End If + ' End If + 'End If End If diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 35f2e4e57..7fb29e832 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -172,9 +172,9 @@
<%----%> - - +
+
@@ -192,6 +192,7 @@
+
@@ -254,6 +255,18 @@
+ +
+
+
+ < +
+
+ > +
+
+
+
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index 514f2022a..e12f8af7a 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -25,10 +25,60 @@ Partial Class Inventarios_Kardex ViewState("CveMovimiento") = Value End Set End Property + + + Private Property IndiceNavegacionActual As Integer + Get + + If ViewState("IndiceNavegacionActual") Is Nothing Then + ViewState("IndiceNavegacionActual") = 0 + End If + Return ViewState("IndiceNavegacionActual").ToString.ToEntero + End Get + Set + ViewState("IndiceNavegacionActual") = Value + End Set + End Property + + Private Property DTPSNavegacion As DataTable + Get + If ViewState("DTPSNavegacion") Is Nothing Then + ViewState("DTPSNavegacion") = New DataTable + End If + + Return DirectCast(ViewState("DTPSNavegacion"), DataTable) + + End Get + Set(value As DataTable) + ViewState("DTPSNavegacion") = value + End Set + End Property + + Private Property NavegacionTieneDatos As Boolean + Get + + If ViewState("NavegacionTieneDatos") Is Nothing Then + ViewState("NavegacionTieneDatos") = False + End If + Return Boolean.Parse(ViewState("NavegacionTieneDatos").ToString) + End Get + Set(value As Boolean) + ViewState("NavegacionTieneDatos") = value + End Set + End Property + + + #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then + + If UsuarioActual.CveRol = 1 Then + CreaDTPSNavegacion() + DVNavegar.Visible = True + End If + TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString TxtFechaF.Text = NowADS().ToShortDateString CargaCombos() @@ -200,7 +250,7 @@ Partial Class Inventarios_Kardex #Region " CARGA DATOS " Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click - CargaDatos() + CargaDatos(True) Dim almacenes As String = ddlAlmacen.GetSelectedValues() If almacenes = "" Then almacenes = "-1" @@ -208,12 +258,25 @@ Partial Class Inventarios_Kardex ImprimirQR.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Etiqueta2&CvePS={0}&PS={1}&CveAlmacen={2}&Modalidad={3}", ddlProducto2.SelectedValue.ToEntero, ddlProducto2.SelectedText.ToString, almacenes, "Individual"))) End Sub - Private Sub CargaDatos() + Private Sub CargaDatos(Optional validaInidiceActual As Boolean = False) + + NavegacionTieneDatos = False Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero + If validaInidiceActual Then + EstablecerIndiceActaual(CveProducto) + End If + + If CveProducto > 0 Then Dim DtTemp = CargarKardex(CveProducto) + + If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 1 Then + NavegacionTieneDatos = True + End If + If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then + Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean AplicaSerie = DtTemp.MAX("Serie") <> "" AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> "" @@ -370,8 +433,8 @@ Partial Class Inventarios_Kardex Dim ObjInventarios As New ClsInventarios If ObjInventarios.GetExistenciasCaducidad(ddlProducto2.SelectedValue.ToEntero(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then GvProductoCaducidad.DataSource = ObjInventarios.DtResultados - GvProductoCaducidad.columns(2).visible = ObjInventarios.DtResultados.max("Serie") <> "" - GvProductoCaducidad.columns(3).visible = ObjInventarios.DtResultados.max("Lote") <> "" + GvProductoCaducidad.Columns(2).Visible = ObjInventarios.DtResultados.MAX("Serie") <> "" + GvProductoCaducidad.Columns(3).Visible = ObjInventarios.DtResultados.MAX("Lote") <> "" GvProductoCaducidad.Columns(4).Visible = ObjInventarios.DtResultados.MAX("FechaCaducidad").ToDate > MinFecha If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvProductoCaducidad.Columns(4).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) @@ -535,6 +598,81 @@ Partial Class Inventarios_Kardex End Sub #End Region + Private Sub EstablecerIndiceActaual(CveProducto As Integer) + + IndiceNavegacionActual = 0 + For Each drow As DataRow In DTPSNavegacion.Rows + If drow("CvePS").ToString.ToEntero = CveProducto Then + Exit Sub + End If + IndiceNavegacionActual = IndiceNavegacionActual + 1 + Next + + End Sub + + Private Sub CreaDTPSNavegacion() + DTPSNavegacion = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("", "Codigo", {"CvePS", "CodigoPS", "Codigo"}) + End Sub + + Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs) + + NavegacionTieneDatos = False + + For x As Integer = IndiceNavegacionActual - 1 To 0 Step -1 + If x <= 0 Or NavegacionTieneDatos Then + IndiceNavegacionActual = x + UPFiltros.Update() + End If + + ddlProducto2.SelectedValue = DTPSNavegacion.Rows(x)("CvePS").ToString + ddlProducto2.SelectedText = DTPSNavegacion.Rows(x)("CodigoPS").ToString + ddlProducto2.txtValue.Value = DTPSNavegacion.Rows(x)("CvePS").ToString + ddlProducto2.txtText.Value = DTPSNavegacion.Rows(x)("CodigoPS").ToString + CargaDatos() + + If x <= 0 Or NavegacionTieneDatos Then + IndiceNavegacionActual = x + UPFiltros.Update() + UPDatos.Update() + Exit Sub + + End If + + + Next + + End Sub + + Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs) + + NavegacionTieneDatos = False + + For x As Integer = IndiceNavegacionActual + 1 To DTPSNavegacion.Rows.Count - 1 Step 1 + + + If x >= DTPSNavegacion.Rows.Count - 1 Or NavegacionTieneDatos Then + IndiceNavegacionActual = x + UPFiltros.Update() + End If + + ddlProducto2.SelectedValue = DTPSNavegacion.Rows(x)("CvePS").ToString + ddlProducto2.SelectedText = DTPSNavegacion.Rows(x)("CodigoPS").ToString + ddlProducto2.txtValue.Value = DTPSNavegacion.Rows(x)("CvePS").ToString + ddlProducto2.txtText.Value = DTPSNavegacion.Rows(x)("CodigoPS").ToString + CargaDatos() + + If x >= DTPSNavegacion.Rows.Count - 1 Or NavegacionTieneDatos Then + IndiceNavegacionActual = x + UPFiltros.Update() + UPDatos.Update() + Exit Sub + + End If + + + Next + + End Sub End Class From 2c70bf42a5f346357e1edfb7c9e3d343c2768591 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 10 Apr 2024 09:26:56 -0700 Subject: [PATCH 03/17] - activar Carta porte 3.0 para EMD --- App_Code/Timbrado.vb | 166 +++++++++++++------------------------------ 1 file changed, 49 insertions(+), 117 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 1374feb13..45da261d1 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2534,137 +2534,69 @@ concep.DescripcionesEspecificas.NumeroSerie) #Region "C O M P L E M E N T O C A R T A P O R T E" - If UsuarioActual.CveEmpresa = 13 Then - If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - ''DATOS GENERALES - cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida) + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - 'UBICACIONES - If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then - For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones - 'origen - cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) - 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) - Next - End If + Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - 'MERCANCIAS - If Carta.Mercancias IsNot Nothing Then - cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) - If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then - For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - If concep.ValorMercancia <= 0 Then concep.Moneda = "" - cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) - For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta - cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) - Next - Next - End If - End If - ' - If Carta.FiguraTransporte IsNot Nothing Then - - If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - - cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) - - cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) - - cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, - Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) - - If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then - For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques - cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) - Next - - End If - End If - - If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then - For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) - If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador - cfdi.CartaPortePartesTransporte("PT01") - cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) - End If - Next - End If - - End If + ''DATOS GENERALES + cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) + 'UBICACIONES + If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones + 'origen + cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) + Next End If - Else - - If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then - - Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte - - ''DATOS GENERALES - cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) - - 'UBICACIONES - If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then - For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones - 'origen - cfdi.CartaPorte30Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida) - 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) - cfdi.CartaPorte30Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP) + 'MERCANCIAS + If Carta.Mercancias IsNot Nothing Then + cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) + If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + If concep.ValorMercancia <= 0 Then concep.Moneda = "" + cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), + concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, + If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, + concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta + cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) + Next Next End If + End If + ' + If Carta.FiguraTransporte IsNot Nothing Then - 'MERCANCIAS - If Carta.Mercancias IsNot Nothing Then - cfdi.CartaPorte30Mercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion, Carta.Mercancias.LogisticaInversaRecoleccionDevolucion) - If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then - For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - If concep.ValorMercancia <= 0 Then concep.Moneda = "" - cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), - concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, - If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, - concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) - For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta - cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) - Next + If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then + + cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) + + cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) + + cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, + Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, + Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, + Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) + + If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then + For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques + cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa) Next End If End If - ' - If Carta.FiguraTransporte IsNot Nothing Then - If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then - - cfdi.CartaPorte30Autotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT) - - cfdi.CartaPorte30IdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM) - - cfdi.CartaPorte30Seguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente, - Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga, - Carta.FiguraTransporte.AutoTransporte.PrimaSeguro) - - If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then - For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques - cfdi.CartaPorte30Remolque(concep.SubTipoRemolque, concep.Placa) - Next + If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) + If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador + cfdi.CartaPorte30PartesTransporte("PT01") + cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) End If - End If - - If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then - For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores - cfdi.CartaPorte30TiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, "")) - If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador - cfdi.CartaPorte30PartesTransporte("PT01") - cfdi.CartaPorte30PartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP) - End If - Next - End If + Next End If End If End If From c923e0c50c64d6ce2b9f49c304a6198b564104e0 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 10 Apr 2024 10:07:38 -0700 Subject: [PATCH 04/17] - columna nueva de MSI --- Ventas/RepRecuperacionDetalle.aspx | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/RepRecuperacionDetalle.aspx b/Ventas/RepRecuperacionDetalle.aspx index a3547b46a..95a21f0dc 100644 --- a/Ventas/RepRecuperacionDetalle.aspx +++ b/Ventas/RepRecuperacionDetalle.aspx @@ -290,6 +290,7 @@ + From c1d75cc8f115c235b3b2cbc5f2ba1965339602f3 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 10 Apr 2024 11:03:12 -0700 Subject: [PATCH 05/17] =?UTF-8?q?Agregar=20logo=20a=20formato=20de=20p?= =?UTF-8?q?=C3=B3lizas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/PopUpVerFactura.aspx.vb | 5 +++++ Empresas/13/Formatos/CartaPorteTimbrado.rdlc | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 5810f81d3..119fcbcb2 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -6309,6 +6309,11 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Numero", FolioPoliza)) params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano"))) params.Add(New ReportParameter("CodigoPostal", "")) + + If RutaReporte.Contains("Grales\Formatos\") Then + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) + End If + If UsuarioActual.CveEmpresa.Contiene(141) Then params.Add(New ReportParameter("Fecha", Fecha.ToString("dd/MM/yyyy hh:mm:ss"))) Else diff --git a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc index c0af07228..cf3392514 100644 --- a/Empresas/13/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/13/Formatos/CartaPorteTimbrado.rdlc @@ -4119,7 +4119,7 @@ - Carta Porte 2.0 + Carta Porte 3.0 - 1.83665in + 1.71028in - 1.83665in + 1.71028in - - - - Calendario de Viajes - - - -
  • - Generar PDF -
    • -
  • - Generar Excel -
    • -     - - - - - <%--Calendario Tab--%> - - -
    -
    -
    - - -
    -
    -
    - -
    - - - - - -
    -
    -
    -
    - - -
    - -
    -
    -
    -
    -
    -

     

    -
    -
    -
    -
    -
    -
    -
    -
    -
    - -     -     - <%--Contratos Tab--%> - - - <%-- Filtros --%> - - -
    - <%-- Filtro Visible - Consulta --%> -
    -
    - - -
    - -
    -
    - <%-- Fecha Inicial --%> - -
    -
    - - - - -
    - - - -
    - <%-- Fecha Final --%> - -
    -
    - - - - -
    - - - -
    - <%-- Cliente --%> - -
    - -
    - <%-- Estatus --%> - -
    - - -
    -
    -
    -
    - <%-- Filtro Oculto --%> - -
    -     -     - <%-- Contratos --%> - - - - - - - - - - - - - Fecha
    - Salida -     - - - -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Fecha
    - Regreso -     - - - -     - - - - - - - - - - - - - -     -     -     -     -     -     -     -     - <%-- Modal --%> - - -
    - - - - - - - -
    -     - - +<%@ Page Title="Transportes V&A - Calendario" Language="VB" MasterPageFile="~/Site.master" + AutoEventWireup="false" CodeFile="RepContratosCalendario.aspx.vb" Inherits="RepContratosCalendario" %> + +<%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> + + + + + + + Calendario de Viajes + + + +
  • + Generar PDF +
    • +
  • + Generar Excel +
    • +     + + + +
    +
    + <%-- Filtros --%> + + +
    + <%-- Filtro Visible - Consulta --%> +
    +
    + + +
    +
    +
    + <%-- Fecha Inicial --%> + +
    +
    + + + + +
    + + +
    + <%-- Fecha Final --%> + +
    +
    + + + + +
    + + +
    + <%-- Cliente --%> + +
    + +
    + <%-- Estatus --%> + +
    + + +
    +
    +
    +
    + <%-- Filtro Oculto --%> + +
    +     +     +
    +
    +
    +
    + + <%--Calendario Tab--%> + + + +
    +
    +
    +
    +
    +
    +
    + +
    + + + + +
    +
    +
    + +
    +
    +
    +
    +
    +
    +

     

    +
    +
    +
    +
    +
    +
    +
    +
    +
    +     +     + <%--Contratos Tab--%> + + + <%-- Contratos --%> + + + + + + + + + + + + + Fecha
    + Salida + +     + + + +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Fecha
    + Regreso + +     + + + +     + + + + + + + + + + + + + +     +     +     +     +     +     + <%--Calendario Tab--%> + + +
    +
    +
    +
    +
    +

     

    +
    +
    +
    +
    +
    +
    +
    +
    +
    +     +     +     +
    +
    +     + <%-- Modal --%> + + +
    + + + + + + + +
    +     + + + + + - - - + + + +     diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 589ba314d..94c9eb166 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -5,9 +5,11 @@ Imports ADSNetLibrary.SIGAPI.Helpers Imports Extensiones.ModExtensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms +Imports Newtonsoft.Json.Linq + Partial Class RepContratosCalendario - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "PROPIEDADES" Public Property DtAvance() As DataTable Get @@ -25,21 +27,18 @@ Partial Class RepContratosCalendario Set(value As String) ViewState("Contrato") = value End Set - End Property + End Property #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - - If Not IsPostBack Then txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString InicializaCombos() InicializaCalendar() CargaDatos() - End If + End If InicializaCalendar() - End Sub Private Sub CargaDatos() Dim ObjContratos As New ClsContratos @@ -49,16 +48,56 @@ Partial Class RepContratosCalendario If CveCliente = 0 Then CveCliente = -1 If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then - GvContratos.DataSource = ObjContratos.DtResultados + DtAvance = ObjContratos.DtResultados.Copy() End If - DtAvance = ObjContratos.DtResultados + GvContratos.DataSource = DtAvance ObjContratos.Dispose() GvContratos.DataBind() - UpTitulos.Update() + UpTitulos.Update() + + CargaCronograma() + End Sub + + Private Sub CargaCronograma() + If DtAvance IsNot Nothing Then + + For Each Row As DataRow In DtAvance.Rows + If String.IsNullOrEmpty(Row("NombreAF").ToString()) Then + Row("NombreAF") = "Unidad no asignada" + End If + Next + + Dim jsonData As New JArray() + Dim jsonCategorias As New JArray() + + Dim random = New Random() + + 'DATOS + For Each Row As DataRow In DtAvance.FiltraParametros("NombreAF <> ''").Rows + Dim obj As New JObject( + New JProperty("category", Row("NombreAF")), + New JProperty("fromDate", Row("FechaInicial").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()), + New JProperty("toDate", Row("FechaFinal").ToString().ToDateTime().ToString("dd/MM/yyyy HH:mm").ToDateTime()), + New JProperty("columnSettings", New JObject( + New JProperty("fill", String.Format("#{0:X6}", random.Next(16777216))) + )) + ) + jsonData.Add(obj) + Next + + 'CATEGORIAS + For Each Row As DataRow In DtAvance.FiltraParametros("NombreAF <> ''", "", {"NombreAF"}).Rows + Dim obj As New JObject( + New JProperty("category", Row("NombreAF")) + ) + jsonCategorias.Add(obj) + Next + + RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()});", "A1") + End If End Sub Private Sub InicializaCalendar() - RegistraScript("InitCalendar();") DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True End Sub @@ -158,10 +197,6 @@ Partial Class RepContratosCalendario UpModal.Update() RegistraScript("$('#ModalActualizar').modal('show');") End Sub - - Protected Sub Consultar(sender As Object, e As EventArgs) - - End Sub Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) End Sub @@ -190,5 +225,5 @@ Partial Class RepContratosCalendario Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) CargaDatos() - End Sub + End Sub End Class From 22742cc0556958523b8543c2d4202c613d5ee2b6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 11 Apr 2024 20:05:45 -0700 Subject: [PATCH 17/17] --fix de visualizacion --- Transportes/RepContratosCalendario.aspx | 2 +- Transportes/RepContratosCalendario.aspx.vb | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 6d83d15e6..9e4fee3d3 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -160,7 +160,7 @@
    - + diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 94c9eb166..3e9bce566 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -226,4 +226,8 @@ Partial Class RepContratosCalendario Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) CargaDatos() End Sub + Protected Sub RBTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs) + InicializaCalendar() + CargaCronograma() + End Sub End Class