Para uma ECF Bematech
Dim ALIQUOTAS As String
Dim iRETORNO As Integer
ALIQUOTAS = Space(79)
iRETORNO = Bematech_FI_RetornoAliquotas(ALIQUOTAS)
If iRETORNO <> 1 Then
MsgBox("Não foi possivel a verificação de Aliquotas retornou " & Str(iRETORNO) )
exit sub
Endif
' leia o retorno das aliquotas
Pode parecer complicado, mas é bem simples, pra explicar não vai entender, entre no site do fabricante, eles deixam exemplos em várias linguagens, e também já possuem a DLL, fica fácil.
Agora, eu sugiro, que voce tenha uma tabela no BD que cadastre os indices das aliquotas, quando entrar no programa, zere a tabela, depois leia o retorno, e grave na tabela, quando for colocar o produto procure a aliquota na Tabela.
Desta forma voce não precisa se preocupar com qual aliquota a impressora tem cadastrada.
Impressoras diferentes, aliquotas com indices diferentes, sem problemas.
vlu//
