SAT-Fiscal a mistica está desvendada.

[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 ) ) })

[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

[Edvaldo]

Ok, instalei o simulador atual do site da secretaria mas não resolveu o problema.

Obrigado

[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