diff --git a/AC/Reportes/RepEstadoActividades.rdlc b/AC/Reportes/RepEstadoActividades.rdlc index 8ed123c34..73f518b5d 100644 --- a/AC/Reportes/RepEstadoActividades.rdlc +++ b/AC/Reportes/RepEstadoActividades.rdlc @@ -902,14 +902,14 @@ - Estado de Actividades del + Estado de Actividades - =Parameters!pFechaFin.Value + =Parameters!periodo.Value + + + Catálogo de Metas + + + + + + +
  • + +
  • + +
    +
    +
    + + + + + +
    +
    +
    + + +
    +
    +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + +
    + + + + + + + +   + + + + + +   + + + + +   + + + + + +   + + + + +   + + + + + + + + + + + + + + + + + + +
    + + +
    +
    + + +
    +
    + +
    + + + + diff --git a/CRM/CatMetas.aspx.vb b/CRM/CatMetas.aspx.vb new file mode 100644 index 000000000..6696eacc3 --- /dev/null +++ b/CRM/CatMetas.aspx.vb @@ -0,0 +1,169 @@ +Imports System.Data +Imports Extensiones + + +Partial Class CRM_CatMetas + Inherits ClsPaginas + + Private Property CveMeta As Integer + Get + If Not ViewState("CveMeta") Is Nothing Then + Return ViewState("CveMeta").ToString.ToEntero + Else + Return -1 + End If + + End Get + Set(value As Integer) + ViewState("CveMeta") = value + End Set + + End Property + + Private Property Actualizar As Boolean + Get + If Not ViewState("Actualizar") Is Nothing Then + Return DirectCast(ViewState("Actualizar"), Boolean) + Else + Return False + End If + End Get + Set(value As Boolean) + ViewState("Actualizar") = value + End Set + End Property + + Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + + If Not Page.IsPostBack Then + txtFechaIF.Text = Now.ToShortDateString + txtFechaFF.Text = Now.Day.ToString + "/" + (Now.Month + 1).ToString + "/" + Now.Year.ToString + CargadatosGvMeta() + End If + + End Sub + + Private Sub CargadatosGvMeta() + + Dim ObjCRM As New ClsCRM + + If ObjCRM.GetMetas(txtFechaIF.Text.ToDateTime, txtFechaFF.Text.ToDateTime, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvMeta.DataSource = ObjCRM.DtResultados + Else + GvMeta.DataSource = Nothing + End If + + ObjCRM.Dispose() + + UPGvMeta.DataBind() + UpGral.Update() + + End Sub + + Protected Sub BtnAgregarMeta_Click(sender As Object, e As EventArgs) Handles BtnAgregarMeta.Click + LtlTituloModalMeta.Text = "Agregar Meta" + BtnAgregarMetaModal.Text = "Agregar" + + CargaVendedores() + txtFechaI.Text = Now.ToShortDateString + txtFechaF.Text = (Now.Day + 1).ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString + + Actualizar = False + UpGral.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarMeta")) + + End Sub + + Private Sub CargaVendedores() + DdlVendedor.Items.Clear() + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1) + DdlVendedor.DataBind() + DdlVendedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + End Sub + + Protected Sub BtnAgregarMetaModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaModal.Click + + Dim ObjCRM As New ClsCRM + + If Not Actualizar Then + If ObjCRM.AddMetas(DdlVendedor.SelectedValue.ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, TxtNumMeta.Text.ToEntero, TxtImporte.Text.ToDecimal, UsuarioActual.CveEmpresa) Then + + CargadatosGvMeta() + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarMeta"), "jsHideModalMeta") + Alert("Meta Agregada Correctamente", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al guardar la Meta", TipoMensaje.MsgError) + End If + Else + If ObjCRM.UpdateMetas(CveMeta, DdlVendedor.SelectedValue.ToEntero, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, TxtNumMeta.Text.ToEntero, TxtImporte.Text.ToDecimal, UsuarioActual.CveEmpresa) Then + + CargadatosGvMeta() + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarMeta"), "jsHideModalMeta") + Alert("Meta Actualizada Correctamente", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al Actualizar la Meta", TipoMensaje.MsgError) + End If + End If + + CveMeta = -1 + Actualizar = False + + ObjCRM.Dispose() + + End Sub + + Public Sub Remove_ClickMeta(sender As Object, e As EventArgs) + + Dim ObjCRM As New ClsCRM + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + CveMeta = GvRow.DataKey("CveMeta") + + If ObjCRM.RemoveMetas(CveMeta, UsuarioActual.CveEmpresa) Then + CargadatosGvMeta() + + Alert("Meta eliminada Correctamente ", TipoMensaje.MsgInformacion) + Else + Alert("Ocurrió un error al Eliminar la Meta", TipoMensaje.MsgError) + End If + + ObjCRM.Dispose() + + CargadatosGvMeta() + + CveMeta = -1 + + End Sub + + Public Sub Edit_ClickMeta(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + LtlTituloModalMeta.Text = "Editar Meta" + BtnAgregarMetaModal.Text = "Actualizar" + Actualizar = True + + CveMeta = GvRow.DataKey("CveMeta") + + + DdlVendedor.Items.Clear() + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, 1) + DdlVendedor.DataBind() + DdlVendedor.SelectedValueExist(GvRow.DataKey("CveVendedor").ToEntero) + + txtFechaI.Text = GvRow.DataKey("FechaI") + txtFechaF.Text = GvRow.DataKey("FechaF") + + TxtNumMeta.Text = GvRow.DataKey("NumMeta").ToEntero + + TxtImporte.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00") + + UpModalMeta.Update() + + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarMeta")) + + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargadatosGvMeta() + End Sub +End Class diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 47b2f010e..bb6ac059f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1226,7 +1226,6 @@ Partial Class Compras_Compras ObjPersonal.Dispose() DdlPersonal.DataBind() DdlPersonalReembolso.DataBind() - ObjPersonal.Dispose() 'Carga Proveedor @@ -1410,6 +1409,7 @@ Partial Class Compras_Compras ChkAplicaNotaCredito.Enabled = False RBLPago.Enabled = False BtnGuardar.Enabled = False + BtnGuardar.ToolTip = "Obliga a seleccionar una Orden de compra para su registro." End If @@ -4213,7 +4213,7 @@ Partial Class Compras_Compras 'End If 'METODO DE PREPOLIZA DE ALMACEN - If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then + If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal If ImporteAlmacen > 0 Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then @@ -15936,15 +15936,15 @@ Partial Class Compras_Compras End If For Each Dr As DataRow In TmpDT.Rows - Dr("PU") = Dr("PU").ToString.ToDouble * TipoCambioTemp - Dr("IVA") = Dr("IVA").ToString.ToDouble * TipoCambioTemp - Dr("RetIVA") = Dr("RetIVA").ToString.ToDouble * TipoCambioTemp - Dr("RetISR") = Dr("RetISR").ToString.ToDouble * TipoCambioTemp - Dr("IEPSPS") = Dr("IEPSPS").ToString.ToDouble * TipoCambioTemp - Dr("Descuento") = Dr("Descuento").ToString.ToDouble * TipoCambioTemp - Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDouble * TipoCambioTemp + Dr("PU") = Dr("PU").ToString.ToDecimal * TipoCambioTemp + Dr("IVA") = Dr("IVA").ToString.ToDecimal * TipoCambioTemp + Dr("RetIVA") = Dr("RetIVA").ToString.ToDecimal * TipoCambioTemp + Dr("RetISR") = Dr("RetISR").ToString.ToDecimal * TipoCambioTemp + Dr("IEPSPS") = Dr("IEPSPS").ToString.ToDecimal * TipoCambioTemp + Dr("Descuento") = Dr("Descuento").ToString.ToDecimal * TipoCambioTemp + Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDecimal * TipoCambioTemp - Dim Total = (Dr("Cantidad").ToString.ToDouble * Dr("PU").ToString.ToDouble) - Dr("Descuento").ToString.ToDouble + Dr("OtrosGastos").ToString.ToDouble + Dim Total = (Dr("Cantidad").ToString.ToDecimal * Dr("PU").ToString.ToDecimal) - Dr("Descuento").ToString.ToDecimal + Dr("OtrosGastos").ToString.ToDecimal Dr("Total") = Total Next @@ -15953,22 +15953,23 @@ Partial Class Compras_Compras UpPS.Update() - TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") - TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") - TxtIVA.Text = (TxtIVA.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") + TxtSubTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).FormatoNumero + TxtSubTotal2.Text = TmpDT.SUMD("Total").FormatoNumero() + TxtIVA.Text = TmpDT.SUMD("IVA").FormatoNumero() 'IPP CAMBIADO - 5 DICIEMBRE 2016 'TxtTotal.Text = (TxtSubTotal2.Text.ToDouble + TxtIVA.Text.ToDouble).ToString.FormatoNumero.Replace(","c, "") - TxtTotal.Text = (TxtTotal.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") + TxtTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("IVA") + TmpDT.SUMD("IEPSPS") - TmpDT.SUMD("RetIVA") - TmpDT.SUMD("RetISR")).FormatoNumero + SubTotalOriginal = TxtSubTotal.Text.ToDouble SubTotal2Original = TxtSubTotal2.Text.ToDouble - If TrDescuento.Visible Then TxtDescuento.Text = (TxtDescuento.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") - If TrRetIVA.Visible Then TxtRetIVA.Text = (TxtRetIVA.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") - If TrRetISR.Visible Then TxtRetISR.Text = (TxtRetISR.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") - If TrIEPS.Visible Then TxtIEPS.Text = (TxtIEPS.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") - If TrOtrosImpuestos.Visible Then TxtOtrosImpuestos.Text = (TxtOtrosImpuestos.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") + If TrDescuento.Visible Then TxtDescuento.Text = (TmpDT.SUMD("Descuento")).ToString.FormatoNumero + If TrRetIVA.Visible Then TxtRetIVA.Text = (TmpDT.SUMD("RetIVA")).ToString.FormatoNumero + If TrRetISR.Visible Then TxtRetISR.Text = (TmpDT.SUMD("RetISR")).ToString.FormatoNumero + If TrIEPS.Visible Then TxtIEPS.Text = (TmpDT.SUMD("IEPSPS")).ToString.FormatoNumero + If TrOtrosImpuestos.Visible Then TxtOtrosImpuestos.Text = (TmpDT.SUMD("OtrosGastos")).ToString.FormatoNumero If TrRedondeo.Visible Then TxtRedondeo.Text = (TxtRedondeo.Text.ToDouble * TipoCambioTemp).ToString.FormatoNumero.Replace(","c, "") diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2f77eac63..05a1015ba 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -654,8 +654,6 @@ Partial Class PopUpVerFactura Dim LugarFecha As String = "" Dim Origen As String = "" Dim Destino As String = "" - Dim Domicilio As String = "" - Dim DomicilioDestino As String = "" Dim Observaciones As String = "" Dim Chofer As String = "" Dim CveChofer As String @@ -663,6 +661,17 @@ Partial Class PopUpVerFactura Dim Recibio As String = "" Dim FechaEntrega As String = "" Dim EspecifUnidad As String = "" + Dim ResponsableCarga As String = "" + Dim ResponsableRecibio As String = "" + Dim Identificacion As String = "" + Dim Domicilio As String = "" + Dim Telefono As String = "" + Dim Ciudad As String = "" + Dim Licencia As String = "" + + Dim SBDireccionO As New StringBuilder() + Dim SBDireccionD As New StringBuilder() + If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then If ObjInv.DtResultados.Rows.Count > 0 Then Dim Dr As DataRow = ObjInv.DtResultados.Rows(0) @@ -672,8 +681,6 @@ Partial Class PopUpVerFactura LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}" Origen = Dr("AlmacenOrigen").ToString Destino = Dr("AlmacenDestino").ToString - Domicilio = DomicilioSucursal - DomicilioDestino = $"{Dr("CalleDestino").ToString} #{Dr("NoExtDestino").ToString}, {Dr("ColoniaDestino").ToString} " Observaciones = Dr("Observaciones").ToString CveChofer = Dr("CveChofer").ToString If ObjAcar.GetChofer(CveChofer.ToEntero, UsuarioActual.CveEmpresa, -1, -1) Then @@ -683,6 +690,35 @@ Partial Class PopUpVerFactura Recibio = Dr("Recibio").ToString FechaEntrega = Dr("FechaEntrega").ToString EspecifUnidad = Dr("EspecificacionUnidad").ToString + + If Dr("CalleOrigen").ToString.Length > 0 Then + SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString) + If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString) + If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString) + If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString) + If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString) + If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString) + If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString) + If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString) + End If + If Dr("CalleDestino").ToString.Length > 0 Then + SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString) + If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString) + If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString) + If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString) + If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString) + If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString) + If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString) + If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString) + End If + + ResponsableCarga = Dr("ResponsableCarga").ToString + ResponsableRecibio = Dr("ResponsableRecibio").ToString + Identificacion = Dr("Identificacion").ToString + Domicilio = Dr("Domicilio").ToString + Telefono = Dr("Telefono").ToString + Ciudad = Dr("Ciudad").ToString + Licencia = Dr("Licencia").ToString End If End If End If @@ -712,8 +748,6 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("LugarFecha", LugarFecha)) params.Add(New ReportParameter("Origen", Origen)) params.Add(New ReportParameter("Destino", Destino)) - params.Add(New ReportParameter("Domicilio", Domicilio)) - params.Add(New ReportParameter("DomicilioDestino", DomicilioDestino)) params.Add(New ReportParameter("Remitente", "")) params.Add(New ReportParameter("Destinatario", "")) params.Add(New ReportParameter("Observaciones", Observaciones)) @@ -722,6 +756,15 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Recibio", Recibio)) params.Add(New ReportParameter("FechaEntrega", FechaEntrega)) params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad)) + params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString)) + params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString)) + params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga)) + params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio)) + params.Add(New ReportParameter("Identificacion", Identificacion)) + params.Add(New ReportParameter("Domicilio", Domicilio)) + params.Add(New ReportParameter("Telefono", Telefono)) + params.Add(New ReportParameter("Ciudad", Ciudad)) + params.Add(New ReportParameter("Licencia", Licencia)) ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString)) End If End If @@ -1100,6 +1143,8 @@ Partial Class PopUpVerFactura Dim Recibio As String = ObjInventarios.Recibio Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego + Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga + Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio If Recibio.Trim = "" Then Dim ObjRH As New ClsRH @@ -1161,7 +1206,7 @@ Partial Class PopUpVerFactura Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC, FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC, Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen, - EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino, MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, PuestoEnrego, RazonSocial) + EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino, MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio) End Sub Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera @@ -1177,7 +1222,7 @@ Partial Class PopUpVerFactura FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String, Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String, EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String, - EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String) + EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String) Select Case CveConcepto Case 1 'INICIAL Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta)) @@ -1927,6 +1972,8 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga)) + params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio)) DtMovimientos = DtMovimientos.FiltraParametros("", "PS") End If diff --git a/Contabilidad/PolizasImpresion.aspx b/Contabilidad/PolizasImpresion.aspx index e2a9da75d..3c7ec186b 100644 --- a/Contabilidad/PolizasImpresion.aspx +++ b/Contabilidad/PolizasImpresion.aspx @@ -94,6 +94,16 @@ + + +
    + + + + + +
    + diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb index 03f594d38..7450186f7 100644 --- a/Contabilidad/PolizasImpresion.aspx.vb +++ b/Contabilidad/PolizasImpresion.aspx.vb @@ -40,7 +40,7 @@ Partial Class Contabilidad_PolizasImpresion Dim objcont As New ClsContPAQi(UsuarioActual.Empresa) - If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, DdlGrupoPlantilla.SelectedValue.ToEntero) Then + If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, DdlGrupoPlantilla.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If objcont.DtResultados.Rows.Count < 10000 Then If objcont.DtResultados.Rows.Count > 0 Then diff --git a/Contabilidad/Reportes/RepAnexoCatalogo.rdlc b/Contabilidad/Reportes/RepAnexoCatalogo.rdlc index 21a9d3dad..f94a74db7 100644 --- a/Contabilidad/Reportes/RepAnexoCatalogo.rdlc +++ b/Contabilidad/Reportes/RepAnexoCatalogo.rdlc @@ -916,7 +916,21 @@ - Anexo del catalogo al + Anexo del catálogo del + + + + =Parameters!pFechaInicio.Value + + + + al @@ -1491,6 +1491,12 @@ Integer ReportParameter1 + + String + true + true + ReportParameter1 + Dim myVal As boolean Public Function SetMyVal(ByVal temp As String) As boolean diff --git a/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc b/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc index b6aa7a67a..840e67f08 100644 --- a/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc +++ b/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc @@ -2223,14 +2223,14 @@ - Estado de Situación Financiera al + Estado de Situación Financiera - =Parameters!pFechaFin.Value + =Parameters!periodo.Value - - - - - - Textbox1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox3 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox5 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - ="Folio: " & Fields!Folio.Value - - - - - - - Textbox7 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - Concepto: - - - - =Fields!ConceptoPoliza.Value - - - - - - - Textbox103 - - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - Fecha: - - - - =Fields!Fecha.Value - - - - - - - Textbox107 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - 0.6cm - - - - - true - true - - - - - Referencia - - - - - - - Textbox15 - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cuenta - - - - - - - Textbox16 - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Concepto - - - - - - - Textbox28 - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sucursal - - - - - - - Textbox46 - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cargos - - - - - - - Textbox52 - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonos - - - - - - - Textbox66 - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.37063cm - - - - - true - - - - - =Fields!Referencia.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!CuentaFormato.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Fields!Cuenta.Value - - - - - - - Cuenta1 - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Fields!SegNeg.Value - - - - - - - SegNeg - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - = Fields!Cargo.Value - - - - - - - - =iif(Fields!TipoMovto.Value ="0",False,True) - - - - 1pt - 1pt - 1pt - 1pt - es-MX - - - - - - - - true - - - - - = Fields!Abono.Value - - - - - - - Abono - - =iif(Fields!TipoMovto.Value ="1",False,True) - - - - 1pt - 1pt - 1pt - 1pt - es-MX - - - - - - - - 0.41479cm - - - - - true - true - - - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Fields!Concepto.Value - - - - - - - Concepto - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - - Textbox113 - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - - Textbox114 - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - - Textbox115 - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - 0.6cm - - - - - true - true - - - - - =Code.IsNewPage(Fields!IdPoliza.Value,nothing,nothing) - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - Totales: - - - - - - - Textbox11 - - - - Black - - 1pt - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Sum(Fields!Cargo.Value) - - - - - - - Textbox12 - - - - - - 1pt - 1pt - 1pt - 1pt - en-US - - - - - - - - true - true - - - - - =Sum(Fields!Abono.Value) - - - - - - - Abono - - - - - - 1pt - 1pt - 1pt - 1pt - en-US - - - - - - - - - - - - - - - - - - - - - - - - =Fields!IdPoliza.Value - - - End - - - - - =Fields!Folio.Value - - - - - After - - - After - - - After - - - - - - - - - - Before - - - - - - DataSet1 - - End - - 0.05076cm - 3.18542cm - 19.85062cm - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 3.23618cm - - - - - - - - - Impreso de póliza del - - - - =Parameters!Finicio.Value - - - - al - - - - =Parameters!FFin.Value - - - - - - - - - =UCase(Parameters!TipoPoliza.Value) - - - - - - - Textbox4 - 2.10635in - 1.6616cm - 9.94376cm - - - 2pt - 2pt - - - - Embedded - jam3 - FitProportional - 2.14642cm - 4.13cm - 1 - - - - - - true - true - - - - - ="Página: " & Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber) - - - - - - - Textbox35 - 17.03312cm - 0.52564cm - 2.8175cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 2.16426cm - true - - - true - true - - - - - Usuario: - - - - - - - - - - - - - =Parameters!UsuarioRegistro.Value - - - - - - - Textbox31 - 1.09978cm - 0.9cm - 6cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Revisado Por: - - - - - - - - - - - Textbox31 - 1.09978cm - 7.295cm - 0.9cm - 6cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Autorizado Por: - - - - - - - - - - - Textbox31 - 1.09978cm - 14.14166cm - 0.9cm - 5.70896cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 0.03cm - +
    +
    + +
    + + Textbox1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="Folio: " & Fields!Folio.Value + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Concepto: + + + + =Fields!ConceptoPoliza.Value + + + + + + + Textbox103 + + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Fecha: + + + + =Fields!Fecha.Value + + + + + + + Textbox107 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Referencia + + + + + + + Textbox15 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cuenta + + + + + + + Textbox16 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox28 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox46 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox52 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox66 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.37063cm + + + + + true + + + + + =Fields!Referencia.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!CuentaFormato.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!Cuenta.Value + + + + + + + Cuenta1 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!SegNeg.Value + + + + + + + SegNeg + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + = Fields!Cargo.Value + + + + + + + + =iif(Fields!TipoMovto.Value ="0",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + true + + + + + = Fields!Abono.Value + + + + + + + Abono + + =iif(Fields!TipoMovto.Value ="1",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + Concepto + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox113 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Code.IsNewPage(Fields!IdPoliza.Value,nothing,nothing) + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + Totales: + + + + + + + Textbox11 + + + + Black + + 1pt + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Textbox12 + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + true + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Abono + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + + + + + + + + + + + + + + + + + =Fields!IdPoliza.Value + + + End + + + + =Fields!UsuarioRegistro.Value + + + + + + =Fields!Folio.Value + + + + + After + + + After + + + After + + + + + + + + + + Before + + + + + + DataSet1 + + End + + 0.05076cm + 3.18542cm + 19.85062cm + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 3.96847cm + + + + + + + + + Impreso de póliza del + + + + =Parameters!Finicio.Value + + + + al + + + + =Parameters!FFin.Value + + + + + + + + + =UCase(Parameters!TipoPoliza.Value) + + + + + + + Textbox4 + 2.10635in + 1.6616cm + 9.94376cm + + + 2pt + 2pt + + + + Embedded + jam3 + FitProportional + 2.14642cm + 4.13cm + 1 + + + + + + true + true + + + + + ="Página: " & Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber) + + + + + + + Textbox35 + 17.03312cm + 0.52564cm + 2.8175cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.99978cm + true + true + + + true + true + + + + + Usuario: + + + + + + + + + + + + + =ReportItems!TxtUsuarioRegistro.Value + + + + + + + Textbox31 + 1.09978cm + 0.9cm + 6cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Revisado Por: + + + + + + + + + + + Textbox31 + 1.09978cm + 7.295cm + 0.9cm + 6cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Autorizado Por: + + + + + + + + + + + Textbox31 + 1.09978cm + 14.14166cm + 0.9cm + 5.70896cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.03cm + + + + + + + Textbox12 + + + + Black + + 1pt + + + Black + + 1pt + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + @@ -434,6 +483,39 @@ + + + + true + true + + + + + =Fields!Observaciones.Value + + + + + + + Observaciones + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -445,6 +527,7 @@ + @@ -461,7 +544,7 @@ 0.14111cm 0.10068cm 0.84327cm - 20.32469cm + 20.22724cm @@ -1050,8 +1133,10 @@ Hermosillo, Sonora, Mexico - =Parameters!NombreEntrego.Value - - + true true - Almacen Origen: + Almacén Origen: + + =Parameters!AlmOrigen.Value + + - + - + true true - Almacen Destino: + Almacén Destino: + + =Parameters!AlmDestino.Value + + - + @@ -1137,29 +1146,27 @@ 2pt - + true true - =Parameters!AlmOrigen.Value + =Parameters!DireccionOrigen.Value - + - + true true - =Parameters!AlmDestino.Value + =Parameters!DireccionDestino.Value - + + + + + + + Textbox1 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UNIDAD + + + + + + + Textbox15 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox9 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + OBSERVACIONES + + + + + + + Textbox17 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P.U. + + + + + + + Textbox13 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox5 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.25in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.87898in + 0.13746in + 0.5in + 7.1093in + + + + + + true + true + + + + + Atención a: + + + + =Parameters!ClienteContacto.Value + + + + + + + + + Empresa: + + + + =Parameters!ClienteNombre.Value + + + + + + + + + Teléfono: + + + + =Parameters!ClienteTelefono.Value + + + + + + + Textbox4 + 4.00467cm + 3.76084in + 1.50487cm + 8.84471cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha: + + + + =Parameters!FechaSolicitud.Value + + + + + + + + + No.Cotización: + + + + + + + + =Parameters!Folio.Value + + + + + + + + + + + Textbox4 + 2.15054cm + 12.26628cm + 1.16092cm + 6.14066cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + CLIENTE + + + + + + + Textbox2 + 3.48785cm + 9.55241cm + 0.51682cm + 8.84471cm + 3 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + COTIZACIÓN + + + + + + + Textbox12 + 1.63372cm + 12.26624cm + 0.51682cm + 6.14066cm + 4 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Soluciones en Telemediciones JAR SA de CV + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + LOGO + FitProportional + 0.41889in + 2.11597in + 4.12706in + 6 + + + + + + Embedded + VISTAPREVIA22 + FitProportional + 6.37722in + 7.53738in + 7 + + =IIf(Parameters!CveVenta.Value > 0, True,False) + + + + + + + + + true + true + + + + + I.V.A. + + + + + + + Textbox20 + 1.60474cm + 13.3038cm + 0.45183cm + 2.5cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + TOTAL: + + + + + + + Textbox20 + 2.05658cm + 13.3038cm + 0.45183cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SUB-TOTAL 2: + + + + + + + Textbox20 + 1.15291cm + 13.3038cm + 0.45183cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 1.60474cm + 15.8038cm + 0.45183cm + 2.5cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 2.05658cm + 15.8038cm + 0.45183cm + 2.5cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal2.Value + + + + + + + Textbox20 + 1.15291cm + 15.8038cm + 0.45183cm + 2.5cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCUENTOS + + + + : + + + + + + + Textbox20 + 0.70108cm + 13.3038cm + 0.45183cm + 2.5cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 0.70108cm + 15.8038cm + 0.45183cm + 2.5cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Son: + + + + =Parameters!ImporteLetra.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.06944in + 0.09691in + 0in + 7.10935in + 9 + + 2pt + + + + + true + true + + + + + SUB-TOTAL: + + + + + + + Textbox20 + 0.24695cm + 13.3038cm + 0.45183cm + 2.5cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 0.24695cm + 15.8039cm + 0.45183cm + 2.5cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + 2.77813cm + 5.23772in + 0cm + 5.00022cm + 12 + + 2pt + + + + + true + 8.72373cm + 0.09346cm + 2.95451cm + 19.05149cm + 8 + + + + + + 6.44697in + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + I + + + + mpresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox23 + 2.0474in + 3.76454in + 0.25in + 1.67093in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox24 + 2.0474in + 6.37365in + 0.25in + 1in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOMBRE Y FIRMA DE AUTORIZACIÓN + + + + + + + Textbox2 + 2.4996cm + 0.34902cm + 0.51682cm + 8.84471cm + 5 + + + #a21b1f + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + Textbox4 + 3.01642cm + 0.13746in + 2.00758cm + 8.84471cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Precios unitarios, no incluyen IVA + + + + + + + + + No devolución, no cancelación una vez hecho el pedido + + + + + + + + + Todo pedido requiere Orden de Compra o mail de confirmación + + + + + + + + + Precios sujetos a cambio sin previo aviso + + + + + + + + + Cotización sujeta a disponibilidad + + + + + + + + + Vigencia de cotización: + + + + =Parameters!Vigencia.Value + + + + + + + + + Condiciones de pago: + + + + =Parameters!CondicionPago.Value + + + + + + + Textbox20 + 0cm + 10.20038cm + 3.01642cm + 8.19687cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!VendedorNombre.Value + + + + + + + +Celular: + + + + ="(" & Parameters!VendedorCelular.Value.ToString().Substring(0,3) & ") " & Parameters!VendedorCelular.Value.ToString().Substring(3) + + + + + + + =Parameters!VendedorMail.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 11.69in + 8.27in + 0.25in + 0.25in + 0.25in + 0.5in + + + + + + + Textbox3 + 0.92083in + 5.662in + 0.5cm + 2.24597in + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha y hora de emisión + + + + + + + + + + + + + + + + Textbox3 + 0.47805in + 5.662in + 0.5cm + 2.24597in + 1 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox3 + 0.23846in + 5.662in + 0.60856cm + 2.24597in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!TipoDocumento.Value + + + + + + + Textbox3 + 0.07652cm + 5.662in + 0.5cm + 2.24597in + 3 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + SOLUCIONES EN TELEMEDICIÓN JAR SA DE CV + + + + + + + + + R.F.C STJ180705IV4 + + + + + + + + + + + + + + + + Textbox4 + 0.03532cm + 1.48781in + 0.51102in + 4.09641in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 5.73446in + 0.02088in + 0.95455in + 1.49755in + 5 + + + + + + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox3 + 0.6749in + 5.662in + 0.25114in + 2.24597in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Tipo.Value & Parameters!Ref.Value + + + + + + + Textbox3 + 1.11755in + 5.662in + 0.25635in + 2.24597in + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + DOMICILIO FISCAL + + + + + + + + + PASEO FLORIDO No.Ext: 62, No.Int: A, Col: NUEVA GALICIA, CP: 83245, HERMOSILLO,SONORA, MEXICO + + + + + + + Textbox10 + 0.52493in + 1.48781in + 0.65513in + 2.06754in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + LUGAR DE EXPEDICIÓN + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + Textbox10 + 0.52493in + 3.64748in + 0.65513in + 1.93674in + 9 + + + Top + + + + true + true + + + + + Nombre + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ciudad + + + + + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteLugar.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal: + + + + + + + Textbox54 + 5.71231in + 1.62474in + 0.18056in + 4.03672in + 16 + + + + + + + White + + + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Serie del Certificado del SAT: + + + + + + + Textbox54 + 5.90676in + 1.62474in + 0.18056in + 4.03672in + 17 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de certificación: + + + + + + + Textbox54 + 6.10531in + 1.62474in + 0.19444in + 4.03672in + 18 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Certificado del Contribuyente: + + + + + + + Textbox54 + 6.31092in + 1.62474in + 0.19445in + 4.03672in + 19 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Régímen: Sociedad Anónima de Capital Variable; Condiciones de pago: + + + + =IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value) + + + + ; Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + ; Num. Cta Pago: + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Éste documento es una representación impresa de un CFDi + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + P A G A R E con Folio + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Soluciones en Telemedición JAR SA de CV, a su vencimiento el + + + + =Parameters!Vencimiento.Value + + + + , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ + + + + =Parameters!Total.Value + + + + SON: ( + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a Soluciones en Telemedición JAR SA de CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a + + + + =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre: + + + + =Parameters!ClienteNombre.Value + + + + + + + =Parameters!ClienteDireccion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Acepto de conformidad + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.29357cm + 0.09963cm + 0cm + 0.57653cm + 3 + + + + + + 0.29357cm + 0.73559cm + 0cm + 0.57653cm + 4 + + + + + + 0.29357cm + 1.35545cm + 0cm + 0.57653cm + 5 + + + + + + 0.29357cm + 1.80439cm + 0cm + 0.57653cm + 6 + + + + + + 0.29357cm + 2.37686cm + 0cm + 0.57653cm + 7 + + + + + + 0.29357cm + 3.01789cm + 0cm + 0.57653cm + 8 + + + + + + 0.29357cm + 3.65558cm + 0cm + 0.57653cm + 9 + + + + + + 0.29357cm + 4.29154cm + 0cm + 0.57653cm + 10 + + + + + + 0.29357cm + 4.92728cm + 0cm + 0.57653cm + 11 + + + + + + 0.29357cm + 5.25981cm + 0cm + 0.57653cm + 12 + + + + + + 0.29357cm + 5.89576cm + 0cm + 0.57653cm + 13 + + + + + + 0.29357cm + 6.50505cm + 0cm + 0.57653cm + 14 + + + + + + 0.29357cm + 7.18531cm + 0cm + 0.57653cm + 15 + + + + + + 0.29357cm + 7.82127cm + 0cm + 0.57653cm + 16 + + + + + + 0.29357cm + 8.48346cm + 0cm + 0.57653cm + 17 + + + + + + 0.29357cm + 8.81599cm + 0cm + 0.57653cm + 18 + + + + + + 0.29357cm + 9.45195cm + 0cm + 0.57653cm + 19 + + + + + + 0.29357cm + 10.11415cm + 0cm + 0.57653cm + 20 + + + + + + 0.29357cm + 14.08927cm + 0cm + 0.57653cm + 21 + + + + + + 0.29357cm + 14.72523cm + 0cm + 0.57653cm + 22 + + + + + + 0.29357cm + 15.33451cm + 0cm + 0.57653cm + 23 + + + + + + 0.29357cm + 15.64058cm + 0cm + 0.57653cm + 24 + + + + + + 0.29357cm + 16.27654cm + 0cm + 0.57653cm + 25 + + + + + + 0.29357cm + 16.91228cm + 0cm + 0.57653cm + 26 + + + + + + 0.29357cm + 10.76463cm + 0cm + 0.57653cm + 27 + + + + + + 0.29357cm + 11.42705cm + 0cm + 0.57653cm + 28 + + + + + + 0.29357cm + 12.06279cm + 0cm + 0.57653cm + 29 + + + + + + 0.29357cm + 12.36886cm + 0cm + 0.57653cm + 30 + + + + + + 0.29357cm + 12.89898cm + 0cm + 0.57653cm + 31 + + + + + + 0.29357cm + 13.53472cm + 0cm + 0.57653cm + 32 + + + + + + 0.29357cm + 18.40663cm + 0cm + 0.57653cm + 33 + + + + + + 0.29357cm + 19.04259cm + 0cm + 0.57653cm + 34 + + + + + + 0.29357cm + 17.74353cm + 0cm + 0.57653cm + 35 + + + + + + 3.29402cm + 15.33451cm + 0cm + 4.58211cm + 36 + + + + + + true + 17.96022cm + 0.08093cm + 4.04843cm + 20.06179cm + 26 + + = (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="") + + + + + + + + + + 2.12527cm + + + 2.02474cm + + + 10.17786cm + + + 2.52862cm + + + 3.15415cm + + + + + 0.52063cm + + + + + true + + + + + Cantidad + + + + + + + Textbox34 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Unidad + + + + + + + Textbox53 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox79 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + P. Unitario + + + + + + + Textbox84 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Importe + + + + + + + + + + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4148cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM1 + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value &Fields!Obs.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + Textbox88 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.08406cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DsOC + 4.59222cm + 0.11468cm + 1.01949cm + 20.01064cm + 27 + + + + + + true + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.81245in + + + 0.69098in + + + 0.69475in + + + + + 0.19645in + + + + + true + true + + + + + Impuesto + + + + + + + Textbox22 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa + + + + + + + Textbox15 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox29 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Impuesto.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!tasa.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 2.54983in + 5.73412in + 0.34081in + 2.19818in + 29 + + + + + + + + + 3.01975cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.56368cm + + + true + true + + + + + =Fields!ImpuestoLocal.Value + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 5.75282cm + 14.56464cm + 0.6cm + 5.58343cm + 30 + + + + + + + + + 3.33888cm + + + 11.00525cm + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + Textbox128 + + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Importe con letra: + + + + + + + Textbox126 + + + + + + + + + + + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + + + + Textbox127 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Forma de pago: + + + + + + + Textbox130 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + Textbox131 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Uso CFDI: + + + + + + + Textbox15 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.56188cm + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + Textbox132 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloCFDI.Value + + + + + + + Textbox133 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.2cm + + + + + true + true + + + + + Sello del SAT: + + + + + + + Textbox134 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + Textbox135 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + Textbox136 + + + + + + + + + + + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + + + + + + DsOC + 5.75282cm + 0.11468cm + 5.76188cm + 14.34413cm + 31 + + + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.03532cm + 0.13016cm + 2.85467cm + 3.50777cm + 33 + + + + + + true + true + + + + + Nombre Comercial + + + + : + + + + + + + + + Beneficiario: + + + + + + + + + + + + + Banco: + + + + + + + + + + + + + Clabe: + + + + + + + + + Cuenta: + + + + + + + + + + + Textbox1 + 12.54303cm + 0.08093cm + 2.03294cm + 9.97751cm + 34 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Soluciones en Telemedición JAR SA de CV + + + + + + + + + Soluciones en Telemedición JAR SA de CV + + + + + + + + + BBVA Bancomer + + + + + + + + + 01 2760 0011 2329 6468 + + + + + + + + + 01 1232 9646 + + + + + + + Textbox1 + 12.54302cm + 10.05844cm + 2.03294cm + 10.08428cm + 35 + + + 2pt + 2pt + 2pt + 2pt + + + + 22.00865cm + + + + + + + Textbox3 + 0.92083in + 5.662in + 0.5cm + 2.24597in + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha y hora de emisión + + + + + + + + + + + + + + + + Textbox3 + 0.47805in + 5.662in + 0.5cm + 2.24597in + 1 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox3 + 0.23846in + 5.662in + 0.60856cm + 2.24597in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Nota de Devolución + + + + + + + Textbox3 + 0.07652cm + 5.662in + 0.5cm + 2.24597in + 3 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + SOLUCIONES EN TELEMEDICIÓN JAR SA DE CV + + + + + + + + + R.F.C PPP885522PPP + + + + + + + + + + + + + + + + Textbox4 + 0.03532cm + 1.48781in + 0.51102in + 4.09641in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 4.99488in + 0.04026in + 0.95455in + 1.49755in + 5 + + + + + + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox3 + 0.6749in + 5.662in + 0.25114in + 2.24597in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Tipo.Value & Parameters!Ref.Value + + + + + + + Textbox3 + 1.11755in + 5.662in + 0.25635in + 2.24597in + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + Paseo Florido, 62-A, Col.: Nueva Galicia, C.P.: 83245, Hermosillo, Sonora, México. + + + + + + + Textbox10 + 0.52493in + 1.48781in + 0.65513in + 2.06754in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Lugar de Expedición + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + Textbox10 + 0.52493in + 3.64748in + 0.65513in + 1.93674in + 9 + + + Top + + + + true + true + + + + + Nombre + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ciudad + + + + + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteLugar.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal: + + + + + + + Textbox54 + 4.97273in + 1.64412in + 0.18056in + 4.03672in + 16 + + + + + + + White + + + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Serie del Certificado del SAT: + + + + + + + Textbox54 + 5.16718in + 1.64412in + 0.18056in + 4.03672in + 17 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de certificación: + + + + + + + Textbox54 + 5.36573in + 1.64412in + 0.19444in + 4.03672in + 18 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Certificado del Contribuyente: + + + + + + + Textbox54 + 5.57134in + 1.64412in + 0.19445in + 4.03672in + 19 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Sociedad Anonima de Capital Variable; Condiciones de pago: + + + + =IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value) + + + + ; Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + ; Num. Cta Pago: + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Éste documento es una representacion impresa de un CFDi + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + P A G A R E con Folio + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Soluciones en telemedición JAR SA DE CV, a su vencimiento el + + + + =Parameters!Vencimiento.Value + + + + , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ + + + + =Parameters!Total.Value + + + + SON: ( + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a Soluciones en telemedición JAR SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a + + + + =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre: + + + + =Parameters!ClienteNombre.Value + + + + + + + =Parameters!ClienteDireccion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Acepto de conformidad + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.29357cm + 0.09963cm + 0cm + 0.57653cm + 3 + + + + + + 0.29357cm + 0.73559cm + 0cm + 0.57653cm + 4 + + + + + + 0.29357cm + 1.35545cm + 0cm + 0.57653cm + 5 + + + + + + 0.29357cm + 1.80439cm + 0cm + 0.57653cm + 6 + + + + + + 0.29357cm + 2.37686cm + 0cm + 0.57653cm + 7 + + + + + + 0.29357cm + 3.01789cm + 0cm + 0.57653cm + 8 + + + + + + 0.29357cm + 3.65558cm + 0cm + 0.57653cm + 9 + + + + + + 0.29357cm + 4.29154cm + 0cm + 0.57653cm + 10 + + + + + + 0.29357cm + 4.92728cm + 0cm + 0.57653cm + 11 + + + + + + 0.29357cm + 5.25981cm + 0cm + 0.57653cm + 12 + + + + + + 0.29357cm + 5.89576cm + 0cm + 0.57653cm + 13 + + + + + + 0.29357cm + 6.50505cm + 0cm + 0.57653cm + 14 + + + + + + 0.29357cm + 7.18531cm + 0cm + 0.57653cm + 15 + + + + + + 0.29357cm + 7.82127cm + 0cm + 0.57653cm + 16 + + + + + + 0.29357cm + 8.48346cm + 0cm + 0.57653cm + 17 + + + + + + 0.29357cm + 8.81599cm + 0cm + 0.57653cm + 18 + + + + + + 0.29357cm + 9.45195cm + 0cm + 0.57653cm + 19 + + + + + + 0.29357cm + 10.11415cm + 0cm + 0.57653cm + 20 + + + + + + 0.29357cm + 14.08927cm + 0cm + 0.57653cm + 21 + + + + + + 0.29357cm + 14.72523cm + 0cm + 0.57653cm + 22 + + + + + + 0.29357cm + 15.33451cm + 0cm + 0.57653cm + 23 + + + + + + 0.29357cm + 15.64058cm + 0cm + 0.57653cm + 24 + + + + + + 0.29357cm + 16.27654cm + 0cm + 0.57653cm + 25 + + + + + + 0.29357cm + 16.91228cm + 0cm + 0.57653cm + 26 + + + + + + 0.29357cm + 10.76463cm + 0cm + 0.57653cm + 27 + + + + + + 0.29357cm + 11.42705cm + 0cm + 0.57653cm + 28 + + + + + + 0.29357cm + 12.06279cm + 0cm + 0.57653cm + 29 + + + + + + 0.29357cm + 12.36886cm + 0cm + 0.57653cm + 30 + + + + + + 0.29357cm + 12.89898cm + 0cm + 0.57653cm + 31 + + + + + + 0.29357cm + 13.53472cm + 0cm + 0.57653cm + 32 + + + + + + 0.29357cm + 18.40663cm + 0cm + 0.57653cm + 33 + + + + + + 0.29357cm + 19.04259cm + 0cm + 0.57653cm + 34 + + + + + + 0.29357cm + 17.74353cm + 0cm + 0.57653cm + 35 + + + + + + 3.29402cm + 15.33451cm + 0cm + 4.58211cm + 36 + + + + + + true + 16.08168cm + 0.13016cm + 4.04843cm + 20.06179cm + 26 + + = (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="") + + + + + + + + + + 2.12527cm + + + 2.02474cm + + + 10.17786cm + + + 2.52862cm + + + 3.15415cm + + + + + 0.52063cm + + + + + true + + + + + Cantidad + + + + + + + Textbox34 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Unidad + + + + + + + Textbox53 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox79 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + P. Unitario + + + + + + + Textbox84 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Importe + + + + + + + + + + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4148cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM1 + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value &Fields!Obs.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + Textbox88 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.08406cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DsOC + 4.59222cm + 0.11468cm + 1.01949cm + 20.01064cm + 27 + + + + + + true + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.81245in + + + 0.69098in + + + 0.69475in + + + + + 0.19645in + + + + + true + true + + + + + Impuesto + + + + + + + Textbox22 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa + + + + + + + Textbox15 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox29 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Impuesto.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!tasa.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 2.54983in + 5.73412in + 0.34081in + 2.19818in + 29 + + + + + + + + + 3.01975cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.56368cm + + + true + true + + + + + =Fields!ImpuestoLocal.Value + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 5.75282cm + 14.56464cm + 0.6cm + 5.58343cm + 30 + + + + + + + + + 3.33888cm + + + 11.00525cm + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + Textbox128 + + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Importe con letra: + + + + + + + Textbox126 + + + + + + + + + + + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + + + + Textbox127 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Forma de pago: + + + + + + + Textbox130 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + Textbox131 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Uso CFDI: + + + + + + + Textbox15 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.56188cm + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + Textbox132 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloCFDI.Value + + + + + + + Textbox133 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.2cm + + + + + true + true + + + + + Sello del SAT: + + + + + + + Textbox134 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + Textbox135 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + Textbox136 + + + + + + + + + + + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + + + + + + DsOC + 5.75282cm + 0.11468cm + 5.76188cm + 14.34413cm + 31 + + + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.03532cm + 0.13016cm + 2.85467cm + 3.50777cm + 33 + + + + + + 20.27828cm + + + + + + + Textbox3 + 2.47325cm + 0.36008cm + 0.6cm + 18.34201cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SOLUCIONES EN TELEMEDICIÓN JAR S.A. DE C.V. + + + + + + + + + + + NUEVA GALICIA + + + + + + + + + HERMOSILLO, SON C.P. 83245 + + + + + + + PPP885522PPP + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + PROVEEDOR: + + + + =Parameters!ProveedorNombre.Value + + + + + + + =Parameters!ProveedorDireccion.Value + + + + + + + =Parameters!ProveedorTel.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FECHA: + + + + =Parameters!FechaSolicitud.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0cm + 0.36008cm + 2.29686cm + 2.84571cm + 4 + + + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox2 + 0.34078cm + 18.16384cm + 0.6cm + 1.41521cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCRIPCION: + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Justificacion.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. + + + + + + + Textbox19 + 0.34078cm + 16.77509cm + 0.6cm + 1.38875cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.94901cm + + + 1.44708cm + + + 4.36049cm + + + 4.65415cm + + + 2.24377cm + + + 1.04433cm + + + 2.14926cm + + + 1.80506cm + + + + + 0.473cm + + + + + true + true + + + + + CANTIDAD + + + + + + + Textbox1 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PRODUCTO + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + D E S C R I P C I O N + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sub Proyecto + + + + + + + Textbox4 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + A.F. + + + + + + + Textbox22 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. UNITARIO + + + + + + + Textbox13 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!CodPS.Value + + + + + + + CodPS + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Producto.Value + + + + + + + Producto + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Obs.Value + + + + + + + Obs + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!CodigoAF.Value + + + + + + + CodigoAF + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + 1pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 7.36182cm + 0.02287in + 0.86133cm + 19.65315cm + 9 + + + + + + true + true + + + + + =IIF(CInt(Parameters!TipoTermino.Value)=2, "C A N C E L A D O", "") + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Uso CFDI 3.3: + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 3.27474in + + + + + + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + _______________ + + + + + + + Textbox17 + 1.2917cm + 0.02287in + 1.30584cm + 3.1477cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + = "__________________________________" & Chr(10) +& Parameters!NombreAutorizo.Value & Chr(10) +& "FIRMA AUTORIZADA" + + + + Textbox17 + 1.29169cm + 3.78436cm + 1.30584cm + 6.9577cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + = "OBSERVACIONES:"& Chr(10) &Parameters!Observacion.Value + + + + Textbox17 + 2.77393cm + 0.0581cm + 1.30584cm + 10.68396cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!FirmaAutorizo.Value + Fit + 0cm + 5.61055cm + 2.31533cm + 3.5cm + 5 + + =iif(Parameters!FirmaAutorizo.Value <> "",False,True) + + + + + + + true + true + + + + + I.V.A. + + + + + + + Textbox20 + 1.60891cm + 14.71259cm + 0.45183cm + 2.49512cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCUENTO: + + + + + + + Textbox20 + 0.66997cm + 14.70771cm + 0.45183cm + 2.5cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 1.60891cm + 17.20771cm + 0.45183cm + 2.5cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 0.66997cm + 17.20771cm + 0.45183cm + 2.5cm + 9 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SUB-TOTAL + + + + + + + Textbox20 + 0.21814cm + 14.70771cm + 0.45183cm + 2.5cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 0.21814cm + 17.20771cm + 0.45183cm + 2.5cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SUB-TOTAL 2 + + + + + + + Textbox20 + 1.1218cm + 14.70771cm + 0.45183cm + 2.5cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal2.Value + + + + + + + Textbox20 + 1.1218cm + 17.20771cm + 0.45183cm + 2.5cm + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + TOTAL + + + + + + + Textbox20 + 3.61269cm + 14.74964cm + 0.45183cm + 2.5cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 3.61269cm + 17.24964cm + 0.45183cm + 2.5cm + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + Ret IVA + + + + + + + Textbox20 + 0.47653cm + 0.45183cm + 2.53029cm + + =iif(Parameters!RetIVA.Value > 0, False, tRUE) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetIVA.Value + + + + + + + Textbox20 + 0.47653cm + 2.53029cm + 0.45183cm + 2.5cm + 1 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RetISR.Value + + + + + + + Textbox20 + 0.96364cm + 2.53029cm + 0.42713cm + 2.5cm + 2 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ret ISR + + + + + + + Textbox20 + 0.96364cm + 0.45183cm + 2.53029cm + 3 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IEPS + + + + + + + Textbox20 + 0.0247cm + 0.00353cm + 0.45183cm + 2.52676cm + 4 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IEPS.Value + + + + + + + Textbox20 + 0.0247cm + 2.53029cm + 0.45183cm + 2.5cm + 5 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0, False, True) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 2.1069cm + 14.70917cm + 1.41547cm + 5.03029cm + 16 + + =Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value > 0 Or Parameters!RetISR.Value > 0 Or Parameters!IEPS.Value > 0, False, True) + + + + + + + + + + + 27.94cm + 21.59cm + 1cm + 0cm + 1cm + 1cm + 0.13cm + + + + + + + Textbox24 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UM + + + + + + + Textbox27 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox26 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. Unitario + + + + + + + Textbox36 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox38 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Cantidad.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UnidadMedida.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!PU.Value + + + + + + + Textbox37 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Parameters!Importe.Value + + + + + + + Textbox39 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + + + + + + DataSet2 + 3.16535cm + 1.09cm + 20.53564cm + + + + + + + + + 5.35332cm + + + 1.8cm + + + 1.8cm + + + 1.99576cm + + + 1.8cm + + + 1.99576cm + + + 2.49576cm + + + 3.2908cm + + + + + 0.49cm + + + + + true + true + + + + + UUID + + + + + + + Textbox6 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Serie + + + + + + + Textbox3 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox9 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Método Pago + + + + + + + Textbox13 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox31 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Num. Parc. + + + + + + + Textbox8 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo Anterior + + + + + + + Textbox19 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Monto Pagado + + + + + + + Textbox25 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!IdDocumento.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Serie.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Folio.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MetodoDePagoDR.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MonedaDR.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NumParcialidad.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpSaldoAnt.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet2 + 5.19822cm + 1.09cm + 20.5314cm + 1 + + + + + + + + + 4.5cm + + + 1.74905cm + + + 1.5cm + + + 2.96606cm + + + 6.82934cm + + + 2.98695cm + + + + + 0.49cm + + + + + true + true + + + + + Fecha y hora de pago + + + + + + + Textbox45 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Moneda + + + + + + + Textbox21 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TC + + + + + + + Textbox5 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cta Ordenante + + + + + + + Textbox12 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Forma de Pago + + + + + + + Textbox48 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total de Pago + + + + + + + Textbox50 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!FechaPago.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!MonedaP.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!TipoCambioP.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!CtaOrdenante.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FormaDePagoP.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Monto.Value + + + + + + + Monto + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total de Pago con letra: + + + + =Parameters!CantidadLetra.Value + + + + + + + Textbox16 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet1 + 6.73607cm + 1.69cm + 20.5314cm + 2 + + + + + + true + true + + + + + CFDI RELACIONADOS + + + + + + + Textbox5 + 4.70822cm + 0.01844cm + 0.49cm + 20.5314cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 3.90631in + 1.3in + 1.5in + 4 + + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + + #4f81bd + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Certificado: + + + + + + + White + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + UUID: + + + + + + + White + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Sello.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NoCertificado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UUIDPago.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Regímen General de Ley Personas Morales + + + + + + + + + Éste documento es una representación impresa de un CFDi + + + + + + + Textbox171 + 15.43785cm + 3.97477cm + 0.89979cm + 16.50467cm + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Datos del Cliente: + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cliente: + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Cliente.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteDireccion.Value + + + + , + + + + =Parameters!ClienteColonia.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección: + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ciudad: + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteCiudad.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ClienteCP.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + CP: + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + RFC Ordenante: + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!RFCOrdenante.Value + + + + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello: + + + + + + + White + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sello digital del SAT: + + + + + + + White + + 1pt + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + 16.75918cm + + + + + 20.54984cm + + + 3.26147cm + true + true + + + true + + + + + RECIBO DE PAGO + + + + + + + Textbox3 + 5.84339in + 0.5cm + 2.24597in + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox3 + 0.20833in + 5.84339in + 0.60856cm + 2.24597in + 1 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha Timbre + + + + + + + + + + + + + + + + Textbox3 + 0.44792in + 5.84339in + 0.5cm + 2.24597in + 2 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!FechaTimbre.Value + + + + + + + Textbox3 + 0.64477in + 5.84339in + 0.25114in + 2.24597in + 3 + + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + + #2c2e42 + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 2.88998cm + 3.14425cm + 4 + + + + + + true + + + + + SOLUCIONES EN TELEMEDICIÓN JAR S.A DE C.V. + + + + + + + + + R.F.C. + + + + PPP885522PPP + + + + + + + Textbox4 + 1.77165in + 0.50583in + 4.00199in + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + Paseo Florido, #62-A, + + + + + + + + + Col.: Nueva Galicia Son, C.P. 83245 Hermosillo, + + + + + + + + + Sonora, México + + + + + + + Textbox10 + 0.50583in + 2.84624in + 0.75234in + 1.93508in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.84667cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.17639cm + 17.56289cm + 0.41981cm + 2.94979cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 1.27cm + + + + + + + Textbox3 + 0.92083in + 5.662in + 0.5cm + 2.24597in + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Fecha y hora de emisión + + + + + + + + + + + + + + + + Textbox3 + 0.47805in + 5.662in + 0.5cm + 2.24597in + 1 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value & "-" &Parameters!Folio.Value) + + + + + + + Textbox3 + 0.23846in + 5.662in + 0.60856cm + 2.24597in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!TipoDocumento.Value + + + + + + + Textbox3 + 0.07652cm + 5.662in + 0.5cm + 2.24597in + 3 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + SOLUCIONES EN TELEMEDICIÓN JAR SA DE CV + + + + + + + + + R.F.C PPP885522PPP + + + + + + + + + + + + + + + + Textbox4 + 0.03532cm + 1.48781in + 0.51102in + 4.09641in + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 4.99488in + 0.04026in + 0.95455in + 1.49755in + 5 + + + + + + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox3 + 0.6749in + 5.662in + 0.25114in + 2.24597in + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Tipo.Value & Parameters!Ref.Value + + + + + + + Textbox3 + 1.11755in + 5.662in + 0.25635in + 2.24597in + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Domicilio Fiscal + + + + + + + + + Paseo Florido, 62-A, Col.: Nueva Galicia, C.P.: 83245, Hermosillo, Sonora, México. + + + + + + + Textbox10 + 0.52493in + 1.48781in + 0.65513in + 2.06754in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Lugar de Expedición + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + Textbox10 + 0.52493in + 3.64748in + 0.65513in + 1.93674in + 9 + + + Top + + + + true + true + + + + + Nombre + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteNombre.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Dirección + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Ciudad + + + + + + + + 1.25pt + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ClienteLugar.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal: + + + + + + + Textbox54 + 4.97273in + 1.64412in + 0.18056in + 4.03672in + 16 + + + + + + + White + + + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. Serie del Certificado del SAT: + + + + + + + Textbox54 + 5.16718in + 1.64412in + 0.18056in + 4.03672in + 17 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de certificación: + + + + + + + Textbox54 + 5.36573in + 1.64412in + 0.19444in + 4.03672in + 18 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Certificado del Contribuyente: + + + + + + + Textbox54 + 5.57134in + 1.64412in + 0.19445in + 4.03672in + 19 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Regímen: Sociedad Anonima de Capital Variable; Condiciones de pago: + + + + =IIF(Parameters!CondicionPago.Value.ToString="","No Identificado",Parameters!CondicionPago.Value) + + + + ; Método de Pago: + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + ; Num. Cta Pago: + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Éste documento es una representacion impresa de un CFDi + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + P A G A R E con Folio + + + + =Parameters!Serie.Value + + + + - + + + + =Parameters!Folio.Value + + + + Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Soluciones en telemedición JAR SA DE CV, a su vencimiento el + + + + =Parameters!Vencimiento.Value + + + + , en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ + + + + =Parameters!Total.Value + + + + SON: ( + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a Soluciones en telemedición JAR SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a + + + + =CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy") + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre: + + + + =Parameters!ClienteNombre.Value + + + + + + + =Parameters!ClienteDireccion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Acepto de conformidad + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.29357cm + 0.09963cm + 0cm + 0.57653cm + 3 + + + + + + 0.29357cm + 0.73559cm + 0cm + 0.57653cm + 4 + + + + + + 0.29357cm + 1.35545cm + 0cm + 0.57653cm + 5 + + + + + + 0.29357cm + 1.80439cm + 0cm + 0.57653cm + 6 + + + + + + 0.29357cm + 2.37686cm + 0cm + 0.57653cm + 7 + + + + + + 0.29357cm + 3.01789cm + 0cm + 0.57653cm + 8 + + + + + + 0.29357cm + 3.65558cm + 0cm + 0.57653cm + 9 + + + + + + 0.29357cm + 4.29154cm + 0cm + 0.57653cm + 10 + + + + + + 0.29357cm + 4.92728cm + 0cm + 0.57653cm + 11 + + + + + + 0.29357cm + 5.25981cm + 0cm + 0.57653cm + 12 + + + + + + 0.29357cm + 5.89576cm + 0cm + 0.57653cm + 13 + + + + + + 0.29357cm + 6.50505cm + 0cm + 0.57653cm + 14 + + + + + + 0.29357cm + 7.18531cm + 0cm + 0.57653cm + 15 + + + + + + 0.29357cm + 7.82127cm + 0cm + 0.57653cm + 16 + + + + + + 0.29357cm + 8.48346cm + 0cm + 0.57653cm + 17 + + + + + + 0.29357cm + 8.81599cm + 0cm + 0.57653cm + 18 + + + + + + 0.29357cm + 9.45195cm + 0cm + 0.57653cm + 19 + + + + + + 0.29357cm + 10.11415cm + 0cm + 0.57653cm + 20 + + + + + + 0.29357cm + 14.08927cm + 0cm + 0.57653cm + 21 + + + + + + 0.29357cm + 14.72523cm + 0cm + 0.57653cm + 22 + + + + + + 0.29357cm + 15.33451cm + 0cm + 0.57653cm + 23 + + + + + + 0.29357cm + 15.64058cm + 0cm + 0.57653cm + 24 + + + + + + 0.29357cm + 16.27654cm + 0cm + 0.57653cm + 25 + + + + + + 0.29357cm + 16.91228cm + 0cm + 0.57653cm + 26 + + + + + + 0.29357cm + 10.76463cm + 0cm + 0.57653cm + 27 + + + + + + 0.29357cm + 11.42705cm + 0cm + 0.57653cm + 28 + + + + + + 0.29357cm + 12.06279cm + 0cm + 0.57653cm + 29 + + + + + + 0.29357cm + 12.36886cm + 0cm + 0.57653cm + 30 + + + + + + 0.29357cm + 12.89898cm + 0cm + 0.57653cm + 31 + + + + + + 0.29357cm + 13.53472cm + 0cm + 0.57653cm + 32 + + + + + + 0.29357cm + 18.40663cm + 0cm + 0.57653cm + 33 + + + + + + 0.29357cm + 19.04259cm + 0cm + 0.57653cm + 34 + + + + + + 0.29357cm + 17.74353cm + 0cm + 0.57653cm + 35 + + + + + + 3.29402cm + 15.33451cm + 0cm + 4.58211cm + 36 + + + + + + true + 16.08168cm + 0.13016cm + 4.04843cm + 20.06179cm + 26 + + = (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="") + + + + + + + + + + 2.12527cm + + + 2.02474cm + + + 10.17786cm + + + 2.52862cm + + + 3.15415cm + + + + + 0.52063cm + + + + + true + + + + + Cantidad + + + + + + + Textbox34 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Unidad + + + + + + + Textbox53 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox79 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + P. Unitario + + + + + + + Textbox84 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Importe + + + + + + + + + + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4148cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM1 + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value &Fields!Obs.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Cantidad.Value*Fields!PU.Value + + + + + + + Textbox88 + + + + + + + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + 0.08406cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DsOC + 4.59222cm + 0.11468cm + 1.01949cm + 20.01064cm + 27 + + + + + + true + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.81245in + + + 0.69098in + + + 0.69475in + + + + + 0.19645in + + + + + true + true + + + + + Impuesto + + + + + + + Textbox22 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa + + + + + + + Textbox15 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox29 + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Impuesto.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!tasa.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 2.54983in + 5.73412in + 0.34081in + 2.19818in + 29 + + + + + + + + + 3.01975cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.56368cm + + + true + true + + + + + =Fields!ImpuestoLocal.Value + + + + + + #2c2e42 + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 5.75282cm + 14.56464cm + 0.6cm + 5.58343cm + 30 + + + + + + + + + 3.33888cm + + + 11.00525cm + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + Textbox128 + + + + + + + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Importe con letra: + + + + + + + Textbox126 + + + + + + + + + + + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="SON: " & Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + + + + Textbox127 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Forma de pago: + + + + + + + Textbox130 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FormaPago.Value + + + + + + + Textbox131 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Uso CFDI: + + + + + + + Textbox15 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.56188cm + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + Textbox132 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloCFDI.Value + + + + + + + Textbox133 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.2cm + + + + + true + true + + + + + Sello del SAT: + + + + + + + Textbox134 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SelloSAT.Value + + + + + + + Textbox135 + + + Top + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + Textbox136 + + + + + + + + + + + + + + 1pt + + #2c2e42 + Middle + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + + + + + + DsOC + 5.75282cm + 0.11468cm + 5.76188cm + 14.34413cm + 31 + + + + + + true + true + + + + + =Parameters!CadenaOriginal.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.03532cm + 0.13016cm + 2.85467cm + 3.50777cm + 33 + + + + + + 20.27828cm + - =Parameters!Remitente.Value + =Parameters!NombreEmpresa.Value - =Parameters!Domicilio.Value + =Parameters!DireccionOrigen.Value - =Parameters!Destinatario.Value + =Parameters!NombreEmpresa.Value - =Parameters!DomicilioDestino.Value + =Parameters!DireccionDestino.Value - =Parameters!Chofer.Value + =Parameters!ResponsableRecibio.Value + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox22 + 12.88411cm + 2.21206cm + 0.52062cm + 5.78664cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox22 + 12.88411cm + 11.60471cm + 0.52062cm + 5.78664cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IDENTIFICACIÓN: + + + + =Parameters!Identificacion.Value + + + + + + + =Parameters!Domicilio.Value + + + + + + + =Parameters!Telefono.Value + + + + + + + =Parameters!Ciudad.Value + + + + + + + =Parameters!Licencia.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOCUMENTACIÓN DEL CHOFER + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 6.27115in + 8.91698in - - - - - - - -
  • - - - Terminar Trayecto - - -
  • -
    - - - - - - -
    -
    -
    -
    -
    - - Recorrido de la unidad: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    -
    -
    -
    - - Datos del Trayecto: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    -
    - - Historial de Estatus: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - - <%-- --%> - - -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    -
    -
    -
    + }*/ + + .pac-container.pac-logo { + z-index: 100000; + } + + .v-center { + display: flex; + align-items: center; + } + + + + + + + + +
  • + + + Terminar Trayecto + + +
  • +
    + + + + + + +
    +
    +
    +
    +
    + + Recorrido de la unidad: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    +
    +
    + + Datos del Trayecto: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + Historial de Estatus: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + <%-- --%> + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    +
    +
    - Eventos de la unidad: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    - - Ralentí: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - Excesos de Velocidad: -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    -
    - - Igniciones -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    - + fa-car font-green"> + Eventos de la unidad: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    + + Ralentí: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + Excesos de Velocidad: +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    + + Igniciones +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    + + Combustible +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    +
    + + Gastos +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + - - - + + + diff --git a/GPS/TrayectoDetalle.aspx.vb b/GPS/TrayectoDetalle.aspx.vb index 66b257ead..1498d5bb4 100644 --- a/GPS/TrayectoDetalle.aspx.vb +++ b/GPS/TrayectoDetalle.aspx.vb @@ -73,15 +73,20 @@ Partial Class GPS_TrayectoDetalle LtlDispositivo.Text = RowEstatus("Vehiculo").ToString() LtlFechaI.Text = If(String.IsNullOrEmpty(RowEstatus("FechaInicio").ToString()), "No ha ingresado a la geocerca de inicio", String.Format("{0:dd/MM/yyyy HH:mm tt}", RowEstatus("FechaInicio").ToString().ToDateTime())) LtlFechaF.Text = If(String.IsNullOrEmpty(RowEstatus("FechaFin").ToString()), "No ha Terminado", String.Format("{0:dd/MM/yyyy HH:mm tt}", RowEstatus("FechaFin").ToString().ToDateTime())) - LtlVMedia.Text = String.Format("{0:N2}", RowEstatus("VMedia")) - LtlVMax.Text = String.Format("{0:N2}", RowEstatus("VMax")) + LtlVMedia.Text = String.Format("{0:N2} KM/H", RowEstatus("VMedia")) + LtlVMax.Text = String.Format("{0:N2} KM/H", RowEstatus("VMax")) LtlTiempo.Text = String.Format("{0}", RowEstatus("TiempoOperativo")) - LtlKM.Text = String.Format("{0:N2}", RowEstatus("Dist")) + LtlKM.Text = String.Format("{0:N2} KM", RowEstatus("Dist")) LtlExcesosVelo.Text = String.Format("{0}", RowEstatus("ExcesosVelocidad")) LtlCombustibleI.Text = If(String.IsNullOrEmpty(RowEstatus("CombustibleInicial").ToString()), "No Disponible", String.Format("{0:N2}", RowEstatus("CombustibleInicial"))) LtlCombustibleF.Text = If(String.IsNullOrEmpty(RowEstatus("CombustibleFinal").ToString()), "No Disponible", String.Format("{0:N2}", RowEstatus("CombustibleFinal"))) + LtlCargas.Text = String.Format("{0:N0}", RowEstatus("Cargas")) + LtlDescargas.Text = String.Format("{0:N0}", RowEstatus("Descargas")) + LtlCombustibleConsumido.Text = String.Format("{0:N2} L", RowEstatus("CombustibleConsumido")) + LtlRendimiento.Text = String.Format("{0:N2} KM/L", RowEstatus("Rendimiento")) + GvIgnicion.DataSource = ObjGPS.DtSetResultados.Tables(1) GvIgnicion.DataBind() @@ -90,6 +95,13 @@ Partial Class GPS_TrayectoDetalle GvRalenti.DataSource = ObjGPS.DtSetResultados.Tables(3) GvRalenti.DataBind() + + GvCombustible.DataSource = ObjGPS.DtSetResultados.Tables(4) + GvCombustible.DataBind() + + GvGastos.DataSource = ObjGPS.DtSetResultados.Tables(5) + GvGastos.DataBind() + End If End If Dim count = 0 @@ -202,5 +214,12 @@ Partial Class GPS_TrayectoDetalle Alert("No se pudo obtener el estatus final", TipoMensaje.MsgError) End If ObjGPS.Dispose() - End Sub + End Sub + Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If String.IsNullOrEmpty(e.Row.DBCampo("CveGPSGasto")) Then + e.Row.CssClass = "Totales" + End If + End If + End Sub End Class diff --git a/Global.asax b/Global.asax index dcb70128c..ac7f3e872 100644 --- a/Global.asax +++ b/Global.asax @@ -601,112 +601,112 @@ End If End If - ObjGPS.Dispose() - - If EsProduccion = "1" Then - RegisterNotification() - End If - '----------------- - AspMap.License.SetLicenseKey("ccfecfcegknepnhmjighpjjpmpmbajfejhnladegmeanci") - - - GlobalConfiguration.Configure(AddressOf WebApiConfig.Register) - GlobalConfiguration.Configuration.EnsureInitialized() - End Sub - - Sub Application_End(sender As Object, e As EventArgs) - If EsProduccion = "1" Then - SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - End If - ' Code that runs on application shutdown - End Sub - - Sub Application_Error(sender As Object, e As EventArgs) - ' Code that runs when an unhandled error occurs - Dim CveUsuario As String = "" - Dim Nombre As String = "" - Try - Dim user As Usuario = ADSSessionConfig.sessionUser - If Not IsNothing(user) Then - CveUsuario = user.CveUsuario.ToString() - Nombre = user.Nombre - End If - Catch ex As Exception - Usuario.CerrarSession() - End Try - Dim InfoAdicional As String = vbCrLf & "CveUsuario: " & CveUsuario & "; Nombre: " & Nombre & vbCrLf & "Ruta: " & Context.Request.RawUrl & " " - OnError("Ocurrió un error en la página.", Context.Error, InfoAdicional) - End Sub - - Sub Session_Start(sender As Object, e As EventArgs) - - ' Code that runs when a new session is started - 'Dim sessionData As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState)) - - 'If sessionData.Keys.Contains(HttpContext.Current.Session.SessionID) Then - ' sessionData.Remove(HttpContext.Current.Session.SessionID) - ' sessionData.Add(HttpContext.Current.Session.SessionID, HttpContext.Current.Session) - 'Else - ' sessionData.Add(HttpContext.Current.Session.SessionID, HttpContext.Current.Session) - 'End If - 'Application("s") = sessionData - End Sub - - Sub Session_End(sender As Object, e As EventArgs) - Dim objsession As Object = ADSSessionConfig.SessionManager(OpcionSession.removerSession, Nothing, -1, Session.SessionID) - If Not IsNothing(objsession) Then - 'MyHub.RemoveConexiones(DirectCast(objsession, ADSSessionObj).CveUsuario) - End If - 'Code that runs when a session ends. - ' Note: The Session_End event Is raised only when the sessionstate mode - ' Is set to InProc in the Web.config file. If session mode Is set to StateServer - '' or SQLServer, the event is not raised. - 'Dim sessionData As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState)) - 'sessionData.Remove(HttpContext.Current.Session.SessionID) - 'Application("s") = sessionData - End Sub - + ObjGPS.Dispose() + + 'If EsProduccion = "1" Then + ' RegisterNotification() + 'End If + '----------------- + AspMap.License.SetLicenseKey("ccfecfcegknepnhmjighpjjpmpmbajfejhnladegmeanci") + + + GlobalConfiguration.Configure(AddressOf WebApiConfig.Register) + GlobalConfiguration.Configuration.EnsureInitialized() + End Sub + + Sub Application_End(sender As Object, e As EventArgs) + If EsProduccion = "1" Then + SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + End If + ' Code that runs on application shutdown + End Sub + + Sub Application_Error(sender As Object, e As EventArgs) + ' Code that runs when an unhandled error occurs + Dim CveUsuario As String = "" + Dim Nombre As String = "" + Try + Dim user As Usuario = ADSSessionConfig.sessionUser + If Not IsNothing(user) Then + CveUsuario = user.CveUsuario.ToString() + Nombre = user.Nombre + End If + Catch ex As Exception + Usuario.CerrarSession() + End Try + Dim InfoAdicional As String = vbCrLf & "CveUsuario: " & CveUsuario & "; Nombre: " & Nombre & vbCrLf & "Ruta: " & Context.Request.RawUrl & " " + OnError("Ocurrió un error en la página.", Context.Error, InfoAdicional) + End Sub + + Sub Session_Start(sender As Object, e As EventArgs) + + ' Code that runs when a new session is started + 'Dim sessionData As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState)) + + 'If sessionData.Keys.Contains(HttpContext.Current.Session.SessionID) Then + ' sessionData.Remove(HttpContext.Current.Session.SessionID) + ' sessionData.Add(HttpContext.Current.Session.SessionID, HttpContext.Current.Session) + 'Else + ' sessionData.Add(HttpContext.Current.Session.SessionID, HttpContext.Current.Session) + 'End If + 'Application("s") = sessionData + End Sub + + Sub Session_End(sender As Object, e As EventArgs) + Dim objsession As Object = ADSSessionConfig.SessionManager(OpcionSession.removerSession, Nothing, -1, Session.SessionID) + If Not IsNothing(objsession) Then + 'MyHub.RemoveConexiones(DirectCast(objsession, ADSSessionObj).CveUsuario) + End If + 'Code that runs when a session ends. + ' Note: The Session_End event Is raised only when the sessionstate mode + ' Is set to InProc in the Web.config file. If session mode Is set to StateServer + '' or SQLServer, the event is not raised. + 'Dim sessionData As Dictionary(Of String, HttpSessionState) = DirectCast(Application("s"), Dictionary(Of String, HttpSessionState)) + 'sessionData.Remove(HttpContext.Current.Session.SessionID) + 'Application("s") = sessionData + End Sub + #Region "S Q L D E P E N D E N C Y" - - Public Sub RegisterNotification() - Try - 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created - Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event - Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones" - 'Start the SQL Dependency - SqlDependency.Start(connectionString) - Using connection As New SqlConnection(connectionString) - Using command As New SqlCommand(commandText, connection) - connection.Open() - Dim sqlDependency = New SqlDependency(command) - AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange - ' NOTE: You have to execute the command, or the notification will never fire. - Using reader As SqlDataReader = command.ExecuteReader() - End Using - End Using - End Using - Catch ex As Exception - - End Try - - End Sub - - Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs) - If e.Info = SqlNotificationInfo.Update Then - Try - Dim ObjNotificaciones As New ClsSisNotificaciones - ObjNotificaciones.ObtenerNotificaciones() - ObjNotificaciones.Dispose() - 'System.Threading.Thread.Sleep(5000) - RegisterNotification() - Catch ex As Exception - - End Try - End If - 'Call the RegisterNotification method again - End Sub - + + 'Public Sub RegisterNotification() + ' Try + ' 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created + ' Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + ' 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event + ' Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones" + ' 'Start the SQL Dependency + ' SqlDependency.Start(connectionString) + ' Using connection As New SqlConnection(connectionString) + ' Using command As New SqlCommand(commandText, connection) + ' connection.Open() + ' Dim sqlDependency = New SqlDependency(command) + ' AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange + ' ' NOTE: You have to execute the command, or the notification will never fire. + ' Using reader As SqlDataReader = command.ExecuteReader() + ' End Using + ' End Using + ' End Using + ' Catch ex As Exception + + ' End Try + + 'End Sub + + 'Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs) + ' If e.Info = SqlNotificationInfo.Update Then + ' Try + ' Dim ObjNotificaciones As New ClsSisNotificaciones + ' ObjNotificaciones.ObtenerNotificaciones() + ' ObjNotificaciones.Dispose() + ' 'System.Threading.Thread.Sleep(5000) + ' RegisterNotification() + ' Catch ex As Exception + + ' End Try + ' End If + ' 'Call the RegisterNotification method again + 'End Sub + #End Region diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 06016b375..59ee002ea 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1498,9 +1498,11 @@ Partial Class Inventarios_EntradasSalidas 'Registro la prepóliza If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL() + Dim tValorOtro As Decimal = tValorInventario Dim idCtaContable As Integer = 0 Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos Dim TipoMovtoAlmacen As Boolean = False + Dim TipoMovtoOtro As Boolean = True Dim tCveSubProyecto As Integer = -1 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue)) @@ -1530,6 +1532,8 @@ Partial Class Inventarios_EntradasSalidas End If Case 13, 29 CveConceptoContable = 69 + TipoMovtoOtro = True + tValorOtro = -tValorOtro Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("") If drr IsNot Nothing Then CveClasificacion = drr("CveClasificacion").ToString.ToEntero @@ -1556,7 +1560,7 @@ Partial Class Inventarios_EntradasSalidas ' End If 'Next 'Case Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, CveConceptoContable, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=CveClasificacion) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtro, tValorOtro, TxtObservaciones.Text.Trim, CveConceptoContable, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorOtro, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=CveClasificacion) Then ErrorMovInv = True End If 'End Select @@ -3253,10 +3257,10 @@ Partial Class Inventarios_EntradasSalidas Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) Dim DTOCs As DataTable = DtCostos.FiltraParametros("", "", {"CveOrdenCompraDetalle"}) Dim IdCtaContable As Integer = 0 - Dim ConceptoPoliza As String = String.Format("{0}-{1}", DdlConcepto.SelectedItem.Text, TxtFolio.Text) + Dim ConceptoPoliza As String = String.Format("{0}-{1}", DdlConcepto.SelectedItem.Text, If(DdlConcepto.SelectedValue.ToEntero.Contiene(3), HplVenta.Text, TxtFolio.Text)) If tmpCostos.Rows.Count > 0 Then - Dim Concepto As String = $" {TxtObservaciones.Text}" + Dim Concepto As String = If(TxtObservaciones.Text = "", ConceptoPoliza, $" {TxtObservaciones.Text}") Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If HdnCveOrdenCompra.Value.ToEntero > 0 Then diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index ed0f11905..2c0623c7f 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1896,6 +1896,87 @@ Partial Class Inventarios_RecepcionAlmacen End If End Sub + + Private Function GeneraPrePolizaSalidaEntregaDirecta(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi) As Boolean + Dim DtCostos As DataTable = Nothing + Dim ValorInventario As Decimal = 0 + Dim ValorInventarioME As Decimal = 0 + Dim CveConcepto As Integer = 3 + Dim Retorno As Boolean = True + + ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) + Dim CveVenta As Integer = ObjInventario.CveVenta + Dim CveAlmacen As Integer = ObjInventario.CveAlmacen + Dim SerieFolio As String = ObjInventario.DtResultados.Rows(0)("SerieFolioVenta").ToString + Dim MovAlmacen As Boolean = True + + Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & CveConcepto).ToEntero + If OrigenMov = 1 Then MovAlmacen = False Else MovAlmacen = True + + If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + DtCostos = ObjInventario.DtResultados + Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) + Dim IdCtaContable As Integer = 0 + Dim ConceptoPoliza As String = String.Format("{0}-{1}", "Salida de Almacen", SerieFolio) + + If tmpCostos.Rows.Count > 0 Then + Dim Concepto As String = ConceptoPoliza + Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + Dim tCveConcepto As Integer = 69 + + 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 + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + Retorno = False + Exit For + End If + Next + + IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total").RoundSQL) Then + Retorno = False + End If + + + If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + Retorno = False + End If + End If + + 'CONTABILIZAR - SIMPLIFICAR + If Retorno Then + If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then + If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then + Retorno = False + End If + End If + + If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + If ObjContaContPAQ Is Nothing Then + ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) + ObjContaContPAQ.IniciaTransacSQL() + End If + + If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then + Retorno = False + End If + End If + + End If + + End If + End If + + Return Retorno + End Function + Private Sub GuardaCompraOC() Dim CveMovimiento As Integer Dim InvFolio As String = "" @@ -2054,6 +2135,12 @@ Partial Class Inventarios_RecepcionAlmacen End If End If + If Not ErrorMovInv Then + If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ) Then + ErrorMovInv = True + End If + End If + End If End If @@ -2109,8 +2196,10 @@ Partial Class Inventarios_RecepcionAlmacen Dim TotalPorDevengar = 0.0 TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4)) TotalPorDevengar = Math.Round(TotalPorDevengar, 4) - ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaAC.IniciaTransacSQL() + If ObjContaContPAQ Is Nothing Then + ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) + ObjContaContPAQ.IniciaTransacSQL() + End If IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto) If IDPoliza > 0 AndAlso ObjContaAC.GetCuentas(-1, "-1", -1) Then @@ -2365,8 +2454,10 @@ Partial Class Inventarios_RecepcionAlmacen End If If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaContPAQ.IniciaTransacSQL() + If ObjContaContPAQ Is Nothing Then + ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) + ObjContaContPAQ.IniciaTransacSQL() + End If If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then MensajeContabilidad = $"
    Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
    " Else diff --git a/Inventarios/RepTraspasoEmitido.aspx b/Inventarios/RepTraspasoEmitido.aspx new file mode 100644 index 000000000..954680e3e --- /dev/null +++ b/Inventarios/RepTraspasoEmitido.aspx @@ -0,0 +1,110 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="RepTraspasoEmitido.aspx.cs" Inherits="Inventarios_RepTraspasoEmitido" %> + + + + + + + Reporte de Traspasos Emitidos + + + + + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    +
    +
    +
    +
    +
    + +
    + + + + + +
    +
    +
    +
    +
    +
    + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + +
    +
    +
    + + + diff --git a/Inventarios/RepTraspasoEmitido.aspx.cs b/Inventarios/RepTraspasoEmitido.aspx.cs new file mode 100644 index 000000000..d4778d08b --- /dev/null +++ b/Inventarios/RepTraspasoEmitido.aspx.cs @@ -0,0 +1,83 @@ +using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI.WebControls; using Extensiones; using System.Data; using static Extensiones.ModExtensiones; +using Microsoft.Reporting.WebForms; + +public partial class Inventarios_RepTraspasoEmitido : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + InicializaValores(); + } + } + + private void InicializaValores() + { + DdlAlmacen.DataSource = get_GlobalDTAlmacen(UsuarioActual.CveEmpresa); + DdlAlmacen.Items.Insert(0, new ListItem("Todos", "-1")); + DdlAlmacen.DataBind(); + txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString(); + txtFechaF.Text = DateTime.Now.ToShortDateString(); + } + + protected void BtnConsultar_Click(object sender, EventArgs e) + { + CargaDatos(); + } + + private void CargaDatos() + { + ClsInventarios ObjInv = new ClsInventarios(); + if (ObjInv.GetRepTraspasosEmitidos(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), + txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate())) + { + GvDatos.DataSource = ObjInv.DtResultados; + } + ObjInv.Dispose(); + GvDatos.DataBind(); + UpDatos.Update(); + } + + protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + e.Row.Cells[6].Text = String.Format("", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", e.Row.DBCampo("CveMovimiento"), "XML",$"Tra-{e.Row.DBCampo("Folio")}","Tra"))); + e.Row.Cells[7].Text = String.Format("", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", e.Row.DBCampo("CveMovimiento"), "PDF", $"Tra-{e.Row.DBCampo("Folio")}", "Tra"))); + if (e.Row.DBCampo("CveEstatusTimbrado").ToEntero()==2) + { + e.Row.Cells[8].Text = ""; + } + } + } + + protected void LnkCancelarTraspaso_Click(object sender, EventArgs e) + { + GridViewRow Gvr = (GridViewRow)(((LinkButton)sender).NamingContainer); + Timbrado ObjCancelacion = new Timbrado(); + DateTime CancelacionFecha=MinFecha; + int CveEstatusTimbrado = 0; + string FolioFiscal = Gvr.DataKey("FolioFiscal").ToString(),SelloCancelacion =""; + int CveMovimiento = Gvr.DataKey("CveMovimiento").ToEntero(); + if (ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, 0, "XAXX010101000", UsuarioActual.Empresa.RFC, 2,false)) + { + CancelacionFecha = ObjCancelacion.CancelacionFecha; + SelloCancelacion = ObjCancelacion.CancelacionAcuse; + CveEstatusTimbrado = 2; + }else + { + Alert("La factura no se pudo cancelar ante el SAT", TipoMensaje.MsgError); + } + if (CveEstatusTimbrado > 0) + { + ClsInventarios ObjInv = new ClsInventarios(); + if (ObjInv.UpdateMovimientoTimbrado(CveMovimiento, CveEstatusTimbrado, FolioFiscal, CancelacionFecha, SelloCancelacion)) + { + Alert("El traspaso se cancelo correctamente.", TipoMensaje.MsgInformacion); + } + ObjInv.Dispose(); + CargaDatos(); + } + + } +} \ No newline at end of file diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index d7fb697bc..234eb59d3 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -203,6 +203,76 @@ + + + + +