Option Explicit

Public Sub Main()
Dim laTasa, elPrinter

	laTasa = CrearObjeto("TiposImpuesto").ValorActualImpuesto("IV1")
	If MsgBox("Este programa agregará el valor actual del impuesto ""IV1""" & vbCrLf & _
						"a las tasas registradas en su impresora fiscal Bematech" & vbCrLf & _
						"Ejecútelo despues de haber fijado la tasa de impuesto actualizada" & vbCrLf & _
						"en ClearLight." & vbCrLf & _
						"En este momento, la tasa del tipo IV1 es de " & laTasa & "%" & vbCrLf & _
						"żDesa continuar?", vbYesNo, "Actualizar tasa") = vbNo Then Exit Sub
						
	Set elPrinter = CreateObject("Bematech.CPrinterFiscal")
	elPrinter.AgregarTasaIva laTasa
	MsgBox "Listo", vbInformation, "Actualizar tasa"
End Sub