marcelo_sp

Regis , Tbm acho tudo isso das inumeras IDE's e comigo é fato isso que acontece que vc disse , tenho soluções Delphi=Desktop e VS=Mobilidade , i é como deixei bem frizado (no momento ! , hoje !) não tem par para o VS no seguimento Mobile , seria uma Maravilha dar um deploy ou Compile 'como queira' em uma só IDE para tudo oque construimos , mas Hoje não é essa a nossa realidade , infelismente ! E a Embarcadeiro pra otimizar o Delphi para Mobilidade com todas SDK's , Drivers de DB , Emuladores , etc... como o VS 2012 esta hj , vai ter que ralar muito , quem quizer algo Mobile pronto para as próximas semanas tem que apelar pro VS , não tem outro jeito . Enquanto isso , vamos aguardando ansiosos por Mobilidade Integrado ao Delphi !

Sou apaixonado pelo Pascal , mas na minha opinião em se tratando de Desevolvimento Mobile , no momento ainda não vi nada igual ao Visual Studio , desenvolvo no VS para Device Mobile (Para Plataforma Windows Mobile que hj é o Windows Phone) desde a versão VS 2003 que hj esta em sua versão VS 2012 , Microsoft com tudo muito caro mas nada igual em se tratando de produtividade (no momento !) , tive ha algumas semanas verificando algo para o Android que é a base tema do Tópico e encontrei algumas coisas para Android x Visual Studio , a Xamarim lançou um pluguin para Android no Visual Studio (Não testei ainda para Android !) , mas parece ser uma boa promessa em opções para o desenvolvimento Android . link : http://xamarin.com/monoforandroid

Regys e Elton , a minha expressão não esta relacionado a este tópico e sim neste = Quando perguntamos ou questionamos algo direto ha uma pessoa , imploramos por uma resposta , ou seja , um Não ou um Corretivo como oque vcs me deram , mas queremos uma resposta , seja ela qual for , o silencio é ruim , pois não sabemos oque esta acontecendo , respondemos mesmo que odiamos a outra pessoa , mas respondemos . Em relação ao projeto em questão , no estado da Bahia estamos gerando sim o Sped Pis Cofins e tbm Sped Fiscal em produção , é um projeto pequeno ainda com poucos recursos , precisamos melhorar muito , mas esta indo , conseguimos consilhar a minha geração aqui de SP com testes no PVA com a deles na BA ja em produção . Finalizando , estaremos por esses dias disponibilizando para os colegas avaliarem . Grato pela atenção ! Regys e Elton .

Demos Sim , mande um email para [email protected] aos cuidados de Ricardo ! tentamos abrir/vincular este projeto a todos aqui mas não foi aceito por um administrador do forum !

O Campeão , ta na mão !

Isso mesmo , não existe outro jeito , oque pode se fazer é vc utilizar um certificado digital A1 de um cliente seu para ser utilizado no ambiente de Homologação (teste) do Sefaz , é claro que se precisa muita responsabilidade com isso .

Fiori , o Certificado Digital tem que ser Valido ! e tbm não pode estar vencido !

Jeferson , instale o PVA (Programa Validador) da RF para estar importando o seu arquivo gerado pelo seu sistema , só assim vc trata os erros de validação na certeza , acompanhe tbm a atualização de versões do Manual de Integração . Download do PVA : http://www1.receita.fazenda.gov.br/sistemas/sped-fiscal/download.htm

Fabio , como o colega Jéter ja respondeu , vc encontra em \ACBr\Exemplos\ACBrBoleto (Jeter ,grato pela ajuda !) , só complementando , o ACBr tem Demos de todos os componentes na pasta Exemplos , vc primeiro estuda e testa com os Demos , ja existe muitas duvidas ja respondidas aqui no forum mas caso tenha alguma duvida que não encontre pode perguntar ! Boa sorte !

Fabio , eu utilizo para o Banco do Brasil i é tranquilo viu ! , vc vai precisar alguns dados do Banco como Carteira etc... tudo referente ao registro desse Boleto no Banco ! em relação a sua pergunta sobre layout ... o componente ja faz tudo , vc só informa as config para alimentar o componente , utilize o Demo do ACBrBoleto !!!

O Markapolo , nunca apertei a sua mão , quem sabe um dia , mas quero vc como meu amigo cara , estamos todos buscando o mesmo objetivo , somos parceiros , vc não imagina a alegria que eu tenho quando consigo poder ajudar e ser tbm beneficiado com qualquer coisa aqui no forum , é gratificante , ja esqueci todas essas bobagens de mau entendido ta . Edite sim ! , estamos juntos meu irmão . Forte abraço e fica com Deus ai !

Markapolo , me perdoe se te ofendi com algo que escrevi e te irei com isso , jamais foi essa a intenção , não coloquei a sua ou experiencia de ninguem a prova de nada , sei que todos aqui tem suas qualidades como desenvolvedores , apenas quiz dizer que acho que devemos comentar quando ja estivermos testado a ferramenta ( Como é que eu vou ajudar num assunto que eu não testei ) , mas se isso satisfaz o seu ego fique a vontade . O forum não promove um ranking de quem tem mais ou menos , maiores ou menores Clientes , se nossos Software é mais inteligente que do outro , não é essa a proposta do forum , sempre vai existir alguém acima de nós em todos os aspectos da vida , nunca somos o topo de nada . Mas me perdoe se te ofendi com a expressão .

OK Markapolo !

Markapollo bom dia , A Manifestação é feita uma vez por semana em média pelos Clientes , não é ? O Cliente não fica fazendo Manifestação todo dia toda hora como se emiti NFe e demais Doc's , se ele fizer uma vez por semana a Manifestação são = 04 NSU = Zero no mês , Sera que esses 04 NSU's = Zero no mes ! , isso pode bloquear o WS ?? Porque o NSU Zero entra somente uma vez no laço o resto é o Ultimo NSU mesmo !

Alex , é bem particular mesmo de cada um de nós desenvolvedores este processo de como cada um fez ou esta fazendo seus programas , mas é legal isso tudo porque otimizamos cada vez mais nossos Programas nesses debates !!! Mas te digo que uma coisa é a teoria dos Manuais e NT's e outra é o dia dia na pratica do usuario final !!! Tenho alguns clientes que vem utilizando a Manifestação em Produção , e venho acompanhando a evolução disso tudo . Quanto a questão que segue , oque acontece no pedido das NFs para Manifestação , é que na primeira passada do laço quando o NSU iniciado tanto em Zero ou mesmo informando o último NSU , não traz/aparece nf nenhuma !!! , para se retornar a primeira nota o laço normalmente ja rodou dezenas de vezes , ja pegou dezenas de números de últimos NSU's para mostrar a primeira Nota , entende ? pra vc ter idéia nos testes que venho acompanhando , para se retornar uma média de 12 NFs no final do processo , ja teve vez do laço da rotina rodar umas 130 vezes ou mais , isso em Produção Tá ! então acredito que no momento o último NSU não é importante no inicio do laço , particulamente falando ! Uma outra coisa que incomoda o usuário é a demora do procedimento se a Internet do Cliente for ruim !

Italo , obrigado pela dica do Salvar !!! Alex , oque identifica o formato de pesquisa se vai listar Todas as NFs ou não ! , não é a tag NSU e sim a tag IndNFe , veja : 0 : IndNFe := '0' ; // 0 = Todas as NF-e 1 : IndNFe := '1' ; // 1 = Somente as NF-e que ainda não tiveram manifestação do destinatário // (Desconhecimento da operação, Operação não Realizada ou Confirmação da Operação) 2 : IndNFe := '2' ; // 2 = Idem anterior, incluindo as NF-e que também não tiveram a Ciência da Operação No caso , o interessante é utilizar IndNFe = 1 ou 2 ! certo ? e o NSU = 0 , no primeiro looping do laço !

Certo Italo , mas no caso desabilitei o Salvar de Configuracoes\Arquivos mas ai o componente não salva mais nenhum arquivo na pasta Mensal Ano/Mes 201301 , entende ? no caso não teria que desconsiderar somente os xml's "temp" , e os demais validos da pasta mensal permanecer ? O Outro Salvar de Configuracoes\Geral , o meu ja estava False !!

Italo e demais colegas , boa tarde ! Já tenho varios clientes utilizando em produção com o cógido acima que mencionei , e esta bacana funcionando direitinho , só um detalhe que gostaria de mencionar , o retorno é bem demorado das NFe's , até coloquei até uma mensagem de aviso de demora antes do usuario iniciar o processo ! Uma outra dica que deixo para os colegas que ainda não o fizeram é : (1º- Italo , não vi nada interno no componente que faça isso e na verdade não sei se é obrigatório deixar salvo os xml's de pedido de NFe destinadas ! , acredito que não é legal tbm ter interno no componente isso ! certo ? ) é que cada laço/pedido de nova consulta é salvo um arquivo xml deste pedido , certo ? a cada vez que o usuario realiza um pedido das NFe's destinadas , são gerados dezenas os até mesmo centenas de arquivos na pasta de eventos do sistema !! No meu caso utilizei uma rotina para estar deletando estes arquivos (Somente os de Pedido de NFe's Detinadas , viu galera !) da pasta Evento do meu programa ! Vou deixar para quem quizer a rotina que utilizo para deletar os arquivos em questão , qualquer dica é bem vinda !!! : procedure TFrmPrincipal.Deleta_Arquivos_XML_Temp ( Patch : String ) ; var SearchRec : TSearchRec ; Result : Integer ; Arquivo : String ; Competencia : String ; begin // Deletando Arquivos do Path Geral do Cnpj do Emitente ativo Arquivo := Patch + '\*.xml' ; Result := FindFirst( Arquivo , faAnyFile, SearchRec) ; while result = 0 do begin if pos('-con-nfe-dest.',SearchRec.Name) > 0 then DeleteFile( Patch + '\' + SearchRec.Name) ; if pos('-nfe-dest.',SearchRec.Name) > 0 then DeleteFile( Patch + '\' + SearchRec.Name) ; if pos('-eve.',SearchRec.Name) > 0 then DeleteFile( Patch + '\' + SearchRec.Name) ; if pos('-ped-evento.',SearchRec.Name) > 0 then DeleteFile( Patch + '\' + SearchRec.Name) ; Result := FindNext(SearchRec) ; end; // Fim Deletando Arquivos do Path Geral do Cnpj do Emitente ativo Competencia := FormatDateTime('yyyy', Now) + FormatDateTime('mm', Now) ; // Deletando Arquivos do Path Mensal/Competencia do Cnpj do Emitente Ativo Arquivo := Patch + '\' + Competencia + '\Evento\*.xml' ; Result := FindFirst( Arquivo , faAnyFile, SearchRec) ; while Result = 0 do begin if pos('-con-nfe-dest.',SearchRec.Name) > 0 then begin Arquivo := Patch + '\' + Competencia + '\Evento\' + SearchRec.Name ; DeleteFile( Arquivo ) ; end ; if pos('-nfe-dest.',SearchRec.Name) > 0 then begin Arquivo := Patch + '\' + Competencia + '\Evento\' + SearchRec.Name ; DeleteFile( Arquivo ) ; end ; if pos('-eve.',SearchRec.Name) > 0 then begin Arquivo := Patch + '\' + Competencia + '\Evento\' + SearchRec.Name ; DeleteFile( Arquivo ) ; end ; if pos('-ped-evento.',SearchRec.Name) > 0 then begin Arquivo := Patch + '\' + Competencia + '\Evento\' + SearchRec.Name ; DeleteFile( Arquivo ) ; end ; Result := FindNext(SearchRec) ; end; // Fim Deletando Arquivos do Path Mensal/Competencia do Cnpj do Emitente ativo end;

Uma outra dica para ajudar tbm alem da do Regis , vc pode tbm utilizar a impressao direta tbm , assim : 1 - Instale normalmente o Driver da impressora (Isso serve para qualquer impressora , não só Bematech !) . 2 - Compartilhe ela com o nome desejado . rotina no delphi : var print : textfile ; begin AssignFile ( print , '\\nome_computador_local\nome_compartilhado_impressora' ) ; // A impressão é no proprio computador onde esta instalado a impressora ou na rede tbm se quizer !!! Rewrite (print); WriteLn (print , 'Linha impressa 1'); WriteLn (print , 'Linha impressa 2'); WriteLn (print , 'Linha impressa 3'); CloseFile (print); end ; obs : existem Comandos WriteLn para acionamento de guilhotina , acionamento de gaveta , etc... funciona tudo ! Abraço !

Sergio , esta errado sim , ja coloquei a rotina completa pra vc no outro link que vc perguntou a mesma coisa , é só vc implemantar a sua AC baseando-se naquela rotina : acesse :

Sergio , eu utilizo este laço listando as NFe's Destinadas no NextGrid , veja rotina completa : procedure TFrm_Manifestacao_Destinatario.btn_Consulta_NFe_DestinadasClick( Sender: TObject); var CNPJ , IndNFe , IndEmi , ultNSU , Tem_Doctos : string; ok : boolean ; i , a : integer ; begin Grid_NFe.ClearRows ; CNPJ := FrmPrincipal.Cnpj_Autenticacao_Certificado_Digital ; case cbx_Indicador_NFe_Consultada.ItemIndex of 0 : IndNFe := '0' ; // 0 = Todas as NF-e 1 : IndNFe := '1' ; // 1 = Somente as NF-e que ainda não tiveram manifestação do destinatário // (Desconhecimento da operação, Operação não Realizada ou Confirmação da Operação) 2 : IndNFe := '2' ; // 2 = Idem anterior, incluindo as NF-e que também não tiveram a Ciência da Operação end ; case cbx_Indicador_Emissor.ItemIndex of 0 : IndEmi := '0' ; // 0 = Todos os Emitentes / Remetentes 1 : IndEmi := '1' ; // 1 = Somente as NF-e emitidas por emissores / remetentes que não tenham a mesma // raiz do CNPJ do destinatário (para excluir as notas fiscais de transferência entre filiais).*) end ; ultNSU := '0' ; Tem_Doctos := 'S' ; while Tem_Doctos = 'S' do begin Tem_Doctos := 'N' ; FrmPrincipal.ACBrNFe1.NotasFiscais.Clear ; FrmPrincipal.ACBrNFe1.EventoNFe.Evento.Clear ; FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Clear ; try FrmPrincipal.ACBrNFe1.ConsultaNFeDest(CNPJ, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), UltNSu) ; except end ; case FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.indCont of icNaoPossuiMaisDocumentos : Tem_Doctos := 'N' ; icPossuiMaisDocumentos : Tem_Doctos := 'S' ; end; ultNSU := FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU ; // Retorno de NFe Destinadas for i := 0 to FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do begin if Trim(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe) <> '' then begin Grid_NFe.AddCells([ 'False' , '' , FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome , FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe , FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF , VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF) , FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE , DateToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi) , VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF) , VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe) , VarToStr(FrmPrincipal.AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitConf) ]); end ; end ; // Retorno de NFe Destinadas Grid_NFe.ApplyEditing ; FrmPrincipal.ACBrNFe1.NotasFiscais.Clear ; FrmPrincipal.ACBrNFe1.EventoNFe.Evento.Clear ; end ; for i := 0 to Grid_NFe.RowCount -1 do begin if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 0 then begin for a := 0 to Grid_NFe.Columns.Count -1 do Grid_NFe.Cell[a,i].Color := clAqua ; end ; if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 1 then begin for a := 0 to Grid_NFe.Columns.Count -1 do Grid_NFe.Cell[a,i].Color := clLime ; end ; if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 2 then begin for a := 0 to Grid_NFe.Columns.Count -1 do Grid_NFe.Cell[a,i].Color := clFuchsia ; end ; if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 3 then begin for a := 0 to Grid_NFe.Columns.Count -1 do Grid_NFe.Cell[a,i].Color := clYellow ; end ; if Grid_NFe.CellByName['NFe_C_Sit_Conf',i].AsInteger = 4 then begin for a := 0 to Grid_NFe.Columns.Count -1 do Grid_NFe.Cell[a,i].Color := clBlue ; end ; end ; end;

Paulinho , visto que parece que nunca ninguem do forum ja utilizou emulador de balança como eu tbm nunca utilizei , vai então uma dica de tentativa se vc ja não tentou assim : 1º - Vc vai criar um cabo no padrão daquele que eu coloquei acima . 2º - Vc vai precisar de 2 portas seriais no seu computador. (Exemplo COM1 e COM2) . 3º - Conecte o cabo serial (Exemplo : na COM1 e COM2 do seu computador) . 4º - Existe um emulador de balança na pasta \Projetos\EmuladorBalanca\Delphi , vc vai executa-lo em exemplo na COM1 e deixa-lo executando . 5º - Execute o Demo do ACBrBal e ative ele na COM2 , ja que o Emulador esta ativado na COM1 , assim vão ficar sincronizados o (Emulador na COM1 e ACBrBal na COM2 atravéz do cabo que vc fez) . Obs : Ative o ACBrBal com o Modelo Filizola , teste as diversas configurações de velocidade de porta , 2400... Os Emuladores do ECF Sweda mais antigos eram assim , não sei o atual mas vc utilizava assim , tinha que se fazer um cabo serial e o Emulador executava em uma porta e a AC em outra porta , assim o cabo sincronizava a AC ao Emulador , entende ? Boa sorte , espero que funcione !

Marcelão , atualizei ontem o componente e descobri porque no meu sistema ele não da este pau , vou explicar : Tenho alguns Clientes que utilizam mais de um Certificado no mesmo Sistema , ou seja , filiais , Certo ? No caso utilizo um cadastro do emitente e cadastro o Numero de Série do Certificado Digital porque todas as vezes que vai fazer algo no Sistema , CCe , CAn , NFe ... etc... o usuario tem que selecionar o Certificado do emitente que vai executar que esta no BD , só que consegue mostrar somente os Emitentes que o sistema consegue enchergar o Certificado ativo na maquina , vou colocar uma imagem e o trecho de código que alimento no grid todas as vezes que vai fazer algo no sistema : Trecho de código que lista os certificados dando o get pra ver se o Certificado esta ativo (OnShow do Form) : Lista com Try Except !!! procedure TFrmSelecao_Certificado_Emitente.FormShow(Sender: TObject); var QryEmitentes : TQuery ; Dt_Validade : String ; begin GridEmitentes.ClearRows ; QryEmitentes := TQuery.Create(self); QryEmitentes.DatabaseName := 'ComplusNFe' ; QryEmitentes.Close ; QryEmitentes.SQL.Clear ; QryEmitentes.SQL.Add('Select * From CADASTRO_EMITENTES') ; QryEmitentes.Prepare ; QryEmitentes.Open ; while not QryEmitentes.Eof do begin try FrmPrincipal.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Trim(QryEmitentes.FieldByName('NUM_SERIE_CERT_DIGITAL').AsString) ; FrmPrincipal.ACBrNFe1.Configuracoes.Certificados.GetCertificado ; Dt_Validade := DateToStr(FrmPrincipal.ACBrNFe1.Configuracoes.Certificados.DataVenc); GridEmitentes.AddCells([ QryEmitentes.FieldByName('CNPJ').AsString , QryEmitentes.FieldByName('RAZAO_SOCIAL').AsString , QryEmitentes.FieldByName('NUM_SERIE_CERT_DIGITAL').AsString , Dt_Validade ]); except end ; QryEmitentes.Next ; end ; GridEmitentes.ApplyEditing ; QryEmitentes.Free ; if GridEmitentes.RowCount > 0 then GridEmitentes.SelectFirstRow ; end; Consegui ser claro ?

É sim Juliomar , i outra , como ele esta sem balança fisica , tem que ver como é feito esta Emulação , como disse , para balança nunca utilizei Simuladores , somente o Dispositivo fisico mesmo , pedimos aos colegas que utilizaram Simuladores dar uma força pro amigo de como se configura isso tudo "Para Simulador" pra poder utilzar com o ACBrBal !!!

Entendi Xara , na verdade não atualizei ainda a versão no mes de Dezembro , estarei atualizando por esses dias e posto o feedback aqui !