Imports System.IO Imports System.Text Public Class ClassSITI Public Sub ArchivoInusuales(ByVal fInicio As Date, ByVal fFinal As Date) Dim Classcom As New clsComplejo Dim strSQL As String Dim strSqlSec As String Dim strCadenaNombre As String Dim strFile As String Dim StrMFile As System.IO.FileStream Dim StrMRead As System.IO.StreamWriter Dim strCadenaIN As String Dim lngContador As Long Dim FilaRep As DataRow Dim FilaProductos As DataRow Dim FilaDatos As DataRow Dim ClassDatos As New clsComplejo Dim ClassSITI As New ClassSITI Dim strCadenaFija As String Dim ClassDatos2 As New clsComplejo Dim FilaDatos2 As DataRow Dim FilaDatos3 As DataRow Dim strNota1 As String Dim strNota2 As String Dim strNota3 As String Dim strNota4 As String Dim strRazon1 As String Dim strRazon2 As String Dim strRazon3 As String Dim ClassUtils As New ClassMyUtils Dim strFechaFracc As String Try 'SE FORMA LA CADENA DEL NOMBRE Classcom.fdtDataSet("SELECT * FROM ParamRep") If Classcom.ds.Tables(0).Rows.Count <> 0 Then FilaRep = Classcom.ds.Tables(0).Rows(0) '-- Para la CNBV siempre es 002 -> asi se usa para banco y CB : FilaRep("IdOrganismoInternacional") strCadenaNombre = "2" & Format(CLng(FilaRep("idinstitucionFinanciera")), "000000") & Right(Year(fFinal), 2) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(fFinal), "00") & ".002" strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\" & strCadenaNombre If Directory.Exists(Classcom.ds.Tables(0).Rows(0).Item("rutainusuales")) = False Then ' si no existe la carpeta se crea Directory.CreateDirectory(Classcom.ds.Tables(0).Rows(0).Item("rutainusuales")) End If If File.Exists(strFile) Then File.Delete(strFile) 'strStreamW = File.Open(strFile, FileMode.Open) 'Abrimos el archivo End If StrMFile = New System.IO.FileStream(strFile, IO.FileMode.OpenOrCreate, IO.FileAccess.Write) StrMRead = New System.IO.StreamWriter(StrMFile) lngContador = 1 strSQL = "SELECT producto,idproducto FROM cat_PRODUCTO WHERE activo = 1 " 'Classcom = New clsComplejo Classcom.fdtDataSet(strSQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then FilaProductos = Classcom.ds.Tables(0).Rows(0) strSQL = "" strSQL = " spConInusualesSITI '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "','" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" 'ClassDatos = New clsComplejo 'Windows.Forms.Cursor.Current = Cursors.WaitCursor ''verificamos si existe el archivo 'ClassDatos.fdtDataSet(strSQL) 'If ClassDatos.ds.Tables(0).Rows.Count <> 0 Then ' lngContador = 1 ClassDatos = New clsComplejo ClassDatos.fdtDataSet(strSQL) If ClassDatos.ds.Tables(0).Rows.Count <> 0 Then lngContador = 1 For x As Integer = 0 To ClassDatos.ds.Tables(0).Rows.Count - 1 FilaDatos = ClassDatos.ds.Tables(0).Rows(x) strCadenaIN = "" strCadenaFija = "" strCadenaIN = strCadenaIN & "2;" 'CAMPO1 TIPO REPORTE strCadenaIN = strCadenaIN & Year(fFinal) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(fFinal), "00") & ";" 'CAMPO2 PERIODO DEL REPORTE strCadenaIN = strCadenaIN & Format(lngContador, "000000") & ";" 'CAMPO3 CONSECUTIVO strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idorganismointernacional")), "000000") & ";" 'CAMPO4 ORGANISMO SUPERVISOR strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera")), "000000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("plaza")), "00000000") & ";" 'CAMPO 6 LOCALIDAD 'If FilaDatos("sucursal") = 0 Then ' strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL 'Else ' strCadenaIN = strCadenaIN & Format(FilaDatos("sucursal"), "0") & ";" 'CAMPO 7 SUCURSAL 'End If strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL strCadenaIN = strCadenaIN & Format(FilaDatos("tipooperacion"), "00") & ";" 'CAMPO 8 TIPO OPERACION strCadenaIN = strCadenaIN & Format(FilaDatos("instrumento"), "00") & ";" 'CAMPO 9 INSTRUMENTO MONETARIO strCadenaIN = strCadenaIN & FilaDatos("cuenta") & ";" 'CAMPO 10 NUMERO DE CUENTA If FilaDatos("idpatron") = 99 Then strCadenaIN = strCadenaIN & Format(FilaDatos("montopesosF"), "#############0.00") & ";" 'CAMPO 11 MONTO Else strCadenaIN = strCadenaIN & Format(FilaDatos("monto"), "#############0.00") & ";" 'CAMPO 11 MONTO End If strCadenaIN = strCadenaIN & FilaDatos("idmoneda") & ";" 'CAMPO 12 MONEDA strCadenaIN = strCadenaIN & Format(Year(FilaDatos("fecha")), "0000") & Format(Month(FilaDatos("fecha")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fecha")), "00") & ";" 'CAMPO 13 FECHA If FilaDatos("idalarma") = 2 Then If Not IsDBNull(FilaDatos("fechadeteccion")) Then strCadenaIN = strCadenaIN & Format(Year(FilaDatos("fechadeteccion")), "0000") & Format(Month(FilaDatos("fechadeteccion")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fechadeteccion")), "00") & ";" 'CAMPO 14 FECHA DETECCION Else strCadenaIN = strCadenaIN & ";" End If Else If Not IsDBNull(FilaDatos("fechadeteccion")) Then strFechaFracc = FilaDatos("fechadeteccion") strCadenaIN = strCadenaIN & Format(Year(CDate(strFechaFracc)), "0000") & Format(Month(CDate(strFechaFracc)), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(CDate(strFechaFracc)), "00") & ";" 'CAMPO 14 FECHA DETECCION Else strCadenaIN = strCadenaIN & ";" End If End If strCadenaIN = strCadenaIN & FilaDatos("nacionalidad") & ";" 'CAMPO 15 NACIONALIDAD strCadenaIN = strCadenaIN & FilaDatos("tipopersona") & ";" 'CAMPO 16 TIPOPERSONA If FilaDatos("tipopersona") = 2 Then strCadenaIN = strCadenaIN & IIf(FilaDatos("tipopersona") = 2, FilaDatos("clientenom"), "") & ";" 'OBLIGATORIO 18 nombre en el razon social alfa60 strCadenaIN = strCadenaIN & ";" 'OBLIGATORIO 19 apellido paterno alfa60 strCadenaIN = strCadenaIN & ";" '20 apelldio materno alfa 30 strCadenaIN = strCadenaIN & ";" Else 'OBLIGATORIO 17 razonsocial alfa60 strCadenaIN = strCadenaIN & ";" 'OBLIGATORIO 18 nombre en el razon social alfa60 strCadenaIN = strCadenaIN & FilaDatos("clienteNom").ToString.Trim & ";" 'OBLIGATORIO 19 apellido paterno alfa60 strCadenaIN = strCadenaIN & FilaDatos("APaterno").ToString.Trim & ";" '20 apelldio materno alfa 30 strCadenaIN = strCadenaIN & FilaDatos("AMaterno").ToString.Trim & ";" End If strCadenaIN = strCadenaIN & FilaDatos("rfc") & ";" 'CAMPO 21 RFC strCadenaIN = strCadenaIN & ClassSITI.Reemplaza_DBNULL(FilaDatos("curp"), "") & ";" 'CAMPO 22 CURP If IsDBNull(FilaDatos("fnacimiento")) Then strCadenaIN = strCadenaIN & ";" Else strCadenaIN = strCadenaIN & Classcom.ObtenFecha(FilaDatos("fnacimiento"), "yyyymmdd").ToString.Trim & ";" 'CAMPO 23 FECHA NACIMIENTO End If strCadenaIN = strCadenaIN & FilaDatos("domicilio").ToString.Trim & ";" 'CAMPO 24 DOMICILIO ' ha peticion de Angel Frias si la colonia no traé valor se le asigna 0 strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("ClaveMun")), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("id_actividad") & ";" 'CAMPO 28 ACTIVIDADECONOMICA '29 - 33 no se utilizan strCadenaIN = strCadenaIN & "" & ";" & "" & ";" & "" & ";" strCadenaIN = strCadenaIN & "" & ";" & "" & ";" ''34 Consecutivo de Cuentas y/o personas relacionadas strCadenaIN = strCadenaIN & "00" & ";" '35 Numero de cuenta strCadenaIN = strCadenaIN & "" & ";" '36 Clave de la Entidad Financiera strCadenaIN = strCadenaIN & "" & ";" '37 Titular de la Cuenta strCadenaIN = strCadenaIN & "" & ";" 'OBLIGATORIO 38 apellido paterno alfa60 strCadenaIN = strCadenaIN & "" & ";" '39 apelldio materno alfa 30 strCadenaIN = strCadenaIN & "" & ";" '40 Descripcion de la Operacion If FilaDatos("nota") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("nota") & ";" 'strNota1 & ";" & strNota2 & ";" & strNota3 & ";" & strNota4 & ";" Else strCadenaIN = strCadenaIN & ClassSITI.Reemplaza_DBNULL(FilaDatos("nota"), "") & ";" strCadenaIN = strCadenaIN & "" & ";" End If '41 Razones por las que el acto u operacion se considera inusual If FilaDatos("razon") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("razon") '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 & ";" Else strCadenaIN = strCadenaIN & "" '& ";" End If StrMRead.WriteLine(strCadenaIN) ClassDatos2 = New clsComplejo lngContador = lngContador + 1 Next End If End If End If StrMRead.Close() MsgBox("El Archivo " & strFile & " se Creo Satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) 'AUDITORIA 'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'") Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Inusuales: Periodo de " & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & " al " & Classcom.ObtenFecha(fFinal, "YYYYMMDD")) ' ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 105, My.Computer.Name, "Minds Cliente", "Generacion Reporte SITI Inusuales " & Now().ToString) 'FIN AUDITORIA Catch ex As Exception MessageBox.Show("Error CboInstitucion_DropDown: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) StrMRead.Close() Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Inusuales: Error al generar Reporte " & ex.Message) End Try End Sub Public Function Reemplaza_DBNULL(ByVal ValorOriginal As Object, ByVal ValorReemplazo As Object) As Object If IsDBNull(ValorOriginal) Then Reemplaza_DBNULL = ValorReemplazo Else Reemplaza_DBNULL = ValorOriginal End If End Function Public Sub ReporteRelevantes(ByVal fInicio As Date, ByVal fFinal As Date) Dim sRenglon As String = Nothing Dim strStreamW As Stream = Nothing Dim strStreamWriter As StreamWriter = Nothing Dim ContenidoArchivo As String = Nothing ' Donde guardamos los paths de los archivos que vamos a estar utilizando .. Dim PathArchivo As String Dim contenido As String = "" Dim contenidotodo As String = "" Dim Classcom As New clsComplejo Dim strSQL As String Dim strSqlSec As String Dim strCadenaNombre As String Dim strFile As String Dim FilaRep As DataRow Dim FilaDatos As DataRow Dim lngContador As Long Dim FilaProductos As DataRow Dim ClassUtils As New ClassMyUtils Dim ClassDatos As New clsComplejo Dim sb As New StringBuilder() Dim strCadena As String Dim strCadenaIN As String Dim strCadenaFija As String Dim strFechaFracc As String Try Classcom.fdtDataSet("SELECT * FROM ParamRep") If Classcom.ds.Tables(0).Rows.Count <> 0 Then FilaRep = Classcom.ds.Tables(0).Rows(0) strCadenaNombre = "1" & Classcom.ds.Tables(0).Rows(0).Item("IdInstitucionFinanciera").ToString.PadLeft(6, "0") & Format(fFinal, "yyMM") & ".002" strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\" & strCadenaNombre strSQL = Classcom.ObtenFecha(fFinal, "YYMM") If Directory.Exists(Classcom.ds.Tables(0).Rows(0).Item("rutainusuales")) = False Then ' si no existe la carpeta se crea Directory.CreateDirectory(Classcom.ds.Tables(0).Rows(0).Item("rutainusuales")) End If If File.Exists(strFile) Then File.Delete(strFile) 'strStreamW = File.Open(strFile, FileMode.Open) 'Abrimos el archivo End If strStreamW = File.Create(strFile) ' lo creamos End If strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default) ' tipo de codificacion para escritura FilaProductos = Classcom.ds.Tables(0).Rows(0) strSQL = "" strSQL = " spConRelevantesSITI '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "','" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" ClassDatos = New clsComplejo Windows.Forms.Cursor.Current = Cursors.WaitCursor 'verificamos si existe el archivo ClassDatos.fdtDataSet(strSQL) If ClassDatos.ds.Tables(0).Rows.Count <> 0 Then lngContador = 1 For x As Integer = 0 To ClassDatos.ds.Tables(0).Rows.Count - 1 FilaDatos = ClassDatos.ds.Tables(0).Rows(x) strCadenaIN = "" strCadenaFija = "" strCadenaIN = strCadenaIN & "1;" 'CAMPO1 TIPO REPORTE strCadenaIN = strCadenaIN & Year(fFinal) & Format(Month(fFinal), "00") & ";" 'CAMPO2 PERIODO DEL REPORTE YYYYMM para relevantes strCadenaIN = strCadenaIN & Format(lngContador, "000000") & ";" 'CAMPO3 CONSECUTIVO strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idorganismointernacional")), "000000") & ";" 'CAMPO4 ORGANISMO SUPERVISOR strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera")), "000000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("plaza")), "00000000") & ";" 'CAMPO 6 LOCALIDAD ' la clave de la sucursal sera fija 01 mientras no existan sucursales, en cuanto se aperturen Angel Frias notificara 'strCadenaIN = strCadenaIN & "01" & ";" 'CAMPO 7 SUCURSAL strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL a REQUERIMIENTO DE ANGEL FRIAS CORREO JUNIO/2013 'If FilaDatos("sucursal") = 0 Then ' strCadenaIN = strCadenaIN & "01" & ";" 'CAMPO 7 SUCURSAL 'Else ' strCadenaIN = strCadenaIN & Format(FilaDatos("sucursal"), "00") & ";" 'CAMPO 7 SUCURSAL 'End If strCadenaIN = strCadenaIN & Format(FilaDatos("tipooperacion"), "00") & ";" 'CAMPO 8 TIPO OPERACION strCadenaIN = strCadenaIN & Format(FilaDatos("instrumento"), "00") & ";" 'CAMPO 9 INSTRUMENTO MONETARIO strCadenaIN = strCadenaIN & FilaDatos("cuenta") & ";" 'CAMPO 10 NUMERO DE CUENTA If FilaDatos("idpatron") = 99 Then strCadenaIN = strCadenaIN & Format(FilaDatos("montopesosF"), "#############0.00") & ";" 'CAMPO 11 MONTO Else strCadenaIN = strCadenaIN & Format(FilaDatos("monto"), "#############0.00") & ";" 'CAMPO 11 MONTO End If strCadenaIN = strCadenaIN & FilaDatos("idmoneda") & ";" 'CAMPO 12 MONEDA strCadenaIN = strCadenaIN & Format(Year(FilaDatos("fecha")), "0000") & Format(Month(FilaDatos("fecha")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fecha")), "00") & ";" 'CAMPO 13 FECHA strCadenaIN = strCadenaIN & ";" 'CAMPO 14 FECHA DETECCION PARA RELEVANTES NO SE COLOCA strCadenaIN = strCadenaIN & FilaDatos("nacionalidad") & ";" 'CAMPO 15 NACIONALIDAD strCadenaIN = strCadenaIN & FilaDatos("tipopersona") & ";" 'CAMPO 16 TIPOPERSONA If FilaDatos("tipopersona") = 2 Then strCadenaIN = strCadenaIN & IIf(FilaDatos("tipopersona") = 2, FilaDatos("clientenom"), "") & ";" 'OBLIGATORIO 18 nombre en el razon social alfa60 strCadenaIN = strCadenaIN & ";" 'OBLIGATORIO 19 apellido paterno alfa60 strCadenaIN = strCadenaIN & ";" '20 apelldio materno alfa 30 strCadenaIN = strCadenaIN & ";" Else 'OBLIGATORIO 17 razonsocial alfa60 strCadenaIN = strCadenaIN & ";" 'OBLIGATORIO 18 nombre en el razon social alfa60 strCadenaIN = strCadenaIN & FilaDatos("clienteNom").ToString.Trim & ";" 'OBLIGATORIO 19 apellido paterno alfa60 strCadenaIN = strCadenaIN & FilaDatos("APaterno").ToString.Trim & ";" '20 apelldio materno alfa 30 strCadenaIN = strCadenaIN & FilaDatos("AMaterno").ToString.Trim & ";" End If strCadenaIN = strCadenaIN & FilaDatos("rfc") & ";" 'CAMPO 21 RFC strCadenaIN = strCadenaIN & IIf(IsDBNull(FilaDatos("curp")), "", FilaDatos("curp")) & ";" 'CAMPO 22 CURP If IsDBNull(FilaDatos("fnacimiento")) Then strCadenaIN = strCadenaIN & ";" Else strCadenaIN = strCadenaIN & Classcom.ObtenFecha(FilaDatos("fnacimiento"), "yyyymmdd").ToString.Trim & ";" 'CAMPO 23 FECHA NACIMIENTO End If strCadenaIN = strCadenaIN & FilaDatos("domicilio").ToString.Trim & ";" 'CAMPO 24 DOMICILIO strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("ClaveMun")), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("id_actividad") & ";" 'CAMPO 28 ACTIVIDADECONOMICA '29 - 33 no se utilizan strCadenaIN = strCadenaIN & "" & ";" & "" & ";" & "" & ";" strCadenaIN = strCadenaIN & "" & ";" & "" & ";" ''34 Consecutivo de Cuentas y/o personas relacionadas strCadenaIN = strCadenaIN & "" & ";" '35 Numero de cuenta strCadenaIN = strCadenaIN & "" & ";" '36 Clave de la Entidad Financiera strCadenaIN = strCadenaIN & "" & ";" '37 Titular de la Cuenta strCadenaIN = strCadenaIN & "" & ";" 'OBLIGATORIO 38 apellido paterno alfa60 strCadenaIN = strCadenaIN & "" & ";" '39 apelldio materno alfa 30 strCadenaIN = strCadenaIN & "" & ";" '40 Descripcion de la Operacion strCadenaIN = strCadenaIN & "" & ";" 'If FilaDatos("nota") <> "" Then ' strCadenaIN = strCadenaIN & FilaDatos("nota") & ";" 'strNota1 & ";" & strNota2 & ";" & strNota3 & ";" & strNota4 & ";" 'Else ' strCadenaIN = strCadenaIN & IIf(IsDBNull(FilaDatos("nota")), "", FilaDatos("nota")) & ";" ' strCadenaIN = strCadenaIN & "" & ";" 'End If '41 Razones por las que el acto u operacion se considera inusual If FilaDatos("razon") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("razon") '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 & ";" Else strCadenaIN = strCadenaIN & "" '& ";" End If strStreamWriter.WriteLine(strCadenaIN) lngContador = lngContador + 1 Next End If 'Next strStreamWriter.Close() ' cerramos 'End If Catch ex As Exception MsgBox("Error al Guardar la informacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName) Finally MsgBox("El Archivo " & strFile & " se Creo Satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) 'AUDITORIA 'varUser = ClassComodin.BuscaValores("IdUsuario", "usuario", "usuario = '" & My.User.Name & "'") ' investigar JTC para grabar auditoria Dim ClassAud As New ClassMyUtils Dim varUser As Long Dim ClassComodin As New clsComplejo ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Relevantes: Periodo de " & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & " al " & Classcom.ObtenFecha(fFinal, "YYYYMMDD")) 'FIN AUDITORIA If File.Exists(strFile) Then strStreamWriter.Close() ' cerramos End If End Try End Sub Public Sub ReporteRelevantesFrac(ByVal fInicio As Date, ByVal fFinal As Date) Dim sRenglon As String = Nothing Dim strStreamW As Stream = Nothing Dim strStreamWriter As StreamWriter = Nothing Dim ContenidoArchivo As String = Nothing Dim PathArchivo As String Dim contenido As String = "" Dim contenidotodo As String = "" Dim Classcom As New clsComplejo Dim strSQL As String Dim strSqlSec As String Dim strCadenaNombre As String Dim strFile As String Dim FilaRep As DataRow Dim FilaDatos As DataRow Dim lngContador As Long Dim FilaProductos As DataRow Try Classcom.fdtDataSet("SELECT * FROM ParamRep") If Classcom.ds.Tables(0).Rows.Count <> 0 Then FilaRep = Classcom.ds.Tables(0).Rows(0) strCadenaNombre = "1" & Classcom.ds.Tables(0).Rows(0).Item("id_institucionfin").ToString.PadLeft(6, "0") & Format(fFinal.Today, "YYMMDD") & ".002" strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & strCadenaNombre If Directory.Exists(Classcom.ds.Tables(0).Rows(0).Item("rutainusuales")) = False Then ' si no existe la carpeta se crea Directory.CreateDirectory("d:\carpeta") End If If File.Exists(strFile) Then File.Delete(strFile) 'strStreamW = File.Open(strFile, FileMode.Open) 'Abrimos el archivo End If strStreamW = File.Create(strFile) ' lo creamos End If strSQL = "SELECT producto,idproducto FROM cat_PRODUCTO WHERE activo = 1)" Classcom = New clsComplejo Classcom.fdtDataSet(strSQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1 FilaProductos = Classcom.ds.Tables(0).Rows(i) strSQL = "SELECT suc.id_plaza Plaza,prod.id_sucursal sucursal,prod.id_tipooperacion tipooperacion," strSQL = strSQL & " prod.id_insmonetario Instrumento,prod.no_cuenta cuenta,sum(prod.monto) monto ,prod.idmoneda,prod.fecha," strSQL = strSQL & " Cat_p_ISO as nacionalidad," strSQL = strSQL & "cli.tipopersona, cli.telefono, cli.colonia, cli.clientenom, cli.apaterno, cli.amaterno, cli.rfc, cli.curp, " strSQL = strSQL & " cli.domicilio,ISNULL(trans.nota,'Sin Notas') nota, isnull(cli.id_actividad,'0000000') id_actividad," strSQL = strSQL & " ISNULL(trans.razon,'Sin Razon') razon" strSQL = strSQL & " FROM " & FilaProductos("nombreproducto") & " Prod, TransaccionReporte Trans, sucursal suc,cliente cli,cuenta ct, cat_pais" strSQL = strSQL & " WHERE trans.idproducto = " & FilaProductos("idproducto") strSQL = strSQL & " AND trans.id_alarma = 4 " strSQL = strSQL & " AND prod.idtransaccion = trans.idtransaccion " strSQL = strSQL & " AND prod.id_sucursal = suc.id_sucursal " strSQL = strSQL & " AND prod.no_cuenta = ct.no_cuenta " strSQL = strSQL & " AND ct.idcliente = cli.idcliente " strSQL = strSQL & " AND cli.idpaisnacionalidad = cat_pais.idpais " strSQL = strSQL & " AND prod.fecha BETWEEN convert(datetime,'20090601',112) AND convert(datetime,'20090701' ,112) " strSQL = strSQL & " GROUP BY [prod].Fecha,[ct].idcliente,[prod].No_Cuenta,suc.id_plaza,prod.id_sucursal,prod.id_tipooperacion," strSQL = strSQL & " prod.id_insmonetario,prod.idmoneda,cli.nacionalidad,cli.tipopersona,cli.telefono,cli.colonia,cli.clientenom," strSQL = strSQL & " cli.apaterno, cli.amaterno, cli.rfc,cli.curp, cli.domicilio,trans.nota,cli.id_actividad,trans.razon" Windows.Forms.Cursor.Current = Cursors.WaitCursor 'PathArchivo = "C:\carpeta\Archivo" & Format(Today.Date, "ddMMyy") & ".txt" ' Se determina el nombre del archivo con la fecha actual 'verificamos si existe el archivo Dim ClassDatos As New clsComplejo Dim sb As New StringBuilder() ClassDatos.fdtDataSet(strSQL) strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default) ' tipo de codificacion para escritura If ClassDatos.ds.Tables(0).Rows.Count <> 0 Then For x As Integer = 0 To ClassDatos.ds.Tables(0).Rows.Count - 1 FilaDatos = ClassDatos.ds.Tables(0).Rows(x) lngContador = lngContador + 1 With sb sb = New StringBuilder .Append("1;" & Year(Date.Now) & Month(Date.Now) & ";" & CStr(lngContador) & ";" & FilaRep("id_organismo") & ";") .Append(FilaRep("id_institucionFin") & ";" & FilaDatos("plaza") & ";") 'campo 4 y 6 If FilaDatos("sucursal") = 0 Then .Append("01" & ";") Else .Append(FilaDatos("sucursal") & ";") End If .Append(FilaDatos("tipooperacion").ToString.PadLeft(2, "0") & ";") .Append(FilaDatos("instrumento").ToString.PadLeft(2, "0") & ";") .Append(FilaDatos("cuenta") & ";") .Append(Format(FilaDatos("monto"), "##############0.00") & ";") .Append(FilaDatos("idmoneda") & ";") .Append(Format(Year(FilaDatos("fecha")), "0000") & Format(Month(FilaDatos("fecha")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fecha")), "00") & ";") .Append(Format(Year(FilaDatos("fecha")), "0000") & Format(Month(FilaDatos("fecha")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fecha")), "00") & ";") .Append(FilaDatos("nacionalidad") & ";") .Append(FilaDatos("tipopersona") & ";") If FilaDatos("tipopersona") = 2 Then .Append(FilaDatos("clientenom") & ";;;") Else .Append(";" & FilaDatos("clienteNom").ToString.Trim & ";" & FilaDatos("APaterno").ToString.Trim & ";" & FilaDatos("AMaterno").ToString.Trim & ";") End If .Append(FilaDatos("rfc") & ";") 'CAMPO 21 RFC .Append(Reemplaza_DBNULL(FilaDatos("curp"), "") & ";") 'CAMPO 22 CURP .Append(";") 'CAMPO 23 FECHA NACIMIENTO .Append(FilaDatos("domicilio").ToString.Trim & ";") 'CAMPO 24 DOMICILIO .Append(FilaDatos("colonia").ToString.Trim & ";") 'CAMPO 25 COLONIA .Append(FilaDatos("plaza") & ";") 'CAMPO 26 LOCALIDAD .Append(FilaDatos("telefono") & ";") 'CAMPO 27 TELEFONO .Append(FilaDatos("id_actividad") & ";") 'CAMPO 28 ACTIVIDAD ECONOMICA .Append(";" & "" & ";" & "" & ";" & "" & ";" & "" & ";") 'CAMPOS 29-33 NO SE UTILIZAN .Append("00" & ";") '34 Consecutivo de Cuentas y/o personas relacionadas .Append("" & ";") '35 Numero de cuenta .Append("" & ";") '36 Clave de la Entidad Financiera .Append("" & ";") '37 Titular de la Cuenta .Append("" & ";") 'OBLIGATORIO 38 apellido paterno alfa60 .Append("" & ";") '39 apelldio materno alfa 30 .Append(FilaDatos("nota") & ";") .Append(FilaDatos("razon") & ";") End With 'contenido.PadRight(20, " ") & contenido.PadRight(10, " ") & CStr(i).PadLeft(15, "0") strStreamWriter.WriteLine(sb.ToString.ToUpper) Next strStreamWriter.Close() ' cerramos End If Next End If Catch ex As Exception MsgBox("Error al Guardar la ingormacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName) Finally MsgBox("El Archivo " & strFile & " se Creo Satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) If File.Exists(strFile) Then strStreamWriter.Close() ' cerramos End If End Try End Sub Public Sub ArchivoPre(ByVal fInicio As Date, ByVal fFinal As Date) Dim Classcom As New clsComplejo Dim strSQL As String Dim strSqlSec As String Dim strCadenaNombre As String Dim strFile As String Dim StrMFile As System.IO.FileStream Dim StrMRead As System.IO.StreamWriter Dim strCadenaIN As String Dim lngContador As Long Dim FilaRep As DataRow Dim FilaProductos As DataRow Dim FilaDatos As DataRow Dim ClassDatos As New clsComplejo Dim ClassSITI As New ClassSITI Dim LsInstitucionF As String Dim ClassDatos2 As New clsComplejo Dim FilaDatos2 As DataRow Dim strCadenaFija As String Dim strFechaFracc As String Try 'SE FORMA LA CADENA DEL NOMBRE Classcom.fdtDataSet("SELECT * FROM ParamRep") If Classcom.ds.Tables(0).Rows.Count <> 0 Then FilaRep = Classcom.ds.Tables(0).Rows(0) strCadenaNombre = "3" & Format(CLng(FilaRep("idinstitucionFinanciera")), "000000") & Right(Year(Date.Now), 2) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(Date.Now), "00") & ".002" strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\" & strCadenaNombre If Dir(strFile) <> "" Then strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\" & strCadenaNombre If Dir(strFile) = "" Then MsgBox("La Ruta Destino del Archivo no Existe ") Exit Sub End If End If StrMFile = New System.IO.FileStream(strFile, IO.FileMode.OpenOrCreate, IO.FileAccess.Write) StrMRead = New System.IO.StreamWriter(StrMFile) lngContador = 1 strSQL = "SELECT case producto when 'Daños' then 'Danos' else producto end as producto,idproducto FROM cat_PRODUCTO WHERE activo = 1 " Classcom = New clsComplejo Classcom.fdtDataSet(strSQL) If Classcom.ds.Tables(0).Rows.Count <> 0 Then For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1 FilaProductos = Classcom.ds.Tables(0).Rows(i) strSQL = "" strSQL = " SELECT cp.AliasId Plaza,prod.idsucursal sucursal,prod.idtipooperacion tipooperacion, " strSQL = strSQL & " prod.idinstrumentomonetario Instrumento,cta.IdCuenta cuenta,prod.monto,prod.idmoneda, prod.fecha, " strSQL = strSQL & " Cat_p_ISO as nacionalidad," strSQL = strSQL & " cl.idtipopersona, k.telefono, " 'kDom.colonia, "" strSQL = strSQL & " cl.nombre as clientenom, " strSQL = strSQL & " cl.ApellidoPaterno, cl.ApellidoMaterno, cl.rfc,cl.curp, " strSQL = strSQL & " (SELECT MUNICIPIO FROM Cat_Municipio WHERE IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado) AS COLONIA" 'kdom.calle + ' ' + kdom.numero as domicilio, strSQL = strSQL & " ,substring((rtrim(substring(isnull(KDom.domicilio,''),1,55) + ISNULL(kdom.cp,''))),1,60) DOMICILIO" strSQL = strSQL & " ,isnull(kdom.IdMunicipio,'') PLAZACLI," '0' plazacli, " strSQL = strSQL & " isnull(trans.nota,'') nota,isnull(trans.razon,'') razon,trans.idtransaccion, " strSQL = strSQL & " trans.idproducto, (select aliasid from Cat_ActividadEconomica where IdActividadEconomica = isnull(cl.idactividadeconomica,1)) idactividadeconomica " strSQL = strSQL & " ,null as fnacimiento,trans.fechadeteccion,Trans.idpatron, " strSQL = strSQL & " trans.montopesosF, trans.idalarma" strSQL = strSQL & " ,(select ALIAS2 from Cat_Municipios where Descripcion = (select municipio from Cat_Municipio where IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado)) as ClaveMun " strSQL = strSQL & " from TransaccionReporte trans " strSQL = strSQL & " inner join Credito Prod on trans.idtransaccion = prod.idtransaccion " strSQL = strSQL & " inner join Cuenta Cta on cta.IdCuenta = prod.idCuenta " strSQL = strSQL & " inner join cat_sucursal suc on prod.idsucursal = suc.idsucursal " strSQL = strSQL & " inner join Cat_Plaza cp on cp.IdPlaza= suc.IdPlaza " strSQL = strSQL & " inner join cliente cl on cta.idcliente = cl.idcliente " strSQL = strSQL & " inner join kyc_datosgenerales k on k.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join KYC_Domicilio kDom on kdom.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join cat_pais on cat_pais.IdPais = cl.idpaisNacionalidad" strSQL = strSQL & " where trans.idestatustransaccion in(0, 2) and trans.nota <> 'DECREMENTO SU OPERATIVIDAD' " strSQL = strSQL & " AND (trans.idalarma = 3 ) " strSQL = strSQL & " AND convert(char(10), PROD.FECHA,112) BETWEEN '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "' AND '" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" strSQL = strSQL & " UNION SELECT cp.AliasId Plaza,prod.idsucursal sucursal,prod.idtipooperacion tipooperacion, " strSQL = strSQL & " prod.idinstrumentomonetario Instrumento,cta.IdCuenta cuenta,prod.monto,prod.idmoneda, prod.fecha, " strSQL = strSQL & " Cat_p_ISO as nacionalidad," strSQL = strSQL & " cl.idtipopersona, k.telefono, " 'kDom.colonia, "" strSQL = strSQL & " cl.nombre as clientenom, " strSQL = strSQL & " cl.ApellidoPaterno, cl.ApellidoMaterno, cl.rfc,cl.curp, " strSQL = strSQL & " (SELECT MUNICIPIO FROM Cat_Municipio WHERE IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado) AS COLONIA" 'kdom.calle + ' ' + kdom.numero as domicilio, strSQL = strSQL & " ,substring((rtrim(substring(isnull(KDom.domicilio,''),1,55) + ISNULL(kdom.cp,''))),1,60) DOMICILIO" strSQL = strSQL & " ,isnull(kdom.IdMunicipio,'') PLAZACLI," '0' plazacli, " strSQL = strSQL & " isnull(trans.nota,'') nota,isnull(trans.razon,'') razon,trans.idtransaccion, " strSQL = strSQL & " trans.idproducto, (select aliasid from Cat_ActividadEconomica where IdActividadEconomica = isnull(cl.idactividadeconomica,1)) idactividadeconomica " strSQL = strSQL & " ,null as fnacimiento,trans.fechadeteccion,Trans.idpatron, " strSQL = strSQL & " trans.montopesosF, trans.idalarma" strSQL = strSQL & " ,(select ALIAS2 from Cat_Municipios where Descripcion = (select municipio from Cat_Municipio where IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado)) as ClaveMun " strSQL = strSQL & " from TransaccionReporte trans " strSQL = strSQL & " inner join BANCATRADICIONAL Prod on trans.idtransaccion = prod.idtransaccion " strSQL = strSQL & " inner join Cuenta Cta on cta.IdCuenta = prod.idCuenta " strSQL = strSQL & " inner join cat_sucursal suc on prod.idsucursal = suc.idsucursal " strSQL = strSQL & " inner join Cat_Plaza cp on cp.IdPlaza= suc.IdPlaza " strSQL = strSQL & " inner join cliente cl on cta.idcliente = cl.idcliente " strSQL = strSQL & " inner join kyc_datosgenerales k on k.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join KYC_Domicilio kDom on kdom.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join cat_pais on cat_pais.IdPais = cl.idpaisNacionalidad" strSQL = strSQL & " where trans.idestatustransaccion in(0, 2) and trans.nota <> 'DECREMENTO SU OPERATIVIDAD' " strSQL = strSQL & " AND (trans.idalarma = 3 ) " strSQL = strSQL & " AND convert(char(10), PROD.FECHA,112) BETWEEN '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "' AND '" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" strSQL = strSQL & " UNION SELECT cp.AliasId Plaza,prod.idsucursal sucursal,prod.idtipooperacion tipooperacion, " strSQL = strSQL & " prod.idinstrumentomonetario Instrumento,cta.IdCuenta cuenta,prod.monto,prod.idmoneda, prod.fecha, " strSQL = strSQL & " Cat_p_ISO as nacionalidad," strSQL = strSQL & " cl.idtipopersona, k.telefono, " 'kDom.colonia, "" strSQL = strSQL & " cl.nombre as clientenom, " strSQL = strSQL & " cl.ApellidoPaterno, cl.ApellidoMaterno, cl.rfc,cl.curp, " strSQL = strSQL & " (SELECT MUNICIPIO FROM Cat_Municipio WHERE IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado) AS COLONIA" 'kdom.calle + ' ' + kdom.numero as domicilio, strSQL = strSQL & " ,substring((rtrim(substring(isnull(KDom.domicilio,''),1,55) + ISNULL(kdom.cp,''))),1,60) DOMICILIO" strSQL = strSQL & " ,isnull(kdom.IdMunicipio,'') PLAZACLI," '0' plazacli, " strSQL = strSQL & " isnull(trans.nota,'') nota,isnull(trans.razon,'') razon,trans.idtransaccion, " strSQL = strSQL & " trans.idproducto, (select aliasid from Cat_ActividadEconomica where IdActividadEconomica = isnull(cl.idactividadeconomica,1)) idactividadeconomica " strSQL = strSQL & " ,null as fnacimiento,trans.fechadeteccion,Trans.idpatron, " strSQL = strSQL & " trans.montopesosF, trans.idalarma" strSQL = strSQL & " ,(select ALIAS2 from Cat_Municipios where Descripcion = (select municipio from Cat_Municipio where IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado)) as ClaveMun " strSQL = strSQL & " from TransaccionReporte trans " strSQL = strSQL & " inner join BANCAINTERNACIONAL Prod on trans.idtransaccion = prod.idtransaccion " strSQL = strSQL & " inner join Cuenta Cta on cta.IdCuenta = prod.idCuenta " strSQL = strSQL & " inner join cat_sucursal suc on prod.idsucursal = suc.idsucursal " strSQL = strSQL & " inner join Cat_Plaza cp on cp.IdPlaza= suc.IdPlaza " strSQL = strSQL & " inner join cliente cl on cta.idcliente = cl.idcliente " strSQL = strSQL & " inner join kyc_datosgenerales k on k.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join KYC_Domicilio kDom on kdom.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join cat_pais on cat_pais.IdPais = cl.idpaisNacionalidad" strSQL = strSQL & " where trans.idestatustransaccion in(0, 2) and trans.nota <> 'DECREMENTO SU OPERATIVIDAD' " strSQL = strSQL & " AND (trans.idalarma = 3 ) " strSQL = strSQL & " AND convert(char(10), PROD.FECHA,112) BETWEEN '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "' AND '" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" strSQL = strSQL & " UNION SELECT cp.AliasId Plaza,prod.idsucursal sucursal,prod.idtipooperacion tipooperacion, " strSQL = strSQL & " prod.idinstrumentomonetario Instrumento,cta.IdCuenta cuenta,prod.monto,prod.idmoneda, prod.fecha, " strSQL = strSQL & " Cat_p_ISO as nacionalidad," strSQL = strSQL & " cl.idtipopersona, k.telefono, " 'kDom.colonia, "" strSQL = strSQL & " cl.nombre as clientenom, " strSQL = strSQL & " cl.ApellidoPaterno, cl.ApellidoMaterno, cl.rfc,cl.curp, " strSQL = strSQL & " (SELECT MUNICIPIO FROM Cat_Municipio WHERE IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado) AS COLONIA" 'kdom.calle + ' ' + kdom.numero as domicilio, strSQL = strSQL & " ,substring((rtrim(substring(isnull(KDom.domicilio,''),1,55) + ISNULL(kdom.cp,''))),1,60) DOMICILIO" strSQL = strSQL & " ,isnull(kdom.IdMunicipio,'') PLAZACLI," '0' plazacli, " strSQL = strSQL & " isnull(trans.nota,'') nota,isnull(trans.razon,'') razon,trans.idtransaccion, " strSQL = strSQL & " trans.idproducto, (select aliasid from Cat_ActividadEconomica where IdActividadEconomica = isnull(cl.idactividadeconomica,1)) idactividadeconomica " strSQL = strSQL & " ,null as fnacimiento,trans.fechadeteccion,Trans.idpatron, " strSQL = strSQL & " trans.montopesosF, trans.idalarma" strSQL = strSQL & " ,(select ALIAS2 from Cat_Municipios where Descripcion = (select municipio from Cat_Municipio where IdMunicipio=kdom.IdMunicipio AND IdEstado=kdom.IdEstado)) as ClaveMun " strSQL = strSQL & " from TransaccionReporte trans " strSQL = strSQL & " inner join TESORERIA Prod on trans.idtransaccion = prod.idtransaccion " strSQL = strSQL & " inner join Cuenta Cta on cta.IdCuenta = prod.idCuenta " strSQL = strSQL & " inner join cat_sucursal suc on prod.idsucursal = suc.idsucursal " strSQL = strSQL & " inner join Cat_Plaza cp on cp.IdPlaza= suc.IdPlaza " strSQL = strSQL & " inner join cliente cl on cta.idcliente = cl.idcliente " strSQL = strSQL & " inner join kyc_datosgenerales k on k.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join KYC_Domicilio kDom on kdom.IdCliente = cl.IdCliente" strSQL = strSQL & " inner join cat_pais on cat_pais.IdPais = cl.idpaisNacionalidad" strSQL = strSQL & " where trans.idestatustransaccion in(0, 2) and trans.nota <> 'DECREMENTO SU OPERATIVIDAD' " strSQL = strSQL & " AND (trans.idalarma = 3 ) " strSQL = strSQL & " AND convert(char(10), PROD.FECHA,112) BETWEEN '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "' AND '" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" ClassDatos2 = New clsComplejo ClassDatos2.fdtDataSet(strSQL) If ClassDatos2.ds.Tables(0).Rows.Count <> 0 Then For x As Integer = 0 To ClassDatos2.ds.Tables(0).Rows.Count - 1 FilaDatos = ClassDatos2.ds.Tables(0).Rows(x) strCadenaIN = "" strCadenaFija = "" strCadenaIN = strCadenaIN & "3;" 'CAMPO1 TIPO REPORTE strCadenaIN = strCadenaIN & Year(fFinal) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(fFinal), "00") & ";" 'CAMPO2 PERIODO DEL REPORTE strCadenaIN = strCadenaIN & Format(lngContador, "000000") & ";" 'CAMPO3 CONSECUTIVO strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idorganismointernacional")), "000000") & ";" 'CAMPO4 ORGANISMO SUPERVISOR strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera")), "000000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("plaza")), "00000000") & ";" 'CAMPO 6 LOCALIDAD 'If FilaDatos("sucursal") = 0 Then ' strCadenaIN = strCadenaIN & "01" & ";" 'CAMPO 7 SUCURSAL 'Else ' strCadenaIN = strCadenaIN & Format(FilaDatos("sucursal"), "00") & ";" 'CAMPO 7 SUCURSAL 'End If strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL a REQUERIMIENTO DE ANGEL FRIAS CORREO JUNIO/2013 strCadenaIN = strCadenaIN & Format(FilaDatos("tipooperacion"), "00") & ";" 'CAMPO 8 TIPO OPERACION strCadenaIN = strCadenaIN & Format(FilaDatos("instrumento"), "00") & ";" 'CAMPO 9 INSTRUMENTO MONETARIO strCadenaIN = strCadenaIN & FilaDatos("cuenta") & ";" 'CAMPO 10 NUMERO DE CUENTA If FilaDatos("idpatron") = 99 Then strCadenaIN = strCadenaIN & Format(FilaDatos("montopesosF"), "#############0.00") & ";" 'CAMPO 11 MONTO Else strCadenaIN = strCadenaIN & Format(FilaDatos("monto"), "#############0.00") & ";" 'CAMPO 11 MONTO End If strCadenaIN = strCadenaIN & FilaDatos("idmoneda") & ";" 'CAMPO 12 MONEDA strCadenaIN = strCadenaIN & Format(Year(FilaDatos("fecha")), "0000") & Format(Month(FilaDatos("fecha")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fecha")), "00") & ";" 'CAMPO 13 FECHA If FilaDatos("idalarma") = 2 Then If Not IsDBNull(FilaDatos("fechadeteccion")) Then strCadenaIN = strCadenaIN & Format(Year(FilaDatos("fechadeteccion")), "0000") & Format(Month(FilaDatos("fechadeteccion")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fechadeteccion")), "00") & ";" 'CAMPO 14 FECHA DETECCION Else strCadenaIN = strCadenaIN & ";" End If Else strFechaFracc = FilaDatos("fechadeteccion") 'DateAdd(DateInterval.Day, 2, FilaDatos("fecha")) strCadenaIN = strCadenaIN & Format(Year(CDate(strFechaFracc)), "0000") & Format(Month(CDate(strFechaFracc)), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(CDate(strFechaFracc)), "00") & ";" 'CAMPO 14 FECHA DETECCION End If strCadenaIN = strCadenaIN & FilaDatos("nacionalidad") & ";" 'CAMPO 15 NACIONALIDAD strCadenaIN = strCadenaIN & FilaDatos("idtipopersona") & ";" 'CAMPO 16 TIPOPERSONA If FilaDatos("idtipopersona") = 2 Then strCadenaIN = strCadenaIN & IIf(FilaDatos("idtipopersona") = 2, FilaDatos("clientenom"), "") & ";" 'OBLIGATORIO 18 nombre en el razon social alfa60 strCadenaIN = strCadenaIN & ";" 'OBLIGATORIO 19 apellido paterno alfa60 strCadenaIN = strCadenaIN & ";" '20 apelldio materno alfa 30 strCadenaIN = strCadenaIN & ";" Else 'OBLIGATORIO 17 razonsocial alfa60 strCadenaIN = strCadenaIN & ";" 'OBLIGATORIO 18 nombre en el razon social alfa60 strCadenaIN = strCadenaIN & FilaDatos("clienteNom").ToString.Trim & ";" 'OBLIGATORIO 19 apellido paterno alfa60 strCadenaIN = strCadenaIN & FilaDatos("ApellidoPaterno").ToString.Trim & ";" '20 apelldio materno alfa 30 strCadenaIN = strCadenaIN & FilaDatos("ApellidoMaterno").ToString.Trim & ";" End If strCadenaIN = strCadenaIN & FilaDatos("rfc") & ";" 'CAMPO 21 RFC strCadenaIN = strCadenaIN & IIf(IsDBNull(FilaDatos("curp")), "", FilaDatos("curp")) & ";" 'CAMPO 22 CURP 'If IsDBNull(FilaDatos("fnacimiento")) Then ' strCadenaIN = strCadenaIN & ";" 'Else ' strCadenaIN = strCadenaIN & Classcom.ObtenFecha(FilaDatos("fnacimiento"), "yyyymmdd").ToString.Trim & ";" 'CAMPO 23 FECHA NACIMIENTO 'End If 'strCadenaIN = strCadenaIN & FilaDatos("domicilio").ToString.Trim & ";" 'CAMPO 24 DOMICILIO 'strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA 'strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("plazacli")), "00000000") & ";" 'CAMPO 26 LOCALIDAD If IsDBNull(FilaDatos("fnacimiento")) Then strCadenaIN = strCadenaIN & "19000101;" Else strCadenaIN = strCadenaIN & Classcom.ObtenFecha(FilaDatos("fnacimiento"), "yyyymmdd").ToString.Trim & ";" 'CAMPO 23 FECHA NACIMIENTO End If strCadenaIN = strCadenaIN & FilaDatos("domicilio").ToString.Trim & ";" 'CAMPO 24 DOMICILIO ' ha peticion de Angel Frias si la colonia no traé valor se le asigna 0 strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("ClaveMun")), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("idactividadeconomica")), "0000000") & ";" 'CAMPO 28 ACTIVIDADECONOMICA '29 - 33 no se utilizan strCadenaIN = strCadenaIN & "" & ";" & "" & ";" & "" & ";" strCadenaIN = strCadenaIN & "" & ";" & "" & ";" ''34 Consecutivo de Cuentas y/o personas relacionadas strCadenaIN = strCadenaIN & "00" & ";" '35 Numero de cuenta strCadenaIN = strCadenaIN & "" & ";" '36 Clave de la Entidad Financiera strCadenaIN = strCadenaIN & "" & ";" '37 Titular de la Cuenta strCadenaIN = strCadenaIN & "" & ";" 'OBLIGATORIO 38 apellido paterno alfa60 strCadenaIN = strCadenaIN & "" & ";" '39 apelldio materno alfa 30 strCadenaIN = strCadenaIN & "" & ";" '40 Descripcion de la Operacion If FilaDatos("nota") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("nota") & ";" 'strNota1 & ";" & strNota2 & ";" & strNota3 & ";" & strNota4 & ";" Else strCadenaIN = strCadenaIN & IIf(IsDBNull(FilaDatos("nota")), "", FilaDatos("nota")) & ";" strCadenaIN = strCadenaIN & "" & ";" End If '41 Razones por las que el acto u operacion se considera inusual If FilaDatos("razon") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("razon") '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 & ";" Else strCadenaIN = strCadenaIN & "" '& ";" End If StrMRead.WriteLine(strCadenaIN) esfracc: lngContador = lngContador + 1 Next End If Next End If End If Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Preocupantes: Periodo de " & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & " al " & Classcom.ObtenFecha(fFinal, "YYYYMMDD")) StrMRead.Close() ' MessageBox.Show("Generacion de Reporte con exito", "Reportes al SITI", MessageBoxButtons.OK, MessageBoxIcon.Information) MsgBox("El Archivo " & strFile & " se Creo Satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) Catch ex As Exception MessageBox.Show("Error Generacion Reporte Preocupantes " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Preocupantes: Error al generar Reporte " & ex.Message) StrMRead.Close() End Try End Sub End Class