marcellocainelli

André, Era isso que eu estava precisando. Mesmo analisando o SATTeste não tinha conseguido chegar a esse código. Obrigado aos dois - André e Daniel pela resposta rápida e eficiente como sempre. Marcello.

Prezados, Após o comando ACBrSAT.EnviarDadosVenda como faço para pegar os dados de retorno do SAT ? Numero do Cfe, chave e recibo (se houver) ? Obrigado, Marcello Cainelli Doutor Byte Sistemas

Deu Certo, obrigado pela atenção!

Juliomar bom dia! Tem alguma posição?

Olá, bom vamos ver se alguém pode me ajudar! Troquei de micro, formatei, instalei o windows 7, com serial original que tenho, instalei o delphi 2010 original, e instalei todos os componente como sempre fiz, inclusive os componentes do ACBr. mandei abri o exemplo do componente ACBrConvenio115 sem alterar nada. da o seguinte erro: [DCC Fatal Error] Convenio115Exemplo.dpr(6): F1026 File not found: 'Vcl.Forms.dcu' mandei procurar por este arquivo no micro, não existe. abro meu projeto que utiliza o componente ACBrConvenio115 mando copilar do o seguinte erro: [DCC Fatal Error] ToolsAPI.pas(17): F1026 File not found: 'DockForm.dcu' mando procurar por este arquivo no micro, não existe. criei um projeto novo no delphi, depois adicionei todos os formulario do meu projeto, mando copilar da o seguinte erro: [DCC Fatal Error] ToolsAPI.pas(17): F1026 File not found: 'DockForm.dcu' criei um projeto novo no delphi, mando copilar copila sem erros, coloco o componente ACBrConvenio115 mando copilar da o seguinte erro: [DCC Fatal Error] ToolsAPI.pas(17): F1026 File not found: 'DockForm.dcu' segue o caminho de todas as minhas libray C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\Quickrep505;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\lib\QR505;d:\componentes\delphi 2010\rdprint\componentes deltress - ficha 650278;C:\ACBr\Fontes\ACBrBoleto;C:\ACBr\Fontes\ACBrBoleto\Logos;C:\ACBr\Fontes\ACBrBoleto\Logos\Colorido;C:\ACBr\Fontes\ACBrBoleto\Logos\PretoBranco;C:\ACBr\Fontes\ACBrCapicom;C:\ACBr\Fontes\ACBrComum;C:\ACBr\Fontes\ACBrConvenio115;C:\ACBr\Fontes\ACBrCTe;C:\ACBr\Fontes\ACBrDiversos;C:\ACBr\Fontes\ACBrDiversos\ACBrFalaWaves;C:\ACBr\Fontes\ACBrGNRE;C:\ACBr\Fontes\ACBrLFD;C:\ACBr\Fontes\ACBrMDFe;C:\ACBr\Fontes\ACBrNFe2;C:\ACBr\Fontes\ACBrNFSe;C:\ACBr\Fontes\ACBrPAF;C:\ACBr\Fontes\ACBrSAT;C:\ACBr\Fontes\ACBrSEF2;C:\ACBr\Fontes\ACBrSerial;C:\ACBr\Fontes\ACBrSintegra;C:\ACBr\Fontes\ACBrSPED;C:\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\ACBr\Fontes\ACBrTCP;C:\ACBr\Fontes\ACBrTEFD;C:\ACBr\Fontes\Imagens;C:\ACBr\Fontes\PCN2;C:\ACBr\Fontes\SintegraSultan;C:\ACBr\Fontes\synalist;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\bin;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\lib;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\lib\Indy10;C:\Users\Public\Documents\RAD Studio\7.0\Dcp;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\include;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\RaveReports\Lib;D:\Componentes\Delphi 2010\Jedi\jcl\lib\d14;D:\Componentes\Delphi 2010\Jedi\jcl\source\include;D:\Componentes\Delphi 2010\Jedi\jvcl\lib\D14;D:\Componentes\Delphi 2010\Jedi\jvcl\common;D:\Componentes\Delphi 2010\Jedi\jvcl\Resources;D:\Componentes\Delphi 2010\Jedi\jvcl\run;D:\Componentes\Delphi 2010\RxLib\Units;D:\Componentes\Delphi 2010\wtsfocuscolor;C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\source\ToolsAPI;D:\Componentes\Delphi 2010\TMS\TMS Component pack v5.5.4.1;D:\Componentes\Delphi 2010\Zip\ZipMaster19 veja outra pessoa que esta tendo o mesmo problema que eu: Gente não estou ficando loco, ja fiz de tudo, troquei o micro, troque a versao do windows, e quando mando copilar só da erro no componente do convenio, até o exemplo que vem do acbr esta dando erro. agradeço desde já a quem me ajudar, pois estou precisando! obrigado!

OK Entendi, peço desculpa pela ignorância. aguardo um pronunciamento de vocês.

André, você tem razão este arquivo existe sim na pasta do delphi 7, porem eu uso o delphi 2010. Juliomar, qual post você se refere, o que vc falou acima com o andre? se sim: eu já apaguei a pasta do acbr inteira e baixei ela novamente, sem contar que formatei o micro e ele esta limpinho. se não: não sei qual post você esta se referindo.

Exatamente eu baixei o acbr inteiro, esta tudo novinho e esta dando este erro. ele reclama que não encontrou o arquivo 'designintf.dcu' só disse que no arquivo ACBrConvenio115.pas tem uma linha nova com a referencia para o arquivo {$I ACBr.inc} bom enfim, algum tem uma ideia?

Olá boa tarde! estamos com o seguinte problema: formatei o meu micro, instalei o Windows 8 64 bits instalei o Acbr pelo Instalador até ai tudo normal, quando vou copilar minha aplicação da o seguinte erro: [DCC Fatal Error] ACBrConvenio115.pas(61): F1026 File not found: 'DesignIntf.dcu' notei que o arquivo ACBrConvenio115.pas sofreu alterações, agora ele tem uma linha nova no inicio {$I ACBr.inc} pesquisei por este arquivo no micro inteiro e não tenho ele em lugar nenhum, em um micro do outro desenvolvedor da empresa, também não existe este arquivo, porem o delphi dele não da erro porque o acbr não esta atualizado recentemente. Pensei que fosse o windows 8 o problema, formatei o micro e voltei o Windows 7 e mesmo assim o problema persiste. desde já agradeço a quem me ajudar.

Bom dia Juliomar. Sim utilizei o ACBrInstall. Tentei agora adicionar manualmente no uses dsnap200 mas dai da erro no instalador. Vc pode postar como esta o uses do seu ACBrNfeDanfeRVCodeBase.dpk ?

Também estou com problemas com o Rave, no pacote ACBrNfeDanfeRVCodeBase. Executo o instalador do ACBR (última versão atualizada hoje do SVN), não ocorre nenhum erro, mas ao abrir o Delphi vem o erro: - Já adicionei ao uses do .dpk Rave110VCL; - Já desinstalei tudo e reinstalei e o erro persiste. - Já tentei ignorar o erro mas ao tentar acessar a Nfe em meu sistema da Access Violation. Antes de incluir nos uses dos pacotes Rave110VCL eu estava com 2 erros, então suspeito que falta mais alguma coisa para incluir. Alguma idéia ? Obrigado, Marcello Cainelli Doutor Byte Sistemas

Prezados, Gostaria em primeiro lugar de parabenizar o colega Jose Roberto dos Santos pela iniciativa. Testando pelo D2010 identifiquei alguns memory leaks no código: - procedure TCCeImp.impBoxMemo - não destruiu o objeto Linhas; - destructor Destroy; - faltou o override; Inclui também alguns Try/Finally nos objetos criados para proteger o código. Segue anexo a rotina. Espero ter ajudado. Marcello. VMXCCePrint.pas

Muito obrigado André. Abraço, Marcello.

Prezados, Tenho tido alguns problemas para pegar o retorno em clientes com internet muito lenta. Pesquisando a respeito no forum vi alguns posts comentando sobre as propriedades: ACBrNFe1.Configuracoes.WebServices.AguardarConsultaRet := 15000; ACBrNFe1.Configuracoes.WebServices.IntervaloTentativas := 1000; ACBrNFe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := true; Gostaria de saber para que servem as mesmas e se os valores padrões que estão no demo são os mais recomendados. Obrigado, Marcello.

Olá, estou um tanto quanto perdido com esse boleto o banco os analistas no bradesco me retornaram o seguinte e-mail: Agradecemos seu e-mail. Deverá colocar no arquivo posição 27 a 46 código da empresa (perfil), colocar carteira, posição 21 a 24; agência, posição 25 a 29 (sem digito); conta, posição 30 a 37 (com digito); transmitir e arquivo e aguardar o retorno, pois só analisamos as principais posições. Colocamo-nos à disposição. Para mais esclarecimentos, entre em contato conosco de segunda à sexta-feira das 07:00 às 20:00 horas no telefone 3003-1000 para Capitais e regiões metropolitanas, demais regiões (0XX) DDD 3003-1000 ou através do e-mail. BANCO BRADESCO S.A 4252 / Departamento de Serviços Centralizados Suporte Pessoa Jurídica Simone de Sena eu preenchi todas as informações que estão reclamando acima e mesmo assim no arquivo remessa não esta sendo geradas, segue o meu código abaixo: with DtCadastro, DtCadastro2, DtCadastro3 do begin try ACBrBoleto.ListadeBoletos.Clear; HabDes; Pr.Position:= 0; Pr.Max:=CDSBoleto.RecordCount; RefreshTable(CDSContasB, 'SELECT * FROM BANCO WHERE CODIGO =:CODIGO',CDSParametrosCOD_USUARIO.AsInteger); case CDSContasBTIPO_BANCO.AsInteger of 1 : ACBrBoleto.Banco.TipoCobranca:= cobBancoDoBrasil; 2 : ACBrBoleto.Banco.TipoCobranca:= cobBradesco; 3 : ACBrBoleto.Banco.TipoCobranca:= cobCaixaEconomica; 4 : ACBrBoleto.Banco.TipoCobranca:= cobItau; 5 : ACBrBoleto.Banco.TipoCobranca:= cobSantander; end; if CDSContasBCOMPROV_ENTREGA.AsString = 'T' then ACBrBoleto.ComprovanteEntrega := True else ACBrBoleto.ComprovanteEntrega := False; if CDSContasBIMP_MARGEM_PADRAO.AsString = 'T' then ACBrBoleto.ImprimirMensagemPadrao:= True else ACBrBoleto.ImprimirMensagemPadrao := False; if CDSContasBLAYOUT_REMESSA.AsString = '240' then ACBrBoleto.LayoutRemessa := c240 else ACBrBoleto.LayoutRemessa := c400; if CDSContasBIMP_MARGEM_PADRAO.AsString = 'T' then ACBrBoleto.ImprimirMensagemPadrao:= True else ACBrBoleto.ImprimirMensagemPadrao := False; with ACBrBoleto.Cedente do begin Agencia:= CDSContasBAGENCIA.AsString; AgenciaDigito:= CDSContasBAGENCIADIGITO.AsString; Bairro:= CDSContasBBAIRRO.AsString; CEP:= RemoveChar(CDSContasBCEP.AsString); Cidade:= CDSContasBCIDADE.AsString; CNPJCPF:= RemoveChar(CDSContasBCNPJ.AsString); CodigoCedente:= CDSContasBCODIGOCEDENTE.AsString; CodigoTransmissao:= CDSContasBCOD_TRANSMISSAO.AsString; Complemento:= CDSContasBCOMPLEMENTO.AsString; Conta:= CDSContasBCONTA.AsString; ContaDigito := CDSContasBCODIGODIGITO.AsString; Convenio:= CDSContasBCONVENIO.AsString; Logradouro:= CDSContasBENDERECO.AsString; Modalidade:= CDSContasBMODALIDADE.AsString; Nome:= CDSContasBNOME_CEDENTE.AsString; UF:= 'SP'; case CDSContasBRESP_EMISSAO.AsInteger of 4 : ResponEmissao:= tbBancoEmite; 3 : ResponEmissao:= tbBancoNaoReemite; 2 : ResponEmissao:= tbBancoReemite; 1 : ResponEmissao:= tbCliEmite; end; end; ACBrBoletoFCFortes.DirLogo:= CaminhoSistema+'Imagens'; ACBrBoletoFCFortes.DirArqPDF_HTML:= EdCaminhoArquivoPDF.Text; ACBrBoletoFCFortes.SoftwareHouse:= 'Sistema ByteFactory - Desenvolvido por: doutor byte sistemas (14)3554-1079 - Cafelandia/SP '; if CDSContasBMOST_PROCESSO.AsString = 'T' then ACBrBoletoFCFortes.MostrarPreview:= True else ACBrBoletoFCFortes.MostrarPreview := False; if CDSContasBMOST_SETUP.AsString = 'T' then ACBrBoletoFCFortes.MostrarSetup:= True else ACBrBoletoFCFortes.MostrarSetup := False; DsBoleto.Enabled:= False; CDSBoleto.First; while not CDSBoleto.Eof do begin Pr.Position:= Pr.Position + 1; Application.ProcessMessages; if (CDSBoletoGERA.AsBoolean) then begin if Tipo in [2] then ACBrBoleto.ListadeBoletos.Clear; Titulo := ACBrBoleto.CriarTituloNaLista; with Titulo do begin Vencimento := CDSBoletoDT_VENCIMENTO.AsDateTime; DataDocumento := CDSBoletoDT_GERADA.AsDateTime; NumeroDocumento := RemoveChar(CDSBoletoDOCUMENTO.AsString); NossoNumero := CDSBoletoCODIGO.AsString; EspecieDoc := CDSContasBESPECIE_DOC.AsString; EspecieMod := CDSContasBESPECIE_MOEDA.AsString; if CDSContasBACEITA.AsString = 'S' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; Carteira := CDSContasBCARTEIRA.AsString; ValorDocumento := CDSBoletoVALOR.AsCurrency; Sacado.NomeSacado := CDSBoletoCLIENTE.AsString; Sacado.CNPJCPF := RemoveChar(CDSBoletoCPF_CNPJ.AsString); Sacado.Logradouro := CDSBoletoENDERECO.AsString; Sacado.Numero := CDSBoletoEND_NUM.AsString; Sacado.Bairro := CDSBoletoBAIRRO.AsString; Sacado.Cidade := CDSBoletoCIDADES.AsString; Sacado.UF := CDSBoletoUF.AsString; Sacado.CEP := RemoveChar(CDSBoletoCEP.AsString); ValorAbatimento := CDSBoletoVALOR.AsCurrency; LocalPagamento := 'Pagar preferêncialmente nas agências deste Banco'; ValorMoraJuros := CDSContasBJUROS.AsCurrency; ValorDesconto := 0; ValorAbatimento := 0; if CDSContasBDIAS_MULTA.AsInteger > 0 then DataMoraJuros := CDSBoletoDT_VENCIMENTO.AsDateTime; if CDSContasBDIAS_PROTESTO.AsInteger > 0 then DataProtesto := CDSBoletoDT_VENCIMENTO.AsDateTime + CDSContasBDIAS_PROTESTO.AsInteger; PercentualMulta := CDSContasBPERCENT_MULTA.AsCurrency; Mensagem.Text := CDSContasBMENSAGEM.AsString; OcorrenciaOriginal.Tipo := toRemessaBaixar; end; //Gera PDF if Tipo in [2] then begin if FileExists(EdCaminhoArquivoPDF.Text +'\'+CDSBoletoCOD_CLI.AsString +'.pdf') then DeleteFile(EdCaminhoArquivoPDF.Text +'\'+CDSBoletoCOD_CLI.AsString +'.pdf'); ACBrBoleto.ACBrBoletoFC.NomeArquivo := CDSBoletoCOD_CLI.AsString +'.pdf'; ACBrBoleto.GerarPDF; end; end; CDSBoleto.Next; end; if Tipo in [1] then ACBrBoleto.Imprimir; if Tipo in [3] then begin ACBrBoleto.DirArqRemessa:= EdCaminhoArquivoRemessa.Text+'\'; ACBrBoleto.NomeArqRemessa:= GerarNomeArquivo; ACBrBoleto.GerarRemessa(1); end; finally DsBoleto.Enabled:= True; HabDes; end; end; seque em anexo o arquivo remessa Por gentileza desde já agradeço a quem me ajudar! [email protected] CB2004A1.rar

Estou enviando boleto para o banco bradesco, ele pede para preecher o campo "Perfil", gostaria de saber qual campo no ACrb representa o campo que estou precisando.

Obrigado, Regis. Só complementando tive que alterar o ACBrNFeDanfeRV.dpk através do bloco de notas, pois o Delphi não abria o arquivo. Abraço, Marcello.

Prezados, estou com o mesmo problema e vou insistir na pergunta do DrLeite: estou usando o Delphi 2010 => RAVE77VCL onde devo informar? qual arquivo devo alterar? Obrigado, Marcello.

Prezados, Na medida que desenvolvo meus registros do sped pis/cofins venho fazendo uma unit para conversão dos tipos enumerados, no estilo do pcnConversao (inclusive utilizando suas funções). Estou anexando o mesmo para que possa ser adicionado ao projeto e melhorado/complementado pelos colegas. Marcello spedPisCofinsConversao.pas

Prezados, Acredito que a solução seria adicionar um construtor para a classe TProtNFeCollectionItem = class(TCollectionItem) com valores padrões. Tipo cStat = 0. E se retornar 0 poderiamos tratar como sem acesso a internet. Marcello.

Debugando o código na function TNFeRetRecepcao.Executar constatei que se eu desligar a internet o erro ocorre na linha ReqResp.Execute(Acao.Text, Stream); . Continuando o debug o erro ocorreu na function TProtNFeCollection.GetItem(Index: Integer): TProtNFeCollectionItem; begin Result := TProtNFeCollectionItem(inherited GetItem(Index)); end; Admito que não sei como corrigir. Marcello.

Prezados, Com relação ao problema citado pelo colega, percebi que se cai a internet na hora do comando ACBrNFe.WebServices.Retorno.Executar ocorre o erro citado. Dai não é possivel pegar o cStat e o XML não é gravado na máquina. Marcello.

Prezados, Gostaria de implementar uma classe para NFe usando o ACBrNFe e ACBrNfeDanfeRave. Ocorre que se mantenho estes componentes em um DM funciona tudo perfeitamente, mas se tento implementá-los na classe tenho access violation ao tentar imprimir o danfe e gerar email. Imagino que deva ser um problema na criação dos componentes em runtime. Fiz assim: type TNotaFiscalEletronica = class private fACBrNfe: TACBrNFe; //Componente gera e transmite a NFe fACBrNfeDanfeRave: TACBrNFeDANFERave; //Componente que emite o Danfe procedure NFeStatusChange(Sender: TObject); public constructor Create; virtual; destructor Destroy; override; property ACBrNfe: TACBrNFe read fACBrNfe write fACBrNfe; property ACBrNfeDanfeRave: TACBrNFeDANFERave read fACBrNfeDanfeRave write fACBrNfeDanfeRave; end; constructor TNotaFiscalEletronica.Create; begin If not Assigned(ACBrNfe) then ACBrNfe:= TACBrNFe.Create(nil); If not Assigned(ACBrNfeDanfeRave) then ACBrNfeDanfeRave:= TACBrNFeDANFERave.Create(nil); With ACBrNfe do begin Configuracoes.Certificados.NumeroSerie:= ArqIni.ReadString('NOTAFISCALELETRONICA','Certificado',''); Configuracoes.Geral.PathSalvar:= ArqIni.ReadString('NOTAFISCALELETRONICA','PathSalvar',''); Configuracoes.WebServices.UF:= 'SP'; Configuracoes.WebServices.AguardarConsultaRet:= 0; Configuracoes.WebServices.IntervaloTentativas:= 1000; Configuracoes.WebServices.AjustaAguardaConsultaRet:= False; Configuracoes.WebServices.Ambiente:= StrToTpAmb(Ok,ArqIni.ReadString('NOTAFISCALELETRONICA','Ambiente','2')); Configuracoes.Arquivos.Salvar := True; Configuracoes.Arquivos.EmissaoPathNFe := True; Configuracoes.Arquivos.PastaMensal := True; Configuracoes.Arquivos.PathNFe := IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Nfe'); Configuracoes.Arquivos.PathCan := IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Can'); Configuracoes.Arquivos.PathInu := IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Inu'); Configuracoes.Arquivos.PathDPEC:= IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Dpec'); OnStatusChange:= NFeStatusChange; DANFE:= ACBrNfeDanfeRave; DANFE.Logo:= ArqIni.ReadString('NOTAFISCALELETRONICA','LogoMarca',''); end; with ACBrNfeDanfeRave do begin ACBrNFe:= ACBrNFe; PathPDF:= '.\PDF\'; MostrarPreview:= True; MostrarStatus:= True; TipoDANFE:= tiRetrato; NumCopias:= 1; ImprimirDescPorc:= False; ImprimirTotalLiquido:= False; MargemInferior:= 0.800000000000000000; MargemSuperior:= 0.800000000000000000; MargemEsquerda:= 0.600000000000000000; MargemDireita:= 0.510000000000000000; CasasDecimais._qCom:= 3; CasasDecimais._vUnCom:= 3; ExibirResumoCanhoto:= False; FormularioContinuo:= False; TamanhoFonte_DemaisCampos:= 10; ProdutosPorPagina:= 0; ImprimirDetalhamentoEspecifico:= True; NFeCancelada:= False; RavFile:= ExtractFilePath(Application.ExeName) + '\Report\NotaFiscalEletronica.rav'; EspessuraBorda:= 1; TamanhoFonte_RazaoSocial:= 12; end;//With end; destructor TNotaFiscalEletronica.Destroy; begin If Assigned(ACBrNfe) then begin ACBrNfe.NotasFiscais.Clear; ACBrNfe.Free; ACBrNfe:= Nil; end; If Assigned(ACBrNfeDanfeRave) then begin ACBrNfeDanfeRave:= Nil; ACBrNfeDanfeRave.Free; end; inherited; end; Agradeço antecipadamente pela atenção dos colegas, Marcello.

Prezados, Fizemos a alteração que o juliobbi citou: ThreadSMTP.smtp.AutoTLS := SSL; e jogamos na pasta do sistema as dlls libeay32.dll e ssleay32.dll e isso resolveu o problema em vários clientes que não estavamo consguindo enviar email. Marcello.

Prezados, Algum dos colegas poderia disponibilizar a string para abrir a gaveta com a impressora Elgin NIX ? Obrigado e Feliz 2011 a todos. Marcello.