DsigExpress Tipo de Cambio Sunat

PorFernando M.Blas

DsigExpress Tipo de Cambio Sunat

Conectate a WhatsApp

DsigExpress Tipo de Cambio Sunat en una Biblioteca de Clases (dll), el Uso de esta herramienta es muy sencillo y los pasos de configuración te los Explico más Abajo.

Dim dsigTC As New DsigTipoCambio

Sub ConsultaTc()
Dim x As Byte
If [I6] = Empty Or [J6] = Empty Then Exit Sub
[C6:F36].ClearContents
With dsigTC
Call .LoadTipoCambio([I6], [J6])
 For x = 1 To 31
  If .Matriz_Fecha(x) <> "" Then
   Cells(x + 5, 3) = x 'numeracion opcional
   Cells(x + 5, 4).NumberFormat = "@" 'Es Necesario para Convertir (mm/dd/yyyy) a (dd/mm/yyyy)
   Cells(x + 5, 4) = .Matriz_Fecha(x) 'Array Fecha Tipo de Cambio
   Cells(x + 5, 4).NumberFormat = "dd/mm/yyyy" 'Conversión a Fecha
   Cells(x + 5, 4) = CDate(Cells(x + 5, 4)) 'Formato de Fecha
   Cells(x + 5, 5) = .Matriz_Compra(x) 'Array Tipo Cambio Compra
   Cells(x + 5, 6) = .Matriz_Venta(x) 'Array Tipo Cambio Compra
  End If
 Next
End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Dim dsigTC As New DsigTipoCambio

Sub ConsultaTc()

Dim x As Byte

If [I6] = Empty Or [J6] = Empty Then Exit Sub

[C6:F36].ClearContents

With dsigTC

Call .LoadTipoCambio([I6], [J6])

For x = 1 To 31

If .Matriz_Fecha(x) <> "" Then

Cells(x + 5, 3) = x 'numeracion opcional

Cells(x + 5, 4).NumberFormat = "@" 'Es Necesario para Convertir (mm/dd/yyyy) a (dd/mm/yyyy)

Cells(x + 5, 4) = .Matriz_Fecha(x) 'Array Fecha Tipo de Cambio

Cells(x + 5, 4).NumberFormat = "dd/mm/yyyy" 'Conversión a Fecha

Cells(x + 5, 4) = CDate(Cells(x + 5, 4)) 'Formato de Fecha

Cells(x + 5, 5) = .Matriz_Compra(x) 'Array Tipo Cambio Compra

Cells(x + 5, 6) = .Matriz_Venta(x) 'Array Tipo Cambio Compra

End If

Next

End With

End Sub

Es Necesario que Siempre Agregues las Variables Mes y Periodo en Formato de Texto dentro de la Función

DsigExpress Tipo de Cambio Sunat

Descargar Tipo de Cambio Sunat DsigExpress

Si No te carga la Biblioteca Regístrala en Windows te Dejo la Línea de Código mas Abajo

regsvr32 %SYSTEMROOT%\SysWOW64\DsigExpressTC.dll

Conectate a WhatsApp

Acerca del autor

Fernando M.Blas administrator

Deja un comentario
Cancelar respuesta