Alberto Antonio

E como vc disse faltou a inclusão completa na uses. Segue o correto. Está resolvido. Obrigado. uses IniFiles, ShellAPI, DateUtils, Math, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtrls, SHDocVw, ACBrNFe, pcnConversao, pcnConversaoNFe, ACBrNFeDANFEClass, ACBrUtil, pcnNFeW, pcnNFeRTXT, DB, ADODB, Menus, DBCtrls, Mask, Grids, DBGrids, jpeg, XPMan, ACBrBase, ACBrDFe, ACBrNFeDANFeRLClass, ACBrBoleto;

Italo alterei as use do meu form antigo em Delphi 2007. Um dos campos passou. Ide.tpAmb := taProducao; uses IniFiles, ShellAPI, DateUtils, Math, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, OleCtrls, SHDocVw, ACBrNFe, pcnConversao, ACBrNFeDANFEClass, ACBrUtil, pcnNFeW, pcnNFeRTXT, DB, ADODB, Menus, DBCtrls, Mask, Grids, DBGrids, jpeg, XPMan, ACBrBase, ACBrDFe, ACBrNFeDANFeRLClass; Mas não passa Ide.tpNF := tnSaida; Esse ainda não passa.

Italo, boa tarde Coloquei e não resolveu.] Segue: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ACBrBase, ACBrBoleto, StdCtrls, Buttons, ACBrDFe, ACBrNFe, DB, ADODB, ExtCtrls, DBCtrls, Mask, Grids, DBGrids, pcnConversaoNFe; Coloquei no meu form FrmNotasFiscais

Bom dia amigos, comprei o fastReport e tambem consegui instalar o Fortes. O AcbrNfe está ok. Eu possuia um código que emitia a nota e consegui até gerar 4 notas depois me voltei para um sistema de boletos e não dei mais continuidade a NF-e. E agora com a versão atual em Delphi 2010 percebi que alguns campos estão sendo recusados, acredito que foram desativos. Ide.tpAmb := taProducao; Ide.tpNF := tnSaida; Esses campos acima não passam. Alguém tem um código com os campos atuais? Desde já agradeço Segue o que estou usando/montando. procedure TFrmNotasFiscais.BtnNFClick(Sender: TObject); var i, x, sequencianota, filtro, notaint, emissao, finalidade : integer; vr : Real; prazo : variant; notastr, sCPFCNPJ : string; TotalNovo, frete, bicms, icms, seguro, desc, geral, despaces : Real; total10 : Real; Begin //if txtobs.Text = '' then //Begin //showmessage('Preencha a observação! Campo requerido!'); //txtobs.setfocus; //exit; //End; //If (NotasFiscais.State In [dsEdit, dsInsert] ) Then //Begin //Application.MessageBox( 'Grave as informações antes de sair!!!', 'Erro', MB_ICONERROR + MB_OK ); //Abort; //end else NotasFiscais.Open; ACBrNFe1.NotasFiscais.Clear; with AcbrNfe1.NotasFiscais.Add.NFe do Begin NotasFiscais.Edit; txttotal2.Caption := '500'; total10 := StrToFloat(txttotal2.Caption); //frete := StrToFloat(dbedit10.text); NotasFiscais.FieldByName('Total').AsFloat := total10 ; NotasFiscais.FieldByName('Geral').AsFloat := total10 + frete; NotasFiscais.Post; {IDENTIFICAÇÃO DO CABEÇALHO =================================================================} Ide.natOp := Edit1.text; Ide.nNF := NotasFiscais.FieldByName('CodigoNotaFiscal').AsInteger; Ide.cNF := NotasFiscais.FieldByName('CodigoNotaFiscal').AsInteger; sequencianota := NotasFiscais.FieldByName('CodigoNotaFiscal').AsInteger; Ide.modelo := 55; Ide.serie := 1; Ide.dEmi := NotasFiscais.FieldByName('DtEmissao').AsDateTime; Ide.dSaiEnt := NotasFiscais.FieldByName('DtSaida').AsDateTime; Ide.hSaiEnt := NotasFiscais.FieldByName('HoraSaida').AsDateTime;//Novo campo Ide.tpAmb := taProducao; Ide.tpNF := tnSaida; Ide.tpEmis := NotasFiscais.FieldByName('TipoEmissao').AsVariant; Ide.finNFe := NotasFiscais.FieldByName('FinEmissao').AsVariant; case NotasFiscais.FieldByName('TipoPgto').AsInteger of 0: //Ide.indPag := ipVista; //1: //Ide.indPag := ipPrazo; end; Ide.verProc := '2.0.0.0'; Ide.cUF := 26; //Ide.cMunFG := empresa.FieldByName( 'CidadeIBGE').AsInteger; //DADOS DA EMPRESA================================== Emit.CNPJCPF := empresa.FieldByName('CNPJ').AsString;//CPF ou CNPJ Emit.IE := empresa.FieldByName('Inscestadual').AsString; Emit.xNome := empresa.FieldByName('Estabelecimento').AsString; Emit.xFant := empresa.FieldByName('Fantasia').AsString; Emit.EnderEmit.CEP := empresa.FieldByName( 'CepEmpresa').AsInteger; Emit.EnderEmit.xLgr := empresa.FieldByName( 'Endereco').AsString; Emit.EnderEmit.nro := empresa.FieldByName( 'Nr').AsString; Emit.EnderEmit.xCpl := empresa.FieldByName( 'Complemento').AsString; Emit.EnderEmit.xBairro := empresa.FieldByName( 'Bairro').AsString; Emit.EnderEmit.cMun := empresa.FieldByName( 'CidadeIBGE').AsInteger;//Codigo da Cidade Emit.EnderEmit.xMun := empresa.FieldByName( 'Cidade').AsString; Emit.EnderEmit.UF := 'PE'; Emit.enderEmit.cPais := 1058; Emit.enderEmit.xPais := 'BRASIL'; Emit.EnderEmit.fone := empresa.FieldByName('TelefoneEmpresa').AsString; Emit.IM := ''; Emit.CNAE := '0000000'; //Emit.CRT := TpcnCRT(1);//Novo campo // DADOS DO CLIENTE ============================================= filtro := NotasFiscais.FieldByName('RegNF').AsInteger; QryClientes.close; QryClientes.sql.Add('Select TblClientes.cMun, TblClientes.CPF, TblClientes.UF, TblClientes.nr, TblClientes.Compl,'); QryClientes.sql.Add(' TblClientes.Codigo2, TblClientes.ClienteNome,'); QryClientes.sql.Add(' TblVendas.CodVda, TblVendas.Cliente, TblClientes.TipoCliente,'); QryClientes.sql.Add(' TblClientes.Inscestadual, TblClientes.EnderecoCli,'); QryClientes.sql.Add(' TblClientes.BairroParaTaxa, TblClientes.Cep,'); QryClientes.sql.Add(' TblClientes.Telefone, TblClientes.Cidade,'); QryClientes.sql.Add(' TblClientes.CidadeIBGE,'); QryClientes.sql.Add(' TblNotasFiscais.RegNF, TblNotasFiscais.Cliente as CliNF from tblClientes, TblNotasFiscais,'); QryClientes.sql.Add(' TblVendas Where TblNotasFiscais.Cliente = Tblvendas.codvda'); QryClientes.sql.Add(' And TblVendas.Cliente = tblClientes.Codigo2'); QryClientes.sql.Add(' And tblNotasFiscais.RegNF =:a1'); QryClientes.Parameters.ParamByName('a1').Value := filtro; QryClientes.Open; //---------------------------------------------------- QryCidades.close; QryCidades.sql.Add('Select * from v_cidades'); QryCidades.sql.Add(' Where RegNF =:a1'); QryCidades.Parameters.ParamByName('a1').Value := filtro; QryCidades.Open; Dest.CNPJCPF := QryClientes.FieldByName('CPF').AsString; Dest.IE := QryClientes.FieldByName('InscEstadual').AsString; Dest.xNome := QryClientes.FieldByName('ClienteNome').AsString; Dest.EnderDest.xLgr := QryClientes.FieldByName('enderecocli').AsString; Dest.EnderDest.nro := QryClientes.FieldByName('nr').AsString; Dest.EnderDest.xCpl := QryClientes.FieldByName( 'compl' ).AsString; Dest.EnderDest.xBairro := QryClientes.FieldByName('BairroParaTaxa').AsString; Dest.EnderDest.cMun := QryClientes.FieldByName('cMun').AsInteger; Dest.EnderDest.xMun := QryClientes.FieldByName('cidade').AsString; Dest.EnderDest.UF := QryClientes.FieldByName('UF').AsString; Dest.EnderDest.CEP := QryClientes.FieldByName('cep').AsInteger; Dest.EnderDest.cPais := 1058; Dest.EnderDest.xPais := 'BRASIL'; Dest.EnderDest.Fone := QryClientes.FieldByName('TeleFone').AsString; Dest.ISUF := ''; //INICIO DOS ITENS========================================== detalhes.Open; detalhes.First; i := 0; while not detalhes.Eof do begin with Det.Add do begin i := i + 1; Prod.nItem := i; Prod.CProd := detalhes.FieldByName('prod').AsString; Prod.xProd := detalhes.FieldByName('descricao').AsString; Prod.NCM := detalhes.FieldByName('NCM').AsString; Prod.CFOP := detalhes.FieldByName('CfopNF').AsString; Prod.qCom := detalhes.FieldByName('qte').AsFloat; Prod.uCom := detalhes.FieldByName('unidade').AsString; Prod.vProd := detalhes.FieldByName('Total').AsFloat; Prod.vUnCom := detalhes.FieldByName('vr').AsFloat; Prod.qTrib := detalhes.FieldByName('qte').AsInteger; Prod.uTrib := detalhes.FieldByName('unidade').AsString; Prod.vUnTrib := detalhes.FieldByName('vr').AsFloat; prod.vSeg := 0; prod.vFrete := 110.00; Prod.vDesc := 2.0; Prod.vOutro := 0; //Prod.IndTot := TpcnIndicadorTotal(0); //Prod.IndTot := itSomaTotalNFe; //= 1; //Prod.IndTot := itNaoSomaTotalNFe;// = 0 With Imposto do Begin with ICMS do Begin case detalhes.FieldByName('CST').AsInteger of 1: Begin //CST := cst00; //ICMS.modBC := dbiValorOperacao; //ICMS.orig := oeNacional; ICMS.pICMS := 0; ICMS.vICMS := 0; ICMS.vBC := 0; ICMS.pICMS := 0; ICMS.vICMS := 0; ICMS.vBC := 0; end; 2: Begin //CST := cst60; ICMS.vBCST := 0; ICMS.vICMSST := 0; ICMS.vBCST := 0; ICMS.vICMSST := 0; end; end; //IPI.CST := ipi01; end; end; Detalhes.Next; end; end; //Totalização //Total.ICMSTot.vProd := RoundTo(NotasFiscais.FieldByName('Total').AsFloat,-2); Total.ICMSTot.vBC := 0.0; Total.ICMSTot.vICMS := 0.0; Total.ICMSTot.vfrete := 0.0; //Total.ICMSTot.vNF := RoundTo(NotasFiscais.FieldByName('Geral').AsFloat,-2); //Transportadora================================================== QryTransp.close; QryTransp.sql.Add('Select * from TblTransportadoras'); QryTransp.sql.Add(' Where RegTransp =:a1'); //QryTransp.Parameters.ParamByName('a1').Value := StrToInt(txtTransp.Text); QryTransp.Open; Transp.Transporta.CNPJCPF := QryTransp.FieldByName('CNPJT').AsString; Transp.Transporta.xNome := QryTransp.FieldByName('NomeTransportadora').AsString; Transp.Transporta.IE := QryTransp.FieldByName('Incestadual').AsString; Transp.Transporta.xEnder := QryTransp.FieldByName('EnderecoT').AsString; Transp.Transporta.xMun := QryTransp.FieldByName('CidadeT').AsString; Transp.Transporta.UF := QryTransp.FieldByName('UHT').AsString; //Volume========================================================== with Transp.Vol.Add do Begin qvol := NotasFiscais.FieldByName('volume').AsInteger; esp := NotasFiscais.FieldByName('especie').AsString; marca := NotasFiscais.FieldByName('marca').AsString; nvol := NotasFiscais.FieldByName('volume').AsString; pesoL := NotasFiscais.FieldByName('pesoL').AsInteger; pesoB := NotasFiscais.FieldByName('pesoB').AsInteger; end; //Parcelamentos -----Contas a Receber============================= { filtro := NotasFiscais.FieldByName('RegNF').AsInteger; QryDuplicatas.close; QryDuplicatas.sql.Add('Select tblDuplicatas.BaseNota, tblDuplicatas.ValorDupl, TblDuplicatas.DtVctoDupl,'); QryDuplicatas.sql.Add('TblNotasFiscais.RegNF, TblNotasFiscais.Cliente from tblDuplicatas, TblNotasFiscais'); QryDuplicatas.sql.Add('Where tblNotasFiscais.RegNF =:a1 And TblNotasFiscais.Cliente'); QryDuplicatas.sql.Add('= TblDuplicatas.BaseNota'); QryDuplicatas.Parameters.ParamByName('a1').Value := filtro; QryDuplicatas.Open; QryDuplicatas.First; while not QryDuplicatas.Eof do begin with Cobr.Dup.Add Do Begin nDup := NotasFiscais.FieldbyName('CodigoNotaFiscal').Value; dVenc := QryDuplicatas.FieldbyName('DtVctoDupl').Value; vDup := QryDuplicatas.FieldbyName('ValorDupl').Value; End; Next; end; } //Dados Adicionais================================================ With InfAdic.obsCont.add do Begin InfAdic.infCpl := 'Detalhamento da Nota Fiscal'; xCampo := 'obs:'; //xtexto := DBEdit14.Text ; end; //Fim da NFE=================================== AcbrNFe1.Enviar(sequencianota); memoResposta.Lines.Text := AcbrNfe1.WebServices.Retorno.RetWS; NotasFiscais.Edit; NotasFiscais.FieldByName('chave').AsString := AcbrNfe1.WebServices.Retorno.ChaveNFe; NotasFiscais.FieldByName('protocolo').AsString := AcbrNfe1.WebServices.Retorno.Protocolo; NotasFiscais.FieldByName('recibo').AsString := AcbrNfe1.WebServices.Retorno.Recibo; //NotasFiscais.FieldByName('statusnfe').AsString := ACBrNFe1.WebServices.Consulta.cStat; NotasFiscais.FieldByName('motivo').AsString := ACBrNFe1.WebServices.Retorno.XMotivo; NotasFiscais.Post; if ACBrNFe1.NotasFiscais.Items[0].Confirmada then Begin ACBrNFe1.NotasFiscais.Clear; end; end; Showmessage('Nota Fiscal Eletrônica enviada com sucesso!!!'); end;

Não sabia que era pirata até me falarem. Não irei comprar sendo pirata, vou investir em algo seguro, pelo site deles mesmo. A versão standard dá para comprar; Valeu pela resposta. Abçs

Obrigado pessoal pelas respostas.

Entrei no site www.fast-report.com e fui comprar: Tem as opções: .Net(Visual Studio) VCL (Embarcadero RAD Studio) Cross Plataform FastReport.Desktop Acredito que seja VCL (Embarcadero RAD Studio) e segui adiante FastReport 5 VCL e tem 3 botões Standard Professional Enterprise Qual deles devo comprar?

Entendi. Não irei comprar no mercado livre. Vou investir. Obrigado Juliomar. Enquanto isso vou instalar o Fortes Report. Obrigado.

Bom dia, oDelphi que uso é o 2010 Architect e o sistema operacional é o windows 10. Estou tendo dificuldades na instalação do Fortes Report, pelo forum normal descobri que ele é pago e fui no site do Fast, porem achei caro e havia muitas opções Então foi no mercado livre e encontrei uma opção Fastreport Vcl V5.4.6 Pro D7 - D10.1 Berlin Fonte Completo R$ 65 https://lista.mercadolivre.com.br/fastreport-5.6 Posso comprar esse?

Encontrei uma opção no mercado livre https://lista.mercadolivre.com.br/fastreport-5.6 Fastreport Vcl V5.4.6 Pro D7 - D10.1 Berlin Fonte Completo R$ 65 posso comprar esse?

Sim, só que tem várias opções: VCL Cross Plataform Desktop Qual devo comprar? P A versão standard custa 199 euros. Deve chegar então a mais de 600,00 reais. Começa a pesar no bolso. Professional 299 euros Enterprise 399.euros

Juliomar, bom dia. A versão do Delphi é 2010. Para complicar nem o FastReport está instalado. Só possuo o Rave. Quanto ao Fortes estou tentando ainda. Como faço para tambem instalar o FastReport? Abçs

Juliomar, não estou conseguindo instalar o Fortes. Pesquisei um tutorial 1. Baixe a ultima versão do Forte Report no endereço: https://github.com/fortesinformatica/fortesreport-ce, você pode escolher baixar o arquivo .zip para seu computador utilizando a opção “donwload zip” ou baixar usando GIT ou SVN, o processo é o mesmo para baixar o ACBr se usado o SVN, você cria uma pasta, clica com o botão direito nela, checkout e informa o endereço. 2. Com o Fortes em mãos, abra o Delphi; Clique em abrir e navegue até o diretório onde está sua cópia do Fortes, entre na pasta “\trunk\Packages” Não encontrei a pasta trunk\Packages. Poderia me auxiliar?

Juliomar, obrigado pela resposta. Refiz os passos e aparece agora. Surgem erros relativos ao Fortes. Vou instalar e qualquer coisa informo. Abçs

Bom dia, Há tempos consegui gerar uma nota fiscal eletrônica pelo Acbr, atualmente estou tentando retomar e a instalação não contem a pasta FONTES/ACBRNFE2, para que eu possa rigorosamente seguir as instruções. Estou usando o win 10 de 64bits e o delphi 2010. Obs: o AcbrNfe não apareceu na primeira instalação, nem a referida pasta, tive que zerar tudo e resinstalar e mesmo assim persiste o problema. Desde já obrigado.

Maricelo, boa tarde Não consegui baixar consulta-cnpj.rar Diz que esta corrompido. Poderia enviar para [email protected]? Desde já, obrigado.

Anfm, deu tudo certo. Muito obrigado.

Anfm, obrigado mais uma vez pela atenção. Atualizei os fontes. Na segunda irei instalar o executavel na empresa. Acredito que dará certo agora. Darei um retorno assim que possivel.

Prezados colegas, Estou usando o acbr na versão mais atual, a 2.0 para o estado de Pernambuco e na homologação esta ok. Ao colocar em modo de produção dá o erro de: WebServices 2.0 Não liberado pelo estado Ja entrei em contato com a receita e eles disseram que a empresa ja esta credenciada e ja roda a versão 2.0. Será que são os Schemas que devo atualizar? Desde já agradeço a atenção.

Anfm, Obrigado pela atenção. Esclareceu minha duvida. Um abraço.

Acabei resolvendo, mas acho estranho. Coloquei : Prod.IndTot := TpcnIndicadorTotal(1); e armazenou o 0 que pretendia. Mas estranho ainda é que coloco valores diferentes e deveria haver restrição, mas não acontece. O valor do frete deveria ser somado ao total da nota. Em ambas as situações no indtot = 0 ou indtot = 1 nada se altera Conforme o xml em anexo. 26101210814656000100550010000000671000000670-nfe.xml 26101210814656000100550010000000681000000686-nfe.xml

Prezados colegas, estou fazendo testes na homologação No xml esta armazenando o valor 1 conforme as tags a seguir 1 Entretanto gostaria que fosse armazenado o valor 0 Coloquei assim no código: Prod.IndTot := TpcnIndicadorTotal(0); E registra 1. Como devo fazer? Desde ja, obrigado

Paulo, coloque no seu anexo o xml, para que se possa dar uma olhada.

Anfm, tem razão. São 5 campos. Mas consegui resolver. Era problema na minha tabela de Tipos de emissão. Obrigado.

Prezados colegas, no xml não esta ficando a forma que desejo que seria contingencia. estou efetuando testes e só fica no xml igual a 3, mesmo mudando sempre. E no manual de integração só pode 1 ou 2. 1-Normal 2-Contingencia Coloquei assim no código: Ide.tpEmis := NotasFiscais.FieldByName('TipoEmissao').Value; Como esta no Xml: Desde ja, obrigado 26101110814656000100550010000000333000000330-nfe.xml