Página 21 de 21
SAT-Fiscal a mistica está desvendada.
Enviado: 07 Ago 2016 01:47
por rochinha
Amiguinhos,
Edvaldo
Para executar mais que uma operação dentro de um codeblock voce pode separar as linhas com virgulas colocando toda sequencia dentro de "(" e ")", assim:
Código: Selecionar todos
MsgRun("Consulta ao SAT","Aguarde...", {|| ( Retorno:=SATCONSULTAR(Random()), MsgStop( Retorno ) ) })
SAT-Fiscal a mistica está desvendada.
Enviado: 07 Ago 2016 18:50
por Edvaldo
Ok, fiz o teste, a consulta é registrada como realizada no simulador mas dá o erro antes do mostrar o msgstop(retorno) e o Windows fica procurando uma solução para o problema e só tem a opção de fechar o programa.
Vou trocar a dll do sat pra ver se resolve.
Obrigado
SAT-Fiscal a mistica está desvendada.
Enviado: 08 Ago 2016 15:10
por Edvaldo
Ok, instalei o simulador atual do site da secretaria mas não resolveu o problema.
Obrigado
SAT-Fiscal a mistica está desvendada.
Enviado: 30 Nov 2016 19:26
por JoséQuintas
Pra quem quiser testar.
Não uso SAT, então não sei dizer se funciona.
À primeira vista, Int() não precisa conversão e muito menos string, então tudo indica que vai funcionar.
Código: Selecionar todos
CREATE CLASS SatDLL
VAR nHandle
METHOD New() INLINE ::nHandle := hb_LibLoad( "sat.dll" ), SELF
METHOD Destroy() INLINE hb_LibFree( ::nHandle )
METHOD ConsultarStatusOperacional( ... ) INLINE ::CallDllStd( "ConsultarStatusOperacional", ... )
METHOD AtivarSAT( ... ) INLINE ::CallDllStd( "AtivarAT", ... )
METHOD ComunicarCertificadoICPBRASIL( ... ) INLINE ::CallDllStd( "ComunicarCertificadoICPBRASIL", ... )
METHOD EnviarDadosVenda( ... ) INLINE ::CallDllStd( "EnviarDadosVenda", ... )
METHOD CancelarUltimaVenda( ... ) INLINE ::CallDllStd( "CancelarUltimaVenda", ... )
METHOD ConsultarSAT( ... ) INLINE ::CallDllStd( "ConsultarSAT", ... )
METHOD TesteFimAFim( ... ) INLINE ::CallDllStd( "TesteFimAFim", ... )
METHOD ConsultarNumeroSessao( ... ) INLINE ::CallDllStd( "ConsultarNumeroSessao( ... )
METHOD ConfigurarInferfaceDeRede( ... ) INLINE ::CallDllStd( "ConfigurarInferfaceDeRede", ... )
METHOD AssociarAssinatura( ... ) INLINE ::CallDllStd( "AssociarAssinatura", ... )
METHOD AtualizarSoftwareSAT( ... ) INLINE ::CallDllStd( "AtualizarSoftwareSAT", ... )
METHOD ExtrairLogs( ... ) INLINE ::CallDllStd( "ExtrairLogs", ... )
METHOD BloquearSAT( ... ) INLINE ::CallDllStd( "BloquearSAT", ... )
METHOD DesbloquearSAT( ... ) INLINE ::CallDllStd( "DesbloquearSAT", ... )
METHOD TrocarCodigoDeAtivacao( ... ) INLINE ::CallDllStd( "TrocarCodigoDeAtivacao", ... )
METHOD CallDllStd( cName, ... ) INLINE hb_DynCall( { cName, ::nHandle, HB_DYN_CALLCONV_STDCALL }, ... )
END CLASS