Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -252,7 +252,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
         If HdnModalidad.Value = "I" Then
             If CvePlantillaPoliza > 0 Then
-                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero,
+                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
                                                                                 UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                                                 DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                     TxtOrden.Text = ""
@@ -290,7 +290,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
         Else
             If HdnID.Value.ToEntero <> -1 Then
                 If CvePlantillaPoliza > 0 Then
-                    If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero,
+                    If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
                                                                                       HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                                                       DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                         Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -390,7 +390,6 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
                 dtt = Con.DtResultados
             End If
-            DdlCtaContable.Visible = False
             Dim drr As DataRow = dtt.FiltroPrimero(String.Format("CveConceptoAdmin={0}", DdlConcepto.SelectedValue))
 
             If drr IsNot Nothing Then
@@ -399,6 +398,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
                 LblCuenta.Text = ""
             End If
 
+            DdlCuentas.Items.Clear()
+            DdlCuentas.DataSource = dtt
+            DdlCuentas.DataBind()
+            DdlCuentas.Visible = True
+            DdlCtaContable.Visible = False
+
             dtt.Dispose()
             Con.Dispose()
         End If

Contabilidad/RegPrePolizaS.aspx

@@ -343,7 +343,8 @@
                     </div>
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                         <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False"
-                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones" 
+                            Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Cuenta</HeaderTemplate>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -318,6 +318,14 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("IdCtaContable", Type.GetType("System.Int32"))
             .Add("ConceptoContable", Type.GetType("System.String"))
             .Add("CveCuenta", Type.GetType("System.Int32"))
+
+            .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
+            .Add("ContadoCuenta", Type.GetType("System.Int32"))
+            .Add("ContadoNumeroFolio", Type.GetType("System.Int32"))
+            .Add("ContadoImporte", Type.GetType("System.Int32"))
+            .Add("ContadoBeneficiario", Type.GetType("System.String"))
+            .Add("ContadoObservaciones", Type.GetType("System.String"))
+
         End With
     End Sub
 
@@ -870,22 +878,24 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim TipoMovto As Boolean = False
                     Dim IdCtaContable As Integer = 0
 
-                    'Registra movimieno bancario
-                    If CveConcepto = 30 Then
-                        CveIE = ObjIE.AddBancos_IE(CveCuenta, CveTipoTransaccion, TxtFecha.Text, Folio, Beneficiario, ImporteDocumento, CveMoneda, 0, Observaciones, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                        If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
-                        If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
-                            FolioIE = ObjIE.Folio
-                        End If
-                    End If
-
-
 
                     'inserto las compras que voy a pagarDdlSaldos
-                    For Each gvr As GridViewRow In GvMov.Rows
+                    For Each gvr As GridViewRow In GvMov.Rows
-                        'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
+                        'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
-                        '    IdCtaContable = gvr.DataKey("IDCuenta")
+                        '    IdCtaContable = gvr.DataKey("IDCuenta")
-                        'End If
+                        'End If
+
+                        'Registra movimieno bancario
+                        If gvr.DataKey("CveConcepto").ToEntero = 30 Then
+                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
+                                                       gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
+                                                       False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
+                            If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
+                                FolioIE = ObjIE.Folio
+                            End If
+                        End If
+
 
                         If gvr.DataKey("TipoMovto").ToDouble > 0 Then
                             Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
@@ -895,9 +905,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                             TipoMovto = False
                         End If
 
-                        If CveConcepto <> 30 Then
+                        If gvr.DataKey("CveConcepto").ToEntero <> 30 Then
 
-                            If CveConcepto = 41 Then
+                            If gvr.DataKey("CveConcepto").ToEntero = 41 Then
                                 CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
                             Else
                                 CveIE = -1
@@ -927,6 +937,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 Exit For
                             End If
                         End If
+                        If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
+                            MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
+                        End If
                     Next
 
                     If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
@@ -965,7 +978,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             If MsgError = "" Then
                 'MENSAJE IE
                 If CveIE Then
-                    MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
                     Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
                 Else
                     Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
@@ -1242,7 +1254,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If DtMovimientos Is Nothing Then CreaDT()
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1323,7 +1335,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Rows.Count > 0 Then
                 Dim dr As DataRow = Rows(0)
-                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1547,9 +1559,21 @@ Partial Class ContabilidadC_RegPrePolizaS
             CargaTipoTransaccion("Ing")
         Else
             CargaTipoTransaccion("Egs")
-        End If
+        End If
-
+
-
+        Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero
+        Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IdMov)
+
+        If Rows.Count > 0 Then
+            Dim dr As DataRow = Rows(0)
+            Dim folio As Integer = dr("ContadoTipoTransaccion").ToString.ToEntero
+            DdlTipoTransaccion.SelectedValueExist(dr("ContadoTipoTransaccion").ToString.ToEntero)
+            DdlCuenta.SelectedValueExist(dr("ContadoCuenta").ToString.ToEntero)
+            TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString.ToEntero
+            TxtDocumentoObservaciones.Text = dr("ContadoObservaciones").ToString
+            TxtDocumentoBeneficiario.Text = dr("ContadoBeneficiario").ToString
+        End If
+
         TxtDocumentoImporte.Text = If(GvRow.FCTextBox("TxtAbono").Text = "", GvRow.FCTextBox("TxtCargo").Text.FormatoNumero, GvRow.FCTextBox("TxtAbono").Text.FormatoNumero)
         UpBancos.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivContadoModal"))
@@ -1842,6 +1866,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                                         .Referencia = "",
                                         .Concepto = "",
                                         .SubProyecto = row.Item("SubProyecto"),
+                                        .Folio = "",
+                                        .TipoTransferencia = "",
                                         .CveConceptoContable = row.Item("CveConcepto"),
                                         .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
                                         .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
@@ -1859,10 +1885,10 @@ Partial Class ContabilidadC_RegPrePolizaS
         For i = 0 To columnCount
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next
-        worksheet.Columns("I").Hidden = True
-        worksheet.Columns("J").Hidden = True
         worksheet.Columns("K").Hidden = True
         worksheet.Columns("L").Hidden = True
+        worksheet.Columns("M").Hidden = True
+        worksheet.Columns("N").Hidden = True
 
 
         NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString
@@ -1926,6 +1952,14 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
+            If Not dt.Columns(8).ColumnName = "Folio" Then
+                Alert("El nombre de la novena columna debe ser 'Folio'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(9).ColumnName = "TipoTransferencia" Then
+                Alert("El nombre de la decima columna debe ser 'TipoTransferencia'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
         End If
 
         If Not ErrorArchivo Then
@@ -1948,20 +1982,47 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
                     'Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
                     Dim CveClasificacion As Integer = -1
-                    Dim CveCuenta As Integer = -1
+                    Dim CveCuentaExcel As Integer = -1
                     Dim ObjConta2 As New ClsContabilidad
-                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
+                    Dim FolioExcel As Integer = -1
-                        CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
+                    Dim TipoMov As Integer = -1
+                    Dim CveBancoCuenta As Integer = -1
+                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
+                        CveCuentaExcel = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
                         NombreCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CtaCodigo", "")
                     End If
                     ObjConta2.Dispose()
 
-                    If CveCuenta <= 0 AndAlso CveConceptoContable <> 30 Then ' concepto 30-Bancos, tomará la cuetna de las especificaciones que se hagan enel modal
+                    If CveCuentaExcel <= 0 AndAlso CveConceptoContable <> 30 Then ' concepto 30-Bancos, tomará la cuetna de las especificaciones que se hagan enel modal
                         Alert(String.Format("La cuenta <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("Cuenta").ToString))
                         DtMovimientos.Clear()
                         Exit For
                     End If
 
+                    If CveConceptoContable = 30 Then
+                        Dim objconta3 As New ClsContabilidad
+                        objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa)
+                        If objconta3.DtResultados.Rows.Count > 0 Then
+                            Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
+                            CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
+                            DdlCuenta.SelectedValue = CveBancoCuenta
+                        End If
+                        TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
+                        FolioExcel = Row("Folio").ToString.ToEntero
+                        CveTipoTransaccion = TipoMov
+                        CveCuenta = CveBancoCuenta
+                        Folio = Row("Folio").ToString.ToEntero
+                        ImporteDocumento = IIf(Row("Abono").ToString.ToEntero > 0, Row("Abono").ToString, Row("Cargo").ToString)
+                        Observaciones = Row("Referencia").ToString
+                        Beneficiario = Row("Concepto").ToString
+                        If Not TipoMov > 0 Then
+                            Alert(String.Format("El Tipo de Transferencia no fue encontrado: <br/> <b>Tipo Transferencia: <b/> {0} <br/> <b>Folio: <b/> {1} <br/> <b>Importe: <b/> {2} ", Row("TipoTransferencia").ToString(), FolioExcel, ImporteDocumento), TipoMensaje.MsgAdvertencia)
+                            Exit Sub
+                        End If
+
+                    End If
+
+
                     'sino viene  el cveconcepto, busca por le nombre del concepto
                     If CveConceptoContable = 0 Then
                         Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
@@ -2006,8 +2067,14 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("CveClasificacion") = CveClasificacion
                     dr("CveCliente") = -1
                     dr("CveVenta") = -1
-                    dr("CveCuenta") = CveCuenta
+                    dr("CveCuenta") = CveCuentaExcel
 
+                    dr("ContadoTipoTransaccion") = CveTipoTransaccion
+                    dr("ContadoCuenta") = CveCuenta
+                    dr("ContadoNumeroFolio") = Folio
+                    dr("ContadoImporte") = ImporteDocumento
+                    dr("ContadoBeneficiario") = Beneficiario
+                    dr("ContadoObservaciones") = Observaciones
 
                     DtMovimientos.Rows.Add(dr)
                     DtMovimientos.AcceptChanges()
@@ -2025,6 +2092,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             End Try
         End If
     End Sub
+
 #End Region
 
 #Region "Paquete Egresos"

Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -785,10 +785,11 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=IIf(CStr(Fields!FechaMovto.Value) = "" , "", FormatDateTime(CDate(Fields!FechaMovto.Value), DateFormat.ShortDate))</Value>
+                                  <Value>=IIf(CStr(Fields!FechaMovto.Value) = "" , "", Day(CDate(Fields!FechaMovto.Value)) &amp; "/" &amp; Month(CDate(Fields!FechaMovto.Value)) &amp; "/" &amp; Year(CDate(Fields!FechaMovto.Value)))</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
                                     <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Format>d</Format>
                                     <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
                                   </Style>
                                 </TextRun>
@@ -810,6 +811,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -950,7 +952,6 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1611,49 +1612,7 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  <ReportParametersLayout>
+  
-    <GridLayoutDefinition>
-      <NumberOfColumns>2</NumberOfColumns>
-      <NumberOfRows>4</NumberOfRows>
-      <CellDefinitions>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>NombreEmpresa</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>FechaInicio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>FechaFin</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>UsuarioImprimio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>LogoPath</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>Filtros</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>FechaImprimio</ParameterName>
-        </CellDefinition>
-      </CellDefinitions>
-    </GridLayoutDefinition>
-  </ReportParametersLayout>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
 </Report>