Alex Pereira
-
Total de ítens
137 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Alex Pereira
-
-
Galera, boa tarde.
Li a NT para entender melhor como funciona.. Só não entendi muito bem oque é o NSU, alguém saberia me explicar melhor?
Valeu.
-
Alguém de SP está tendo problemas ao transmitir agora à tarde?
Também está tudo verde no site da NF-e porém está dando "Inativo ou inoperante"...
Edit:
Já descobri o problema.. o certificado do meu cliente venceu ontem a validade, por isso retornava esse erro. rs
-
Então.. desculpa pq passei errado o comando.. se passar com fieldbyname ele não acha.. passe assim:Muito obrigado Alex pelos esclarecimentos.Sobre salvar o XML, quando adicionei a linha de comando devidamente alterada de acordo com a minha aplicação
qrXML.FieldByName('MEU_CAMPO_STRING').SaveToFile(C:\XML\arquivo.xml);não compilou, é necessário alguma declaração no uses? o Retorno estou gravando apenas qndo for 135, 136 e 155 (fora do prazo). Depois de ter enviado corretamente o evento consulto a NF-e para verificar o estado dela, a SEFAZ-SP retorna sempre 101 mesmo para aquelas qndo o cancelamento foi fora do prazo. De acordo coma NT2012/03 era para retornar "151 - cancelamento de NF-e homologado fora do prazo". Esta certo este meu raciocínio?qrXMLMEU_CAMPO_STRING.SaveToFile(C:\XML\arquivo.xml);
Só que desse jeito tem que ser uma query fixa e com o campo adicionado no field editor da mesma para poder usar desta forma o campo..
Quanto ao retorno do cancelamento, o raciocínio está correto.. de acordo com a NT era pra retornar 151 mesmo quando é fora do prazo.. vou fazer esse teste também depois te falo oque retornou.
Abraços
-
Bom dia amigo. 1º Para salvar o XML do evento do cancelamento estou pegando o retorno assim:Bom dia a todosEstou com algumas dúvidas quanto ao retorno do cancelamento por evento.
1º - Como salvar o XML do evento? para salvar a NF-e utilizo -
ACBrNFe1.NotasFiscais.Items[0].SaveToFile(caminho+'-nfe.xml', false);
2º - O XML autorizado da NF-e é alterado ou agora é apenas impresso o cancelamento junto com DANFE original? 3º - Como capturo o cStat 101 e 151 para atribui-lo na NF-e original? uso a forma abaixo para verificar se o evento foi recebido com sucessoACBrNFe1.WebServices.EnvEvento.cStat
Obrigadoqr.FieldByName('MEU_CAMPO_STRING').AsString := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS);Depois tenho uma opção do usuário recuperar esse XML assim:qrXML.FieldByName('MEU_CAMPO_STRING').SaveToFile(C:\XML\arquivo.xml);Dessa forma ele fica com um XML do evento à parte ao da NF-e. 2º Até onde eu percebi o XML da NF-e não é alterado após o cancelamento pelo evento, por esse motivo está sendo gerado o XML a parte. 3º O retorno do cStat eu estou fazendo assim: // cStat = 135 (Evento registrado e vinculado a NF-e)iStat := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;
Abraço.
-
Consulta só com chave da NFe ou Numero do Recibo;
[]´s
Boa tarde.
Como faço para consultar pelo Número do Recibo, como vc disse?
no caso seria o nRec, correto?
Porque eu tenho uma nota aqui e por algum motivo o sistema não gravou o retorno dela após a transmissão... estou sem o XML, Chave de Acesso e protocolo.
Mas quando tento enviar a nota novamente acusa duplicidade e me retorna um número nRec:35100... etc
será que por esse número eu consigo consultar a NF-e? Seria esse o Número do Recibo citado?
Obrigado.
Pessoal, achei a resposta em outro tópico, peço desculpas pois não havia encontrado antes.
link: viewtopic.php?f=6&t=1061
Obrigado.
-
Consulta só com chave da NFe ou Numero do Recibo;
[]´s
Boa tarde.
Como faço para consultar pelo Número do Recibo, como vc disse?
no caso seria o nRec, correto?
Porque eu tenho uma nota aqui e por algum motivo o sistema não gravou o retorno dela após a transmissão... estou sem o XML, Chave de Acesso e protocolo.
Mas quando tento enviar a nota novamente acusa duplicidade e me retorna um número nRec:35100... etc
será que por esse número eu consigo consultar a NF-e? Seria esse o Número do Recibo citado?
Obrigado.
-
Boa tarde pessoal.
Desculpe minha "ignorância", mas ainda não implementei o Cancelamento da NF-e por Eventos e estou começando hoje a fazer essa alteração nos sistemas.
Pelo que entendi, a NF-e poderá ter mais de 1 cancelamento então? assim com são enviados os eventos de correção da CC-e, por exemplo?
E o pessoal que já implementou está funcionando normalmente já aqui em SP?
Valeu, abraços.
rs... mais de um cancelamento é boa hein...
Aconselho vc ler as normas tecnicas que estão no Portal Oficial da NFe.
Em resumo:
1-Não existe mais de um evento de CCe. Existe sim a possibilidade de vc substituir uma Carta de Correção por outra. Isso é entendido pela SEFAZ quando vc envia uma CCe daquela NFe. Será considerada sempre a ultima.
2- Se vc cancelar a NFe vc nao consegue mais fazer nada nela... nem mesmo carta de correção. A SEFAZ "tem mecanismos" que bloqueiam isso.
[]´s
João, agradeço a resposta.
Na vdd eu já havia lido a Nota técnica sobre esse Cancelamento da NF-e, só que na forma que eles fazem, no meu caso acaba me confundindo mais do que ajudando, rs.
Oque acabou me confundindo é que o layout do Cancelamento por Evento é quase igual o da CC-e, pois ambos são eventos né. Até aí entendi.
Aí como a CC-e tem a possibilidade de ser enviado até 20 eventos, um substituindo o outro e sempre valendo o último, assim como vc mesmo disse, imaginei que o cancelamento poderia ser dessa forma tbm, já que utiliza o mesmo padrão de layout...
Mas ok, vou dar uma olhada no demo do projeto e implementar aqui.
Valeu, abraços.
-
Boa tarde pessoal.
Desculpe minha "ignorância", mas ainda não implementei o Cancelamento da NF-e por Eventos e estou começando hoje a fazer essa alteração nos sistemas.
Pelo que entendi, a NF-e poderá ter mais de 1 cancelamento então? assim com são enviados os eventos de correção da CC-e, por exemplo?
E o pessoal que já implementou está funcionando normalmente já aqui em SP?
Valeu, abraços.
-
Bom dia pessoal.
Já pesquisei aqui no fórum e não encontrei outro tópico falando a respeito...
Faz algum tempo que eu não atualizava os fontes do SPED e hoje atualizei. Uma das coisas que aconteceu e foi de um impacto grande no meu sistema é que não existe mais a unit ACBrEPCConversao dentro da pasta do ACBrSPEDPisCofins.
Então onde eu usava por exemplo:
{REGISTRO F100: DEMAIS DOCUMENTOS E OPERAÇÕES GERADORAS DE CONTRIBUIÇÃO E CRÉDITOS}
with RegistroF100New do
begin
IND_OPER := StrToEPCIndTpOperacaoReceita(ok , dmSped.cdsF100IND_OPER.AsString);
... etc
end;
Entre outros, não tem mais pois essas conversões ficavam dentro dessa unit.
Gostaria de saber se ela foi realmente excluida do projeto ou foi alterada pra outra pasta (tbm tentei localizar e não encontrei) ?
Pois se eu retiro e deixo passando só meu campo direto, ele da erro por exemplo:
Undeclared Identifier: "TACBROperacaoReceita" and "String".
Como devo proceder?
Desde ja agradeço a atenção.
Att, Alex.
Não me lembro desse recurso ter sido implementado, se você tinha ai, pode ter baixado algum anexo n]ao oficial disponibilizado por algum usuário.
Bom dia Isaque.
Primeiramente, agradeço a atenção..
Creio que pode ser isso mesmo, como peguei o SPED já implementado aqui na Empresa, pode ser que o pessoal que dava manutenção antes tenha baixado essa Unit não oficial em algum momento ou algo assim.
Mas ok, já fiz o ajuste aqui.
Obrigado.
-
Bom dia pessoal.
Já pesquisei aqui no fórum e não encontrei outro tópico falando a respeito...
Faz algum tempo que eu não atualizava os fontes do SPED e hoje atualizei. Uma das coisas que aconteceu e foi de um impacto grande no meu sistema é que não existe mais a unit ACBrEPCConversao dentro da pasta do ACBrSPEDPisCofins.
Então onde eu usava por exemplo:
{REGISTRO F100: DEMAIS DOCUMENTOS E OPERAÇÕES GERADORAS DE CONTRIBUIÇÃO E CRÉDITOS}
with RegistroF100New do
begin
IND_OPER := StrToEPCIndTpOperacaoReceita(ok , dmSped.cdsF100IND_OPER.AsString);
... etc
end;
Entre outros, não tem mais pois essas conversões ficavam dentro dessa unit.
Gostaria de saber se ela foi realmente excluida do projeto ou foi alterada pra outra pasta (tbm tentei localizar e não encontrei) ?
Pois se eu retiro e deixo passando só meu campo direto, ele da erro por exemplo:
Undeclared Identifier: "TACBROperacaoReceita" and "String".
Como devo proceder?
Desde ja agradeço a atenção.
Att, Alex.
-
Além do código de barras, o logotipo tbm não imprime.. sai em branco, sendo que estou apontando o caminho dele no componente e deixei o nome da imagem como 341.bmp
Alguém pra me ajudar com essas duas situações?
Obrigado.
-
Boa tarde pessoal.
Já procurei aqui no fórum e não consegui encontrar algum tópico que fosse igual ou parecido com o meu, por isso resolvi criar.
Oque acontece é que estou tentando gerar o boleto usando ACBRBoleto e ACBRBoletoFcQuick e quando mando imprimir, ele abre a página do quick, mas não sai nada, fica a página em 0% sem carregar.
o código que estou usando é esse:
procedure TfrmBoleto.BitBtn2Click(Sender: TObject);
var Titulo : TACBrTitulo;
begin
Titulo := ACBrBoleto1.CriarTituloNaLista;
//
with Titulo do
begin
Vencimento := edVencimento.Date;
DataDocumento := edEmissao.Date;
NumeroDocumento := '0000003241';
EspecieDoc := 'R$';
//
Aceite := atSim;
//
DataProcessamento := Now;
NossoNumero := '109/0925';
Carteira := '109';
ValorDocumento := edValorDoc.Value;
Sacado.NomeSacado := edtNome.Text;
Sacado.CNPJCPF := SoNumero(Alltrim(edtCPFCNPJ.Text));
Sacado.Logradouro := edtEndereco.Text;
Sacado.Numero := edtNumero.Text;
Sacado.Bairro := edtBairro.Text;
Sacado.Cidade := edtCidade.Text;
Sacado.UF := edtUF.Text;
Sacado.CEP := SoNumero(Alltrim(edtCEP.Text));
ValorAbatimento := 0;
LocalPagamento := 'PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO. Após o vencimento o pagamento somente poderá ser feito na Tesouraria do cedente.';
ValorMoraJuros := 0;
ValorDesconto := 0;
DataMoraJuros := edVencimento.Date + 1;
DataDesconto := 0;
DataAbatimento := 0;
DataProtesto := 0;
PercentualMulta := 0;
Mensagem.Text := mmMSG.Text;
OcorrenciaOriginal.Tipo := toRemessaBaixar;
Instrucao1 := '';
Instrucao2 := '';
end;
//
ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum;
ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao;
ACBrBoleto1.Banco.Numero := 341;
ACBrBoleto1.Banco.Digito := 7;
ACBrBoleto1.Banco.TipoCobranca := cobItau;
//
ACBrBoleto1.Imprimir;
end;
Os dados do cedente eu deixei tudo fixo no componente ACBRBoleto1.
Ele até chama o imprimir e chama o quick na tela, mas fica tudo azul e não carrega.
Alguém sabe oque pode ser?
Obrigado.
Consegui imprimir o boleto.. Depois de muito teste achei onde estava dando problema e por isso não imprimia...
Tive que comentar este código dentro da Unit ACBRBoletoFCQuickFr:
procedure TACBrBoletoFCQuickFr.RLBandDatailBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
...
ACBrBarCode1.Typ := bcCode_2_5_interleaved ;
ACBrBarCode1.Text := CodBarras;
BMP := TBitmap.Create ;
try
BMP.Width := imgBarra.Width ;
BMP.Height := imgBarra.Height ;
ACBrBarCode1.DrawBarcode(BMP.Canvas);
imgBarra.Picture.Bitmap := BMP ;
imgBarra4.Picture.Bitmap := BMP;
finally
BMP.Free ;
end ;
end;
Porém sem esse código ele não imprime o Código de Barras no boleto, certo?
O que eu queria saber é se está faltando eu passar alguma coisa pra ele estar dando erro na linha que está em vermelho... Só que como estava dentro do try não dava erro nenhum, apenas não imprimia o boleto.
Fico no aguardo.
Valeu.
-
Boa tarde pessoal.
Já procurei aqui no fórum e não consegui encontrar algum tópico que fosse igual ou parecido com o meu, por isso resolvi criar.
Oque acontece é que estou tentando gerar o boleto usando ACBRBoleto e ACBRBoletoFcQuick e quando mando imprimir, ele abre a página do quick, mas não sai nada, fica a página em 0% sem carregar.
o código que estou usando é esse:
procedure TfrmBoleto.BitBtn2Click(Sender: TObject);
var Titulo : TACBrTitulo;
begin
Titulo := ACBrBoleto1.CriarTituloNaLista;
//
with Titulo do
begin
Vencimento := edVencimento.Date;
DataDocumento := edEmissao.Date;
NumeroDocumento := '0000003241';
EspecieDoc := 'R$';
//
Aceite := atSim;
//
DataProcessamento := Now;
NossoNumero := '109/0925';
Carteira := '109';
ValorDocumento := edValorDoc.Value;
Sacado.NomeSacado := edtNome.Text;
Sacado.CNPJCPF := SoNumero(Alltrim(edtCPFCNPJ.Text));
Sacado.Logradouro := edtEndereco.Text;
Sacado.Numero := edtNumero.Text;
Sacado.Bairro := edtBairro.Text;
Sacado.Cidade := edtCidade.Text;
Sacado.UF := edtUF.Text;
Sacado.CEP := SoNumero(Alltrim(edtCEP.Text));
ValorAbatimento := 0;
LocalPagamento := 'PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO. Após o vencimento o pagamento somente poderá ser feito na Tesouraria do cedente.';
ValorMoraJuros := 0;
ValorDesconto := 0;
DataMoraJuros := edVencimento.Date + 1;
DataDesconto := 0;
DataAbatimento := 0;
DataProtesto := 0;
PercentualMulta := 0;
Mensagem.Text := mmMSG.Text;
OcorrenciaOriginal.Tipo := toRemessaBaixar;
Instrucao1 := '';
Instrucao2 := '';
end;
//
ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum;
ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao;
ACBrBoleto1.Banco.Numero := 341;
ACBrBoleto1.Banco.Digito := 7;
ACBrBoleto1.Banco.TipoCobranca := cobItau;
//
ACBrBoleto1.Imprimir;
end;
Os dados do cedente eu deixei tudo fixo no componente ACBRBoleto1.
Ele até chama o imprimir e chama o quick na tela, mas fica tudo azul e não carrega.
Alguém sabe oque pode ser?
Obrigado.
-
Na verdade minha dúvida não era se havia mudado a versão da NF-e, isso logo no começo o pessoal já deixou bem claro nos tópicos que seria somente a consulta da NF-e.
Mas única coisa que não havia entendido era se tinha como saber se a alteração havia dado certo, pelo XML de retorno ou algo assim... pois o medo é chegar na segunda-feira e o telefone começar tocar que nem doido aqui com cliente que não consegue transmitir NF-e.. rss
Mas ok, segui as informações nos tópicos e emiti algumas de teste.. aparentemente está tudo normal, vamos ver segunda-feira só..
Valeu.
-
Pessoal, bom dia.
Atualizei o ACBR aqui por conta dessa alteração da mudança da consulta da NF-e.
Ocorreu uma outra coisa q eu não havia alterado ainda, pois já fazia um tempinho que eu não atualizava o componente.
Onde eu passava:
NFe.NotasFiscais.Items[0].NFe.procNFe.digVal := NFe.WebServices.Consulta.digVal;
ele não encontra mais a tag que está em negrito "digVal"...
como está isso agora no componente?
Obrigado.
alguém sabe me dizer?
Bom Dia,
Tente assim ACBrNFe1.WebServices.Consulta.protNFe.digVal
no teu caso
NFe.NotasFiscais.Items[0].NFe.procNFe.digVal := NFe.WebServices.Consulta.protNFe.digVal;
[]'s
Marcio
É isso mesmo.
Valeu kra.
-
Pessoal, bom dia.
Atualizei o ACBR aqui por conta dessa alteração da mudança da consulta da NF-e.
Ocorreu uma outra coisa q eu não havia alterado ainda, pois já fazia um tempinho que eu não atualizava o componente.
Onde eu passava:
NFe.NotasFiscais.Items[0].NFe.procNFe.digVal := NFe.WebServices.Consulta.digVal;
ele não encontra mais a tag que está em negrito "digVal"...
como está isso agora no componente?
Obrigado.
alguém sabe me dizer?
-
Bom dia a todos, por favor, acabamos de atualizar nosso sistema para utilizar os schemas 2.01 conforme dito que começara a vigorar em 01/07/2012, aparentemente funcionou tudo 100% mas ai a dúvida, analisando o xml verificamos que a informação continua como 2.00. Isso é assim mesmo? tentei alterar para 2.01 mas o sefaz recusa, informa como versão inválida e o próprio emissor gratúito também não aceita.
Sabem se esta informação ira mudar ou se estou fazendo algo errado?
Obrigado pela atenção
abraços
tbm tenho essa dúvida... de como saber se deu certo a atualização ou não... vamos aguardar alguém responder.
-
Bom Dia,
Sem essas alterações feitas dia 26/06/2012 nos componentes, só atualizando os schemas na pasta, terei algum problema dia 01/07/2012?
Obrigado!
cara, pelo que entendi.. vc tem que atualizar o ACBR, os Schemas e recompilar seu aplicativo..
-
Pessoal, bom dia.
Atualizei o ACBR aqui por conta dessa alteração da mudança da consulta da NF-e.
Ocorreu uma outra coisa q eu não havia alterado ainda, pois já fazia um tempinho que eu não atualizava o componente.
Onde eu passava:
NFe.NotasFiscais.Items[0].NFe.procNFe.digVal := NFe.WebServices.Consulta.digVal;
ele não encontra mais a tag que está em negrito "digVal"...
como está isso agora no componente?
Obrigado.
-
Um outra coisa que você pode fazer, é tentar utilizar outro componente Danfe para ver se o erro persiste. Pelo que você disse, creio que seja problema específico do Danfe.
Peterson.
Era isso mesmo, troquei o componente do DANFE e deu certo.
Valeu.
Abraços.
-
Entendi...
Tenta ver alguma diferença que esse XML de terceiros tem do XML que o Acbr gera.
O mesmo erro acontece com um XML gerado pelo ACBr?
Fiz o teste aqui.. acontece a mesma coisa.
Valeu.
-
Tentou imprimir de outra maneira sem dar LoadFromFile antes?
as vezes é alguma coisa que vc esta fazendo relacionado a impressao, qual danfe esta usando?
Opa Igor...
Então, já sim. A impressão está funcionando normalmente quando eu transmito a NF-e... Estou utilizando o Danfe Rave.
É que estou fazendo uma rotina nova no sistema para ler o XML e importar para dentro do sistema os dados quando for nota de entrada.
Antes disso, queria imprimir o DANFE pro usuário visualizar a NF-e.
Esse problema só acontece quando uso o LoadFromFile para ler o XML mesmo.
Valeu.
-
Bom dia.
Pessoal, estou com um problema na impressão usando o LoadFromFile..
Estou tentando carregar o XML e logo após imprimir o DANFE do mesmo.
O código é o seguinte:
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(Arquivo.XML);
ACBrNFe1.NotasFiscais.Imprimir;
Logo quando dou o "imprimir" ele aparece a tela de configurações de impressão. Seleciono "preview" e ok.
Daí aparece a tela "Gerando página".. e não sai disso, fica travado.
Obs: 1-) Lembrando que não é o problema de não ter impressora padrão, pois quando isso ocorre a impressão fica em loop e não travada na "página 1 ".
2-) Fiz o teste e está carregando corretamente o XML no LoadFromFile, pois o componente fica com as informações armazenadas e tbm não é problema no XML pois no site webdanfe consigo imprimi-lo normalmente.
Agradeço.
-
tbm aconteceu isso comigo..
provavelmente você deve ter atualizado a versão do PVA para a 2.0.25, assim como eu fiz.
e nessa versão ele pede para informar a versão do layout como 005.
agora precisamos confirmar se já houve alguma alteração no componente do Sped Fiscal pois este só gera a versão do layout até o 004 utilizando StrToEFDVersaoLeiaute (no caso da versão que tenho aqui).
Se alguém souber, por favor nos informe.
Att, Alex.
21/03/2012 - Publicada a NT 2012/002 Manif do Destinatario
em ACBrNFe
Postado
Bom dia Italo.
No caso, se eu informar o número do NSU para consultar as NF-e destinadas, o webservice me retornará somenta a NF-e na qual o NSU informado pertence?
E se caso eu quiser consultar mais de uma NF-e devo sempre informar zero, conforme a orientação da NT...
"Caso o ultNSU seja informado com 0 (zero), o WS fará a consulta a partir da primeira nota fiscal recepcionada há menos de 15 dias ou outro prazo maior que a UF entender conveniente;"
Correto?
Então eu fiquei com uma dúvida.. na minha aplicação quando eu for consultar pela 1ª vez as NF-e destinadas, eu terei que informar zero e buscar. Daí será retornado o número do NSU.
Você em sua aplicação guarda sempre o NSU retornado e as próximas consultas são sempre feitas à partir deste último retornado?
Obrigado.
Att, Alex.