Gean

Eu vi que SC iria usar NFCe a partir de 2020, porem, não sei até onde é verdade. Fonte: https://blog.tecnospeed.com.br/nfce-santa-catarina-governo-adere-a-nfce-mas-exige-equipamento-e-aplicativo-fiscal/ De qualquer forma não custa sonhar...

Segue novas informações referente ao bloco X: Novos metodos: Reunião ACATS

Tranquilo pessoal. A intenção do tópico é mais de aviso do que de cobrança. Se eu fazer alguma alteração posto para vocês analisarem.

Boa tarde pessoal. Recebi o seguinte E-mail hoje: Analisando os links reparei que foram feitas algumas alterações e adicionado algumas funcionalidades. Gostaria de saber se sera feita alguma atualização no componente ACBrBlocoX com essas novas alterações.

Consegui resolver o problema. Como minha aplicação é 64 bits devo usar a DLL CliSiTef64I.dll. Mas não basta colocar só essa dll no diretório correto. Tive que alterar no fonte do componente para usar a dll CliSiTef64I.dll e não a CliSiTef32l.dll. Algo bem simples... Bom, muito obrigado pela ajuda.

Perfeito, vou esperar me enviarem todas as dlls necessárias.

Na verdade estou usando o lazarus. Não encontrei a dll libemv.dll.

Bom acabei de fazer o seguinte teste. 1 - Executei o ClienteSitef (rodando sem erros). 2 - Abri o sitDemo versão 6 que baixei.(Rodando sem erros). 3 - Executei o TEFDemo direto pelo Executável. Selecionei o G.P: gpCliSitef e cliquei em inicializar. Na tela mostra: Inicializando: gpClisSitef. Erro ao carregar a função:ConfiguraIntSiTefInterativoEx de: CliSiTef32I.dll Ainda não solicitei a dll com o pessoal da Sofware Express . Porem a dll CliSiTef32I.dll que tenho ja coloquei em varios lugares e não adianta. Sera que estou colocando no lugar errado ou o problema esta na dll? Alem dessa dll teria mais alguma outra?

Entendi, vou solicitar a dll com o pessoal da Sofware Express.

No caso você poderia me passar essa dll? Outra duvida...No caso tenho só o ClienteSitef executando quando tento inicializar com o TEFDemo. Teria mais alugm outro programa a ser executado? É que é a primeira vez que estou trabalhando com cartão, então to meio perdido.

No caso eu até baixei a dll e coloquei na pasta. Mas o erro sempre é o mesmo.

Bom dia. No TEFDemo seleciono a opção gpCliSitef e clico em Inicializar. Nesse momento me retorna o erro: "Erro ao carregar a função:ConfiguraIntSiTefInterativoEx de: CliSiTef32I.dll"

Estou tendo esse problema com a dll CliSiTef32I.dll no TEFDemo ao clicar em Inicializar. "Erro ao carregar a função:ConfiguraIntSiTefInterativoEx de: CliSiTef32I.dll"

Boa tarde. Para conectar/Incluir no WS fiz da seguinte forma: (Fiz de uma forma rápida por conta do prazo. Desculpem qualquer coisa). procedure ArquivoCIDASC(vChave : String); var IdHTTP : TIdHTTP; begin IdHTTP := TidHTTP.Create; FrmFuncoes.ComunicaWebService(IdHTTP, 'https://sigensv.cidasc.sc.gov.br/Acesso/Login?authToken=(aqui vai o login:senha em code 64)', nil); CriaArquivoJSON(vChave, IdHTTP); FrmFuncoes.IncluirWebService(IdHTTP, 'https://sigensv.cidasc.sc.gov.br/Receituario/Incluir'); IdHTTP.Free; end; procedure ComunicaWebService (var IdHTTP : TIdHTTP; vServeAcesso :String; vInfArquivo : TStringStream); var vResponse: TStringStream; begin vResponse := TStringStream.Create(''); try IdHTTP.Post(vServeAcesso, vInfArquivo, vResponse); except on e:exception do ShowMessage('Erro! Detalhes: '+e.Message); end; //Finaliza os componentes. vResponse.Free; end; procedure IncluirWebService (var IdHTTP : TIdHTTP; vServeIncluir :String); var vInfArquivo : TStringList; vBody: TStringStream; begin vInfArquivo := TStringList.Create; try //Pega a informção do XML gerado. vInfArquivo.LoadFromFile ('C:\CASA\CIDASC\XML\xmltestecidasc.xml'); vBody := TStringStream.Create(vInfArquivo.text); //Configura Componente de Envio. IdHTTP.Request.Accept := 'application/xml'; IdHTTP.Request.ContentType := 'application/xml'; IdHTTP.Request.ContentEncoding := 'utf-8'; //Faz o Envio do Receituário. FrmFuncoes.ComunicaWebService(IdHTTP, vServeIncluir, vBody); except on e:exception do ShowMessage('Erro! Detalhes: '+e.Message); end; //Finaliza os componentes. vInfArquivo.Free; vBody.Free; end; Observação: Depois que voce criar o componente idHTTP deve usar o mesmo para logar, incluir e etc...Se criar outro componente idHTTP vai perder a conexão.

Desculpem a ignorância. Resolvi da seguinte forma: ARequest := TStringList.Create; ARequest.LoadFromFile ('C:\casa\xmltestecidasc.xml'); RBody := TStringStream.Create(ARequest.text); vServe := 'https://svchomologacao.sigen.cidasc.sc.gov.br/Receituario/Incluir'; try Try IdHTTP.Request.Accept := 'application/xml'; IdHTTP.Request.ContentType := 'application/xml'; IdHTTP.Request.ContentEncoding := 'utf-8'; IdHTTP.Post(vServe, RBody, Response); ShowMessage(Response.DataString); finally Lista.Free; IdHTTP.free; end; except on e:exception do ShowMessage('Erro ao enviar arquivo ao servidor! Detalhes: '+e.Message); end; Obrigado.