SAT-CFe

oribeiro · March 19, 2013

Pessoal,

Em que estÃ¡gio vocÃªs estÃ£o no desenvolvimento do SAT-CFe que entrarÃ¡ em vigor em julho de 2013?

Peguei a rotina disponibilizada aqui no fÃ³rum e no Toledo mas estÃ¡ dando erro.

Aguardo,

oribeiro · March 21, 2013

Pessoal de SÃ£o Paulo,

NÃ£o acham que estÃ¡ na hora de comeÃ§armos a tratar desse assunto? (risos)

Aqui o assunto estÃ¡ esquentando: http://pctoledo.com.br/forum/viewtopic.php?f=20&t=13720&sid=6c218ad73785d3b895239c95b7a39131&p=81488#p81488

oribeiro · March 22, 2013

Pessoal,

Estou rodando o programa teste abaixo e ele trava na consulta, nem passa para o comando ativar. AlguÃ©m estÃ¡ tendo o mesmo problema?

#include "FiveWin.ch"
#include "dll.ch"

STATIC hACBrDLL

function Main()

//cPath := cFilePath( GetModuleFileName( GetInstance() ) ) // Pega o caminho exato onde se encontra o sistema.

// A SAT.dll pode estar na pasta do seu sistema

? "SAT.dll carregada",;
hACBrDLL:= LoadLibrary( "c:\SAT\SAT.DLL" ) // LoadLibrary LoadLib32

? "ConsultarSAT",;
ConsultarSAT( RandomSAT( 999999 ) ) //[3]

? "AtivarSAT",;
AtivarSAT( RandomSAT( 999999 ), 1, "123456", "11111111111111", 35 ) //[3]

cCFeTeste := MemoRead( cPath+"CFeTeste.xml" )

aRetorno := EnviarDadosVenda( RandomSAT( 999999 ), "123456", cCFeTeste )
? "EnviarDadosVenda",aRetorno[1],aRetorno[2],aRetorno[3],aRetorno[4]
return nil

**************************
*
* FUNÃ‡Ã•ES SAT
*

Function ConsultarSAT( nSessionRandom )
msginfo( nSessionRandom ,"consultar")
cString := SATConsultar( nSessionRandom )
return StringToArray( cString, "|" )

Function AtivarSAT( numeroSessao, subComando, codigoDeAtivacao, CNPJ, cUF )
msginfo( numeroSessao ,"ativar")
cString := SATAtivar( numeroSessao, subComando, codigoDeAtivacao, CNPJ, cUF )
return StringToArray( cString, "|" )

Function DesligarSAT()
cString := SATDesligar()
return StringToArray( cString, "|" )

Function ConsultarNumeroSessao( nSessionRandom, codigoAtivacao, numeroSessao )
cString := SATConsultarNumeroSessao( nSessionRandom, codigoAtivacao, numeroSessao )
return StringToArray( cString, "|" )

Function TesteFimAFim()
cString := SATTesteFimAFim()
return StringToArray( cString, "|" )

Function EnviarDadosVenda( numeroSessao, codigoAtivacao, dados )
cString := SATEnviarDadosVenda( numeroSessao, codigoAtivacao, dados )
return StringToArray( cString, "|" )

Function CancelarUltimaVenda( numeroSessao, codigoAtivacao, chaveAcesso, dados )
cString := SATCancelarUltimaVenda( numeroSessao, codigoAtivacao, chaveAcesso, dados )
return StringToArray( cString, "|" )

/*
//DLL32 FUNCTION SATConsultar( nSessionRandom AS STRING ) AS STRING PASCAL FROM "ConsultarSAT" LIB hACBrDLL
//DLL32 FUNCTION SATConsultar( nSessionRandom AS STRING ) AS LONG PASCAL   FROM "ConsultarSAT" LIB hACBrDLL
//DLL32 FUNCTION SATConsultar( nSessionRandom AS LPSTR ) AS STRING PASCAL FROM "ConsultarSAT" LIB hACBrDLL
//DLL32 FUNCTION SATConsultar( nSessionRandom AS LPSTR ) AS LONG PASCAL   FROM "ConsultarSAT" LIB hACBrDLL
//DLL32 FUNCTION SATConsultar( nSessionRandom AS _INT )   AS STRING PASCAL FROM "ConsultarSAT" LIB hACBrDLL
//DLL32 FUNCTION SATConsultar( nSessionRandom AS _INT )   AS LONG PASCAL   FROM "ConsultarSAT" LIB hACBrDLL

// (DELPHI) function ConsultarSAT( numeroSessao : Longint ) : PChar ; cdecl; External 'SAT.DLL';
*/

DLL32 FUNCTION SATConsultar( nSessionRandom AS _INT ) AS STRING PASCAL FROM "ConsultarSAT" LIB hACBrDLL

DLL32 FUNCTION SATAtivar(               numeroSessao              AS _INT ,;
                                        subComando                AS _INT ,;
                                        codigoDeAtivacao          AS STRING,;
                                        CNPJ                      AS STRING,;
                                        cUF                       AS _INT     ) AS STRING PASCAL FROM "AtivarSAT"               LIB hACBrDLL

DLL32 FUNCTION SATDesligar( ) AS STRING PASCAL FROM "DesligarSAT" LIB hACBrDLL

DLL32 FUNCTION SATConsultarNumeroSessao(getRandom                 AS _INT ,;
                                        codigoAtivacao            AS STRING,;
                                        numeroSessao              AS STRING   ) AS STRING PASCAL FROM "ConsultarNumeroSessao"   LIB hACBrDLL

DLL32 FUNCTION SATTesteFimAFim(         numeroSessao              AS _INT ,;
                                        codigoAtivacao            AS STRING,;
                                        dados AS STRING                       ) AS STRING PASCAL FROM "TesteFimAFim"            LIB hACBrDLL

DLL32 FUNCTION SATEnviarDadosVenda(     numeroSessao              AS _INT ,;
                                        codigoAtivacao            AS STRING,;
                                        dados                     AS STRING   ) AS STRING PASCAL FROM "EnviarDadosVenda"        LIB hACBrDLL

DLL32 FUNCTION SATCancelarUltimaVenda( numeroSessao              AS _INT ,;
                                        codigoAtivacao            AS STRING,;
                                        chaveAcesso               AS STRING,;
                                        dados                     AS STRING   ) AS STRING PASCAL FROM "CancelarUltimaVenda"     LIB hACBrDLL

**********************************************
*
* OUTRAS FUNÃ‡Ã•ES
*

Function RandomSAT( nMaximo )
   static nRandom
   local nTemporal
   nMaximo = if( nMaximo == NIL, 65535, nMaximo )
   if nRandom == NIL
      nRandom = seconds()
   endif
   nTemporal = ( nRandom * seconds() ) % ( nMaximo + 1 )
   nTemporal = if( nTemporal < 1, 1, nTemporal )
   nRandom = nTemporal + seconds()
   if nTemporal<100000
     ntemporal:= ntemporal + 99999
   endif
   RETURN int( nTemporal )

function StringToArray( cString, cSeparator )
   LOCAL nPos
   LOCAL aString := {}
   DEFAULT cSeparator := ";"
   cString := ALLTRIM( cString ) + cSeparator
   DO WHILE .T.
      nPos := AT( cSeparator, cString )
      IF nPos = 0
         EXIT
      ENDIF
      AADD( aString, SUBSTR( cString, 1, nPos-1 ) )
      cString := SUBSTR( cString, nPos+1 )
   ENDDO
   RETURN ( aString )

Return(lOk)

Daniel Lopes Filho · March 22, 2013

fala oscar

falei com o pessoal da daruma hoje via skype e eles tem os testes desde 2008 e agora no proximo mes devem implementar dentro do darumaframework.dll

aguarde se voce ja estiver usando o darumaframework so aguardar agora se esta usando o daruma32.dll (recomendo migrar e aguardar para o proximo mes)

a daruma sempre foi parcerira dos desenvovedores .... so aguardar faltam poucos dias

segue copia so chat via skype com o pessoal da daruma

[14:47:04] Suporte Desenvolvedor Daruma - Larissa Luces: Boa Tarde

[14:47:46] Suporte Desenvolvedor Daruma - Larissa Luces: Sim, temos o sat desde 2008

[14:47:52] daniel: boa tarde ... o darumaframework.dll tem algum recurso para implementaÃ§Ã£o do sat fiscal ?

[14:47:56] Suporte Desenvolvedor Daruma - Larissa Luces: sÃ³ falta o fisco homologar

[14:48:00] daniel: sem precisar acbr ou outro componente

[14:48:08] Suporte Desenvolvedor Daruma - Larissa Luces: mes que vem ja vamos dar o pacote para vc iniciar o desenvolvimento

[14:48:14] Suporte Desenvolvedor Daruma - Larissa Luces: mais com a darumaframework.dll

[14:48:15] daniel: pois parece q ja esta em testes e deve funcionar agora em 2013 em sp

[14:48:37] daniel: julho de 2013

[14:50:36] Suporte Desenvolvedor Daruma - Larissa Luces: a partir de 1 de julho vc nao pode mais lacrar impressora

[14:50:39] Suporte Desenvolvedor Daruma - Larissa Luces: que ja tem podera continuar

[14:50:56] Suporte Desenvolvedor Daruma - Larissa Luces: eles tem um emulador

[14:51:02] Suporte Desenvolvedor Daruma - Larissa Luces: Ã© eles que vao utilizar?

[14:51:10] daniel: isso so em SP ?

[14:51:21] daniel: ou nos outros estados tambem ?

[14:51:50] Suporte Desenvolvedor Daruma - Larissa Luces: apenas em sp

Daniel Lopes Filho · March 25, 2013

aqui nao deu GPF

estou usando fw805 e xharbour

xHarbour Compiler build 1.1.0 (SimpLex)

testei no windows 8 pro

so nao entendi o help do sat que mostra uma pasta sat na apresentaÃ§Ã£o do powerpoint para mover para o c:\sat ... e o emulador em java aqui nao funcionou nao

so adicionoi a seguinte linha no seu codigo acima

    hACBrDLL:= LoadLibrary( "c:\SAT\SAT.DLL" )    // LoadLibrary  LoadLib32                                                                 
    ? " hACBrDLL" , hACBrDLL  // adicionei essa linha aqui
    ? "ConsultarSAT",;

Daniel Lopes Filho · March 25, 2013

consegui capturar a maldita tela de erro

erro%20s@at%20fiscal.png

oribeiro · March 26, 2013

Tem uma pasta \SAT dentro do ZIP disponiÃvel no site da SEFAZ: http://www.fazenda.sp.gov.br/sat/downloads/vigentes.asp chamado (Emulador_off_line_2_5_7.zip)

Copie a pasta SAT desse zip para C:\SAT.

Dentro dessa pasta Ã© que estÃ¡ o SAT.DLL.

Com isso, esse erro some, o programa consegue fazer a consulta, mas trava no retorno, parece que ele entra em LOOP no comando:

DLL32 FUNCTION SATConsultarNumeroSessao(getRandom                 AS _INT ,;
                                        codigoAtivacao            AS STRING,;
                                        numeroSessao              AS STRING   ) AS STRING PASCAL FROM "ConsultarNumeroSessao"   LIB hACBrDLL

Verifique.

Daniel Lopes Filho · March 26, 2013

agora consegui rodar o emulador vou rodar novamente o exe e ja respondo aqui

Daniel Lopes Filho · March 26, 2013

funcionou sem problemas

se quiser a copiar do meu xharbour lhe passo sÃ³ dar um alo

ou se quiser tambÃ©m posso lhe mostrar o exemplo rodando via skype

oribeiro · March 26, 2013

Quero sim! Se possÃvel me envia o PRG modificado por vocÃª e o seu EXE para eu testar aqui.

Aguardo,

oribeiro · March 26, 2013

Gravando a pasta C:\SAT o emulador para na consulta e aborta o programa.

Tente colocar um MSGINFO("") depois dessa linha: cString := SATConsultar( nSessionRandom )

VerÃ¡ que ele nÃ£o passa.

oribeiro · March 26, 2013

Obrigado Daniel, resolvido!

SÃ³ para documentar, Ã© sÃ³ remover a expressÃ£o PASCAL das definiÃ§Ãµes da DLL que funciona.

JÃ¡ posso continuar com os testes.

Um abraÃ§o,

oribeiro · July 16, 2015

Pessoal,

Por favor, me ajudem a definir essa função em xHarbour:

Ela é do Delphi:

function regAlterarValor_SAT_Daruma(pszTagSAT:String; pszValorTagSAT:String):Integer; StdCall; External 'DarumaFramework.dll'

Estou migrando todas as funções do SAT para usar a solução da DARUMA.

Obrigado,

oribeiro · July 16, 2015

Conseguimos:

 DLL32 FUNCTION aCFeAbrir_SAT_Daruma(pszTagsParamAbertura      AS STRING   ) AS _INT PASCAL LIB nLib32

 DLL32 FUNCTION regAlterarValor_SAT_Daruma( pszTagSAT          AS STRING ,;
                                            pszValorTagSAT     AS STRING   ) AS _INT PASCAL LIB nLib32

Luiz Fernando · July 20, 2015

Ola Oscar, vc saberia me informar se existe alguma exigência por parte da empresa que ira desenvolver, tipo tem que ter um CNAE especifico, sou obrigado a comprar um aparelho para mim.

Obrigado

oribeiro · July 20, 2015

Sim, veja o documento no link abaixo.

http://www.fazenda.sp.gov.br/sat/duvidas_frequentes/Perguntas_Frequentes_de_Desenvolvedores_do_SAT_v08.pdf

edutraini · July 24, 2015

Pessoal alguem poderia me dar uma dica o que fazer apos comando EnviarDadosVenda : Emitido com Sucesso + conteA do notas

oque faço com o xml que eu gerei

oribeiro · July 24, 2015

Você chegou até esse ponto utilizando o SAT.DLL do SEFAZ ou o FrameWorkDaruma.Dll ?

edutraini · July 24, 2015

usei o dsat.dll da dimep

HASA · July 24, 2015

Edu, entendo que o xml que vc gera é "lixo" depois é gerado pelo SAT o xml com as demais tag´s correspondentes ao SAT ok.

HASA

betovsp · July 28, 2015

Olá Oscar.

Tenho um cliente que precisa começar a usar o CF-e no começo do ano que vem.

Ele já me procurou para resolver isso. estou sem tempo, podemos fazer uma parceria com o seu sistema pra poder atende-lo??

Beto.

oribeiro · July 28, 2015

Me envie um email:

oscar@oasysitu.com

Luiz Fernando · July 31, 2015

Colegas o escritorio contabil da minha empresa já esta fazendo as mudança, pois o meu CNAE não estava como desenvolvedor, o legal é a taxa de imposto de 6,5% para 17%, parece que tudo que o governo faz é pensado, mais o que não consegui achar ate agora foi a respeito de eu ser obrigado a comprar um SAT para mim, esta informação procede.

Obrigado

HASA · July 31, 2015

- Luiz infelizmente sim, o mais em conta que encontrei foi o SDK da TANCA.

HASA

Luiz Fernando · July 31, 2015

- Luiz infelizmente sim, o mais em conta que encontrei foi o SDK da TANCA.

Vlw HASA pela resposta, viu só uma duvida, cada equipamento de SAT tem suas particularidade, tipo como funciona as impressora fiscal(suas DLL e declaração), digo isto pq se tiver suas particularidade mesmo se for para pagar um pouco mais caro, acho o suporte da DARUMA muito bom, dai alem de comprar para mim iria sempre indicar a mesma marca, ou não tem nada ver uma vez pronto, dando faz o equipamento transmissor.

Obrigado

SAT-CFe

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation