nota fiscal sem informação qr-code

Antony Moraes · October 5, 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;\\

Edited October 5, 2015 by Antony Moraes

Italo Giurizzato Junior · October 5, 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 · October 5, 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 · October 5, 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 · October 5, 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 · October 5, 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.

Edited October 5, 2015 by agnaldoprates

Antony Moraes · October 5, 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 · October 5, 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 · October 5, 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 · October 5, 2015

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

Att,

Antony Moraes · October 5, 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 · October 5, 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 · October 5, 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?

Edited October 5, 2015 by Antony Moraes

Italo Giurizzato Junior · October 5, 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 · October 5, 2015

Antony você esta preenchendo a

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

???

Antony Moraes · October 5, 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?

Edited October 5, 2015 by Antony Moraes

adelsonuchoa · October 5, 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 · October 5, 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 · October 6, 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 · October 6, 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 · October 6, 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 · October 6, 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 · October 6, 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 · October 6, 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 · October 6, 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.

Sign In

Sobre nós...

nota fiscal sem informação qr-code

Recommended Posts

Antony Moraes

Italo Giurizzato Junior

Antony Moraes

Agnaldo Prates

Antony Moraes

Agnaldo Prates

Antony Moraes

Agnaldo Prates

Antony Moraes

Agnaldo Prates

Antony Moraes

Agnaldo Prates

Antony Moraes

Italo Giurizzato Junior

adelsonuchoa

Antony Moraes

adelsonuchoa

Antony Moraes

Antony Moraes

Agnaldo Prates

Antony Moraes

Antony Moraes

Juliomar Marchetti

Agnaldo Prates

Antony Moraes

Create an account or sign in to comment

Create an account

Sign in

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Important Information

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