automacaosamos

Estou testando os componente no ambiente Linux 64 e estou tendo esses erros. tenho mantido sempre atualizado os meus componentes. Checking project dependencies... Compiling acbrservices.dproj (Debug, Linux64) dcclinux64 command line for "acbrservices.dpr" [DCC Error] ACBrBoleto.pas(1265): E2003 Undeclared identifier: 'TPicture' [DCC Error] ACBrBoleto.pas(1456): E2005 'TPicture' is not a type identifier [DCC Error] ACBrBoleto.pas(1501): E2005 'TPicture' is not a type identifier [DCC Fatal Error] ACBrBoleto.pas(1528): F2613 Unit 'Forms' not found. Failed Elapsed time: 00:00:00.6

Obrigado, estaremos aguardando anciosamente.

Estou tendo quando compilo na plataforma Linux 64-bit, com o componente ACBrDownload, no windows 32 funciona normalmente. [DCC Hint] ACBrDownloadClass.pas(329): H2443 Inline function 'DeleteFile' has not been expanded because unit 'Posix.Unistd' is not specified in USES list [DCC Hint] ACBrDownloadClass.pas(344): H2443 Inline function 'DeleteFile' has not been expanded because unit 'Posix.Unistd' is not specified in USES list [DCC Hint] ACBrDownloadClass.pas(348): H2443 Inline function 'RenameFile' has not been expanded because unit 'Posix.Stdio' is not specified in USES list [DCC Error] ACBrDownloadClass.pas(387): E2251 Ambiguous overloaded call to 'Seek' System.Classes.pas(983): Related method: function TStream.Seek(LongInt; Word): LongInt; System.Classes.pas(985): Related method: function TStream.Seek(const Int64; Word): Int64; [DCC Error] ACBrDownloadClass.pas(394): E2251 Ambiguous overloaded call to 'Seek' System.Classes.pas(983): Related method: function TStream.Seek(LongInt; Word): LongInt; System.Classes.pas(985): Related method: function TStream.Seek(const Int64; Word): Int64; [DCC Error] ACBrDownloadClass.pas(412): E2251 Ambiguous overloaded call to 'Seek' System.Classes.pas(983): Related method: function TStream.Seek(LongInt; Word): LongInt; System.Classes.pas(985): Related method: function TStream.Seek(const Int64; Word): Int64; [DCC Error] ACBrDownloadClass.pas(416): E2251 Ambiguous overloaded call to 'Seek' System.Classes.pas(983): Related method: function TStream.Seek(LongInt; Word): LongInt; System.Classes.pas(985): Related method: function TStream.Seek(const Int64; Word): Int64; [DCC Fatal Error] F2063 Could not compile used unit 'ACBrDownloadClass.pas' obrigado

Deu certo, obrigado....

Olá, alguem ja teve esse problema ?? quando adiciono os componentes da ACBrNFE e faço todas as configuracoes, e mando compilar, tenho esse erro: [DCC Error] E2597 C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\ld-linux.exe: error: cannot find -lz C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\ld-linux.exe: error: cannot find -lxml2 Quando mudo pro ambiente windows funciona perfeito. ja atualizei meu Ubuntu ao maximo e instalei todas as dependencias. obrigado

Olá Natalia, quais linhas exatamente comentou, to com o mesmo problema,.

hoje a tarde tambem atualizei meu acbr e nao consigo mais enviar notas CSOSN500 em SP<retEnvEvento versao="1.00"> <xMotivo>Falha na validação dos dados da nota: 12732 Element '{http://www.portalfiscal.inf.br/nfe}vICMSSubstituto' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}ICMSSN500'. Expecting: {http://www.portalfiscal.inf.br/nfe}vICMSSTRet. </xMotivo> </retEnvEvento>

Olá estou tentando baixar o xml de uma nfe do fornecedor e estou recebendo essa mensagem: <?xml version="1.0" encoding="ISO-8859-1"?> <retDistDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <tpAmb>1</tpAmb> <verAplic>1.1.9</verAplic> <cStat>215</cStat> <xMotivo>Rejeicao: Falha no esquema xml</xMotivo> <dhResp>2018-08-30T16:35:22-03:00</dhResp> <ultNSU>000000000000000</ultNSU> <maxNSU>000000000000000</maxNSU> </retDistDFeInt> Já atualizei os esquema, já fiz a manifestacao da NFE recebendo o protocolo certinho estou tentando baixar da forma abaixo: ACBrNFe.DistribuicaoDFePorChaveNFe(StringToInteger(cUF, cChave,cCnpj); with ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt do begin if cStat = 138 then begin for Itens := 0 to docZip.Count - 1 do begin if docZip.Items[Itens].resNFE.chNfe = cCHAVE then begin XML := docZip.Items[Itens].XML; ArqXML := TStringStream.Create(XML); XMLDocumentNFE := TXMLDocument.Create(nil); try XMLDocumentNFE.LoadFromStream(ArqXML); XMLDocumentNFE.Active; XMLDocumentNFE.SaveToFile(cCHAVE + '-nfe.xml'); finally FreeAndNil(XMLDocumentNFE); FreeAndNil(ArqXML); end; end; end; end; end; except on e: exception do RetornoNFE('Erro ao fazer download do XML da NF-e','<retEnvEvento versao="1.00"><xMotivo>' + e.message + '</xMotivo></retEnvEvento>') end; end; end;

deu certo obrigado

Será que podia dizer quais ??

Olá instalei meu certificado A1 no windows2012/64, num servidor Citrix configurei na aplicação a trinca: ================================= SSLCryptLib := cryWinCrypt SSLHttpLib := httpWinHttp SSLXmlSignLib := xsLibXML2 NFE 4.0 Delphi Tokyo/32 Estou tendo esse erro: =========================================== WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. Erro Interno: 12029 Erro HTTP: 0 Erro: Requisição não enviada. Erro: 12029 - Conexão com o Servidor falhou Alguem passou por isso ?? No windows10/64 Não tenho nenhum problema: obrigado cido

Como poderia gerar e transmitir uma nota eletronica em um AppServer DataSnap na nuvem, sem precisar instalar o certificado A1 no cloud meu cliente quer assim, e usa o certificado A3 que fica instalado na maquina local. meu aplicativo é restfull, com base de dados na nuvem, o que faço e ter instalado localmente um servidor em backgroud que recebe um JSON e envia a nota localmente onde o certificado esta instalado. Ele não quer mais deixa o certificado A3 espetado na maquina. se fosse A1 não teria problema porque bastaria estar instalado no CLOUD. é possível ?? obrigado

Olá Pessoal. Alguem saber que tipo de certificado digital compro para usar no mORMot pra receber requisições AJAX via HTTPS ? Que tipo compro ? Como instalo ele no windows ? Se tiverem um exemplo de implementacao no mORMot agradeço. Uso Delphi Tokyo Trial + Mormot Obrigado cido

Setei o componente : .AcBrSAT.Config.infCFe_versaoDadosEnt := 0.07; usando o ACBrSAT.ConsultarStatusOperacional; ele me devolve no VER_LAYOUT o valor 00.07 porem quando gero o xml da venda ele devolve: <?xml version="1.0" encoding="UTF-8"?> <CFe> <infCFe versaoDadosEnt="0.00"> <ide> nao consigo setar a versaoDadosEnt de jeito nenhum alguem já passou por isso ?? Obrigado

AGORA NAO ACEITA MAIS ... with Registro0000New do begin COD_VER := vlVersao109; COD_FIN := raOriginal; qual seria a forma correta agora em 2017 ?? atualizei pra ultima versao nao compila mais e apresenta o erro Build [Error] Undeclared identifier: 'vlVersao109' [Error] Incompatible types: 'ACBrEFDBloco_0.TACBrCodFin' and 'U_CONSULTAS.TACBrCodFin' [Error] Undeclared identifier: 'pfPerfilB' [Error] Undeclared identifier: 'atOutros' obrigado

Nota(s) não confirmadas: 9741->Rejeição: Percentual do ICMS Interestadual para a UF de destino difere do previsto para o ano da Data de Emissão [nItem:1] AcBrNFE delphi Berlin.... alguem tá teve esse erro, ao enviar uma NFE para o estado do ACRE com cfop 6.108 ?? não achei nada que explicasse bem obrigado

puts... não vi isso... obrigado

Tinha um certificado A1 e consegui gerar o codigo de vinculacao normalmente com "Assinador - CertificadoUI.exe " agora troquei para certificado A3 e exportei pra BASE 64 fiz o upload dele no meu navegador, etc.. e tentei gerar o SignAC com diversos geradores, e alguma falam que servem para A3, todos geram o codigo normalmente mas quando faço a validação no SGR-SAT da a mensagem : "Código de vinculação é invalido" alguem tem alguma ideia do que possa ser ?? obrigado

Ola, estou tendo o mesmo problemas acima, usando o Delphi 7 sincronizei os fontes mas nao adiantou [2015-07-10 01:31:15.893]:TESTE EMITIDO COM SUCESSO [2015-07-10 01:31:36.722]:INICIO ASSOCIAR ASSINATURA [2015-07-10 01:31:36.737]:ASSOCIADO COM SUCESSO [2015-07-10 01:32:30.393]:ERRO: Codigo de Ativacao Invalido vcs tem alguma dica, no caso do delphi 7 ?? Obrigado

Boa Tarde! Estou gerando os boletos do pelo ACBr para o banco Sicoob. Porem preciso salvar em meu banco de dados o nosso numero e o digito verificador, mas não encontrei nenhum função que me retorne estes campos. Alguém saberia me dizer como faco para pegar estes campos? Desde já agradeço.

Olá Estou tentando faze uma nota de complemento de icms mais esta dando erro de forbidden (403) - Eu tentei mandar na tag finNFe := fnAjuste depois fnComplementar. Nao vai com nenhum dos dois Alguem saberia me dizer oque fazer? Dede ja agradeço

Isaque Pinheiro o meu codigo é este": Abre_CadEmpSql('SELECT * FROM CADEMP WHERE ((EMPCOD = ' + QuotedStr('00001') + ') or (EMPCOD = ' + QuotedStr('00002') + ')) order by EMPCNP'); with ACBrSPEDPisCofins1.Bloco_D do begin with RegistroD001New do begin F_DATMOD.TB_CADEMP.First; while not F_DATMOD.TB_CADEMP.Eof do begin QueryMestre.Close; QueryMestre.Unprepare; QueryMestre.sql.Text := 'select caden1.*,cadtri.* from CADEN1 ' + 'join CADTRI on CADTRI.TRICOD = CADEN1.ENTTRI ' + ' where entemp = ' + QuotedStr(F_DATMOD.TB_CADEMP.FindField('EMPCOD').AsString) + ' and ENTTIP = ' + QuotedStr('NFE') + ' and ENTDTR between ' + QuotedStr(DataPonto(dxDateEditEMIPISCOF.Text)) + ' and ' + QuotedStr(DataPonto(dxDateEditATEPISCOF.Text)) + ' and ' + '((entcan <> ' + QuotedStr('C') + ') or (ENTCAN IS NULL))' + ' and ((tricfo = ' + QuotedStr('1.353') + ') OR (tricfo = ' + QuotedStr('2.353') + '))' + ' order by ENTNUM,ENTDTR '; QueryMestre.Open; if QueryMestre.IsEmpty then IND_MOV := imSemDados else begin IND_MOV := imComDados; with RegistroD010New do begin CNPJ := F_DATMOD.TB_CADEMP.FindField('EMPCNP').AsString; QueryMestre.First; M_REGISTROS := QueryMestre.RecordCount; while not QueryMestre.Eof do begin with RegistroD100New do begin IND_OPER := '0'; IND_EMIT := iedfTerceiro; COD_PART := 'F' + QueryMestre.FindField('ENTFOR').AsString; if not StrEmpty(QueryMestre.FindField('ENTNFE').AsString) then COD_MOD := '57' else COD_MOD := '08'; COD_SIT := sdfRegular; SER := QueryMestre.FindField('ENTSER').AsString; SUB := ''; NUM_DOC := QueryMestre.FindField('ENTDIG').AsString+QueryMestre.FindField('ENTNUM').AsString; CHV_CTE := QueryMestre.FindField('ENTNFE').AsString; DT_DOC := StrToDate(QueryMestre.FindField('ENTDTE').AsString); DT_A_P := StrToDate(QueryMestre.FindField('ENTDTR').AsString); TP_CT_e := '0'; CHV_CTE_REF := QueryMestre.FindField('ENTNFE').AsString; VL_DOC := QueryMestre.FindField('ENTVLN').AsFloat; VL_DESC := QueryMestre.FindField('ENTDSC').AsFloat; IND_FRT := tfPorContaDestinatario; VL_SERV := QueryMestre.FindField('ENTVLN').AsFloat; VL_BC_ICMS := QueryMestre.FindField('ENTBIC').AsFloat; VL_ICMS := QueryMestre.FindField('ENTVIC').AsFloat; VL_NT := 0; COD_INF := ''; COD_CTA := ''; end; QueryItens.Close; QueryItens.Unprepare; QueryItens.sql.Text := 'select CADEN2.*,CADPRO.*,CADTRI.*,CADSLD.* from CADEN2 ' + 'join CADPRO on CADPRO.PROCOD = CADEN2.ENTPRO ' + 'join CADTRI on CADTRI.TRICOD = CADEN2.ENTTRI ' + 'join CADSLD on CADSLD.SLDEMP = CADEN2.ENTEMP AND CADSLD.SLDPRO = CADEN2.ENTPRO' + ' where ENTEMP = ' + QuotedStr(QueryMestre.FindField('ENTEMP').AsString) + ' and ' + 'ENTTIP = ' + QuotedStr(QueryMestre.FindField('ENTTIP').AsString) + ' and ' + 'ENTNUM = ' + QuotedStr(QueryMestre.FindField('ENTNUM').AsString) + ' and ' + 'ENTSER = ' + QuotedStr(QueryMestre.FindField('ENTSER').AsString) + ' and ' + 'ENTFOR = ' + QuotedStr(QueryMestre.FindField('ENTFOR').AsString) + ' order by ENTORD '; QueryItens.Open; M_REGISTROS1 := QueryItens.RecordCount; QueryItens.First; while not QueryItens.Eof do begin with RegistroD101New do //Inicio Adicionar os Itens: begin VL_ITEM := QueryItens.FindField('ENTVLI').AsFloat; IND_NAT_FRT := nfcCompraGeraCred; CST_PIS := stpisOperCredExcRecTribMercInt; //50 VL_BC_PIS := QueryItens.FindField('ENTVLI').AsFloat; ALIQ_PIS := QueryItens.FindField('PROAPI').AsFloat; VL_PIS := MRound(QueryItens.FindField('ENTVLI').AsFloat * (QueryItens.FindField('PROAPI').AsFloat * 0.01),2); NAT_BC_CRED := bccAqServUtiComoInsumo; COD_CTA := ''; end; with RegistroD105New do //Inicio Adicionar os Itens: begin VL_ITEM := QueryItens.FindField('ENTVLI').AsFloat; IND_NAT_FRT := nfcCompraGeraCred; CST_COFINS := stcofinsOperCredExcRecTribMercInt; //50 VL_BC_COFINS := QueryItens.FindField('ENTVLI').AsFloat; ALIQ_COFINS := QueryItens.FindField('PROACO').AsFloat; VL_COFINS := MRound(QueryItens.FindField('ENTVLI').AsFloat * (QueryItens.FindField('PROACO').AsFloat * 0.01),2); NAT_BC_CRED := bccAqServUtiComoInsumo; COD_CTA := ''; end; dxfProgressBarPisCof_2.Position:= trunc((QueryItens.Recno / M_REGISTROS1)*100); QueryItens.Next; end; dxfProgressBarPisCof_3.Position:= trunc((QueryMestre.Recno / M_REGISTROS)*100); QueryMestre.Next; end; end; end; F_DATMOD.TB_CADEMP.Next; end; end; end;

Ola. Estou gerando o pis e cofins mais o bloco D nao gera. Alimento ele conta dados mais nao gera. O arquivo é com matriz e filial. Alguem saberia me dizer o pq nao gera? Desde ja agradeco

Era isso mesmo....nao tinha visto mais tinha um produto que estava sem o codigo ANP...Muito Obrigado Isaque Pinheiro

Olá. Mando nota de lubrificantes. Mando tbm os campos que sao pedidos agora que sao cProdANP e UFcons. Mas mesmo assim ele retorna o seguinte erro : Rejeicao: CFOP de Combustivel e nao informado grupo de combustivel da NFE. Oque mais devo mandar pra nao dar erro? Desde ja agradeco