 Dim LOG, retorno 
Const ForReading=1, ForWriting=2, ForAppending=8

Set CONSOLE = CreateObject ("Scripting.FileSystemObject")
Set stdout = CONSOLE.GetStandardStream (1)

If CONSOLE.FolderExists ("\SWEDA") = False Then
   CONSOLE.CreateFolder ("\SWEDA")
End If

Set CONSOLE = CreateObject ("Scripting.FileSystemObject")
Set stdout = CONSOLE.GetStandardStream (1)
Set stdin  = CONSOLE.GetStandardStream (0)
stdout.WriteLine "Digite algo"


' Chama dll SWEDA
rem -----------------------------------------------------------------------------------------------
set SATsw = CreateObject("SATscript.DLL.object")
rem -----------------------------------------------------------------------------------------------

cabecalho = "<c>SWEDA INFORMATICA LTDA.<l></l></c>" +_
            "<c>SWEDA<l></l></c>" +_
            "<c>Rua Dona Brigida 753 predio Vila Mariana São Paulo SP 04111-123 6821065644<l></l></c>"

retorno = SATsw.ConfigCabec_SI300("","sweda.bmp",cabecalho) 
stdout.WriteLine "ConfigCabec_SI300 (sweda.bmp, " & cabecalho & ") -> " & retorno


rem "Número de linhas do cabeçalho (padrão é 4). Até 60."
retorno = SATsw.WriteChavesConversorINI_SI300("ALTURA_CABECALHO","1")
stdout.WriteLine "WriteChavesConversorINI_SI300    ALTURA_CABECALHO = 6 -> " & retorno

retorno = SATsw.ImprimeTexto_SI300 ("<cabecalho></cabecalho>" & vbCrLf)
retorno = SATsw.ImprimeTexto_SI300 ("TEF.txt")
stdout.WriteLine "ImprimeTexto_SI300  TEF.TXT -> "  & retorno
retorno = SATsw.ImprimeTexto_SI300 ("<gui></gui>")

stdout.WriteLine "Imprime Completo via do consumidor"
retorno = SATsw.ImprimeXML_SI300("CFe.xml")
stdout.WriteLine "Extrato completo do consumidor impresso -> " & retorno


