nota fiscal sem informação qr-code

Antony Moraes · 5 Outubro, 2015

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;\\

Editado 5 Outubro, 2015 por Antony Moraes

Italo Giurizzato Junior · 5 Outubro, 2015

Bom dia Antony,

O erro ocorre antes do envio ou após?

Se for antes, o problema é que os Schemas não estão atualizados, agora se é após o envio, o problema é na SEFAZ.

Antony Moraes · 5 Outubro, 2015

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.

33151017465134000180650020000000471000000470-nfe.xml

Agnaldo Prates · 5 Outubro, 2015

Bom dia Antony.

Bem, eu consegui enviar a NFC-e com o Qr-Code, sem problemas, porem só consegui depois de baixar o Schema deste tócico http://www.projetoacbr.com.br/forum/topic/24812-rejeição-394-nota-fiscal-sem-a-informação-do-qr-code/?page=2, acredito que depois de atualizar o seu schema, conseguirá.

Att.

Bom dia Antony,

O erro ocorre antes do envio ou após?

Se for antes, o problema é que os Schemas não estão atualizados, agora se é após o envio, o problema é na SEFAZ.

A rotina está correta Italo. O que deve ser feito na verdade, pelo menos comigo, funcionou depois de atualizar o Schema.

Att.

Antony Moraes · 5 Outubro, 2015

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.

Agnaldo Prates · 5 Outubro, 2015

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.

Não tem que mudar nada, lembre-se de que, o Schemas deve estar setado para o ACBRNFe, na propriedade PathSchemas.

o Código deve estar assim:

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; ;

Att.

Editado 5 Outubro, 2015 por agnaldoprates

Antony Moraes · 5 Outubro, 2015

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;
begin

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.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;

ACBrNFeNotasFiscais.pas

Agnaldo Prates · 5 Outubro, 2015

ve310 : AcbrNFE1.Configuracoes.Arquivos.PathSchemas := {Aqui é o local onde pego a pasta do Schemas e atribuo a versão} PathChemas+'ve310';

Configuro desse modo.

Att.

Antony Moraes · 5 Outubro, 2015

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;
begin

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.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" ?>

- <NFe xmlns="http://www.portalfiscal.inf.br/nfe">

- <infNFe versao="3.10" Id="NFe33151017465134000180650020000000471000000470">

- <ide>

<natOp>Venda de Mercadoria</natOp>

<verProc>PDVLopes2015</verProc>

</ide>

- <emit>

<xNome>PLUS CARNES ALIMENTOS LTDA</xNome>

- <enderEmit>

<xLgr>RUA FRANCISCO PORTELA</xLgr>

<xCpl>E151SOBRADO</xCpl>

<xBairro>PARAISO</xBairro>

<xMun>SAOGONCALO</xMun>

<xPais>BRASIL</xPais>

</enderEmit>

</emit>

- <det nItem="1">

- <prod>

<xProd>NOTA FISCAL EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xProd>

</prod>

- <imposto>

- <ICMS>

- <ICMS60>

</ICMS60>

</ICMS>

</imposto>

</det>

- <total>

- <ICMSTot>

</ICMSTot>

</total>

- <transp>

</transp>

- <pag>

</pag>

- <infAdic>

<infCpl>VALOR PAGO:.R$7,29..TROCO: R$ 0,00....................</infCpl>

</infAdic>

</infNFe>

- <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">

- <SignedInfo>

- <Reference URI="#NFe33151017465134000180650020000000471000000470">

- <Transforms>

</Transforms>

<DigestValue>/ZR+SbJE3zNINbhh7x7XSGT6aMM=</DigestValue>

</Reference>

</SignedInfo>

<SignatureValue>mW9xY5kLlQsGhhwS8RG8RlchtkVrv+sKpgO6MNhC32V/KChHjvcsEBwFQamDPeorVbqpLXsrmG5EUchmOTOuB+VZR5WcBJj4wTSAupJl4oVh+JONd8mGRZ+HV9UWahNpz5e8Wo6dtsEVr5LljI4esVckt9M9Bi3u+b4ujeKxtqIZG7omZRMom5hx9oiwggOiqS0U8Nn2wLmWkSK7rm/HvoNrB1AdIgEqzbZ5NFAEtRj6Zyi5FPA+y+WTFgHgJ8vwjWsVjN2TBpE5Pvno6r2Ddr5y1KaKR6m25MjwQX+EvrAttm4lb6XG8yPuwQ/9YPhZmRXV9/Yhk4YhX5Z6gwaIZw==</SignatureValue>

- <KeyInfo>

- <X509Data>

<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>

Agnaldo Prates · 5 Outubro, 2015

Experimenta baixar este schema e substituir na pasta Ve310, comigo resolveu.

Att,

Antony Moraes · 5 Outubro, 2015

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

begin

with icms do

//Origem

if 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 integralmente

if 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' then

begin

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ária

if 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
begin

icms.CSOSN:=csosn102;

end;
if frmpdv.cdsitensCST.value ='103'then
begin

icms.CSOSN:=csosn103;

end;

if frmpdv.cdsitensCST.value ='300'then
begin

icms.CSOSN:=csosn300;

end;

if frmpdv.cdsitensCST.value ='400'then
begin

icms.CSOSN:=csosn400;

end;

if frmpdv.cdsitensCST.value ='201'then
begin

icms.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
begin

icms.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
begin

icms.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ços

with issqn do
begin
vbc:=0;
valiq:=0;
vissqn:=0;
cmunfg:= 0;
clistserv:='';

end;
end;
end;

frmpdv.cdsitens.next;

end;
// INFORMAÇÕES fINAIS

total.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 XML

DMDADOS.ACBrNFe1.NOTASFISCAIS.Assinar;
DMDADOS.ACBRNFE1.NOTASFISCAIS.gravarxml('C:\PDVLOPES\XML\PENDENTE\');
edtarquivo.Text:=DMDADOS.ACBRNFE1.NOTASFISCAIS.items[0].nomearq;

//Enviar

begin
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;

Agnaldo Prates · 5 Outubro, 2015

Acredito que este comando deva ser revisto. DMDADOS.ACBRNFE1.NOTASFISCAIS.gravarxml('C:\PDVLOPES\XML\PENDENTE\');

Tendo em vista que ACBRNFE1.NOTASFISCAIS.gravarxml(Nome do Arquivo, Pasta Desejada), ao que parece está faltando o nome do arquivo.

function GravarXML(NomeArquivo: String = ''; PathArquivo: String = ''): Boolean;

Pelo menos no trunk2.

Att.

Antony Moraes · 5 Outubro, 2015

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?

Editado 5 Outubro, 2015 por Antony Moraes

Italo Giurizzato Junior · 5 Outubro, 2015

Boa tarde Antony,

Você esta usando os fontes do Trunk2?

Se sim, você descomentou o bloco de linhas que gera o grupo <infNFeSupl> que encontra-se em: procedure NotaFiscal.Assinar; ?

adelsonuchoa · 5 Outubro, 2015

Antony você esta preenchendo a

ACBrNFe1.Configuracoes.Geral.IdCSC := '000001';
ACBrNFe1.Configuracoes.Geral.CSC := '';

???

Antony Moraes · 5 Outubro, 2015

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?

Editado 5 Outubro, 2015 por Antony Moraes

adelsonuchoa · 5 Outubro, 2015

Isso, deixei o meu do jeito que mostrei aí, pq ainda não peguei o CSC da minha empresa, e dessa forma o servidor aceitou, o que eu fiz foi atualizar o arquivo ACBrNFeNotasFiscais.pas e o leiauteNFe_v3.10.xsd que foi postado aqui neste forum, eu substitui na verdade.

Antony Moraes · 5 Outubro, 2015

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?

Antony Moraes · 6 Outubro, 2015

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;

//Enviar

begin
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.

ACBrNFeNotasFiscais.pas

leiauteNFe_v3.10.xsd

Agnaldo Prates · 6 Outubro, 2015

ACBrNFe1.Configuracoes.Geral.IdCSC := '000001';
ACBrNFe1.Configuracoes.Geral.CSC := ''; { aqui está faltando a informação do CSC que é obrigatória agora }

Na secretaria de fazenda do seu estado, deverá haver um local para criar o CSC, mesmo para homologação é obrigatório.

Att.

Antony Moraes · 6 Outubro, 2015

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.

Antony Moraes · 6 Outubro, 2015

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 .

Juliomar Marchetti · 6 Outubro, 2015

Então você tem duas coisas ou usa o .dcu compilado já ou tem fontes antigos perdidos no micro e no path do seu delphi!

Agnaldo Prates · 6 Outubro, 2015

Seguindo o que indicou o Julio, procure por estes arquivos em seu micro, pois, de algum modo o seu projeto está buscando esta informação em uma unit que com certeza está desatualizada.

Att.

Antony Moraes · 6 Outubro, 2015

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.

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br

Entrar

Sobre nós...

nota fiscal sem informação qr-code

Recommended Posts

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Sobre nós...

Informação Importante