walter faria

Boa tarde, a todos. Oque acontece quando envio a NFSe as vezes da um erro de timeout. *** No site a NFS-e esta enviada tudo certinho consigo ate imprimir pelo site, mas pra mim no sistema so tenho RPS que foi enviado, nao tenho XML da NFSe e nem atualizei os dados no BD. 1- Minha pergunta seria : Como posso recuperar estas informações e o XML? Obrigado. Utilizo assim para enviar: GerarRPS(iRPS); ACBrNFSe1.Enviar(iCodNFManual, false); //se enviou pego as informações e salvo no BD NF:= StrToInt(fmMenu.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero); RPS:= StrToInt(fmMenu.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero); Arquivo:= fmMenu.ACBrNFSe1.NotasFiscais.Items[0].NomeArq; CodigoVerificacao:= fmMenu.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; Protocolo:= fmMenu.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo; //Aqui eu Gravo NO BD GravarNFSe_Dados; //Aqui eu Imprimi a NFSe //se passou envio entao IMPRIMIR DANFSE fmMenu.ACBrNFSe1.NotasFiscais.Clear; fmMenu.ACBrNFSe1.NotasFiscais.LoadFromFile(Arquivo); fmMenu.ACBrNFSe1.NotasFiscais.Imprimir; fmMenu.ACBrNFSe1.NotasFiscais.Clear;

Italo, como estavamos falando no fonte AcbrNFSeWebServices na linha 2169 : qdo envio o cancelamento nao esta atualizando o XML. j := Pos('' + Prefixo3 + 'Nfse>', FRetCompNfse); O valor de J fica com ZERO, o conteudo da Variavel : FRetCompNfse eu salvei no arquivo em anexo. Conteudo.txt Como J fica com zero ele nao passa no restante do codigo if j > 0 then begin FRetNfse := FRetCompNfse;

Italo, obrigado pelo retorno. Segue os anexos. 19-ped-can.zip 10UNICA-comp-nfse.zip Resposta Consulta RPS.xml

Boa noite, fiz o cancelamento de NFS-e pelo demo, cancelou corretamente mas XML da NFS não esta com as informações de cancelamento. em anexo o XML da NFS, e o pedido de cancelamento. No componente apos o cancelamento, sai a tarja de NFS cancelada ? *** Como Italo, comentou o 4 operacao XML da NFS completa com o cancelamento . Obrigado. 14-nfse.xml 14-ped-can-c.zip 14-nfse.xml 14-ped-can-c.zip

Bom dia, presciso instalar acbrNFP, mas nao esta dando certo. Se alguem poder me ajudar . ACBrNFP.rar *** estou enviando a pasta para instalar , se alguem me ajudar e poder instalar no seu delphi. fico grato. Obrigado

Bom dia a todos, alguem sabe me dizer como se faz : Download da NF-e pelo acbr via Web Service *** se nao me engano tinha visto isto no demo, mas procurei agora e não esta mais. Obrigado.

Aproveitando o topico, esta com erro na busca do campo : Documento, NossoNumero *** Documento fica faltando caracteres Obrigado

Boa noite, não sei o seu sistema, mas quando eu leio o arquivo de retorno: 1- data de Vencimento fica: 00/00/0000 2 Nr. Documento fica : 81827645 e no arquivo se vc olhar esta assim : 818276451271, 818276454611 e etc *** os numeros esta ficando iguais. *** Testei em dois arquivos retorno ( CEF ) caixa e da o mesmo problema . Tem alguma sugestão ou será que é o componente que esta lendo errado !!! Obrigado.

Para ler o arquivo de retorno eu faço da seguinte forma : //Configura arquivo de retorno if OpenDialog1.Execute then edtArquivo.Text:= OpenDialog1.FileName FrmPrincipal.ACBrBoleto1.DirArqRetorno:= ExtractFilePath(edtArquivo.Text); FrmPrincipal.ACBrBoleto1.NomeArqRetorno := ExtractFileName(edtArquivo.Text); FrmPrincipal.ACBrBoleto1.LerRetorno; As vezes te ajuda ai !!! *** Vc pode me passar um arquivo de retorno seu ai , presciso fazer testes aqui e nao tenho nenhum !!! flw

Sim , tem esta propriedade, mas dentro desta pasta gostaria que o Componente separasse as remessa por ano/mes igual o componente de NF-e/CT-e. Obrigado

boa tarde, alguem poderia disponibilizar arquivos de retorno : Banco Itau, Brasil, Caixa, Santander . Fico Grato, estou fazendo o tratamento de retorno mas não tenho nenhum arquivo de teste . Obrigado

Boa tarde, aproveitando o topico. Tenho um sistema em um cliente ( Transportadora ) eles utilizam CT-e. A contabilidade esta pedindo para gerar o Sped Fiscal, teria como me ajudar quais registros eu tenho que gerar o arquivo . *** No caso so vou gerar as saidas ( CT-e) la eles nao utilizam as entradas. Obrigado.

Bom dia a todos, gostaria de passar uma sugestão: Hoje é informado Caminho e nome do arquivo de remessa certo, teria como o proprio componente gerar uma pasta dentro da pasta sugerida no caminho do arquivo igual o componente de NF-e faz separando as remessa por MES/ANO ? no meu sistema coloco assim nome da remessa : Remessa + FormatDateTime('DDMMYYYYHHMMSS',Now) + '.TXT'; Mas gostaria de ter as pastas separadas, se der e claro. Obrigado.

Obrigado, adaptei sua dica aqui e deu certo !!!

Boa noite, quando executa a funcao : LerRetorno() Antes tem que indicar qual o banco esta trabalhando , apos isso chamar o metodo : LerRetorno() No caso o componente estara com todos os boletos do arquivo. Como eu posso ler o componente para pegar os dados dos boletos lidos pelo metodo LerRetorno. Campos: Valor, Documento, NossoNumero, DataVencimento, DataPagto e etc... *** Minha ideia e pegar os dados do retorno e colocar ClientDataSet , para o usuario verificar, antes do sistema dar BAIXA !!! Obrigado

Bom dia, aonde eu encontro este arquivo: ACBrECF001.INI ? e na linha que vc indicou qual comando eu coloco para a impressora (bematech 4000) e a Gaveta Bematech ligada a impressora ? Obrigado

Bom dia , colega tenho uma impressora ( nao fiscal bematech 4200 ) e uma gaveta de dinheiro . Tem um cabo da gaveta ( conector tipo de telefone ) que eu conecto na impressora ( nao fiscal ) teria como vc me passar os comandos para abrir a gaveta e acionar o corte do papel quando for fim da impressão . Para impressão no mesmo, estou utilizando : Assignfile Obrigado.

Obrigado.

Bom dia, a todos. Sei que tem topicos, abertos mas nao ficou claro para mim. Baixei a atualização dos componentes, instalei o mesmos no delphi. Abri o sistema NFE, compilei novamente . Minha pergunta basta somente eu enviar a atualização do sistema de NF-e ? Obrigado.

Boa noite, Francisco. So para te informar, eu estava pesquisando sobre chat ... e acesso remoto em delphi encontrei um projeto ArdOS ( ja esta descontinuado ) mas estou com fontes versao : 3.0 . *** estou analizando o seu codigo, caso tenha interesse podemos nos juntar e melhorar o codigo e adicionar ate mesmo novas funcionalidades. Obrigado.

Francisco, tipo o exemplo q vc passou gostaria de fazer a seguinte forma: 1- SERVIDOR ( ATIVO ) mostrando todas as conexões . 2- CLIENTE 1 conectado . 3- CLIENTE 2 conectado. 4- CLIENTE 3 conectado. Gostaria de fazer com que o CLIENTE 1 mande msg somente para CLIENTE 3 , ou CLIENTE 3 enviar msg somente para CLIENTE 1. No seu exemplo nao sei como posso fazer isto, poderia me ajudar nesta questão. Obrigado.

Bom dia a todos. Gostaria de montar com o componente AcbrTCPServer, um MONITOR de chat onde nele constaria todos os CLIENTES conectados como montado no demo do componente. Minha pergunta seria tem como entre os CLIENTES conectados ao SERVER se comunicarem entre sim ( cliente com cliente ) . Obrigado, se alguem poder me ajudar como montar eu fico grato. Obrigado

boa noite, Francisco. Obrigado , primeiramente por responder minhas perguntas. *** Estranho que o arquivo chega vazio , sabe me dizer oque pode ser ? para enviar pelo servidor faco assim : Clique do botão no SERVER: Var I : Integer ; Selecionado : Boolean ; tStream : TMemoryStream; begin tStream := TMemoryStream.Create; tStream.LoadFromFile('c:\Pizza.TXT'); Selecionado := False ; For I := 0 to CheckListBox1.Items.Count-1 do begin if CheckListBox1.Checked then begin Selecionado := True ; tStream.Position := 0; ACBrTCPServer1.EnviarStream( tStream, I ); end ; end ; if not Selecionado then begin tStream.Position := 0; ACBrTCPServer1.EnviarStream( tStream, -1 ); // -1 envia para Todas conexoes end;

Bom dia , Francisco. Fiz um teste sendo enviado um arquivo .TXT, para o cliente, ele recebe o TXT so que o arquivo e gravado no disco em BRANCO ( 0 KB ), sabe como resolver isto ? Tava olhando sua função ( Abaixo ) acho esta faltando alimentar o STREAM ( arq ) com os dados recebidos !!! Obrigado procedure TReadingThread.Execute; begin txt:=tstringlist.Create; arq:=TMemoryStream.Create; Fstring:=''; while not Terminated do begin FString := FConn.RecvPacket(1000); if Fstring='01' then begin fconn.RecvStream(arq,100); ///ACHO Q ESTA FALTANDO ALIMENTAR A VARIAVEL arq AQUI !!! ANTES DE GRAVAR O ARQUIVO arq.SaveToFile('c:\PizzaRecebido.txt'); arq.Free; Fstring:=fstring+' recebido stream '; end; // if fstring<>emptystr then begin // txt.Add(fstring) ; // txt.SaveToFile('C:\pdv.txt'); //end; Synchronize(AtualizarMemos); end; txt.Free; end;

Bom dia Francisco Realmente o que eu presciso. Oque eu quero montar é o seguinte os cliente poder solicitar ao servidor o XML de uma NF. Obrigado.