984 lines
55 KiB
VB.net
984 lines
55 KiB
VB.net
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
|
||
|