client/ClassSITI_Respaldo_20140506_1954.vb

984 lines
55 KiB
VB.net
Raw Normal View History

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