MSOFT
-
Total de ítens
43 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por MSOFT
-
-
Boa noite galera. Só pra deixar claro a situação foi resolvida problema no meu código com relação ao estado de emissão da nota. Ao tentar fazer alguns testes tinha colocado a opção offline como defult e na nota colocava online o negócio pirou meu cabeção aqui. bem, esta tudo ok com relação a isso. Obrigado pela atenção de todos aqui.
- 2
-
Bem, problema de erro de memória foi resolvido após atualizar os fontes do fortesreport. Não esta dando mais erro de estouro de pilha.
O erro no dm.ACBrNFe.Enviar continua.
- 1
-
Gente estou enfrentando um problema no sistema após atualização do acbr. Bem, após atualização no dm.ACBrNFe.Enviar sempre gera uma exeção quando a nota é enviada em modo online;
Já quando faço de modo offline vai normal. Depois utilizando a mesma rotina de enviar a nota esta indo ok não vem nenhuma exceção.
Pega o recibo o status vem 100 tudo ok.
Todas que tendo enviar online vem com exceção o xmls vem todo ok com estatus da nota 100 tudo perfeito mais o componente entra na exeção.
Ao enviar offline vai udo ok não dá erro algum como comentei acima. Depois vou em reenviar e tudo ok.
-
O erro de memória esta ocorrendo quando fecho o sistema e esta dando o erro no momento que passa nesta linha
destructor TACBrNFeDANFCeFortes.Destroy;
begin
FFonteLinhaItem.Free;
inherited Destroy ;
end;Estou tentando ver o que posso para poder repassar e ajudar Daniel blz!
Na verdade nesta aqui
destructor TACBrNFeDANFCeFortes.Destroy;
begin
FFonteLinhaItem.Free;
inherited Destroy ;
end; -
Estou utilizando a libwincrypt
-
Atualizei continua da mesma forma quando gero a nfc-e primeira vez nunca vai gera o xml tudo ok mais dá uma exceção
-
Daniel começou a aparecer erro de memória depois que instalei a nova versão do acbr. Outra coisa toda nota que envio vai xml volta tudo ok nota enviada estatus 100 mais o componente trás status 103 como lote recebido? Mas no xmls estatus 100.
Vários teste toda nota esta acontecendo isso! XML tudo ok mas o componente retorna status 103.
-
Após atualização do ACBR esta dando erro na dll OLEPRO32.DLL, outros projetos que não tem os componentes do acbr não esta dando erro nos fontes que tenho do meu pdv que trabalho com os componentes do acbr esta dando erro.
-
Daniel vou ver com mais detalhes e posto aqui ok
Ricardo obrigado pela dica vou ver e qualquer coisa eu posto aqui blz.
Obrigado pela atenção de todos.
- 1
-
Galera atualizei o acbr e antes estava tudo ok. Após atualização do acbr o sistema começou a dar uma exeção porta não definida que não dava isso antes.
Toda NFC-e q8ue tendo emitir da este erro. Vejo o xmls esta tudo ok enviada e status 100. O sistema da a exeção e não conlcui a nota só na segunda tentativa que eu tinha tratado e vejo que a nota ja existe daí consulto e gravo os dados.
-
Aurino!
Meus parabéns pela iniciativa muito bom mesmo. Creio que não haja problema algum com relação as Sefaz ver isso como algo errado. Pois, acho que assim fica mais explicito ainda para o cliente.
De qualquer modo seria realmente implementar de uma maneira que ficasse flexível para optar por usar ou não desta forma.
-
O engraçado é que ficam nos passando informações que nunca iremos conseguir resolver o problemas. Consegui resolver da mesma forma, fazendo o Uninstall do pacote funcionou. Obrigado aos que conseguiram e nos passaram as informações.
-
Kenio seja mais específico para podermos le ajudar. Qual o momento quando ocorre este erro?
-
Giulianon muito obrigado pela atenção amigo. Irei verificar e qualquer coisa posto aqui pra ajudar outros que tenham o mesmo problema.
-
Após concluir a pré homologação galera fui testar o sistema no cliente e no meu computador que possui o emulador do sitef esta tudo ok. Já no cliente quando chega na função ACBRTED.CRT() lógico com seus parâmetros corretos não abre o formulário com as formas de recebimentos que estão disponíveis no demo e dá a mensagem Sitef sem conexão.
Aguém já passou por isso?
-
Galera até o momento este problemas ainda estão ocorrendo!
-
Veja se você colocou estas linha no termino de sua nota, acho que deva ser isso.
ACBrTEFD.ImprimirTransacoesPendentes;
ACBrTEFD.ConfirmarTransacoesPendentes;- 1
-
Boa tarde dheymisson dê uma olhada no exemplo que tem dentro da pasta do acbr. Fica no seguinte caminho.
...\acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF
-
Ok! Obrigado é que fazendo conforme exemplo do ACBR ele não aceita. Mas, colocando como você esta colocando nome do componente e procedimento tudo indica que sim. Irei testar BigWings muito obrigado!
-
Desculpa Juliomar na verdade não sabia que não poderia colar. Teria que colocar em um txt daí anexar isso?
-
Boa noite Tiago. Vou te passar como uso aqui caso não te ajude pode entrar em contato que posso tentar lhe ajudar pois o ruim e ficar sem ajuda. O que vou te passar abaixo e como faço caso não entende é só teclar cara.
function TDM.ConfiguraNFCe_PosPrinter( pMiniImpr,
pAbreGaveta: boolean): boolean;//nfce
begin
if ( pMiniImpr = true ) then
begin
if not DM.acbrpsprntr.Ativo then
begin
try
ACBrNFeDANFeESCPOS.ACBrNFe := acbrnfe;
{DM.acbrpsprntr.Modelo := TACBrPosPrinterModelo( strtoint( fModeloImp ) );//0 texto - 1 epson -2 Bematech -3 Daruma -4 elgin -5 Diebold
DM.acbrpsprntr.Device.Porta := fPortaImp;
DM.acbrpsprntr.Device.Baud := StrToInt( fBaudeImp );
DM.acbrpsprntr.IgnorarTags := false;}
//faz com que o componente abra e feche a porta conforme a necessidade automaticamente
//novo para teste
DM.acbrpsprntr.Modelo := TACBrPosPrinterModelo( strtoint( fModeloImp ) );
DM.acbrpsprntr.Porta := fPortaImp;
DM.acbrpsprntr.Device.Porta := fPortaImp;
DM.acbrpsprntr.ArqLOG := '';
DM.acbrpsprntr.LinhasBuffer := 0;
DM.acbrpsprntr.LinhasEntreCupons := fLinEntreCupom;
DM.acbrpsprntr.EspacoEntreLinhas := fEspEntreLinha;
DM.acbrpsprntr.ColunasFonteNormal := fNumColunas;
DM.acbrpsprntr.ControlePorta := false;
DM.acbrpsprntr.TraduzirTags := true;
DM.acbrpsprntr.IgnorarTags := false;
DM.acbrpsprntr.CortaPapel := true;
DM.acbrpsprntr.PaginaDeCodigo := TACBrPosPaginaCodigo( 2 );//TACBrPosPaginaCodigo( cbxPagCodigo.ItemIndex );
//gaveta
if ( fECFGaveta = true ) then
begin
DM.acbrpsprntr.ConfigGaveta.SinalInvertido:= fECFSinalInvert;
DM.acbrpsprntr.ConfigGaveta.TempoON := 50;
DM.acbrpsprntr.ConfigGaveta.TempoOFF := 200;
end;
//gaveta
DM.acbrpsprntr.ConfigBarras.MostrarCodigo := false;//cbHRI.Checked;
DM.acbrpsprntr.ConfigBarras.LarguraLinha := 0;//seBarrasLargura.Value;
DM.acbrpsprntr.ConfigBarras.Altura := 0;//seBarrasAltura.Value;
DM.acbrpsprntr.ConfigBarras.Margem := 0;//seBarrasAltura.Value;
DM.acbrpsprntr.ConfigBarras.MostrarCodigo := false;DM.acbrpsprntr.ConfigQRCode.Tipo := 2;//seQRCodeTipo.Value;
DM.acbrpsprntr.ConfigQRCode.LarguraModulo := 4;//seQRCodeLarguraModulo.Value;
DM.acbrpsprntr.ConfigQRCode.ErrorLevel := 0;//seQRCodeErrorLevel.Value;DM.acbrpsprntr.ConfigLogo.KeyCode1 := 32;//seLogoKC1.Value;
DM.acbrpsprntr.ConfigLogo.KeyCode2 := 32;//seLogoKC2.Value;
DM.acbrpsprntr.ConfigLogo.FatorX := 1;//seLogoFatorX.Value;
DM.acbrpsprntr.ConfigLogo.FatorY := 1;//seLogoFatorY.Value;
DM.acbrpsprntr.ConfigLogo.IgnorarLogo := true;//seLogoFatorY.Value;
//fin novo para teste
DM.acbrpsprntr.Ativar; //novo para teste
//novo para teste
except
on E: Exception do
application.MessageBox( pchar('erro nao ativar o impressãio ' + E.Message), pchar('Atenção!'), mb_ok + MB_ICONERROR);
end;
end;
if ( ( pAbreGaveta = true ) and ( pMiniImpr = true ) ) then
DM.acbrpsprntr.AbrirGaveta;
end;
end;
function TDM.ConfigurarNFCe_Imp( pOffiLine, pAbreGaveta : boolean ): boolean;
var
vIngTagsForm, vImpUmaLinha, ImpDescAcres,
vDANFERes : boolean;
cNumVisas : smallint;
begin
try
cNumVisas := 1;
result := false;
tryif ( pMiniImpr = true ) then
begin
dm.PosPrinterConfigurarPorta;
//dm.PosPrinterConfigurarPorta;
{DM.acbrpsprntr.Modelo := TACBrPosPrinterModelo( strtoint( fModeloImp ) );//0 texto - 1 epson -2 Bematech -3 Daruma -4 elgin -5 Diebold
DM.acbrpsprntr.Device.Porta := fPortaImp;
DM.acbrpsprntr.Device.Baud := StrToInt( fBaudeImp );
DM.acbrpsprntr.IgnorarTags := vIngTagsForm;
//faz com que o componente abra e feche a porta conforme a necessidade automaticamente
DM.acbrpsprntr.ControlePorta := false;}
if pOffiLine = true then
begin
while cNumVisas <= 2 do
begin
DM.ACBrNFe.DANFE.ImprimirItens := vDANFERes;
DM.ACBrNFeDANFeESCPOS.ImprimeEmUmaLinha := vImpUmaLinha;
DM.ACBrNFeDANFeESCPOS.ImprimeDescAcrescItem := ImpDescAcres;if ( cNumVisas = 1 ) then
DM.ACBrNFeDANFeESCPOS.ViaConsumidor := true
else
DM.ACBrNFeDANFeESCPOS.ViaConsumidor := false;DM.ACBrNFeDANFeESCPOS.vTroco := dm.vVlParaTroco;
DM.ACBrNFe.NotasFiscais[0].Imprimir;
cNumVisas := cNumVisas + 1;
end;
end
else
begin
DM.ACBrNFe.DANFE.ImprimirItens := vDANFERes;
DM.ACBrNFeDANFeESCPOS.ImprimeEmUmaLinha := vImpUmaLinha;
DM.ACBrNFeDANFeESCPOS.ImprimeDescAcrescItem := ImpDescAcres;
DM.ACBrNFeDANFeESCPOS.ViaConsumidor := false;
DM.ACBrNFeDANFeESCPOS.vTroco := dm.vVlParaTroco;
DM.acbrpsprntr.Ativar;
DM.ACBrNFe.NotasFiscais[0].Imprimir;
end;
if ( ( pAbreGaveta = true ) and ( pMiniImpr = true ) ) then
DM.acbrpsprntr.AbrirGaveta;
end;end;
qryConfNFeImp.close;
result := true;
except
result := false;
end;
finally
DM.acbrpsprntr.Desativar;
end;
end; -
Quando se quer fazer em uma mesma aplicação do SpedFiscal e o PisCofins usando os respectivos componentes do ACBR no momento da versão do ACBRPisCofins ele não aceita as versões do mesmo pois as units ACBrEFDBlocos e ACBrEPCBlocos estão na uses e daí o projeto só aceita as versões do fiscal.
Atenciosamente,
Maurício R. Costa
-
Antes de enviar coloque estes dois códigos que concerteza resolverá seu problema.
// validar o schema da NFCe
try
ACBrNFe1.NotasFiscais.Validar;
except
on E: Exception do
begin
raise Exception.Create(
IfThen(
ACBrNFe1.NotasFiscais.Items[0].ErroValidacao <> '',
ACBrNFe1.NotasFiscais.Items[0].ErroValidacao,
E.Message
)
);
end;
end;// validação das regras de negócio, as validações seguem o manual da NFCe
ACBrNFe1.NotasFiscais.ValidarRegrasdeNegocios(ErrosRegraNegocio);
if ErrosRegraNegocio <> '' then
raise Exception.Create(ErrosRegraNegocio); -
Obrigado Juliomar pela sua atenção mais uma vez!
Vi o vídeo e gostei bastante, mas agora fiquei com uma dúvida?
É melhor tratar o duplicidade como geralmente todos até o momento fazem no exeption do enviar verificamos o retorno do webservice caso não haja consultar e verificar o retorno da consulta para daí tomar a decisão de reenviar ou de guardar os dados consultados e ou agora fazer o que o André mostra no vídeo que é coisa nova pois, cheguei dá uma olhada nos exemplos que segue nos componentes e nenhum tem o tratamento no evento que ele mostra no vídeo.
Falha na validação dos dados da nota
em ACBrNFe
Postado
Bom tarde galera estou enfretando o seguinte problema ao tentar gerar uma nota em modo homologação mas infelizmente esta dando este erro.
Pelo que entendo esta dando erro nas seguintes tags:
InfoPgto.indPag := ipVista;
InfoPgto.tPag := fpDinheiro;
Mas estou passando certinho é tanto que esta no xmls conforme em anexo. Alguém poderia me ajudar por favor.
25200314915137000180550010000000021737453211-nfe.xml