SAT-Fiscal - a mistica foi desvendada.

rochinha · November 26, 2012

Amiguinhos,

Ã‰ com satisfaÃ§Ã£o que posso dizer que meu sistema jÃ¡ estÃ¡ 99% SAT-CFe Ready.

O resultado foi obtido depois de noites sem sono e desvendamento de um mundo praticamente novo, ou seja, versÃ£o 2.0.

Baseado nos aplicativos do conjunto SAT-CFe para desenvolvedores, como o AC, Ativador e Emulador SAT comecei a planejar os meios de obter exito com o uso destas ferramentas e desenhar rapidamente meu mÃ³dulo de interface.

Totalmente baseado em Harbour tradicional e automaÃ§Ã£o OLE consegui algo que nÃ£o havia planejado e nenhum dos colegas havia esclarecido.

Como o que vemos ai por volta das interfaces de acesso ao SEFAZ geralmente encontramos cÃ³digo fonte em Visual Basic, Delphi, Sharp, etc.

Como sou chato e persistente quando ao que desejo consegui obter acesso direto ao Emulador SAT e envio de comandos com um aplicativozinho bÃ¡sico.

E para minha surpresa os procedimentos sÃ£o muitissimo simples.

As funÃ§oes ConsultarSAT(), AtivarSAT() e EnviarDadosVenda() sÃ£o importantes neste primeiro momento e foram baseadas no uso delas que implementei em meu sistema o uso para teste e homologaÃ§Ã£o.

Para o uso de EnviarDadosVenda() foi necessÃ¡rio ainda confeccionar o XML no layout para CF-e, o que foi fÃ¡cil pois o mesmo pode ser baseado no layout da NF-e.

ApÃ³s consultar o status do SAT, passamos a AtivÃ¡-lo e conforme o retorno obtido fazer o envio dos dados do cupom e se tudo correr bem obter, validaÃ§Ã£o, assinatura e envio.

EntÃ£o temos:

- Primeira etapa - geraÃ§Ã£o do XML contendo os dados do cupom baseado no layout CF-e.

- Segunda etapa - uso dos comandos do driver SAT para perfazer o processo fiscal.

- Terceira etapa - imprimir o cupom com layout definido nos manuais de requisiÃ§Ã£o do SAT-CFe.

PRIMEIRA ETAPA

Abaixo esta o conteÃºdo do XML de testes no layout do CF-e:

<?xml version="1.0" encoding="UTF-8"?>

35

616600

59

000000007

000005

20121124

235018

0

1

64185629000136

123123

CFe351211034499940001165900000000700000561660002012112423501821011898853878

111111111111

Estabelecimento de Teste 2

Estabelecimento Fantasia 2

rua das flores

1005

-

centro

Sao Paulo

00000000

111111111111

123123

1

N

11808853070

JCR

01

Mega Alcool 92,8A

0001

un

1.0000

2.100

2.10

A

2.10

1

41

01

1.00

1.0000

1.00

1.0000

1.00

1.0000

1.00

0.00

2.10

0.00

1.00

0.00

2.10

1

2.10

id=code>id=code>

SEGUNDA ETAPA

Apesar de usar Harbour, a interface uso o Fivewin para efeito de mensagens e etc.

A senha "123456" foi usada no momento da AtivaÃ§Ã£o do SAT e portanto pode ser trocada.

/////////////////////////////////////////////////////////////////////////////

//

// PDVSAT - Compativeis com SAT 4.00

//

// Autor: Jose Carlos da Rocha

// Data: 26/11/2012

// Email: contato@5volution.com.br

// MSN: fivolution@hotmail.com

// Linguagem: xBase

// Prefixo: SAT

// Plataformas: DOS, Windows

// Requerimentos: Harbour/xHarbour( Para uso com Clipper eliminar Prefixo )

// Versao SAT: 4.00

//

/////////////////////////////////////////////////////////////////////////////

#include "FiveWin.ch"

#include "dll.ch"

function Main()

PUBLIC hACBrDLL

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( cPath+"SAT.DLL" )

? "ConsultarSAT",;

ConsultarSAT( Random( 999999 ) ) //[3]

? "AtivarSAT",;

AtivarSAT( Random( 999999 ), 1, "123456", "11111111111111", 35 ) //[3]

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

aRetorno := EnviarDadosVenda( Random( 999999 ), "123456", cCFeTeste )

? "EnviarDadosVenda",aRetorno[1],aRetorno[2],aRetorno[3],aRetorno[4]

return nil

id=code>id=code>

Eu criei um set de funÃ§Ãµes que pudesse fazer a ponte com o driver e tratar o retorno de forma simples. todas as funÃ§Ãµes recebem a string do driver e transformam em um vetor.

Function ConsultarSAT( nSessionRandom )

cString := SATConsultar( nSessionRandom )

return StringToArray( cString, "|" )

Function AtivarSAT( numeroSessao, subComando, codigoDeAtivacao, CNPJ, cUF )

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, "|" )

id=code>id=code>

O conjunto de funÃ§Ãµes que acessar diretament o driver estÃ£o descritas abaixo:

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

/* OK */ 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

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

/* OK */ 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

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

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

id=code>id=code>

Uso algumas funÃ§Ãµes extras exigidas durante os testes:

Function Random( 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()

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 )

id=code>id=code>

Junte tudo em um unico .PRG e compile para obter o executÃ¡vel de testes.

TERCEIRA ETAPA

Consite na geraÃ§Ã£o do HTML que irÃ¡ compor o impresso padrÃ£o do cupom:

Cabecalho:

#NomeFantasia#

#RazaoSocial#

#EnderecoCompleto#

CNPJ: #CNPJ# IE: #INSCR#

Extrato N.o #EXTRATO#

CUPOM FISCAL ELETRONICO - SAT

CPF/CNPJ #cpfConsumidor#

#|COD|DESC|QTD|UN|VL UNIT R$|ST|ALIQ|VL ITEM R$

id=code>

Corpo dos itens:

#item# #cod# #desc# #qtd# #un# #valor3# #st# #aliq#% #valor4#

id=code>id=code>

RodapÃ©:

Subtotal #valor11#

Descontos <-> #valor12#

Acrescimos <+> #valor13#

TOTAL R$ #valor14#

#meioDePagamento# #valor15#

Troco R$ #valor16#

ICMS a ser recolhido conforme LC-Simples Nacional

DEST

#nomeDoAdquirente#

#EnderecoDoDestinatario#

SAT N.o #SATNum#

#Data# #Hora#

#ChaveDeConsulta#

#CodigoDeBarras#

#QRCode#

id=code>

Para uma melhor formataÃ§Ã£o do cupom podese usar tabelas e acrescentar um javascript que envie o comando de impressÃ£o assim que o browser apresentar o conteÃºdo.

Portanto vencidas as etapas iniciais de testes todas estarÃ£o aptos em pouco tempo a integrarem em seus sistemas tais caracteristicas.

Para os amigos que juntamente comigo vierem a desvendar este driver, sugiro compartilhar ao mÃ¡ximo a fim de obtermos com tempo recorde a finalizaÃ§Ã£o e implantaÃ§Ã£o em nossos sistemas dos recursos desta parafernÃ¡lia que jÃ¡ nos ronda a pelo menos 5 anos.

rochinha · November 26, 2012