nota fiscal sem informação qr-code

[Antony Moraes]

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]

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]

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]

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]

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]

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]

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]

      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]

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>

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

- <emit>

  <CNPJ>17465134000180</CNPJ>

  <xNome>PLUS CARNES ALIMENTOS LTDA</xNome>

- <enderEmit>

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

- <det nItem="1">

- <prod>

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

- <imposto>

  <vTotTrib>1.49</vTotTrib>

- <ICMS>

- <ICMS60>

  <orig>0</orig>

  <CST>60</CST>

  </ICMS60>

  </ICMS>

  </imposto>

  </det>

- <total>

- <ICMSTot>

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

- <transp>

  <modFrete>9</modFrete>

  </transp>

- <pag>

  <tPag>01</tPag>

  <vPag>7.29</vPag>

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

  <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />

  <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />

- <Reference URI="#NFe33151017465134000180650020000000471000000470">

- <Transforms>

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

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

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

Att,

[Antony Moraes]

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]

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]

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]

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]

Antony você esta preenchendo a

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

???

[Antony Moraes]

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]

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]

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]

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]

 

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]

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]

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]

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]

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]

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.