Visual Basic - Obtener tipo de cambio de sunat

Life is soft - evento anual de software empresarial

Volver

Nuevo Tema

Filtrado por el usuario: andreafuhr

<<>>

Filtrado por el usuario 'andreafuhr' (Eliminar fitro)

Obtener tipo de cambio de sunat

Publicado por Daniel (4 intervenciones) el 22/05/2014 00:07:47

ESTIMADOS AMIGOS DE ESTA WEB LES SALUDO MUY CORDIALMENTE DESEANDOLES MUCHOS EXITOS EN SU VIDA.
MI CONSULTA ES LA SIGUIENTE: TENGO UN FORMULARIO CON DOS COMBOS UNO PARA SELECCIONAR EL MES Y EL OTRO PARA SELECCIONAR EL AÑO UN BOTON DE COMANDO Y UN MSFLEXGRID
LO QUE REALIZA ESTE FORMULARIO AL DAR CLICK EN EL BOTON DE COMANDO ES OBTENER EL TIPO DE CAMBIO DE LA SUNAT Y LLENAR LOS DATOS OBTENIDOS EN EL MSFLEXGRID HASTA AHI TODO BIEN . LO MALO ES QUE AL MOMENTO DE OBTENER LOS DATOS LO LLENA ASI COMO SE VE EN LA IMAGEN
01/05/2014
2.807
2.809
02/05/2014
2.803
2.805
y asi sucecivamente con los demas dias
Imagen1

Y LO MAS NORMAL Y CONVENIENTE SERIA QUE LOS LLENE ASI

FECHA VENTA COMPRA
01/05/2014 2.807 2.809
02/05/2014 2.803 2.805
y asi sucecivamente con los demas dias

AHI LES DEJO EL CODIGO QUE ESTOY USANDO PARA VER SI ALGUIEN ME PUEDE AYUDAR EL CUAL ES UN CODIGO NO MIO SINO LO ENCONTRE POR AHI EN UNA APLICACION DE EXCELNEGOCIOS.COM APLICADO EN VBA Y YO LO ESTOY APLICANDO PARA VB6.0

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

Private Sub Command1_Click()

If Not IsNumeric(Combo1.Text) Then

      MsgBox "Seleccione el Mes"

Exit Sub

End If

If Not IsNumeric(Combo2.Text) Then

    MsgBox "Seleccione el Año"

Exit Sub

End If

Call ObtenerTC

End Sub

Sub ObtenerTC()

Dim URL As String

Dim IE As InternetExplorer

Dim HTMLdoc As HTMLDocument

Dim TDelements As IHTMLElementCollection

Dim TDelement As HTMLTableCell

Dim r As Long

Dim Tc_Mes, tc_año As String

Dim intFound As Integer

Tc_Mes = Combo1.Text

tc_año = Combo2.Text

'Tc_Mes = Application.WorksheetFunction.Match(Range("B5").Value, Range("meses"), 0)

'tc_año = Range("c5").Value

Label1.Caption = "Obteniendo Tipo de Cambio desde la Web de SUNAT"

URL = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias"

Set IE = New InternetExplorer

With IE

        .Navigate URL

        .Visible = False

        'Esperamos que toda la web cargue

    While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

    Set HTMLdoc = .Document

End With

With HTMLdoc.selectForm

    .mes.selectedIndex = Tc_Mes

    .anho.Value = tc_año

    .submit

End With

grilla

Set HTMLDOC2 = IE.Document

While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

Set TDelements = HTMLDOC2.getElementsByTagName("TD")

For Each TDelement In TDelements

Select Case TDelement.className

   Case "H3"

    Text1.Text = DateSerial(tc_año, Tc_Mes, TDelement.innerText)

    MSFlexGrid1.AddItem TDelement.innerText & vbTab & DateSerial(tc_año, Tc_Mes, TDelement.innerText)

   Case "tne10"

    'If TDelement.innerText = "" Then TDelement.innerText = "SIN T.C"

    If Text1.Text = "" Then

        'Text3.Text = TDelement.innerText

        MSFlexGrid1.AddItem vbTab & vbTab & TDelement.innerText

        Else

            'Text2.Text = TDelement.innerText

            MSFlexGrid1.AddItem vbTab & TDelement.innerText

    End If

End Select

Next

Label1.Caption = ""

IE.Quit

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub Form_Load()

Combo1.AddItem "01"

Combo1.AddItem "02"

Combo1.AddItem "03"

Combo1.AddItem "04"

Combo1.AddItem "05"

Combo1.AddItem "06"

Combo1.AddItem "07"

Combo1.AddItem "08"

Combo1.AddItem "09"

Combo1.AddItem "10"

Combo1.AddItem "11"

Combo1.AddItem "12"

Combo2.AddItem "2010"

Combo2.AddItem "2011"

Combo2.AddItem "2012"

Combo2.AddItem "2013"

Combo2.AddItem "2014"

MSFlexGrid1.Visible = False

End Sub

Sub grilla()

MSFlexGrid1.Visible = True

MSFlexGrid1.ColWidth(0) = 500

MSFlexGrid1.ColWidth(1) = 1000

MSFlexGrid1.Col = 1

MSFlexGrid1.Row = 0

MSFlexGrid1.Text = "DIA"

MSFlexGrid1.ColWidth(2) = 1800

MSFlexGrid1.Col = 2

MSFlexGrid1.Row = 0

MSFlexGrid1.Text = "COMPRA"

MSFlexGrid1.ColWidth(3) = 1800

MSFlexGrid1.Col = 3

MSFlexGrid1.Row = 0

MSFlexGrid1.Text = "VENTA"

FILA = 1

MSFlexGrid1.Rows = 1

End Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 104

Val: 15

Obtener tipo de cambio de sunat

Publicado por RoyMata (7 intervenciones) el 29/05/2014 01:33:20

Hola Daniel
Estas trabajando con Visual Basic? Me parece que la plataforma es VB6 puesto que el control FlexGrid ya no existe en .NET. Si es un VB6 el problema lo tienes a la hora de agregar el item ya que lo haces en un solo item.
Si lo haces en VB.NET con lagun paquete de compatilibilidad, te recomendaria que mejor trabajes con un control ListView que es mas robusto y mas facil de manipular

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Obtener tipo de cambio de sunat

Publicado por Daniel (4 intervenciones) el 16/06/2014 18:31:47

Ok muchas gracias por tu comentario pero sigo hasta ahora sin poder hacerlo . Formulario esta en visual basic 6.0

Valora esta respuesta

Comentar

Pos: 104

Val: 15

Obtener tipo de cambio de sunat

Publicado por RoyMata (7 intervenciones) el 17/06/2014 22:09:23

Bien Daniel, veamos si podemos acomodar los datos de forma que puedas llenar tu FlexGrid de la forma que deseas. En un contenedor de datos (para tu caso un MSFlexGrid) un item representa una fila (Row) de datos. Cada vez que utilizas la funcion AddItem estas agregando una nueva linea a tu control, por eso es que los datos mostrados aparecen todos en una misma columna.
Lo que debes hacer es ir especificando la fila y la columna en la que debe ir el dato.
Antes de tu ciclo For each declara una variables para llevar el numero de la fila actual. Luego, dentro del ciclo For, antes de insertar el dato inidcas el numero de fila y columna donde debe ir:

Dim Fila as Integer

Fila = 0     'la primera fila es la numero cero

For Each TDelement In TDelements

    'inserta nueva  fila en el control

    MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

     'selecciona la fila de insercion

     MSFlexGrid1.Row = Fila

     Select Case TDelement.className

          Case "H3"

               Text1.Text = DateSerial(tc_año, Tc_Mes, TDelement.innerText)

               'en el primer case inserta la fecha (Columna cero)

               MSFlexGrid1.Col = 0

               MSFlexGrid1.Text = DateSerial(tc_año, Tc_Mes, TDelement.innerText)

          Case "tne10"

               'If TDelement.innerText = "" Then TDelement.innerText = "SIN T.C"

                If Text1.Text = "" Then

                     'Text3.Text = TDelement.innerText

                     'aqui inserta el valor de compra (columna uno)

                     MSFlexGrid1.Col = 1

                     MSFlexGrid1.Text = TDelement.innerText

                Else

                     'Text2.Text = TDelement.innerText

                     'y aqui ingresa el valor de venta (columna dos)

                     MSFlexGrid1.Col = 2

                     MSFlexGrid1.Text = TDelement.innerText

                End If

     End Select

     'aumenta en uno la fila para pasar al siguiente registro

     Fila = Fila + 1

Next

Valora esta respuesta

Comentar

Obtener tipo de cambio de sunat

Publicado por Daniel (4 intervenciones) el 21/06/2014 18:27:32

Hola nuevamente, muchas gracias por tu ayuda lo intente con lo que dices asi como con el texmatrix pero lo que hace es solo cambiarlo de columna mas no de fila siempre sale por debajo de la fecha .

Valora esta respuesta

Comentar

Obtener tipo de cambio de sunat

Publicado por Jesus CB (2 intervenciones) el 09/09/2014 18:49:33

HOLA DANIEL, YA HA PASADO VARIOS MESES SI AUN NECESITAS LA SOLUCION AVISAME

Valora esta respuesta

Comentar

Obtener tipo de cambio de sunat

Publicado por Daniel (4 intervenciones) el 26/12/2014 15:21:55

Por favor amigo Jesus CB aun no e logrado realizar lo que queria, si tuviesen a bien ayudarme te lo agradeceria infinitamente.

Valora esta respuesta

Comentar

Obtener tipo de cambio de sunat

Publicado por Jesus CB (2 intervenciones) el 03/03/2015 22:28:52

TE DEJO EL PROCEDIMIENTO, ME SIRVIO DE MUCHO EL EJEMPLO, Y SOLO LO TERMINE, DEVUELVO LO AYUDADO.

Private Sub ObtenerTC()

 Dim URL As String

 Dim IE As SHDocVw.InternetExplorer

 'Dim IE As Object

 Dim HTMLdoc As HTMLDocument

 Dim TDelements As IHTMLElementCollection

 Dim TDelement As HTMLTableCell

 Dim R As Long

 Dim Tc_Mes, tc_año As String

 Dim intFound As Integer

 'Set IE = createobjet("InternetExplorer.Application")

 Tc_Mes = Combo1.Text

 tc_año = Combo2.Text

' Tc_Mes = Application.WorksheetFunction.Match(Range("B5").Value, Range("meses"), 0)

' tc_año = Range("c5").Value

 Label1.Caption = "Obteniendo Tipo de Cambio desde la Web de SUNAT"

 URL = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias"

 Set IE = New InternetExplorer

    With IE

        .Navigate URL

        .Visible = False

 'Esperamos que toda la web cargue

    While .Busy Or .ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

    Set HTMLdoc = .Document

    End With

    With HTMLdoc.selectForm

        .Mes.selectedIndex = Tc_Mes

        .anho.Value = tc_año

        .submit

    End With

 grilla

 Set HTMLDOC2 = IE.Document

 While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

 Set TDelements = HTMLDOC2.getElementsByTagName("TD")

 Col = 2

'For fila = 0 To MSFlexGrid1.Rows - 1

 For Each TDelement In TDelements

        Select Case TDelement.className

            Case "H3"

                  Text1.Text = DateSerial(tc_año, Tc_Mes, TDelement.innerText)

                  MSFlexGrid1.AddItem TDelement.innerText & vbTab & DateSerial(tc_año, Tc_Mes, TDelement.innerText)

            Case "tne10"

                     If Text1.Text <> "" Then

                                If Col = 2 Then

                                            Dim texto4 As Double

                                            texto4 = vbTab & vbTab & TDelement.innerText

                                            MSFlexGrid1.TextMatrix(fila, 2) = texto4

                                            'TDBGrid1.Row(fila, 1).Add = texto4

                                                Col = Col + 1

                                Else

                                            Dim texto5 As Double

                                            texto5 = vbTab & vbTab & TDelement.innerText

                                            MSFlexGrid1.TextMatrix(fila, 3) = texto5

                                                Col = 2

                                                fila = fila + 1

                                 End If

                    End If

        End Select

 Next

 'grilla

 Label1.Caption = ""

 IE.Quit

 End Sub

Valora esta respuesta

Comentar

Pos: 256

Val: 6

Obtener tipo de cambio de sunat

Publicado por Megamind (120 intervenciones) el 26/12/2014 18:07:25

Hola no se si te servirá, pero yo lo e solucionado así

Else

'Text2.Text = TDelement.innerText

'MSFlexGrid1.AddItem vbTab & TDelement.innerText

 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1

 If MSFlexGrid1.Col = 3 Then

    MSFlexGrid1.Col = 2

   Else

    MSFlexGrid1.Col = 3

 End If

 MSFlexGrid1.Text = TDelement.innerText

End If

End Select

Valora esta respuesta

Comentar

EXCELENTE

Publicado por Carlos (1 intervención) el 27/08/2015 19:59:59

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

Dim fila As Double

 Private Sub Command1_Click()

If Not IsNumeric(Combo1.Text) Then

      MsgBox "Seleccione el Mes"

Exit Sub

End If

If Not IsNumeric(Combo2.Text) Then

    MsgBox "Seleccione el Año"

Exit Sub

End If

Call ObtenerTC

End Sub

Private Sub ObtenerTC()

 Dim URL As String

 Dim IE As SHDocVw.InternetExplorer

 'Dim IE As Object

 Dim HTMLdoc As HTMLDocument

 Dim TDelements As IHTMLElementCollection

 Dim TDelement As HTMLTableCell

 Dim R As Long

 Dim Tc_Mes, tc_año As String

 Dim intFound As Integer

 'Set IE = createobjet("InternetExplorer.Application")

 Tc_Mes = Combo1.Text

 tc_año = Combo2.Text

' Tc_Mes = Application.WorksheetFunction.Match(Range("B5").Value, Range("meses"), 0)

' tc_año = Range("c5").Value

 Label1.Caption = "Obteniendo Tipo de Cambio desde la Web de SUNAT"

 URL = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias"

 Set IE = New InternetExplorer

    With IE

        .Navigate URL

        .Visible = False

 'Esperamos que toda la web cargue

    While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend

    Set HTMLdoc = .Document

    End With

    With HTMLdoc.selectForm

        .Mes.selectedIndex = Tc_Mes

        .anho.Value = tc_año

        .submit

    End With

 grilla

 Set HTMLDOC2 = IE.Document

 While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend

 Set TDelements = HTMLDOC2.getElementsByTagName("TD")

 Col = 2

fila = 1

' For fila = 0 To MSFlexGrid1.Rows - 1

     For Each TDelement In TDelements

            Select Case TDelement.className

                Case "H3"

                      Text1.Text = DateSerial(tc_año, Tc_Mes, TDelement.innerText)

                      MSFlexGrid1.AddItem TDelement.innerText & vbTab & DateSerial(tc_año, Tc_Mes, TDelement.innerText)

                Case "tne10"

                         If Text1.Text <> "" Then

                                    If Col = 2 Then

                                                Dim texto4 As Double

                                                texto4 = vbTab & vbTab & TDelement.innerText

                                                MSFlexGrid1.TextMatrix(fila, 2) = texto4

                                                'TDBGrid1.Row(fila, 1).Add = texto4

                                                    Col = Col + 1

                                    Else

                                                Dim texto5 As Double

                                                texto5 = vbTab & vbTab & TDelement.innerText

                                                MSFlexGrid1.TextMatrix(fila, 3) = texto5

                                                    Col = 2

                                                    fila = fila + 1

                                     End If

                        End If

            End Select

     Next

'Next

 'grilla

 Label1.Caption = ""

 IE.Quit

 End Sub

'Sub ObtenerTC()

'Dim URL As String

'Dim IE As InternetExplorer

'Dim HTMLdoc As HTMLDocument

'Dim TDelements As IHTMLElementCollection

'Dim TDelement As HTMLTableCell

'Dim r As Long

'Dim Tc_Mes, tc_año As String

'Dim intFound As Integer

'Tc_Mes = Combo1.Text

'tc_año = Combo2.Text

''Tc_Mes = Application.WorksheetFunction.Match(Range("B5").Value, Range("meses"), 0)

''tc_año = Range("c5").Value

'Label1.Caption = "Obteniendo Tipo de Cambio desde la Web de SUNAT"

'URL = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias"

'Set IE = New InternetExplorer

'With IE

'        .Navigate URL

'        .Visible = False

'        'Esperamos que toda la web cargue

'    While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend

'    Set HTMLdoc = .Document

'End With

'With HTMLdoc.selectForm

'    .mes.selectedIndex = Tc_Mes

'    .anho.Value = tc_año

'    .submit

'End With

'grilla

'Set HTMLDOC2 = IE.Document

'While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend

'Set TDelements = HTMLDOC2.getElementsByTagName("TD")

'For Each TDelement In TDelements

'Select Case TDelement.className

'   Case "H3"

'    Text1.Text = DateSerial(tc_año, Tc_Mes, TDelement.innerText)

'    MSFlexGrid1.AddItem TDelement.innerText & vbTab & DateSerial(tc_año, Tc_Mes, TDelement.innerText)

'   Case "tne10"

'    'If TDelement.innerText = "" Then TDelement.innerText = "SIN T.C"

'    If Text1.Text = "" Then

'        'Text3.Text = TDelement.innerText

'        MSFlexGrid1.AddItem vbTab & vbTab & TDelement.innerText

'        Else

'            'Text2.Text = TDelement.innerText

'            MSFlexGrid1.AddItem vbTab & TDelement.innerText

'    End If

'End Select

'Next

'Label1.Caption = ""

'IE.Quit

'End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Private Sub btnCon_Click()

ObtenerTC

End Sub

Private Sub Form_Load()

Combo1.AddItem "01"

Combo1.AddItem "02"

Combo1.AddItem "03"

Combo1.AddItem "04"

Combo1.AddItem "05"

Combo1.AddItem "06"

Combo1.AddItem "07"

Combo1.AddItem "08"

Combo1.AddItem "09"

Combo1.AddItem "10"

Combo1.AddItem "11"

Combo1.AddItem "12"

Combo2.AddItem "2011"

Combo2.AddItem "2012"

Combo2.AddItem "2013"

Combo2.AddItem "2014"

Combo2.AddItem "2015"

MSFlexGrid1.Visible = False

End Sub

Sub grilla()

MSFlexGrid1.Visible = True

MSFlexGrid1.ColWidth(0) = 500

MSFlexGrid1.ColWidth(1) = 1000

MSFlexGrid1.Col = 1

MSFlexGrid1.Row = 0

MSFlexGrid1.Text = "DIA"

MSFlexGrid1.ColWidth(2) = 1800

MSFlexGrid1.Col = 2

MSFlexGrid1.Row = 0

MSFlexGrid1.Text = "COMPRA"

MSFlexGrid1.ColWidth(3) = 1800

MSFlexGrid1.Col = 3

MSFlexGrid1.Row = 0

MSFlexGrid1.Text = "VENTA"

fila = 1

MSFlexGrid1.Rows = 1

End Sub

Valora esta respuesta

Comentar

Obtener tipo de cambio de sunat - para visual basic 10 .net o superior

Publicado por JUAN LAYME OROCOLLO (2 intervenciones) el 17/04/2020 13:13:37

Estimados señores:
Alguien puede convertir para visual basic 10 .net , Igualmente necesito consulta RUC y DNI vigente para el año 2020.
Se compensará por el desarrollo

Atentamente,

[email protected] 953640110

Valora esta respuesta

Comentar

Obtener tipo de cambio de sunat

Publicado por Josue Rodriguez (1 intervención) el 24/08/2018 20:21:21

Aquí les copio lo que desarrollé para PHP. El array $tcs tiene como clave cada dia del mes y en cada valor de $tcs el TC e Compra y Venta respectivamente. Espero le pueda servir a alguien:

$sUrl = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias";

$sContent = file_get_contents($sUrl);

$doc = new DOMDocument();

$doc->loadHTML($sContent);

$xpath = new DOMXPath($doc);

$tablaTC = $xpath->query("//table[@class='class=\"form-table\"']"); //obtenemos la tabla TC

$filas = [];

foreach($tablaTC as $fila){

$filas = $fila->getElementsByTagName("tr"); //obtiene todas las tr de la tabla de TC

$tcs = array(); //array de tcs, por dia como clave

foreach($filas as $fila){//recorremos cada tr

$tds = [];

$tds = $fila->getElementsByTagName("td");

$i = 0;

$j = 0;

$arr = [];

$dia = "";

foreach($tds as $td){//recorremos cada td

if($j == 3){

$j = 0;

$arr = [];

if($j == 0){

$dia = trim(preg_replace("/[\r\n]+/", " ", $td->nodeValue));

$tcs[$dia] = [];

if($j > 0 && $j < 3){

$tcs[$dia][] = trim(preg_replace("/[\r\n]+/", " ", $td->nodeValue));

$j++;

Valora esta respuesta

Comentar

Obtener tipo de cambio de sunat

Publicado por Rudy (1 intervención) el 05/01/2019 14:56:37

Pueden compartir el archivo en excel, muchas gracias.

Valora esta respuesta

Comentar

subir 2 directorios