-
Total de ítens
49 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Antony Moraes
-
-
Bom dia Júlio !!como seria essse dcu já compilado ?e pode me dar uma dica de como achar esse arquivos .fiz um testes formato um computador e instalei o delphi do zero e pus meu projeto e r e rodei mas continuei com a rejeição.
-
Estou com esse mesmo problema ja descomentei ja atualizei o shema e fis as alteraçoes no acbrnfenotasfiscais,pas mas continuocom a rejeiçao e o xml gera sem a tag.Alguem consegiu alguma soluçao?
-
Desculpe a pergunta .Se eu deletasse o arquivo acbrnfenotasfiscais.pas da pasta fontes o que deveria ocorrer com minha aplicação deveria gerar algum erro pois eu fiz o procedimento que relatei e a minha aplicação somente me gerou a rejeição que ja estava antes .
-
agnaldo jaz fiz o que vc me indicou fiz o pedido na secretaria de fazenda e coloquei ocsc mas mesmo assim persistiu a rejeição.
-
Estou enviando o xml que acabei de gerar e o meu acbrnfenotasfiscais.pas e o leiaut do shema e a alimentação do componete e esta:
lerini;
{$ifdef acbrnfeopenssl}
acbrnfe1.configuracoes.certificados.getcertificado:=scertificado;
acbrnfe1.configuracoes.certificados.senha:=ssenha;
{$else}
acbrnfe1.configuracoes.certificados.numeroserie:=sserie;{$endif}
//Layout 3.10
acbrnfe1.Configuracoes.Geral.ModeloDF:=monfce;
acbrnfe1.Configuracoes.Geral.VersaoDF:=ve310;
//geral
acbrnfe1.configuracoes.geral.formaemissao:=strtotpemis(ok,inttostr(sformas));
ACBrNFe1.Configuracoes.Geral.IdCSC := '000001';
ACBrNFe1.Configuracoes.Geral.CSC := '';
acbrnfe1.Configuracoes.WebServices.Salvar:=true;acbrnfe1.configuracoes.geral.salvar:=ssalvaarq;
acbrnfe1.configuracoes.arquivos.pathsalvar:=slocalarq;
acbrnfe1.configuracoes.geral.modelodf :=monfce;
acbrnfe1.configuracoes.arquivos.PathSchemas:='C:\PDVLOPES\Debug\Win32\Schemas';
//webservices
acbrnfe1.configuracoes.webservices.uf:=sufws;
acbrnfe1.configuracoes.webservices.ambiente:=strtotpamb(ok,inttostr(sambiente));
acbrnfe1.configuracoes.webservices.visualizar:=true;
acbrnfe1.configuracoes.webservices.proxyhost:=shost;
acbrnfe1.configuracoes.webservices.proxyport:=sporta;
acbrnfe1.configuracoes.webservices.proxyuser:=susuariows;
acbrnfe1.configuracoes.webservices.proxypass:=senhaws;
ACBrNFe1.Configuracoes.WebServices.Visualizar:=false;//
if acbrnfe1.danfe <> nil then
begin
acbrnfe1.danfe.tipodanfe:=strtotpimp(ok,'1');
acbrnfe1.danfe.logo:=slogomarca;E estou assinando e enviando a nota assim:
/COMANDOS PARA GRARAR XML
DMDADOS.ACBrNFe1.NOTASFISCAIS.Assinar;
DMDADOS.ACBRNFE1.NOTASFISCAIS.gravarxml('C:\PDVLOPES\XML\PENDENTE\');
edtarquivo.Text:=DMDADOS.ACBRNFE1.NOTASFISCAIS.items[0].nomearq;
//Enviarbegin
dmdados.ACBrNFe1.notasfiscais.clear;
dmdados.ACBrNFe1.NotasFiscais.loadfromfile(edtarquivo.text);
dmdados.ACBrNFe1.NotasFiscais.Validar;
dmdados.ACBrNFe1.Enviar(edtnumlote.text,false,true);if dmdados.CDSEMITENTEIMPRESSAO.TEXT='R' then
BEGIN
dmdados.ACBrNFe1.NotasFiscais.ImprimirResumido;END;
if dmdados.CDSEMITENTEIMPRESSAO.TEXT='C' then
BEGIN
dmdados.ACBrNFe1.NotasFiscais.Imprimir;END;
Mas o mesmo continuando gerando o XML sem a tag qr-code.
-
Adelson.Fiz os procedimentos ACBrNFe1.Configuracoes.Geral.IdCSC := '000001';
ACBrNFe1.Configuracoes.Geral.CSC := ''; mas infelizmente não foi resolvido peguei o acbrnfenotasfiscais.pas e o leiaut do shema e tambem nada.Estou precupado pois estou com receio do dia 03/11/2015 que acontecera o mesmo no ambiente de produção.apos eu abrir o acbrnfenotasfiscais.pas pelo delphi e so descomenta e compila a aplicação ou necessito fazer algo mais? -
Juliomar sim eu desconentei,recapitulando eu abro o acbrnfenotasfiscais.pás eu abro pelo delphi descomento e salvo o arquivo e apenas isso?se sim esse foi o procedimento que fiz.adelson eu alimebtei apenas com o idcsc o CSC posso deixar vazio assim como VC postou?
-
Fiz a alteração mas continua a rejeição ,desculpe pelo transtorno.mas teria outra forma que conseguisse fazer alguém mas esta com esse problema?
-
A shema nao resolveu mas a shema seria responsavel so pelo retorno ou para criação da nota ?porque no meu xml estou achando estranho que a tag qr code não gera.teria mas algum passo?
Poderia verificar minha rotina para gerar o xml se esta correta pois ele esta gerando sem a tag segue abaixo:
procedure TFrmFinalizarVendason.impressao;
var achavenfe,arecibo,aprotocolo :string;
anumitem:integer;begin
edtdesconto.Enabled:=false;
dmdados.atualizaconfiguracao;dmdados.CDSNFCE.Refresh;
dmdados.CDSNFCE.Refresh;
dmdados.CDSNFCE.Refresh;DMDADOS.CDSNFCE.INSERT;
DMDADOS.CDSNFCE.Post;
DMDADOS.CDSNFCE.ApplyUpdates(0) ;DMDADOS.CDSNFCE.Last;
DMDADOS.ACBRNFE1.NOTASFISCAIS.CleaR;
DMDADOS.CDSSEQUENCIA.REFRESH;
DMDADOS.CDSSEQUENCIA.REFRESH;
DMDADOS.CDSSEQUENCIA.REFRESH;
DMDADOS.CDSSEQUENCIA.LAST;
//with dmdados.acbrnfe1.notasfiscais.Add.nfe do
begin
ide.cnf := DMDADOS.CDSSEQUENCIACODVENDA.Value;
ide.natop:= 'Venda de Mercadoria';
ide.indPag:=ipvista;
ide.modelo:=65;
ide.serie:=DMDADOS.CDSSERIEID.VALUE;
ide.nnf:= dmdados.CDSSEQUENCIACODVENDA.Value;
ide.dEmi:=now;
ide.dSaiEnt:=now;
Ide.hSaiEnt:=0;
ide.tpnf:=tnsaida;
if dmdados.CDSEMITENTEGAVETA.TEXT='H' then
ide.tpamb := tahomologacao;
if dmdados.CDSEMITENTEGAVETA.TEXT='P' then
ide.tpamb := taPRODUCAO;
ide.verProc:='PDVLopes2015';
ide.cuf:=DMDADOS.CDSEMITENTECODIGOUF.VALUE;
ide.cmunfg:=strtoint(DMDADOS.CDSEMITENTECODIGOCIDADE.text);
ide.finnfe:=fnnormal;
ide.indFinal:=cfConsumidorFinal;
ide.indPres:=pcPresencial;
ide.tpImp:=tinfce;
ide.cDV:=2;
transp.modfrete:=mfsemfrete;//PAGAMENTOS apenas para NFC-e
with pag.Add do
begin
if DBPAGAMENTO.TEXT='DINHEIRO'then
BEGIN
tPag := fpDinheiro;
END;
if DBPAGAMENTO.TEXT='FIADO'then
BEGIN
tPag := fpCHEQUE;
END;
begin
if DBPAGAMENTO.TEXT='CARTAO' then
BEGIN
tPag := fpCARTAOCREDITO;
END;
if DBPAGAMENTO.TEXT='CIELO' then
BEGIN
tPag := fpCARTAOCREDITO;
END;
if DBPAGAMENTO.TEXT='GETNET' then
BEGIN
tPag := fpCARTAOCREDITO;
END;
if DBPAGAMENTO.TEXT='REDE' then
BEGIN
tPag := fpCARTAOCREDITO;
END;begin
if DBPAGAMENTO.TEXT= 'DEBITO' then
BEGIN
tPag := fpCARTAODEBITO;
END;
end;
end;
vPag :=TOTALFINAL;;
end;
//Emitente
if DMDADOS.CDSEMITENTEREGIME.VALUE='SIMPLES' then
EMIT.CRT:=CRTSIMPLESNACIONAL;
if DMDADOS.CDSEMITENTEREGIME.VALUE='NORMAL' then
EMIT.CRT:=CRTREGIMENORMAL;
emit.CNPJCPF:=dmdados.CDSEMITENTECNPJ.text;
EMIT.CNAE:=DMDADOS.CDSEMITENTECNAE.Text;
emit.IE:=dmdados.CDSEMITENTEIE.text;
emit.iest:='';;
emit.xNome:=dmdados.CDSEMITENTEEMITENTE.text;
emit.cnae:=dmdados.CDSEMITENTECNAE.text;
emit.EnderEmit.xlgr:=dmdados.CDSEMITENTELOGADOURO.text;
emit.enderemit.nro:=dmdados.CDSEMITENTENUMERO.text;
emit.enderemit.xcpl:=dmdados.CDSEMITENTECOMPLEMENTO.text;
emit.enderemit.xBairro:=dmdados.CDSEMITENTEBAIRRO.text;
emit.EnderEmit.cMun:=strtoint(dmdados.cdsemitentecodigocidade.text);
emit.enderemit.xMun:=dmdados.CDSEMITENTECIDADE.text;
emit.enderemit.uf:=dmdados.CDSEMITENTEUF.text;
emit.EnderEmit.CEP:=strtoint(dmdados.cdsemitentecep.text);
emit.EnderEmit.fone:= dmdados.CDSEMITENTEFONE.text;
emit.EnderEmit.cpais:=1058;
emit.EnderEmit.xpais:='BRASIL';//Destinatar
if FRMPDV.EDIT2.TEXT <>'' then
begin
Dest.cnpjcpf:= dmdados.cdsclientecpf_cnpj_cliente.value;
DEST.indIEDest:=inNaoContribuinte;
DEST.idEstrangeiro:='0';
dest.xnome:=dmdados.cdsclienteNOME_CLIENTE.value;end;
//Itens
anumitem:=0;
FRMPDV.cdsITENS.first;
while not FRMPDV.cdsITENS.eof do
begin
inc(anumitem);
with det.add do
begin
prod.nitem:=anumitem;
prod.cprod:=frmpdv.cdsitensbarras.value;
prod.cean:='';
if (dmdados.CDSEMITENTEGAVETA.TEXT='H') AND (anumitem=1 )then
begin
prod.xprod:= 'NOTA FISCAL EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL';
end
else
prod.xprod:=frmpdv.cdsitensproduto.value;
if length(frmpdv.cdsitensNCM.TEXT) = 8 then
begiN
prod.ncm:=frmpdv.cdsitensNCM.value;
end
ELSE
if length(frmpdv.cdsitensNCM.TEXT) <8 then
BEGIN
prod.ncm:='0'+frmpdv.cdsitensNCM.value;
END;prod.extipi:='';
prod.cfop:=frmpdv.cdsitensCFOP.value;
prod.ucom:=frmpdv.cdsitensUNIDADE.value;
prod.ceantrib:='';
prod.utrib:=frmpdv.cdsitensUNIDADE.value;
prod.qcom:=frmpdv.cdsitensquantidade.value;
PROD.vProd:=frmpdv.cdsitenssubtotal.ASCURRENCY;
prod.vUnCom:=frmpdv.cdsitensvalor.ASCURRENCY;
prod.qtrib:=frmpdv.cdsitensquantidade.value;
prod.vUnTrib:=frmpdv.cdsitensvalor.ASCURRENCY;
with imposto do
begin
vTotTrib:= (frmpdv.cdsitensTOTALTRIBUTOS.asfloat) * (frmpdv.cdsitenssubtotal.ASfloat)/100;
infadic.infCpl:='VALOR PAGO:'+'.R$'+EDTPAG.Text+'..'+LBTROCO.Caption+'....................';end;
//Condição de quantidade tributada//Tributos
with imposto do
beginwith icms do
//Origemif frmpdv.cdsitensORIGEM.value ='0' then
begin
icms.orig:=oenacional;
end;
if frmpdv.cdsitensORIGEM.value ='1' then
begin
icms.orig:=oeEstrangeiraImportacaoDireta;
end;
if frmpdv.cdsitensORIGEM.value ='2' then
begin
icms.orig:=oeEstrangeiraAdquiridaBrasil;
end;
if frmpdv.cdsitensORIGEM.value ='3' then
begin
icms.orig:=oeNacionalConteudoImportacaoSuperior40;
end;if frmpdv.cdsitensORIGEM.value ='4' then
begin
icms.orig:=oeNacionalProcessosBasicos;
end;if frmpdv.cdsitensORIGEM.value ='5' then
begin
icms.orig:=oeNacionalConteudoImportacaoInferiorIgual40;
end;
if frmpdv.cdsitensORIGEM.value ='6' then
begin
icms.orig:=oeEstrangeiraImportacaoDiretaSemSimilar;
end;
if frmpdv.cdsitensORIGEM.value='7' then
begin
icms.orig:=oeEstrangeiraAdquiridaBrasilSemSimilar;
end;//Regime Normal
//CST Tributado integralmenteif frmpdv.cdsitensCST.value ='0'then
begin
icms.cst:=cst00;
icms.modbc:=dbivaloroperacao;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.asfloat/100;end;
if frmpdv.cdsitensCST.value ='10' then
begin
icms.cst:=cst10;
icms.modbc:=dbivaloroperacao;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat * frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.ASfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;end;
if frmpdv.cdsitensCST.value ='20'then
begin
icms.cst:=cst20;
icms.modbc:=dbivaloroperacao;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
ICMS.pRedBC:=0;end;
if frmpdv.cdsitensCST.value ='30' thenbegin
icms.cst:=cst30;
icms.modbc:=dbivaloroperacao;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat* frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.ASfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;
end;if frmpdv.cdsitensCST.value ='40'then
begin
icms.cst:=cst40;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
end;if frmpdv.cdsitensCST.value ='41'then
begin
icms.cst:=cst41;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
end;
if frmpdv.cdsitensCST.value ='50'then
begin
icms.cst:=cst50;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
end;
//CST Tributado substituição tributáriaif frmpdv.cdsitensCST.value='51' then
begin
icms.cst:=csT51;
icms.modbc:=dbivaloroperacao;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
ICMS.pRedBCst:=0;
END;//CST Tributado substituição tributária
if frmpdv.cdsitensCST.value ='60' then
begin
icms.cst:=csT60;
icms.vBCSTRet:=0;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitensbase.Asfloat/100;
icms.vICMSSTRet:=0;
end;if frmpdv.cdsitensCST.value='70' then
begin
icms.cst:=cst70;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat * frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.ASfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;
end;if frmpdv.cdsitensCST.value ='90' then
begin
icms.cst:=cst90;
icms.modbc:=dbivaloroperacao;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat * frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.ASfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;
icms.predbc:=0;end;
//Simples Nacional
if frmpdv.cdsitensCST.value='101'then
begin
icms.pCredSN:=0;
icms.CSOSN:=csosn101;
icms.vCredICMSSN:=0;end;
if frmpdv.cdsitensCST.value ='102'then
beginicms.CSOSN:=csosn102;
end;
if frmpdv.cdsitensCST.value ='103'then
beginicms.CSOSN:=csosn103;
end;
if frmpdv.cdsitensCST.value ='300'then
beginicms.CSOSN:=csosn300;
end;
if frmpdv.cdsitensCST.value ='400'then
beginicms.CSOSN:=csosn400;
end;
if frmpdv.cdsitensCST.value ='201'then
beginicms.CSOSN:=csosn201;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat * frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.ASfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;
icms.pCredSN:=0;
icms.vCredICMSSN:=0;end;
if frmpdv.cdsitensCST.value='202'then
beginicms.CSOSN:=csosn202;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat * frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.ASfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;end;
if frmpdv.cdsitensCST.value ='203'then
beginicms.CSOSN:=csosn203;
icms.modbcst:=dbismargemvaloragregado;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat * frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.Asfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;end;
if frmpdv.cdsitensCST.value ='500' then
begin
icms.vBCSTRet:=0;
icms.vICMSSTRet:=0;
icms.CSOSN:=csosn500;
end;if frmpdv.cdsitensCST.value ='900' then
begin
icms.CSOSN:=csosn900;
icms.modbc:=dbivaloroperacao;
icms.vbc:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitensbase.Asfloat/100;
icms.picms:=frmpdv.cdsitensICMS.aSfloat;
icms.vicms:=frmpdv.cdsitenssubtotal.Asfloat* frmpdv.cdsitensbase.Asfloat/100 * frmpdv.cdsitensICMS.aSfloat/100;
icms.modbcst:=dbismargemvaloragregado;
icms.pmvast:=frmpdv.cdsitenstmva.ASfloat;
icms.predbcst:=0;
icms.vbcst:=FRMPDV.Cdsitenssubtotal.ASfloat * frmpdv.cdsitenstmva.ASfloat/100;
icms.picmsst:=frmpdv.Cdsitenstoalticmsst.ASfloat;
icms.vicmsst:=frmpdv.cdsitenssubtotal.Asfloat * frmpdv.cdsitenstmva.ASfloat/100 * frmpdv.cdsitensaliqst.ASfloat/100;
icms.predbc:=0;
icms.pCredSN:=0;
icms.vCredICMSSN:=0;
end;
//Serviçoswith issqn do
begin
vbc:=0;
valiq:=0;
vissqn:=0;
cmunfg:= 0;
clistserv:='';end;
end;
end;frmpdv.cdsitens.next;
end;
// INFORMAÇÕES fINAIStotal.icmstot.vBC:=strtofloat(frmpdv.Cdsitenstotalbaseicms.text);
total.icmstot.vICMS:=STRTOFLOAT(frmpdv.CdsitenSICMSTOT.TEXT);
total.ICMSTot.vbcst:=strtofloat(frmpdv.Cdsitenstotalbasest.text);
total.ICMSTot.vST:=strtofloat(frmpdv.Cdsitenstoalticmsst.text);
total.ICMSTot.vprod:=totalfinal;
total.ICMSTot.vdesc:=0;
total.ICMSTot.vii:=0;
total.ICMSTot.vipi:=0;
total.ICMSTot.vpis:=0;
total.ICMSTot.vcofins:=0;
total.ICMSTot.voutro:=0;
total.ICMSTot.vnf:=totalfinal;
Total.ICMSTot.vTotTrib := strtofloat(frmpdv.cdsitenstotTRIB.text);//
total.ISSQNtot.vServ:=0;
total.ISSQNtot.vbc:=0;
total.ISSQNtot.viss:=0;
total.ISSQNtot.vpis:=0;
total.ISSQNtot.vcofins:=0;
//
total.retTrib.vRetPIS:=0;
total.retTrib.vRetcofins:=0;
total.retTrib.vRetcsll:=0;
total.retTrib.vbcirrf:=0;
total.retTrib.virrf:=0;
total.retTrib.vRetprev:=0;end;
//COMANDOS PARA GRARAR XMLDMDADOS.ACBrNFe1.NOTASFISCAIS.Assinar;
DMDADOS.ACBRNFE1.NOTASFISCAIS.gravarxml('C:\PDVLOPES\XML\PENDENTE\');
edtarquivo.Text:=DMDADOS.ACBRNFE1.NOTASFISCAIS.items[0].nomearq;
//Enviarbegin
dmdados.ACBrNFe1.notasfiscais.clear;
dmdados.ACBrNFe1.NotasFiscais.loadfromfile(edtarquivo.text);
dmdados.ACBrNFe1.NotasFiscais.Validar;
dmdados.ACBrNFe1.Enviar(edtnumlote.text,false);if dmdados.CDSEMITENTEIMPRESSAO.TEXT='R' then
BEGIN
dmdados.ACBrNFe1.NotasFiscais.ImprimirResumido;END;
if dmdados.CDSEMITENTEIMPRESSAO.TEXT='C' then
BEGIN
dmdados.ACBrNFe1.NotasFiscais.Imprimir;END;
//
achavenfe :=dmdados.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe;
aprotocolo :=dmdados.ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt;
arecibo :=dmdados.ACBrNFe1.WebServices.Retorno.nferetorno.nrec;
//Gravar Chave
dmdados.CDSNFCE.Refresh;
dmdados.CDSNFCE.Refresh;
dmdados.CDSNFCE.Refresh;
DMDADOS.CDSNFCE.Last;
//gaveta
BEGIN
DMDADOS.CDSSEQUENCIA.Edit;
DMDADOS.CDSSEQUENCIANUMERO.AsFloat:=DMDADOS.CDSSEQUENCIANUMERO.ASFLOAT+1;
DMDADOS.CDSSEQUENCIACODVENDA.TEXT:=DMDADOS.CDSSEQUENCIANUMERO.TEXT;
DMDADOS.CDSSEQUENCIACODVENDA.TEXT:=DMDADOS.CDSSEQUENCIANUMERO.TEXT;
DMDADOS.CDSSEQUENCIA.POST;
DMDADOS.CDSSEQUENCIA.APPLYUPDATES(0);
gaveta;close;
END;
end;
end; -
Bom dia!!Fiz as alterações mas continuo com a mesma rejeição e o xml esta gerando sem a tag Qrcode e insupl segue a baixo as modificações que fiz na alimentação do componente:
procedure TDMDados.atualizaconfiguracao;
var ok: boolean;
beginlerini;
{$ifdef acbrnfeopenssl}
acbrnfe1.configuracoes.certificados.getcertificado:=scertificado;
acbrnfe1.configuracoes.certificados.senha:=ssenha;
{$else}
acbrnfe1.configuracoes.certificados.numeroserie:=sserie;{$endif}
//Layout 3.10
acbrnfe1.Configuracoes.Geral.ModeloDF:=monfce;
acbrnfe1.Configuracoes.Geral.VersaoDF:=ve310;
//geral
acbrnfe1.configuracoes.geral.formaemissao:=strtotpemis(ok,inttostr(sformas));
acbrnfe1.configuracoes.geral.salvar:=ssalvaarq;
acbrnfe1.configuracoes.arquivos.pathsalvar:=slocalarq;
acbrnfe1.configuracoes.geral.modelodf :=monfce;
acbrnfe1.configuracoes.arquivos.PathSchemas:='C:\PDVLOPES\Debug\Win32\Schemas';
//webservices
acbrnfe1.configuracoes.webservices.uf:=sufws;
acbrnfe1.configuracoes.webservices.ambiente:=strtotpamb(ok,inttostr(sambiente));
acbrnfe1.configuracoes.webservices.visualizar:=true;
acbrnfe1.configuracoes.webservices.proxyhost:=shost;
acbrnfe1.configuracoes.webservices.proxyport:=sporta;
acbrnfe1.configuracoes.webservices.proxyuser:=susuariows;
acbrnfe1.configuracoes.webservices.proxypass:=senhaws;
ACBrNFe1.Configuracoes.WebServices.Visualizar:=false;segue com esta saindo meu xml continua sem a tag qrcode
<?xml version="1.0" encoding="UTF-8" ?><cUF>33</cUF><cNF>00000047</cNF><natOp>Venda de Mercadoria</natOp><indPag>0</indPag><mod>65</mod><serie>2</serie><nNF>47</nNF><dhEmi>2015-10-05T11:07:10-03:00</dhEmi><tpNF>1</tpNF><idDest>1</idDest><cMunFG>3304904</cMunFG><tpImp>4</tpImp><tpEmis>1</tpEmis><cDV>0</cDV><tpAmb>2</tpAmb><finNFe>1</finNFe><indFinal>1</indFinal><indPres>1</indPres><procEmi>0</procEmi><verProc>PDVLopes2015</verProc></ide><CNPJ>17465134000180</CNPJ><xNome>PLUS CARNES ALIMENTOS LTDA</xNome><xLgr>RUA FRANCISCO PORTELA</xLgr><nro>151</nro><xCpl>E151SOBRADO</xCpl><xBairro>PARAISO</xBairro><cMun>3304904</cMun><xMun>SAOGONCALO</xMun><UF>RJ</UF><CEP>24435001</CEP><cPais>1058</cPais><xPais>BRASIL</xPais><fone>2126053499</fone></enderEmit><IE>79844888</IE><CRT>3</CRT></emit><cProd>7896799510010</cProd><cEAN /><xProd>NOTA FISCAL EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xProd><NCM>20082010</NCM><CFOP>5405</CFOP><uCom>un</uCom><qCom>1.0000</qCom><vUnCom>7.2900000000</vUnCom><vProd>7.29</vProd><cEANTrib /><uTrib>un</uTrib><qTrib>1.0000</qTrib><vUnTrib>7.2900000000</vUnTrib><indTot>1</indTot></prod></det><vBC>0.00</vBC><vICMS>0.00</vICMS><vICMSDeson>0.00</vICMSDeson><vBCST>0.00</vBCST><vST>0.00</vST><vProd>7.29</vProd><vFrete>0.00</vFrete><vSeg>0.00</vSeg><vDesc>0.00</vDesc><vII>0.00</vII><vIPI>0.00</vIPI><vPIS>0.00</vPIS><vCOFINS>0.00</vCOFINS><vOutro>0.00</vOutro><vNF>7.29</vNF><vTotTrib>1.49</vTotTrib></ICMSTot></total><modFrete>9</modFrete></transp><tPag>01</tPag><vPag>7.29</vPag></pag><infCpl>VALOR PAGO:.R$7,29..TROCO: R$ 0,00....................</infCpl></infAdic></infNFe><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>/ZR+SbJE3zNINbhh7x7XSGT6aMM=</DigestValue></Reference></SignedInfo><SignatureValue>mW9xY5kLlQsGhhwS8RG8RlchtkVrv+sKpgO6MNhC32V/KChHjvcsEBwFQamDPeorVbqpLXsrmG5EUchmOTOuB+VZR5WcBJj4wTSAupJl4oVh+JONd8mGRZ+HV9UWahNpz5e8Wo6dtsEVr5LljI4esVckt9M9Bi3u+b4ujeKxtqIZG7omZRMom5hx9oiwggOiqS0U8Nn2wLmWkSK7rm/HvoNrB1AdIgEqzbZ5NFAEtRj6Zyi5FPA+y+WTFgHgJ8vwjWsVjN2TBpE5Pvno6r2Ddr5y1KaKR6m25MjwQX+EvrAttm4lb6XG8yPuwQ/9YPhZmRXV9/Yhk4YhX5Z6gwaIZw==</SignatureValue><X509Certificate>MIIHjTCCBXWgAwIBAgIEAMm7+DANBgkqhkiG9w0BAQsFADCBiTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEtMCsGA1UEAxMkQXV0b3JpZGFkZSBDZXJ0aWZpY2Fkb3JhIFNFUlBST1JGQnY0MB4XDTE1MDYwMTE2NDMxNloXDTE2MDUzMTE2NDMxNlowgeQxCzAJBgNVBAYTAkJSMQswCQYDVQQIEwJSSjEUMBIGA1UEBxMLU0FPIEdPTkNBTE8xEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEZMBcGA1UECxMQQVJCUkNFUlRJRklDQURPUzEWMBQGA1UECxMNUkZCIGUtQ05QSiBBMTEyMDAGA1UEAxMpUExVUyBDQVJORVMgQUxJTUVOVE9TIExUREE6MTc0NjUxMzQwMDAxODAwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQC/GFhhXaw42Gz8aOvGn6cJ9Z85IXAHYXhAy9XkBKpqGPJGc+DXpyP89JmMx+oEttJIwJl+mk7pVqafL1xKCBTCcApjIgEuL4W3vs5D/o44C7m62y59evbxHV9pInfPJpYagnC7iPAPmkZhfis0nEWdnYgS32XFPDPPY3fFWcoVYQvA46FECYzRQdv1+zafVFxrmBmXTUizhQgDdLrZ4zPDNej4sk+/9k+Fopb7Py3sYM1cFtUQ25BLZBOR95ZdnZXv+11c3HD3Wf2jWDOf8xGuWfFb6N5W7HBnBFhsE1/ShM8wpVJPqebycdUu5a7uIDDNZImtcjNh4pjNk7bdR0l/AgMBAAGjggKeMIICmjAfBgNVHSMEGDAWgBQwCiwMuDcr4PbaAv6AgmeWmFQZOzBbBgNVHSAEVDBSMFAGBmBMAQIBCjBGMEQGCCsGAQUFBwIBFjhodHRwOi8vcmVwb3NpdG9yaW8uc2VycHJvLmdvdi5ici9kb2NzL2RwY2Fjc2VycHJvcmZiLnBkZjCB0QYDVR0fBIHJMIHGMDygOqA4hjZodHRwOi8vcmVwb3NpdG9yaW8uc2VycHJvLmdvdi5ici9sY3IvYWNzZXJwcm9yZmJ2NC5jcmwwPqA8oDqGOGh0dHA6Ly9jZXJ0aWZpY2Fkb3MyLnNlcnByby5nb3YuYnIvbGNyL2Fjc2VycHJvcmZidjQuY3JsMEagRKBChkBodHRwOi8vcmVwb3NpdG9yaW8uaWNwYnJhc2lsLmdvdi5ici9sY3Ivc2VycHJvL2Fjc2VycHJvcmZidjQuY3JsMFYGCCsGAQUFBwEBBEowSDBGBggrBgEFBQcwAoY6aHR0cDovL3JlcG9zaXRvcmlvLnNlcnByby5nb3YuYnIvY2FkZWlhcy9hY3NlcnByb3JmYnY0LnA3YjCBvgYDVR0RBIG2MIGzoD0GBWBMAQMEoDQEMjExMDIxOTU3MDczMDcxODg3NTkwMDAwMDAwMDAwMDAwMDAwMDA2MzE3MTc3MUlGUFJKoCYGBWBMAQMCoB0EG0FMRkVMSVRPIEJFWkVSUkEgREUgTUVORVpFU6AZBgVgTAEDA6AQBA4xNzQ2NTEzNDAwMDE4MKAXBgVgTAEDB6AOBAwwMDAwMDAwMDAwMDCBFmNhcmljcmlzMzVAaG90bWFpbC5jb20wDgYDVR0PAQH/BAQDAgXgMB0GA1UdJQQWMBQGCCsGAQUFBwMEBggrBgEFBQcDAjANBgkqhkiG9w0BAQsFAAOCAgEACnV3z4iyv71q7scHlijhc7gR4dTcZnZF2oEe/4GYHGDmln8qcw80FbMU5va3nkwTziwxnB8IRR1fm5ZUI4YcJTX+6nGSiMIDjAAk21mCHCJ8W5/a+9h3CX6eePJt79iaci5Uv3oFU5ku4oJ2DiplaLgkUe/Nm9pfkMOcLGgSNfNithJRBpaqoP4bP2UnRX7iPybvvnrVsWgTrMardKAvtiwdJOglWyjDp0iBlYO0rIBVDuo79y2BGqHedrEhl9T6HaQtMNcidbpDARP49N4xHUuRXDst0fjVA4SiMH+b5UDFcYOvHQWhJROjpIvtbYPFrfromXW4V5bhkZXWRbea3Qe5EwT9RLeXdRFftHsQzPl7SovUO8cv+RvLapxcSrKlh0Z5K5AQEX/xgr2OnSIR3hzQMlHlvxojBWCEmCUBs1xxkGoVxQ+12/tE4vUPpYThLSyTn/l35HBcaUW7FIgB/e2Vv5qtS4v6SNr6dqv0xX2FFLr3lThJBHFrfpuSX2DpYbVzeVoYEAxLGc3qoHXfElwQvfhwNJurAgU2HSCwUbnqMlHw/GrEcSiwaC2+dlVfA/12Eyxdmg7Sn8TJjvC1DGSlZNfhErLW+SVFaUoePEV4kq748jLAB9yUKmk4sp6U3B1djILS79lpq6fWvXoLamqhff1dYd2n2EJX4RBqFAk=</X509Certificate></X509Data></KeyInfo></Signature></NFe> -
JA alimentei a opcção dos shemas mas não obitive exito.Segue o meu acbrnfenotasfiscais.pas e abaixo esta como estou alimento o componente:
procedure TDMDados.atualizaconfiguracao;
var ok: boolean;
beginlerini;
{$ifdef acbrnfeopenssl}
acbrnfe1.configuracoes.certificados.getcertificado:=scertificado;
acbrnfe1.configuracoes.certificados.senha:=ssenha;
{$else}
acbrnfe1.configuracoes.certificados.numeroserie:=sserie;{$endif}
//Layout 3.10
acbrnfe1.Configuracoes.Geral.ModeloDF:=monfce;
acbrnfe1.Configuracoes.Geral.VersaoDF:=ve310;
//geral
acbrnfe1.configuracoes.geral.formaemissao:=strtotpemis(ok,inttostr(sformas));
acbrnfe1.configuracoes.geral.salvar:=ssalvaarq;
acbrnfe1.configuracoes.arquivos.pathsalvar:=slocalarq;//webservices
acbrnfe1.configuracoes.webservices.uf:=sufws;
acbrnfe1.configuracoes.webservices.ambiente:=strtotpamb(ok,inttostr(sambiente));
acbrnfe1.configuracoes.webservices.visualizar:=true;
acbrnfe1.configuracoes.webservices.proxyhost:=shost;
acbrnfe1.configuracoes.webservices.proxyport:=sporta;
acbrnfe1.configuracoes.webservices.proxyuser:=susuariows;
acbrnfe1.configuracoes.webservices.proxypass:=senhaws;
ACBrNFe1.Configuracoes.WebServices.Visualizar:=false;//
if acbrnfe1.danfe <> nil then
begin
acbrnfe1.danfe.tipodanfe:=strtotpimp(ok,'1');
acbrnfe1.danfe.logo:=slogomarca; -
Bom dia!!Baixei os shemas mas a xml continua sem a tag algnaldo.so recapitulando eu preciso descomentar o trecho do arquivo C:\Acbr\Fontes\ACBrDFe\ACBrNFe\acbrnfenotasfiscais.pas e depois e so pegar is shemas atualizado e colocar na pasta da minha aplicaçao,e ja tendo o componente acbrnfe adicionado no meu form e so compilar a minha aplicação e so isso?pois estes foram os procedimentos realizados por mim .apos descomentar preciso compilar o acbr novamente ?preciso remover o pacote da library patchs ou e so descomentar?não consegui a solução.
-
pelo que vi o xml esta sendo gerado sem a tag segue em anexo.mas acredito que o erro seja na hora do envio.Onde encontro os shemas atualizados se forem o que estão na pasta do acbr eu ja coloquei os de la na aplicação.
-
Boa noite !!Fiz o procedimento de Descomentar a unit notasfiscais no acbr mas continuo recebendo a rejeição no meu projeto sou novo com acbr e não estou conseguindo a solução apos descomentar o acbr notasfiscais preciso fazer o que? tem algum outro procedimento ?tenho que compilar novamente ?acbrnotasfiscais ficou assim:
\\
var
XMLAss: String;
ArqXML: String;
Leitor: TLeitor;
i: Integer;
begin
if NaoEstaVazio(FXMLAssinado) then
exit;ArqXML := GerarXML;
// XML já deve estar em UTF8, para poder ser assinado //
ArqXML := ConverteXMLtoUTF8(ArqXML);
FXMLOriginal := ArqXML;with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
begin
XMLAss := SSL.Assinar(ArqXML, 'NFe', 'infNFe');
FXMLAssinado := XMLAss;
FXMLOriginal := XMLAss;// Remove header, pois podem existir várias Notas no XML //
//TODO: Verificar se precisa
//XMLAss := StringReplace(XMLAss, '<' + ENCODING_UTF8_STD + '>', '', [rfReplaceAll]);
//XMLAss := StringReplace(XMLAss, '<' + XML_V01 + '>', '', [rfReplaceAll]);Leitor := TLeitor.Create;
try
leitor.Grupo := XMLAss;
NFe.signature.URI := Leitor.rAtributo('Reference URI=');
NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue');
NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue');
NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate');
finally
Leitor.Free;
end;//***********************************************************************************
// Atenção o código comentado abaixo não pode ser excluido pois será descomentado
// quando as alterações no XML definidas em NT 2015/002 versão 1.00 entrar em vigor.
// Homologação: 01/10/2015
// Produção: 03/11/2015
//***********************************************************************************// Gera o QR-Code para adicionar no XML antes de ser validado e salvo
// somente para a NFC-e.
if Configuracoes.Geral.ModeloDF = moNFCe then
begin
with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do
begin
NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb,
onlyNumber(NFe.infNFe.ID), NFe.Dest.CNPJCPF,
NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF,
NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue);
end;i := pos('<Signature ', XMLAss);
XMLAss := Copy(XMLAss, 1, i -1) +
'<infNFeSupl>' +
'<qrCode>' +
'<![CDATA[' + NFe.infNFeSupl.qrCode + ']]>' +
'</qrCode>' +
'</infNFeSupl>' +
Copy(XMLAss, i, length(XMLAss));
end;
FXMLAssinado := XMLAss; ;
if Configuracoes.Arquivos.Salvar then
begin
if NaoEstaVazio(NomeArq) then
Gravar(NomeArq, XMLAss)
else
Gravar(CalcularNomeArquivoCompleto(), XMLAss);
end;
end;
end;\\ -
Ok!!desculpe já criei um novo!!
- 1
-
Obrigado Juliomar realmente eram as Dlls !!
Poderia me ajudar em mas uma duvida estou me deparando com a rejeição por falta de qr-code no xml,verifiquei a linha descomentada no acbr mas gostaria de saber como fazer para comentala estou meio perdio ,coloquei abaixo do total.rettrib.me desculpe mas sou novo com acbr.
total.retTrib.vRetcsll:=0;
total.retTrib.vbcirrf:=0;
total.retTrib.virrf:=0;
total.retTrib.vRetprev:=0;// Gera o QR-Code para adicionar no XML antes de ser validado e salvo
// somente para a NFC-e.
infNFeSupl.qrCode := GetURLQRCode(Ide.cUF, Ide.tpAmb,
onlyNumber(infNFe.ID), Dest.CNPJCPF,
Ide.dEmi, Total.ICMSTot.vNF,
Total.ICMSTot.vICMS, signature.DigestValue);
end; -
Bom dia!!Estou com duvídas sobre onde comentar a linha do qr-code em meu projeto pois estou me deparando com a rejeição da Nfc-e em homologação.me perdoem pela minha estupidez mas sou novo com acbr,seria esta a maneira correta?
total.ISSQNtot.viss:=0;
total.ISSQNtot.vpis:=0;
total.ISSQNtot.vcofins:=0;
//
total.retTrib.vRetPIS:=0;
total.retTrib.vRetcofins:=0;
total.retTrib.vRetcsll:=0;
total.retTrib.vbcirrf:=0;
total.retTrib.virrf:=0;
total.retTrib.vRetprev:=0;// Gera o QR-Code para adicionar no XML antes de ser validado e salvo
// somente para a NFC-e.
infNFeSupl.qrCode := GetURLQRCode(Ide.cUF, Ide.tpAmb,
onlyNumber(infNFe.ID), Dest.CNPJCPF,
Ide.dEmi, Total.ICMSTot.vNF,
Total.ICMSTot.vICMS, signature.DigestValue);
end; -
Bom dia!!,fiz todos os procedimentos para atualizar do trunk1 para o 2, inclusive a remoca do trunk1 mas infelizmente sempre que abro delphi ele não inicializa alguns pacotes acbr como o acbr_nfe.bpl .aparece a seguinte mensagem falha na inicialização do aplicativo devido a configuração lado a lado incorreta mesmo formatando meu pc e instalando tudo do zero sempre caio neste mesmo problema.Poderia me ajudar.
-
Bom dia!! Alguém poderia me ajudar em relação a declarar o primeiro item desta maneira no acbr?
-
Julio obrigado pela dica!!Consegui encontrar o recurso que me recomendou segue comando para quem necessitar :ACBrNFe.Configuracoes.WebServices.Visualizar:=false;
- 1
-
Desculpe a minha ignorância Julio mas poderia me dizer onde fica este recurso ?
-
Desculpe !!! Existe alguma maneira de enviar xml para o sefaz utilizando o acbr sem que necessite que o usuário clique no botão ok pra confirmar retorno de lote recebido status 103 e 104?
-
BOA NOITE!!ESTOU A POUCO TEMPO TRABALHANDO COM DELPHI MEU PROJETO JA EMITE NFCE ONLINE E OFFLINE,MAS ESTOU TENTANDO IMPLEMENTAR UM FUNÇÃO QUE ENVIE AUTOMATICAMENTE AS XML EM CONTINGENCIA ASSIM QUE A INTERNET RETORNE ,ALGUEM JA FEZ ESSE PROCEDIMENTO TENHO ALGO EM MENTE MAS GOSTARIA DE SABER SE EXISTE ALGUMA MANEIRA DE QUANDO ENVIAR O XML EM LOTE DE NÃO APRESENTAR A MENSAGEM DE RETORNO DE LOTE ENVIADO.POIS TODA VEZ QUE ENVIO A XML PELO ACBR PEDE AO USUARIO QUE DE UM OK PARA O RETORNO STATUS 103 E OUTRO OK PARA O STATUS 104 DE LOTE RECEBIDO,EXISTE ALGUMA MANEIRA DE NÃO SOLICITAR QUE O USUARIO DE OK NA MESAGEM DE LOTE RECEBIDO ?DESDE JA AGRADEÇO PELA A ATENÇÃO!!
nota fiscal sem informação qr-code
em NFC-e - Nota Fiscal do Consumidor Eletrônica
Postado
Júlio sou novo,desculpe por minha ignorância sobre o dcu não entendi referente a qual dcu você está citando não entendi o que você disse .