Atenas Soluções Softwares

procedure Cria_Arquivo ; var Arquivo : TStrings ; begin Arquivo :=TStringList.create ; try Arquivo.Clear ; Arquivo.add('A;12024;389141;FULANO ;RUA TESTE;S/N;CIDADE TESTE;(77)9999-9999;'); Arquivo.add('B;12024;389141;2113060;MSL;3;20160610;20160910;2500;'); Arquivo.SaveToFile('c:\Meu_Arquivo.txt'); finally Arquivo.Free ; end; end;

Como assim ? Criar oque ? Acima é somente uma chamada para quebrar os campos delimitados , vc usa o procedimento da maneira que quiser , não tem que criar nada . Isso acima é só um exemplo .

Use este procedimento para leitura : procedure Split(const Delimiter: Char; Value: string; const Strings: TStrings) ; begin Assert(Assigned(Strings)) ; Strings.Clear ; Strings.Delimiter := Delimiter ; Strings.StrictDelimiter := True ; Strings.DelimitedText := Value ; end; Exemplo de Uso : procedure Cadastra_COOs ; var Arquivo_COO : TStrings ; Data_Doc : String ; ECF_Modelo : String ; ECF_Numero_Serie : String ; ECF_Numero : String ; Numero_Pdv : String ; COO : String ; Valor : String ; begin Arquivo_COO:=TStringList.create ; Arquivo_COO.Clear ; try Split(';' , 'B;12024;389141;2029465;ALG;9;20151214;20160915;2500' , Arquivo_COO) ; // Delimeter pode ser '|' ou outro utilizado no seu arquivo Data_Doc := Arquivo_COO.Strings[0] ; ECF_Modelo := Arquivo_COO.Strings[1] ; ECF_Numero_Serie := Arquivo_COO.Strings[2] ; ECF_Numero := Arquivo_COO.Strings[3] ; Numero_Pdv := Arquivo_COO.Strings[4] ; COO := Arquivo_COO.Strings[5] ; Valor := Arquivo_COO.Strings[6] ; with Qry_Avulsa_Temp do begin close ; sql.clear ; sql.text := 'insert into #'+ FrmPrincipal.SysInfo.ComputerName + 'COOS_Vinculados' + ' ( CodigoReferenciaNF ,' + 'Data_Doc ,' + 'ECF_Modelo ,' + 'ECF_Numero_Serie ,' + 'ECF_Numero ,' + 'Numero_Pdv ,' + 'COO ,' + 'Valor )' + 'values(' + ':CodigoReferenciaNF ,' + ':Data_Doc ,' + ':ECF_Modelo , ' + ':ECF_Numero_Serie ,' + ':ECF_Numero ,' + ':Numero_Pdv ,' + ':COO ,' + ':Valor )' ; ParamByName('CodigoReferenciaNF').asinteger := CodigoReferenciaNF ; ParamByName('Data_Doc').AsDate := StrToDate(Data_Doc) ; ParamByName('ECF_Modelo').asstring := ECF_Modelo ; ParamByName('ECF_Numero_Serie').asstring := ECF_Numero_Serie ; ParamByName('ECF_Numero').asstring := ECF_Numero ; ParamByName('Numero_Pdv').asstring := Numero_Pdv ; ParamByName('COO').asstring := COO ; ParamByName('Valor').AsFloat := StrToFloat(Valor) ; ExecSQL ; end; finally Arquivo_COO.Free ; end; end;

Obrigado @Daniel Simoes , Deus abençoe !

Boa tarde @Andrade., Então amigo quem faz essa avaliação e subir ao SVN são os Administradores e Moderadores aqui do fórum .

Boa tarde a todos , @Daniel Simoes , Fiz uma implementação na Unit ACBrTEFDCliSiTef para captura de Cpf/Cnpj e gostaria que se possível verificasse se esta compatível para utilizar no componente ACBrTEFD . Observações para utilização do recurso : 1 - Entrar em contato com a Software Express para solicitação da documentação para permissão e responsabilidades da Software House para utilizar o recurso . 2 - Após aprovação junto a Software Express da documentação será fornecido pela Software Express "Identificador" e "Chave personalizada" da sua Software House que serão utilizados na sua AC em cada solicitação de CPF ou CNPJ . 3 - Para este recurso de captura de Cpf / Cnpj não é nescessario nenhuma outra DLL ou configuração no componente para que funcione apenas as DLLs Clisitef32 versão 6 (não testei com versões inferiores) . edit1.text := ACBrTEFD1.TEFCliSiTef.ObtemDadoPinPadDiretoEx_CpfCnpj( docCpf {ou docCnpj} , 'fvdsfdfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsa'+ 'fdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsfdsf'+ 'fdsfsadfsdfdsfdsfsdfdsfdsfdsfdsds'+ 'gfdgfdgfdgfdgfgfdggdgdgfdgfdg'+ 'gdfgdgfdgfggggdgfdgdg' , '00.000.000/0000-00' ) ; Parte do código implementado no componente foi copiado aqui mesmo do forum em : Obrigado . ACBrTEFDCliSiTef.pas

Sim consegui anexar no SGRSAT em um teste efetuado hj a tarde solicitado por email da Sefaz SP , mas como mencionei acima continua um problema de "NIRE não encontrado" 1 - O problema do certificado G5 parece estar solucionado . 2 - Para novo cadastro para não aguardar a correção referente ao NIRE , eles pediram para anexar Cópia simplificada assinada pelo certificado do Cadastro junto a JUCESP , mas resolvi aguardar até dia 26/02/2017 , data em que expira meu certificado modelo G4 .

Pessoal , Já esta funcionando o add do novo modelo de Certificado porem o erro da validação do NIRE persiste .

Veja , não é o leitor , a sua AC que vai controlar o procedimento que o leitor capturar . A maioria dos leitores finaliza a leitura com Enter = #13 , Se vc programar o evento keypress ou keyDown ou até keyUp do edit pra que seja executado o seu procedimento de busca na primeira leitura "primeiros 22 caracteres" obviamente não ira funcionar , pois se trava de 44 caracteres . Em resumo uma forma simples vc poderia implementar assim : evento keypress do edit da chave : procedure Tform1.edit1keypress(Sender); begin if not (key in ['0'..'9' , #13 , #8]) then begin if (key = #13) and (Length(edit1.text) = 44) then begin showmessage(edit1.text) ; end; end; end; ... o #13 para o keypress ou vk_return para keydown é oque vc precisa para manipular isso , vc pode utilizar diversos métodos dessa busca com Timers com variaveis etc...

Na sua AC só execute o método de busca quando 44 posições preenchidas .

Como assim NFe Avulsa ? Vc quer dizer NF para consumidor como as NFs antigas ? Se sim , isto não existe mais , para emissão de NFe vc precisa dos dados cadastrados do Emitente e Destinatário e a definição do enquadramento correto do regime tributário do emitente . Produtos com suas NCM's e operação CFOP devidamente informadas .

Mas tem como fixar a configuração de rede no Sat Sweda ai não perde mais , vc faz isso no próprio Software utilitário do Sat Sweda "InfSat" muito simples . Se deixar dinâmico a configuração de fabrica perde mesmo . http://sweda.com.br/tecnologia-fiscal/sat/ ...Driver Windows ...Driver Sat (Inf de Instalação)

Em relação a armazenamento de dados em banco são acrescentados alguns dados a mais aos que ja se armazena para ECF , como : Chave CFe , XML , Códigos da comunicação com o Sat no momento da venda , os demais dados provavelmente vc ja grava que são Impostos etc...

Ja chegou a verificar e testar o comportamento do componente ACBrECFVirtualNFCe ? Ele faz exatamente esta integração !!

Bom dia , A gravação do item no Log esta sendo duplicada em ACBrECFVirtual.pas linha 1836 , a function TACBrECFVirtualClass.AchaICMSAliquota(..... Linha 3221 . faz a mesma gravação do item trazendo duplicado no log . Comentei a linha 1836 de ACBrECFVirtual.pas . Obrigado . ACBrECFVirtual.rar

CFe's emitidos por Sat Dimep (produção) já aparecem hoje 18/07/2016 com cupons em Alerta no SRG-SAT devido a incompatibilidade de versão !!!!

Dimep tbm não tem nada disponível em relação a versão 0.07(Homologação) , em contato que tivemos disseram estar ainda em Homologação com a Sefaz .

Voltou a enviar na versão 0.06 (Teste com Sat Dimep) .

Desconheço um Grid inteligente a altura para de pelo menos próximo para substituir o cxGrid e até entre outros componentes da suite DevExpress , DevExpress para os recursos que utilizo hoje é insubstituível .

Como vc trata o evento = ACBrECFVirtualSAT1QuandoVenderItem(Det: TDetCollectionItem); vc informa isso : Det.Prod.indRegra := irArredondamento ou irTruncamento

Bom dia a todos , Desculpe se há algum tópico no fórum que debate sobre este assunto . Cobrança de ICMS no Estado de São Paulo e liberação para que outras UF's se beneficiem de tal imposto do seguimento . https://www.ecommercebrasil.com.br/artigos/icms-sobre-software-jurisprudencia-nao-pode-ser-ignorada-pelo-fisco-estadual/ https://www.confaz.fazenda.gov.br/legislacao/convenios/2015/convenio-icms-181-15

Não precisa mudar nada fisicamente neste modelo de impressora se a versão da firmware for 2.20 , utiliza-se o modelo Epson no ACBrPOSPrinter , só um adendo , para impressão de em média 50 , 60 itens acima... ela precisa de um Sleep... , se não colocar ela buga a impressão do Extrato . No caso utiliza-se LinhasBuffer = 10 ou até 15 e também colocar o sleep como mencionado no tópico abaixo . * Peço Regys que por gentileza em se puder ver com o Daniel o commit deste caso por favor . Muito obrigado

Jeilson o demo do ACBrECF com a opção VirtualSat que disponibilizei pra vc via Dropbox funciona 100% , testes foram feitos no Emulador Sefaz e também Sat Fisico , tem uns 5 colegas que mandei este mesmo Demo e os caras também testaram . Vc testou no demo ???

Não sei se vc precisa imprimir ou Preview nestas notas , vc explicou que precisa imprimir , porque visualizar varias notas na tela acho que não tem fundamento , então vou dar um dica de como Imprimir varias notas . Se vc não optar por Preview nas NFe's independente de qual Gerador de Danfe vc utilizar , ou seja , enviar as impressões direto para impressora , vc consegue criar uma rotina simples na sua aplicação sem modificar nada no componente ! Vc memoriza os path's dos XML's a serem impressos antes de add ao ACBrNFe , vc pode criar um TStringlist ou TClientDataset de Paths destes XML's , depois destes Paths de XML's memorizados ai sim vc trabalha o envio de Impressão . Obs : ACBrNFe.Danfe.Preview := False ; // No inicio da rotina antes do for... for i := 0 to Lista.count -1 do begin ...Clear ; ...LoadFromFile ( StringList.Strings ) ; // Aqui o path do XML ...Imprimir ; end; ...no laço acima , vai trabalhando o componente ACBrNFe , ...Clear ; ...LoadFromFile ( StringList.String ) ; ...Imprimir ; .... e assim vai . Com certeza ira tudo pra impressora .

Não tá errado esta chamada não ? if(cCEST = '') then // se for vazio da add ?? O correto não Seria = if(cCEST <> '') then // se for diferente de vazio ai sim add