marcelo_sp

Juliomar boa tarde , oque acontece é que ele esta recebendo no Demo do ACBrBal de retorno da função LePeso o erro acima indicado = não implementada em: Não definida. , para Filizola não tem dado este erro , entende ? ele disse que não esta utilizando uma balança fisica , neste caso ele estaria utilizando um Simulador da Filizola , mas no momento oque se entende é que ele quer primeiro fazer funcionar o Demo e depois sim implementar a AC dele .

Vc esta utilizando Simulador pra testar , não é ? Nunca utilizei simulador para testar Balança , por conhecidencia esta semana informatizamos um Mercadinho com 3 PDV's , eram os 3 PDV's com a Filizola CS-15 Bat. , e foi Tranquilo , a unica coisa que se teve que alterar em relação as Configurações Defaut do Demo foi o BaudRate que ficou = 2400 o resto ficou tudo igual , até liguei na Filizola e pedi a configuração dos DB9 , antes só tinhamos clientes com BP-15 , acredito que o cabo serial era o mesmo , mas por vias duvidas , né ? Estou postando o esquema de montagem do cabo serial , pode ser útil pros colegas que precisarem de bate pronto , Filizola CS-15 Bat. !

Paulinho , vc ja testou com o Demo do ACBrBal ? Com qual Marca e Modelo de balança vc esta testando ?

Isso mesmo , utilizo um timer só pro modo (Automatico) onde aguardo um tempinho pra disparar o código de leitura , sei que no ACBrBal existe o MonitorBalanca mas nunca utilizei por isso mesmo ele fica pegando o peso quando eu não quero que pegue na AC !

Cleber , na minha AC tenho os 2 formatos (Automatico e Manual) mas prefiro deixar manual porque no automatico gera mais um timer na AC que fica lendo a porta da balança a todo tempo gerando código desnecessario na AC , correto ? mas é questão de pura opção mesmo , tenho clientes que quer manual outros automatico ! configuramos o sistema de acordo com o gosto do Cliente e os mesmos estão felizes assim , kkk ! ...Cleber , do dedo colocado na balança não é problema , porque vc só mostra o peso quando o mesmo esta estavel e não em modo oscilante , ou seja , existe uma fração de segundos onde vc pega o peso e realmente mostra , entende ?

Ricardo , se me permite uma dica : 1 - Essa rotina LerConfiguracao dos parametros do seu ini ou banco de dados , coloque-a no OnShow do formulario onde encontra-se o ACBrNFe , porque seu aplicativo a cada impressão de danfe faz chamadas todas as vezes que se imprime um Danfe duplicando a rotina desnecessariamente , essa rotina é carregada nescessariamente somente uma vez ao componente quando o aplicativo ou formulario se inicia ! 2 - Não atualizei meus fontes por esses dias , vc usa Capicom ? se sim , tenta assim para ver se resolve o problema do Certificado : ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text; ACBrNFe1.Configuracoes.Certificados.GetCertificado ; ...acredito que os caras não mudaram isso , se não resolver , veja se o Certificado aparece na guia Pessoal de Conteudo do Internet Explorer !

Paulinho , existem duas formas de vc implementar isso : 1 - Modo Automatico , quando alguem coloca algo na balança , a mesma ja retorna o peso no campo do seu programa , o usuario digita o código do produto ! 2 - Modo Manual como vc disse !! , eu particularmente utilizo manual , o usuario tecla uma determinada tecla e chama o peso , do mesmo jeito que o automatico só que tem que chamar o método . ...vc pode ter as duas formas parametrizando sua AC ! exemplo de como fica o resultado na sua AC após a leitura do peso pelo ACBrBal , exemplo de 2 kilos : 2,000X ...o usuario digita o código e tecla Enter ! obs: O 'X' multiplicador vc implementa anexando após o retorno do peso do ACBrBal !

Ja tentou colocando antes do Get o Número do Certificado a ser pesquisado ? Assim : var Dt_Validade : String ; begin ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Numero_De_Serie_do_Certificado_Digital_Desejado ; ACBrNFe1.Configuracoes.Certificados.GetCertificado ; Dt_Validade := DateToStr(ACBrNFe1.Configuracoes.Certificados.DataVenc); if Trim(Dt_Validade) = '' then showmessage('Certificado não Encontrado !'); end ; Obs : Capicom !!!

Ricardo os Caras deram uma organizada nos Fontes de algumas units do projeto , tinha units que tinham códigos duplicados , enfim... não atualizei meus fontes por esses dias , mas da uma procurada nos seus fontes ai que é falta de alguma unit declarada !

Tenta assim : NFEletronica.NotasFiscais.Clear; // NFEletronica.NotasFiscais.LoadFromFile(lcXML); // <=== isso aqui não precisa mais , ja que se informa a chave da NFe no add !!! NFEletronica.EventoNFe.Evento.Clear; NFEletronica.EventoNFe.idLote := StrToInt(cdsNFENUMNF.AsString); with NFEletronica.EventoNFe.Evento.Add do begin infEvento.chNFe := ChaveNFe_A_Cancelar ; // faltando no seu código infEvento.CNPJ := Cnpj_Emitente ; // faltando no seu código infEvento.dhEvento := IncMinute(Now,5); infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := lcJustificativa; // Aqui não pode estar vazio (tem um limite) end; // Envia o evento do cancelamento NFEletronica.EnviarEventoNFe(StrToInt(cdsNFENUMNF.AsString));

Fausto , existe um mar de formatos de impressão Nativas com o pascal , vou dar uns exemplos , mas vc vai pesquisar pro seu caso 3 artigos e um deles vai resolver o seu caso sem precisar deste dosPrinter que vc instalou . //// 1 - opçao de impressão , vc imprime no spool , mesmo sendo USB ( impressão não concomitante !) uses Printers ; var print : TextFile ; begin AssingPrn(print) ; Rewrite(print) ; Printer.Canvas.Font.Name := 'Times New Roman'; Printer.Canvas.Font.Size := 10; WriteLn (print , 'Texto') ; CloseFile(print); end ; //// 2 - opçao de impressão se o computador estiver em rede (impressão Concomitante) , não precisa Printers aqui ! . 1-Instale o driver da impressora e Compartilhe a impressora .(A impressão é na maquina local mesmo tá ) var print : TextFile ; begin AssingFile(print , '\\nome_computador\nome_compartilhamento') ; Rewrite(print) ; WriteLn (print , 'Texto') ; CloseFile(print); end ; //// 3- opção , pesquise por Net Use ( Este comando direciona impressoes para a porta = LPT ) , somente portas paralela=(Lpt) , não funciona para porta COM !

Daniel , apanhei com esse problema esses dias em um cliente com Sweda ST120 , o cliente tem 4 pdvs com este ECF , todos funcionavam normalmente até que um deles retornava o erro acima informado com ACBrSwedaSTX e com ACBrSweda ia normal , testava com o Demo do ACBrEcf e tbm não ativava com ACBrSwedaSTX só ACBrSweda , cara parece mentira , utilizo timeout = 8 nos pdvs deste cliente e apenas este ECF deste pdv tive que aumentar para 30 , acabou o problema , i o mais loco é que os demais pdvs ficaram com timeout = 8 e esta normal , vai explicar !

Rapaz ta estranho , vc diz que deletou e atualizou tudo !!! , não tem mais ninguem com esse tipo de problema , vc esta utilizando o ACBrInstall ?

Uma pergunta , no Demo Funciona ? Quase sempre os arquivos xsd's de Schemas da pasta de exemplo estão desatualizados , baixe os novos : http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=/fwLvLUSmU8=

E tbm após o retorno Ok do envio de Cancelamento por Evento é nescessario que vc edite a tag COD_SIT no seu Banco de Dados de NFe's do documento Fiscal para 02 ,( Tabéla 4.1.2 ) , pois de acordo com o Manual de Integração para geração do Sped Fiscal Sped Pis Cofins registro C100 , é obrigatório que se informe o COD_SIT com o Status atual do docto fiscal .

Atualizou tbm os Schemas ?

<ICMS40> = Cst 40 , neste caso não esta emitindo o item como isento ? Não teria que emitir Cst 00 = <ICMS00> ? que no caso está Tributando como no exemplo abaixo : <ICMS> <ICMS00> <orig>0</orig> <CST>00</CST> <modBC>2</modBC> <vBC>111.56</vBC> <pICMS>18.00</pICMS> <vICMS>20.08</vICMS> <motDesICMS>7<motDesICM> </ICMS00>

Isaque , lembra uma época que comentei contigo sobre desenvolver um projeto que gerasse as EFD's importando os XML das NF's de Entrada e Saída ? Enfim... na epoca eu tentei algo do genero mas complicava em algumas informações do Sped , acabei por desistindo do formato de importação do movimento por xml mas não desistindo do projeto . Como o objetivo desse projeto era de gerar o Sped não só pra mim , fiz uma parceria com um colega da Bahia , desenvolvemos um layout para o arquivo txt para gerarmos com todo o nosso movimento de NF de entrada e saída e tbm o movimento de ECF pelos nossos programas e fizemos esse programa onde o mesmo importa o movimento deste txt , assim o sistema é alimentado com todo o movimento e com esse movimento eu tenho então tudo para gerar o Sped , neste nosso projeto tambem não calculamos o Bloco M pela dificuldade em questão discutida neste post , pensamos em desenvolver isso e muito mais com o amadurecimento do projeto . Gostaria muito que este nosso projeto apesar de ainda pequeno se tornasse Open Sourse , o ACBrGeraEFDs , não um componente e sim um Software , como um Software Contabil que importa o movimento e gera tudo de EFD inclusive tbm para softwares contabeis . ilustração : 1-Seu programa gera o Arquivo txt do movimento atravez de um layout . 2-O projeto importa esse movimento pelo txt, valida as informações e envia por email ao Cliente . 3-O projeto gera todas as EFD's . Estamos utilizando BD Firebird . Quem apóia ?

Te mandei um email com alguns fontes completos do Fluxo do TED com dll e Wilbor com ACBrTER ! vai dar pra vc ter uma boa idéia de como é o esquema ! ...qualquer duvida estamos ai !

Acredito que vc tera que criar uma unit separada com a programação de envio e retorno do microterminal , vamos se dizer uma unit publica , e não no form principal como esta , entende ? Crie uma unit publica e utilize ela no projeto , só assim vc vai poder contar com ela em todas as telas !

o principio basico de microterminais e que vc tem que ter a rotina com o microterminal dentro de um timer , executando o envio de comandos e a leitura doque chega na porta , preciso saber oque vc quer fazer acho que é o principio ...

Não desenvolvi o componente ACBrTER , criei apenas o Demo e implementei a leitura de Peso (Balança) que não tinha na epoca , hoje tenho o ACBrTER em produção para microterminal Wilbor !

O Demo para microterminais Wilbor que segue na coletanea ACBr (ACBrTER) fui eu que desenvolvi , eu tenho tambem um Demo para microterminais TED tanto para com ou sem uso de HUB , posso postar pra vc sem problema ! A estrutura de envio e retorno são as mesmas para todos os microterminais , vc pode utilizar tranquilamente a estrutura/formato do Demo para o seu projeto !

Tenho aplicativos que trabalham como serviço , comunicando com o banco de dados e não como vc fez para utilizar como teclado , no meu caso tenho um timer de comunicação onde se envia o comando e recebe o retorno de acordo com o comando que foi enviado !! De acordo com oque vc explicou e oque eu entendi parece ser simples , mas vamos tentar no tato resolver o seu caso . WndProc = tem que ser public para poder utiliza-la no form_filho !! No form Principal na sua procedure WndProc , vc faz assim : if form_filho <> nil then begin utilizar os comandos voltado para o meu form_filho end else begin utilizar os comandos voltado para o meu form principal end; obs: 1-form_filho tem quer ser criado em run time , ou seja , tem que ser avaliabe form . 2-no onclose do form_filho vc faz : form_filho := nil; action:=cafree; acho que é isso .

Keila , consultar o xml onde ? Vc diz download do xml ? Seu sistema ja emite NFe ? explique melhor por favor !