Imports System.IO Imports System.Text Public Class ClassSITI 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 Dim ClassActualizacion As New clsComplejo Try Classcom.fdtDataSet("SELECT * FROM ParamRep") If Classcom.ds.Tables(0).Rows.Count <> 0 Then FilaRep = Classcom.ds.Tables(0).Rows(0) 'Format(CLng(FilaRep("idinstitucionFinanciera").ToString().Replace("-", "")), "000000") strCadenaNombre = "1" & Format(CLng(Classcom.ds.Tables(0).Rows(0).Item("IdInstitucionFinanciera").ToString().Replace("-", "")), "000000") & Format(fFinal, "yyMM") & ".002" strFile = Classcom.ds.Tables(0).Rows(0).Item("rutarelevantes") & "\" & strCadenaNombre strSQL = Classcom.ObtenFecha(fFinal, "YYMM") Try If Directory.Exists(Classcom.ds.Tables(0).Rows(0).Item("rutarelevantes")) = False Then ' si no existe la carpeta se crea Directory.CreateDirectory(Classcom.ds.Tables(0).Rows(0).Item("rutarelevantes")) 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 Catch ex As Exception MsgBox("Hubo un problema al intentar crear el archivo " & strFile & " verifique o cambie el subdirectorio en la opción de parametros.", MsgBoxStyle.Information, Application.ProductName) Exit Sub End Try 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") & "'" strSQL = "sp_ReportesCNBV_Relevantes '" & fInicio.ToString("yyyy/MM/dd") & "','" & fFinal.ToString("yyyy/MM/dd") & "'" 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").ToString().Replace("-", "")), "000000") & ";" 'CAMPO4 ORGANISMO SUPERVISOR strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera").ToString().Replace("-", "")), "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 & FilaDatos("ALIAS") & ";" ' "01" & ";" 'CAMPO 7 SUCURSAL 'strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL a REQUERIMIENTO DE ANGEL FRIAS CORREO JUNIO/2013 'strCadenaIN = strCadenaIN & "Bankaool" & ";" 'CAMPO 7 SUCURSAL '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("IDTIPOOPERACION"), "00") & ";" 'CAMPO 8 TIPO OPERACION strCadenaIN = strCadenaIN & Format(FilaDatos("instrumento"), "00") & ";" 'CAMPO 9 INSTRUMENTO MONETARIO strCadenaIN = strCadenaIN & FilaDatos("NOCUENTA") & ";" '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 If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & "2;" 'CAMPO 16 TIPOPERSONA Else strCadenaIN = strCadenaIN & "1;" 'CAMPO 16 TIPOPERSONA End If 'If Not IsDBNull(FilaDatos("tipopersona")) Then If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS") & ";" '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("NOMBREORAZONS").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 'Else ''OBLIGATORIO 17 razonsocial alfa60 'strCadenaIN = strCadenaIN & ";" ''OBLIGATORIO 18 nombre en el razon social alfa60 'strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS").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("CALLE").ToString.Trim & " " & IIf(FilaDatos("NUMEROEXT").ToString.Length > 0, FilaDatos("NUMEROEXT").ToString, "") & " " & IIf(FilaDatos("NUMEROINT").ToString.Length > 0, FilaDatos("NUMEROINT").ToString, "") & " " & IIf(FilaDatos("CP").ToString.Length > 0, FilaDatos("CP").ToString, "") & ";" 'CAMPO 24 DOMICILIO If FilaDatos("colonia").ToString.Trim() = "" Then strCadenaIN = strCadenaIN & "0;" 'CAMPO 25 COLONIA. Si viene vacia se coloca '0' Else strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA End If 'strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("ClaveMun")), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("PLAZACLI")), "00000000") & ";" 'CAMPO 26 LOCALIDAD ''strCadenaIN = strCadenaIN & Format(FilaDatos("plaza"), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("IDACTIVIDADECONOMICA") & ";" 'CAMPO 28 ACTIVIDADECONOMICA '29 - 33 no se utilizan strCadenaIN = strCadenaIN & "" & ";" & "" & ";" & "" & ";" strCadenaIN = strCadenaIN & "" & ";" & "" & ";" ''34 Consecutivo de Cuentas y/o personas relacionadas 'strCadenaIN = strCadenaIN & "00" & ";" 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 Not IsDBNull(FilaDatos("razon")) Then ' strCadenaIN = strCadenaIN & FilaDatos("razon") '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 & ";" 'Else strCadenaIN = strCadenaIN 'End If strStreamWriter.WriteLine(strCadenaIN.ToUpper) lngContador = lngContador + 1 '--actualiza en transaccion reporte Dim strSQLActualizacion As String = "" strSQLActualizacion = "UPDATE transaccionreporte SET idestatusalarma = 5 where idtransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idtipoalarma = " & FilaDatos("IDTIPOALARMA").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim Dim cmp As New clsComplejo cmp.sbInserta(strSQLActualizacion) Next End If 'Next strStreamWriter.Close() ' cerramos MsgBox("El archivo " & strFile & " se creó satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) ''Auditoria Dim sTextoAud As String sTextoAud = "Reporte de relevantes SITI, periodo del " & fInicio.Date & " al " & fFinal.Date ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 116, 1, sTextoAud) ''Fin de auditoria Catch ex As Exception MessageBox.Show("Error en la generación del reporte relevantes " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Relevantes: error al generar reporte " & ex.Message) 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 MessageBox.Show("Error en la Generacion Reporte Relevantes " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Relevantes: Error al generar Reporte " & ex.Message) If File.Exists(strFile) Then strStreamWriter.Close() ' cerramos End If End Try End Sub Public Sub ReporteInusuales(ByVal fInicio As Date, ByVal fFinal As Date, ByVal b24H As Boolean) 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 idMOnedaActual As String Dim strRazon1 As String Dim strRazon2 As String Dim strRazon3 As String Dim ClassUtils As New ClassMyUtils Dim strFechaFracc As String Dim ClassActualizacion As New clsComplejo Dim incrementar As Boolean = True Dim consecutivoCuentasRel As Integer = 0 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").ToString().Replace("-", "")), "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 Try 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) End If StrMFile = New System.IO.FileStream(strFile, IO.FileMode.OpenOrCreate, IO.FileAccess.Write) StrMRead = New System.IO.StreamWriter(StrMFile) Catch ex As Exception MsgBox("Hubo un problema al intentar crear el archivo " & strFile & " verifique o cambie el subdirectorio en la opción de parametros.", MsgBoxStyle.Information, Application.ProductName) Exit Sub End Try 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 = "sp_ReportesCNBV_INUSUALES '" & fInicio.ToString("yyyyMMdd") & "','" & fFinal.ToString("yyyyMMdd") & "'," & IIf(b24H = True, "1", "0") ClassDatos = New clsComplejo ClassDatos.fdtDataSet(strSQL) If ClassDatos.ds.Tables(0).Rows.Count <> 0 Then lngContador = 0 consecutivoCuentasRel = 0 For x As Integer = 0 To ClassDatos.ds.Tables(0).Rows.Count - 1 FilaDatos = ClassDatos.ds.Tables(0).Rows(x) '---------------------- If FilaDatos("B_ESPERSONAREL").ToString() = "True" Then incrementar = False If lngContador = 0 Then lngContador = 1 End If Else consecutivoCuentasRel = 0 incrementar = True End If If incrementar Then lngContador = lngContador + 1 End If '---------------------- 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").ToString().Replace("-", "")), "000000") & ";" 'CAMPO4 ORGANISMO SUPERVISOR strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera").ToString().Replace("-", "")), "000000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN If FilaDatos("B_ESPERSONAREL").ToString() = "True" Then strCadenaIN = strCadenaIN & ";;;;;;;;;;;;;;;;;;;;;;;;;;;;" 'incrementar = False consecutivoCuentasRel += 1 ''34 Consecutivo de Cuentas y/o personas relacionadas strCadenaIN = strCadenaIN & Format(consecutivoCuentasRel, "00") & ";" '35 Numero de cuenta strCadenaIN = strCadenaIN & FilaDatos("NOCUENTAREL").ToString() & ";" '36 Clave de la Entidad Financiera strCadenaIN = strCadenaIN & FilaDatos("CLAVECNBVREL").ToString() & ";" '37 Titular de la Cuenta strCadenaIN = strCadenaIN & FilaDatos("NOMBREREL").ToString() & ";" 'OBLIGATORIO 38 apellido paterno alfa60 strCadenaIN = strCadenaIN & FilaDatos("PATERNOREL").ToString() & ";" '39 apelldio materno alfa 30 strCadenaIN = strCadenaIN & FilaDatos("MATERNOREL").ToString() & ";" Else 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 & FilaDatos("ALIAS") & ";" ' "01" & ";" 'CAMPO 7 SUCURSAL 'strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL a REQUERIMIENTO DE ANGEL FRIAS CORREO JUNIO/2013 'strCadenaIN = strCadenaIN & "Bankaool" & ";" 'CAMPO 7 SUCURSAL '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("IDTIPOOPERACION"), "00") & ";" 'CAMPO 8 TIPO OPERACION strCadenaIN = strCadenaIN & Format(FilaDatos("instrumento"), "00") & ";" 'CAMPO 9 INSTRUMENTO MONETARIO strCadenaIN = strCadenaIN & FilaDatos("NOCUENTA") & ";" '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 & Format(Year(FilaDatos("fechadeteccion")), "0000") & Format(Month(FilaDatos("fechadeteccion")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fechadeteccion")), "00") & ";" 'CAMPO 14 FECHA DETECCION PARA RELEVANTES NO SE COLOCA strCadenaIN = strCadenaIN & FilaDatos("nacionalidad") & ";" 'CAMPO 15 NACIONALIDAD If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & "2;" 'CAMPO 16 TIPOPERSONA Else strCadenaIN = strCadenaIN & "1;" 'CAMPO 16 TIPOPERSONA End If 'If Not IsDBNull(FilaDatos("tipopersona")) Then If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS") & ";" '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("NOMBREORAZONS").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 ' Else ' 'OBLIGATORIO 17 razonsocial alfa60 ' strCadenaIN = strCadenaIN & ";" ' 'OBLIGATORIO 18 nombre en el razon social alfa60 ' strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS").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("CALLE").ToString.Trim & " " & IIf(FilaDatos("NUMEROEXT").ToString.Length > 0, FilaDatos("NUMEROEXT").ToString, "") & " " & IIf(FilaDatos("NUMEROINT").ToString.Length > 0, FilaDatos("NUMEROINT").ToString, "") & " " & IIf(FilaDatos("CP").ToString.Length > 0, FilaDatos("CP").ToString, "") & ";" 'CAMPO 24 DOMICILIO If FilaDatos("colonia").ToString.Trim() = "" Then strCadenaIN = strCadenaIN & "0;" 'CAMPO 25 COLONIA. Si viene vacia se coloca '0' Else strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA End If 'strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("ClaveMun")), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("PLAZACLI")), "00000000") & ";" 'CAMPO 26 LOCALIDAD ''strCadenaIN = strCadenaIN & Format(FilaDatos("plaza"), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("IDACTIVIDADECONOMICA") & ";" '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 'strCadenaIN = strCadenaIN & "" & ";" If FilaDatos("nota") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("nota").replace(";", " ") & ";" '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 Not IsDBNull(FilaDatos("razon")) Then If FilaDatos("razon") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("razon").replace(";", " ") '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 & ";" Else strCadenaIN = strCadenaIN & "" '& ";" End If Else strCadenaIN = strCadenaIN & "" '& ";" End If End If StrMRead.WriteLine(strCadenaIN.ToUpper) ClassDatos2 = New clsComplejo '--actualiza en transaccion reporte Dim strSQLActualizacion As String = "" strSQLActualizacion = "UPDATE transaccionreporte SET idestatusalarma = 5 where idtransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idtipoalarma = " & FilaDatos("IDTIPOALARMA").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassDatos2.sbInserta(strSQLActualizacion) '--actualiza en operaciones sin transaccion strSQLActualizacion = "UPDATE OperacionesSinTran SET idestatustransaccion = 5 where idSinTransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("IDTIPOALARMA").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassDatos2.sbInserta(strSQLActualizacion) Next End If End If End If StrMRead.Close() MsgBox("El archivo " & strFile & " se creó satisfactoriamente. ", MsgBoxStyle.Information, Application.ProductName) ''Auditoria Dim sTextoAud As String sTextoAud = "Reporte de inusuales SITI, periodo del " & fInicio.Date & " al " & fFinal.Date ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 116, 1, sTextoAud) ''Fin de auditoria Catch ex As Exception MessageBox.Show("Error en la generación del reporte inusuales " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Inusuales: error al generar reporte " & ex.Message) If File.Exists(strFile) Then StrMRead.Close() ' cerramos End If End Try End Sub Public Sub ReportePre(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 Dim incrementar As Boolean = True Dim consecutivoCuentasRel As Integer = 0 Dim ClassActualizacion As New clsComplejo 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").ToString().Replace("-", "")), "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("rutapreocupantes") & "\" & strCadenaNombre Try If Directory.Exists(Classcom.ds.Tables(0).Rows(0).Item("rutapreocupantes")) = False Then ' si no existe la carpeta se crea Directory.CreateDirectory(Classcom.ds.Tables(0).Rows(0).Item("rutapreocupantes")) 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) Catch ex As Exception MsgBox("Hubo un problema al intentar crear el archivo " & strFile & " verifique o cambie el subdirectorio en la opción de parametros.", MsgBoxStyle.Information, Application.ProductName) Exit Sub End Try 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 Dim i As Integer i = 0 FilaProductos = Classcom.ds.Tables(0).Rows(i) strSQL = "sp_ReportesCNBV_PREOCUPANTES '" & fInicio.ToString("yyyy/MM/dd") & "','" & fFinal.ToString("yyyy/MM/dd") & "'" ClassDatos2 = New clsComplejo ClassDatos2.fdtDataSet(strSQL) If ClassDatos2.ds.Tables(0).Rows.Count <> 0 Then lngContador = 0 consecutivoCuentasRel = 0 For x As Integer = 0 To ClassDatos2.ds.Tables(0).Rows.Count - 1 FilaDatos = ClassDatos2.ds.Tables(0).Rows(x) '---------------------- If FilaDatos("B_ESPERSONAREL").ToString() = "True" Then incrementar = False If lngContador = 0 Then lngContador = 1 End If Else consecutivoCuentasRel = 0 incrementar = True End If If incrementar Then lngContador = lngContador + 1 End If '---------------------- 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").ToString().Replace("-", "")), "000000") & ";" 'CAMPO4 ORGANISMO SUPERVISOR strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera").ToString().Replace("-", "")), "000000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN '---------------------- If FilaDatos("B_ESPERSONAREL").ToString() = "True" Then strCadenaIN = strCadenaIN & ";;;;;;;;;;;;;;;;;;;;;;;;;;;;" 'incrementar = False consecutivoCuentasRel += 1 ''34 Consecutivo de Cuentas y/o personas relacionadas strCadenaIN = strCadenaIN & Format(consecutivoCuentasRel, "00") & ";" '35 Numero de cuenta strCadenaIN = strCadenaIN & FilaDatos("NOCUENTAREL").ToString() & ";" '36 Clave de la Entidad Financiera strCadenaIN = strCadenaIN & FilaDatos("CLAVECNBVREL").ToString() & ";" '37 Titular de la Cuenta strCadenaIN = strCadenaIN & FilaDatos("NOMBREREL").ToString() & ";" 'OBLIGATORIO 38 apellido paterno alfa60 strCadenaIN = strCadenaIN & FilaDatos("PATERNOREL").ToString() & ";" '39 apelldio materno alfa 30 strCadenaIN = strCadenaIN & FilaDatos("MATERNOREL").ToString() & ";" Else 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 & FilaDatos("ALIAS") & ";" ' "01" & ";" 'CAMPO 7 SUCURSAL 'strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL a REQUERIMIENTO DE ANGEL FRIAS CORREO JUNIO/2013 'strCadenaIN = strCadenaIN & "Bankaool" & ";" 'CAMPO 7 SUCURSAL '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("IDTIPOOPERACION"), "00") & ";" 'CAMPO 8 TIPO OPERACION strCadenaIN = strCadenaIN & Format(FilaDatos("instrumento"), "00") & ";" 'CAMPO 9 INSTRUMENTO MONETARIO strCadenaIN = strCadenaIN & FilaDatos("NOCUENTA") & ";" '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 & Format(Year(FilaDatos("fechadeteccion")), "0000") & Format(Month(FilaDatos("fechadeteccion")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fechadeteccion")), "00") & ";" 'CAMPO 14 FECHA DETECCION PARA RELEVANTES NO SE COLOCA strCadenaIN = strCadenaIN & FilaDatos("nacionalidad") & ";" 'CAMPO 15 NACIONALIDAD If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & "2;" 'CAMPO 16 TIPOPERSONA Else strCadenaIN = strCadenaIN & "1;" 'CAMPO 16 TIPOPERSONA End If 'If Not IsDBNull(FilaDatos("tipopersona")) Then If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS") & ";" '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("NOMBREORAZONS").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 ' Else ' 'OBLIGATORIO 17 razonsocial alfa60 ' strCadenaIN = strCadenaIN & ";" ' 'OBLIGATORIO 18 nombre en el razon social alfa60 ' strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS").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("CALLE").ToString.Trim & " " & IIf(FilaDatos("NUMEROEXT").ToString.Length > 0, FilaDatos("NUMEROEXT").ToString, "") & " " & IIf(FilaDatos("NUMEROINT").ToString.Length > 0, FilaDatos("NUMEROINT").ToString, "") & " " & IIf(FilaDatos("CP").ToString.Length > 0, FilaDatos("CP").ToString, "") & ";" 'CAMPO 24 DOMICILIO If FilaDatos("colonia").ToString.Trim() = "" Then strCadenaIN = strCadenaIN & "0;" 'CAMPO 25 COLONIA. Si viene vacia se coloca '0' Else strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA End If 'strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("ClaveMun")), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("PLAZACLI")), "00000000") & ";" 'CAMPO 26 LOCALIDAD ''strCadenaIN = strCadenaIN & Format(FilaDatos("plaza"), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("IDACTIVIDADECONOMICA") & ";" '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 'strCadenaIN = strCadenaIN & "" & ";" If FilaDatos("nota") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("nota").replace(";", " ") & ";" '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 Not IsDBNull(FilaDatos("razon")) Then If FilaDatos("razon") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("razon").replace(";", " ") '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 & ";" Else strCadenaIN = strCadenaIN & "" '& ";" End If Else strCadenaIN = strCadenaIN & "" '& ";" End If End If StrMRead.WriteLine(strCadenaIN.ToUpper) 'esfracc: 'lngContador = lngContador + 1 '--actualiza en transaccion reporte Dim strSQLActualizacion As String = "" strSQLActualizacion = "UPDATE transaccionreporte SET idestatusalarma = 5 where idtransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idtipoalarma = " & FilaDatos("IDTIPOALARMA").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassDatos2.sbInserta(strSQLActualizacion) '--actualiza en operaciones sin transaccion strSQLActualizacion = "UPDATE OperacionesSinTran SET idestatustransaccion = 5 where idSinTransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("IDTIPOALARMA").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassDatos2.sbInserta(strSQLActualizacion) Next End If '''Next End If End If StrMRead.Close() ' MessageBox.Show("Generacion de Reporte con exito", "Reportes al SITI", MessageBoxButtons.OK, MessageBoxIcon.Information) MsgBox("El archivo " & strFile & " se creó satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) ''Auditoria Dim ClassUtils As New ClassMyUtils Dim sTextoAud As String sTextoAud = "Reporte de preocupantes SITI, periodo del " & fInicio.Date & " al " & fFinal.Date ClassUtils.RT_Auditoria(clsVaribles.varUsuario, 116, 1, sTextoAud) ''Fin de auditoria Catch ex As Exception MessageBox.Show("Error generación 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) If File.Exists(strFile) Then StrMRead.Close() ' cerramos End If End Try End Sub Private Function OntenerTIF(ByVal idMoneda As String) As String Dim strSQL As String Dim ClassDatos2 As New clsComplejo Dim FilaDatos As DataRow If EsTIF(idMoneda) = "" Then strSQL = "select TIF from CAT_MONEDA where IDMONEDA= " & idMoneda & " " 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) OntenerTIF = FilaDatos("TIF").ToString() Next End If Else OntenerTIF = EsTIF(idMoneda) End If End Function Private Function EsTIF(ByVal idMoneda As String) As String Dim strSQL As String Dim ClassDatos2 As New clsComplejo Dim FilaDatos As DataRow EsTIF = False strSQL = "select TIF from CAT_MONEDA where CLAVEMONEDA= '" & idMoneda & "' " 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) EsTIF = FilaDatos("TIF").ToString() Next End If End Function 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 ArchivoRelevantes(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 lim As New ValidaTexto Dim claveCasfim As String Dim ClassActualizacion As New clsComplejo Dim strCadenaIN As String Dim strFechaFracc As String Dim ClassSITI As New ClassSITI 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") & Classcom.ObtenFecha(fFinal, "YYMM") & ".002" strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\Reportes\" & 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 strStreamW = File.Create(strFile) ' lo creamos Else MsgBox("El Archivo " & strFile & " no se puede crear, porque no existe informacion en catalogo de la Institucion ", MsgBoxStyle.Information, Application.ProductName) Exit Sub End If strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default) ' tipo de codificacion para escritura ''----------------------------------------------------------Ç strSQL = "sp_ReportesCNBV_Relevantes '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "','" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" 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() Dim strCadena As String ClassDatos.fdtDataSet(strSQL) 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 strCadenaIN = "" strFechaFracc = "" strCadenaIN = strCadenaIN & "1;" '& Year(fFinal) & Format(Month(fFinal), "00") & ";" & CStr(lngContador).PadLeft(6, "0") & ";001002;" 'campo 1-4 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 '----revisar el tipo de datos debe de ser string strCadenaIN = strCadenaIN & "00" & FilaRep("idorganismointernacional") & ";" 'CAMPO4 ORGANISMO SUPERVISOR '----revisar el tipo de datos debe de ser string strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera")), "000000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("plaza")), "00000000") & ";" 'CAMPO 6 LOCALIDAD '--Resvisar debe de ser el codigo postal de la sucursal strCadenaIN = strCadenaIN & FilaDatos("sucCP") & ";" '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("clave") & ";" '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 strCadenaIN = strCadenaIN & ";" 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 & Trim(FilaDatos("rfc")) & ";" 'CAMPO 21 RFC'---se le quita este campo para pagaTodo ya que esta incompleto strCadenaIN = strCadenaIN & FilaDatos("rfc") & ";" 'CAMPO 21 RFC strCadenaIN = strCadenaIN & ClassSITI.Reemplaza_DBNULL(FilaDatos("curp"), "") & ";" 'CAMPO 22 CURP ' strCadenaIN = strCadenaIN & Classcom.ObtenFecha(FilaDatos("fnacimiento"), "yyyymmdd").ToString.Trim & ";" 'CAMPO 23 FECHA NACIMIENTO 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 strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("id_actividad") & ";" 'CAMPO 28 ACTIVIDADECONOMICA strCadenaIN = strCadenaIN & ";" & "" & ";" & "" & ";" & "" & ";" & "" & ";" 'CAMPOS 29-33 NO SE UTILIZAN strCadenaIN = strCadenaIN & "" & ";" '34 Materno strCadenaIN = strCadenaIN & "" & ";" '35 descripción strCadenaIN = strCadenaIN & "" & ";" '36 Razón '-----comentado por la version sofome ''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 & "" & ";;" '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 & UCase(FilaDatos("razon")) '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 'Else ' strCadenaIN = strCadenaIN & "" '& ";" 'End If strCadenaIN = strCadenaIN.ToUpper Dim a As New ValidaTexto strCadenaIN = a.LimpiarUrl(strCadenaIN) 'If lngContador = ClassDatos.ds.Tables(0).Rows.Count Then ' StrMRead.Write(strCadenaIN.ToUpper) 'Else strStreamWriter.WriteLine(Trim(strCadenaIN.ToUpper)) '--mod. jegf 11/06/2014 para actualizar el estatus de las transacciones a 4 Dim strSQLActualizacion As String = "" strSQLActualizacion = "UPDATE transaccionreporte SET idestatustransaccion = 4 where idtransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("idalarma").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassActualizacion.sbInserta(strSQLActualizacion) strSQLActualizacion = "UPDATE OperacionesSinTran SET idestatustransaccion = 4 where idSinTransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("idalarma").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassActualizacion.sbInserta(strSQLActualizacion) Next End If 'Next strStreamWriter.Close() ' cerramos 'End If 'AUDITORIA Dim ClassAud As New ClassMyUtils 'ClassAud.RT_Auditoria(129, "GENERACION DE REPORTE RIP RELEVANTES (FECHA INICIAL: " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL:" & fFinal.ToString("dd/MM/yyyy") & ")") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "GENERACION DE REPORTE RIP RELEVANTES (FECHA INICIAL: " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL:" & fFinal.ToString("dd/MM/yyyy") & ")") 'FIN AUDITORIA Catch ex As Exception MsgBox("Error al Guardar la informacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Error al generar el archivo: " & ex.Message) 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 ArchivoRelevantesFrac(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 & " cli.nacionalidad,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" 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 prod.fecha BETWEEN convert(datetime,'20090601',103) AND convert(datetime,'20090701' ,103) " 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" 'strSQL = " SELECT suc.id_plaza Plaza,prod.id_sucursal sucursal,prod.id_tipooperacion tipooperacion," 'strSQL = strSQL & " prod.id_insmonetario Instrumento,prod.no_cuenta cuenta,prod.monto,prod.idmoneda,prod.fecha, " 'strSQL = strSQL & " cli.nacionalidad,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,ISNULL(trans.razon,'Sin Razon') razon" ',trans.razon" 'strSQL = strSQL & " FROM bancatradicional Prod, TransaccionReporte Trans, sucursal suc,cliente cli,cuenta ct" 'strSQL = strSQL & " WHERE trans.idproducto = 1 " 'producto 1 = banca tradicional 'strSQL = strSQL & " AND trans.id_alarma = 1 " '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 prod.fecha BETWEEN convert(datetime,'" & Classcom.ObtenFecha(fInicio, "dd/mm/yyyy") & "',103) AND convert(datetime,'" & Classcom.ObtenFecha(fFinal, "dd/mm/yyyy") & "',103)" 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 .Append(FilaDatos("sucCP") & ";") .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) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Error al generar el archivo: " & ex.Message) 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 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 '---------- Dim strStreamW As Stream = Nothing '------------------- Dim ClassActualizacion As New clsComplejo 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") & Year(fFinal).ToString().Substring(2, 2) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(fFinal), "00") & ".002" '& FilaRep("IdOrganismoInternacional") strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\Reportes\" & 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 'For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1 FilaProductos = Classcom.ds.Tables(0).Rows(0) strSQL = "" strSQL = " sp_ReportesCNBV_INUSUALES '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "','" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" ClassDatos = New clsComplejo ClassDatos.fdtDataSet(strSQL) 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) 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 '----revisar el tipo de datos debe de ser string strCadenaIN = strCadenaIN & "00" & FilaRep("idorganismointernacional") & ";" 'CAMPO4 ORGANISMO SUPERVISOR '----revisar el tipo de datos debe de ser string strCadenaIN = strCadenaIN & "0" & Format(CLng(FilaRep("idinstitucionfinanciera")), "00000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("plaza")), "00000000") & ";" 'CAMPO 6 LOCALIDAD '--Resvisar debe de ser el codigo postal de la sucursal strCadenaIN = strCadenaIN & FilaDatos("sucCP") & ";" '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("clave") & ";" '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("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 & Trim(FilaDatos("rfc")) & ";" 'CAMPO 21 RFC'---se le quita este campo para pagaTodo ya que esta incompleto strCadenaIN = strCadenaIN & FilaDatos("rfc") & ";" 'CAMPO 21 RFC strCadenaIN = strCadenaIN & ClassSITI.Reemplaza_DBNULL(FilaDatos("curp"), "") & ";" 'CAMPO 22 CURP ' strCadenaIN = strCadenaIN & Classcom.ObtenFecha(FilaDatos("fnacimiento"), "yyyymmdd").ToString.Trim & ";" 'CAMPO 23 FECHA NACIMIENTO 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 strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("id_actividad") & ";" 'CAMPO 28 ACTIVIDADECONOMICA '29 - 33 no se utilizan strCadenaIN = strCadenaIN & "" & ";" & "" & ";" & "" & ";" strCadenaIN = strCadenaIN & "" & ";" & "" & ";" '----comentados por la version de sofomes '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 & "" & ";" 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 & UCase(FilaDatos("razon")) & ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 Else strCadenaIN = strCadenaIN & "" & ";" End If strCadenaIN = strCadenaIN.ToUpper Dim a As New ValidaTexto strCadenaIN = a.LimpiarUrl(strCadenaIN) 'If lngContador = ClassDatos.ds.Tables(0).Rows.Count Then ' StrMRead.Write(strCadenaIN.ToUpper) 'Else StrMRead.WriteLine(Trim(strCadenaIN.ToUpper)) 'End If ClassDatos2 = New clsComplejo lngContador = lngContador + 1 Dim strSQLActualizacion As String = "" strSQLActualizacion = "UPDATE transaccionreporte SET idestatustransaccion = 4 where idtransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("idalarma").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassActualizacion.sbInserta(strSQLActualizacion) strSQLActualizacion = "UPDATE OperacionesSinTran SET idestatustransaccion = 4 where idSinTransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("idalarma").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassActualizacion.sbInserta(strSQLActualizacion) Next End If 'Next End If End If 'Ç lo coment StrMRead.Close() MsgBox("El Archivo " & strFile & " se Creo Satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) 'AUDITORIA Dim ClassAud As New ClassMyUtils 'ClassAud.RT_Auditoria(129, "GENERACION DE REPORTE RIP INUSUALES (FECHA INICIAL: " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL:" & fFinal.ToString("dd/MM/yyyy") & ")") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "GENERACION DE REPORTE RIP INUSUALES (FECHA INICIAL: " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL:" & fFinal.ToString("dd/MM/yyyy") & ")") 'FIN AUDITORIA Catch ex As Exception MessageBox.Show("Error en la Generación del Reporte de Inusuales: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Error al generar el archivo: " & ex.Message) StrMRead.Close() 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 lim As New ValidaTexto Dim strFechaFracc As String Dim consecutivoCuentasRel As Integer = 0 Dim incrementar As Boolean = True Dim ClassActualizacion As New clsComplejo 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) ' LsInstitucionF = Classcom.ds.Tables(0).Rows(0).Item("idinstitucionFinanciera").trim.PadLeft(6, "0") 'strCadenaNombre = "3" & LsInstitucionF & Right(Year(Date.Now), 2) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(Date.Now), "00") & ".002" strCadenaNombre = "3" & Format(CLng(FilaRep("idinstitucionFinanciera")), "000000") & Year(fFinal) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(fFinal), "00") & ".002" '& FilaRep("IdOrganismoInternacional") strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\Reportes\" & 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 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) 'datos del cliente 'strSQL = " SELECT suc.id_plaza Plaza,prod.id_sucursal sucursal,prod.id_tipooperacion tipooperacion," 'strSQL = strSQL & " prod.id_insmonetario Instrumento,ct.no_cuenta_base cuenta,prod.monto,prod.idmoneda,prod.fecha, " 'strSQL = strSQL & " cli.nacionalidad,cli.tipopersona,cli.telefono,cli.colonia,cli.clientenom, cli.apaterno, cli.amaterno, cli.rfc,cli.curp, " 'strSQL = strSQL & " cli.domicilio,cli.id_plaza plazacli,isnull(trans.nota,'') nota,isnull(trans.razon,'') razon,trans.idtransaccion,trans.idproducto,cli.id_actividad,k.fnacimiento,trans.fechadeteccion,Trans.id_patron,trans.montopesosF,trans.id_alarma " ',trans.razon" 'strSQL = strSQL & " FROM " & FilaProductos("nombreproducto") & " Prod, TransaccionReporte Trans, sucursal suc,cliente cli,cuenta ct,kyc_datosgenerales k" 'strSQL = strSQL & " WHERE trans.idproducto = " & FilaProductos("idproducto") 'strSQL = strSQL & " and trans.nota <> 'DECREMENTO SU OPERATIVIDAD' AND (trans.id_alarma = 3 )" '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 k.idcliente = cli.idcliente" 'strSQL = strSQL & " AND prod.fecha BETWEEN convert(datetime,'" & Classcom.ObtenFecha(fInicio, "dd/mm/yyyy") & "',103) AND convert(datetime,'" & Classcom.ObtenFecha(fFinal, "dd/mm/yyyy") & "',103)" 'strSQL = strSQL & " AND trans.id_estatustransaccion = 2 " 'strSQL = strSQL & " ORDER BY prod.fecha" strSQL = "" 'datos del funcionario strSQL = "" 'este Sp esta en revision Ç strSQL = "sp_ReportesCNBV_Preocupantes'" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "','" & 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) '---------------------- If FilaDatos("B_ESPERSONAREL").ToString() = "True" Then incrementar = False If lngContador = 0 Then lngContador = 1 End If Else consecutivoCuentasRel = 0 incrementar = True End If If incrementar Then lngContador = lngContador + 1 End If '---------------------- 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").ToString().Replace("-", "")), "000000") & ";" 'CAMPO4 ORGANISMO SUPERVISOR strCadenaIN = strCadenaIN & Format(CLng(FilaRep("idinstitucionfinanciera").ToString().Replace("-", "")), "000000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN '---------------------- If FilaDatos("B_ESPERSONAREL").ToString() = "True" Then strCadenaIN = strCadenaIN & ";;;;;;;;;;;;;;;;;;;;;;;;;;;;" 'incrementar = False consecutivoCuentasRel += 1 ''34 Consecutivo de Cuentas y/o personas relacionadas strCadenaIN = strCadenaIN & Format(consecutivoCuentasRel, "00") & ";" '35 Numero de cuenta strCadenaIN = strCadenaIN & FilaDatos("NOCUENTAREL").ToString() & ";" '36 Clave de la Entidad Financiera strCadenaIN = strCadenaIN & FilaDatos("CLAVECNBVREL").ToString() & ";" '37 Titular de la Cuenta strCadenaIN = strCadenaIN & FilaDatos("NOMBREREL").ToString() & ";" 'OBLIGATORIO 38 apellido paterno alfa60 strCadenaIN = strCadenaIN & FilaDatos("PATERNOREL").ToString() & ";" '39 apelldio materno alfa 30 strCadenaIN = strCadenaIN & FilaDatos("MATERNOREL").ToString() & ";" Else 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 & FilaDatos("ALIAS") & ";" ' "01" & ";" 'CAMPO 7 SUCURSAL 'strCadenaIN = strCadenaIN & "0" & ";" 'CAMPO 7 SUCURSAL a REQUERIMIENTO DE ANGEL FRIAS CORREO JUNIO/2013 'strCadenaIN = strCadenaIN & "Bankaool" & ";" 'CAMPO 7 SUCURSAL '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("IDTIPOOPERACION"), "00") & ";" 'CAMPO 8 TIPO OPERACION strCadenaIN = strCadenaIN & Format(FilaDatos("instrumento"), "00") & ";" 'CAMPO 9 INSTRUMENTO MONETARIO strCadenaIN = strCadenaIN & FilaDatos("NOCUENTA") & ";" '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 & Format(Year(FilaDatos("fechadeteccion")), "0000") & Format(Month(FilaDatos("fechadeteccion")), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(FilaDatos("fechadeteccion")), "00") & ";" 'CAMPO 14 FECHA DETECCION PARA RELEVANTES NO SE COLOCA strCadenaIN = strCadenaIN & FilaDatos("nacionalidad") & ";" 'CAMPO 15 NACIONALIDAD If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & "2;" 'CAMPO 16 TIPOPERSONA Else strCadenaIN = strCadenaIN & "1;" 'CAMPO 16 TIPOPERSONA End If 'If Not IsDBNull(FilaDatos("tipopersona")) Then If FilaDatos("tipopersona") <> 2 And FilaDatos("tipopersona") <> 4 Then strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS") & ";" '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("NOMBREORAZONS").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 ' Else ' 'OBLIGATORIO 17 razonsocial alfa60 ' strCadenaIN = strCadenaIN & ";" ' 'OBLIGATORIO 18 nombre en el razon social alfa60 ' strCadenaIN = strCadenaIN & FilaDatos("NOMBREORAZONS").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("CALLE").ToString.Trim & " " & IIf(FilaDatos("NUMEROEXT").ToString.Length > 0, FilaDatos("NUMEROEXT").ToString, "") & " " & IIf(FilaDatos("NUMEROINT").ToString.Length > 0, FilaDatos("NUMEROINT").ToString, "") & " " & IIf(FilaDatos("CP").ToString.Length > 0, FilaDatos("CP").ToString, "") & ";" 'CAMPO 24 DOMICILIO If FilaDatos("colonia").ToString.Trim() = "" Then strCadenaIN = strCadenaIN & "0;" 'CAMPO 25 COLONIA. Si viene vacia se coloca '0' Else strCadenaIN = strCadenaIN & FilaDatos("colonia").ToString.Trim & ";" 'CAMPO 25 COLONIA End If 'strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("ClaveMun")), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("PLAZACLI")), "00000000") & ";" 'CAMPO 26 LOCALIDAD ''strCadenaIN = strCadenaIN & Format(FilaDatos("plaza"), "00000000") & ";" 'CAMPO 26 LOCALIDAD strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("IDACTIVIDADECONOMICA") & ";" '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 'strCadenaIN = strCadenaIN & "" & ";" If FilaDatos("nota") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("nota").replace(";", " ") & ";" '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 Not IsDBNull(FilaDatos("razon")) Then If FilaDatos("razon") <> "" Then strCadenaIN = strCadenaIN & FilaDatos("razon").replace(";", " ") '& ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 & ";" Else strCadenaIN = strCadenaIN & "" '& ";" End If Else strCadenaIN = strCadenaIN & "" '& ";" End If End If StrMRead.WriteLine(strCadenaIN.ToUpper) 'esfracc: 'lngContador = lngContador + 1 '--actualiza en transaccion reporte Dim strSQLActualizacion As String = "" strSQLActualizacion = "UPDATE transaccionreporte SET idestatusalarma = 5 where idtransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idtipoalarma = " & FilaDatos("IDTIPOALARMA").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassDatos2.sbInserta(strSQLActualizacion) '--actualiza en operaciones sin transaccion strSQLActualizacion = "UPDATE OperacionesSinTran SET idestatustransaccion = 5 where idSinTransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("IDTIPOALARMA").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassDatos2.sbInserta(strSQLActualizacion) Next End If ''actualiza a ENviado el estatus tabla TransaccionReporte 'strSQL = "update transaccionreporte set Id_EstatusTransaccion = 4 " 'strSQL = strSQL & " where idtransaccion in ( " 'strSQL = strSQL & " SELECT trans.idtransaccion " ',trans.razon" 'strSQL = strSQL & " FROM " & FilaProductos("nombreproducto") & " Prod, TransaccionReporte Trans, sucursal suc,cliente cli,cuenta ct" 'strSQL = strSQL & " WHERE trans.idproducto = " & FilaProductos("idproducto") 'strSQL = strSQL & " AND trans.id_alarma = 3 and trans.Id_EstatusTransaccion = 2 " 'strSQL = strSQL & " AND prod.idtransaccion = trans.idtransaccion " 'If FilaProductos("idproducto") = 14 Then ' strSQL = strSQL & " AND prod.no_sucursal = suc.id_sucursal " 'Else ' strSQL = strSQL & " AND prod.id_sucursal = suc.id_sucursal " ' ' strSQL = strSQL & " AND prod.no_sucursal = suc.id_sucursal " 'End If 'strSQL = strSQL & " AND prod.no_cuenta = ct.no_cuenta " 'strSQL = strSQL & " AND ct.idcliente = cli.idcliente " 'strSQL = strSQL & " AND prod.fecha BETWEEN convert(datetime,'" & Classcom.ObtenFecha(fInicio, "dd/mm/yyyy") & "',103) AND convert(datetime,'" & Classcom.ObtenFecha(fFinal, "dd/mm/yyyy") & "',103))" 'ClassDatos = New clsComplejo 'ClassDatos.sbInserta(strSQL) Next End If End If Dim ClassAud As New ClassMyUtils 'ClassAud.RT_Auditoria(129, "GENERACION DE REPORTE RIP INTERNAS PREOCUPANTES (FECHA INICIAL: " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL:" & fFinal.ToString("dd/MM/yyyy") & ")") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "GENERACION DE REPORTE RIP INTERNAS PREOCUPANTES (FECHA INICIAL: " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL:" & fFinal.ToString("dd/MM/yyyy") & ")") 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, "Error al generar el archivo: " & ex.Message) StrMRead.Close() End Try End Sub Public Sub Archivo24Horas(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 '---------- Dim strStreamW As Stream = Nothing '------------------- Dim ClassActualizacion As New clsComplejo 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 = "2" & Format(CLng(FilaRep("idinstitucionFinanciera")), "000000") & Year(fFinal).ToString().Substring(2, 2) & Format(Month(fFinal), "00") & Format(Microsoft.VisualBasic.DateAndTime.Day(fFinal), "00") & ".002" '& FilaRep("IdOrganismoInternacional") strFile = Classcom.ds.Tables(0).Rows(0).Item("rutainusuales") & "\Reportes\" & 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 'For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1 FilaProductos = Classcom.ds.Tables(0).Rows(0) strSQL = "" VariablesGlobales.gblFecha = Mid(VariablesGlobales.gblFecha, 7, 4) & Mid(VariablesGlobales.gblFecha, 4, 2) & Mid(VariablesGlobales.gblFecha, 1, 2) strSQL = " spConR24HrsSITI '" & Classcom.ObtenFecha(fInicio, "YYYYMMDD") & "','" & Classcom.ObtenFecha(fFinal, "YYYYMMDD") & "'" ClassDatos = New clsComplejo ClassDatos.fdtDataSet(strSQL) 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) 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 '----revisar el tipo de datos debe de ser string strCadenaIN = strCadenaIN & "00" & FilaRep("idorganismointernacional") & ";" 'CAMPO4 ORGANISMO SUPERVISOR '----revisar el tipo de datos debe de ser string strCadenaIN = strCadenaIN & "0" & Format(CLng(FilaRep("idinstitucionfinanciera")), "00000") & ";" 'CAMPO5 ENTIDAD FINANCIERA strCadenaFija = strCadenaIN strCadenaIN = strCadenaIN & Format(CLng(FilaDatos("plaza")), "00000000") & ";" 'CAMPO 6 LOCALIDAD '--Resvisar debe de ser el codigo postal de la sucursal strCadenaIN = strCadenaIN & FilaDatos("sucCP") & ";" '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("clave") & ";" '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("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 & Trim(FilaDatos("rfc")) & ";" 'CAMPO 21 RFC'---se le quita este campo para pagaTodo ya que esta incompleto strCadenaIN = strCadenaIN & FilaDatos("rfc") & ";" 'CAMPO 21 RFC strCadenaIN = strCadenaIN & ClassSITI.Reemplaza_DBNULL(FilaDatos("curp"), "") & ";" 'CAMPO 22 CURP ' strCadenaIN = strCadenaIN & Classcom.ObtenFecha(FilaDatos("fnacimiento"), "yyyymmdd").ToString.Trim & ";" 'CAMPO 23 FECHA NACIMIENTO 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 strCadenaIN = strCadenaIN & FilaDatos("telefono") & ";" 'CAMPO 27 TELEFONO strCadenaIN = strCadenaIN & FilaDatos("id_actividad") & ";" 'CAMPO 28 ACTIVIDADECONOMICA '29 - 33 no se utilizan strCadenaIN = strCadenaIN & "" & ";" & "" & ";" & "" & ";" strCadenaIN = strCadenaIN & "" & ";" & "" & ";" '----comentados por la version de sofomes '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 & "" & ";" 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 & UCase(FilaDatos("razon")) & ";" ' strRazon1 & ";" & strRazon2 & ";" & strRazon3 Else strCadenaIN = strCadenaIN & "" & ";" End If strCadenaIN = strCadenaIN.ToUpper Dim a As New ValidaTexto strCadenaIN = a.LimpiarUrl(strCadenaIN) 'If lngContador = ClassDatos.ds.Tables(0).Rows.Count Then ' StrMRead.Write(strCadenaIN.ToUpper) 'Else StrMRead.WriteLine(Trim(strCadenaIN.ToUpper)) 'End If ClassDatos2 = New clsComplejo lngContador = lngContador + 1 '--mod. jegf 11/06/2014 para actualizar el estatus de las transacciones a 4 Dim strSQLActualizacion As String = "" strSQLActualizacion = "UPDATE transaccionreporte SET idestatustransaccion = 4 where idtransaccion = " _ & FilaDatos("idtransaccion").ToString.Trim & " and idpatron = " & FilaDatos("idpatron").ToString.Trim & " and idalarma = " & FilaDatos("idalarma").ToString.Trim & " and idproducto = " & FilaDatos("idproducto").ToString.Trim ClassActualizacion.sbInserta(strSQLActualizacion) Next End If 'Next End If End If 'Ç lo coment StrMRead.Close() MsgBox("El Archivo " & strFile & " se Creo Satisfactoriamente ", MsgBoxStyle.Information, Application.ProductName) 'AUDITORIA Dim ClassAud As New ClassMyUtils 'ClassAud.RT_Auditoria(129, "GENERACION DE REPORTE RIP INUSUALES 24HRS (FECHA INICIAL : " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL :" & fFinal.ToString("dd/MM/yyyy") & ")") ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "GENERACION DE REPORTE RIP INUSUALES 24HRS (FECHA INICIAL : " & fInicio.ToString("dd/MM/yyyy") & ", FECHA FINAL :" & fFinal.ToString("dd/MM/yyyy") & ")") 'FIN AUDITORIA Catch ex As Exception MessageBox.Show("Error en la Generación del Reporte de Inusuales: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error) Dim ClassAud As New ClassMyUtils ClassAud.RT_Auditoria(clsVaribles.varUsuario, 116, 1, "Error al generar el archivo: " & ex.Message) StrMRead.Close() End Try End Sub End Class