2337 lines
138 KiB
VB.net
2337 lines
138 KiB
VB.net
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<63>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<72> 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<63>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<63>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<72> 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<63>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<63>n de parametros.", MsgBoxStyle.Information, Application.ProductName)
|
||
Exit Sub
|
||
|
||
End Try
|
||
|
||
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
|
||
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<72> 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<63>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
|
||
|
||
''----------------------------------------------------------<2D>
|
||
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<63>n
|
||
strCadenaIN = strCadenaIN & "" & ";" '36 Raz<61>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 '<27> 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<63>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<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)
|
||
|
||
'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 <20>
|
||
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 '<27> 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<63>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 |