Mauricio Andrade

Caros, Algumas prefeituras, integram via site o lote por XML, exemplo Nota Carioca/RJ, Niteroi/RJ e outras Não consigo gerar um lote com vários RPSs, alguém pode ajudar? PS: eu vi um poste do Italo dizendo: ACBrNFSe1.NotasFiscais.Items[qryExporta.RecNo-1].SaveToFile; Não consegui fazer funcionar, só insere a primeira RPS Mais a quantidade no XML <- informa a quantidade certa.. exemplo 11 Agradeço Maurício Andrade

Italo, Tentei fazer isso para adicionar + de 1 RPS , mais não estou conseguindo fazer funcionar.. Abs

Boa tarde, Meu sistema gera a RPS, como faço para só gerar o Lote e Envia-lo.. Agradeço

Dá o seguinte erro: Communication erro 2: o sistema não pode encontrar o arquivo especificado. Alguém pode me ajudar? Agradeço Maurício

Boa tarde Isaque, Não teve jeito, tive que usar o RLBoleto, pois o ACBrBoleto no D6 não funciona mesmo...obrigado Vê se pode me ajudar, o NFe PastaMensal = true ... dá erro , pois cria a pasta exemplo '201304' + não salva a XML dentro Abraços Mauricio Andrade

Isaque, Não tenho como subir para D7 pois utilizo o Zeos ... aquele que era tudo separado..imagine mudar todos os nossos programas, deixa eu te falar, a vs 0.0.031 funcionava corretamente, mais o conceito de cancelamento da DANFe era outro no pacote , por isso tive que mudar a vs por causa da DANFe... tentei colocar a vs do boleto 0.0.31 com a vs atual da DANFe, mais acontece a mesma coisa... que faço ?

quando rodo o programa, dá erro: if Result = grOK then begin SqlBuffer.CopyRecord(SqlBuffer[CurRec], PRecordData(Buffer), True); with PRecordData(Buffer)^ do //<- aqui da erro BookmarkFlag := bfCurrent; GetCalcFields(Buffer); end else if (Result = grError) and DoCheck then DatabaseError(SNoMoreRec);

bom dia Isaque, Instalei até o D6 do zero, mais sem alguma coisa haver com o zeos do mysql...será que nas units do boleto tem alguma coisa de bd , pois acho que tem haver... abs

Isac, Deu erro conforme o log...ao compilat o openssl abs log_Delphi_6.txt

vou fazer do zero...mesmo assim preciso excluir a unit ACBrBase ? vou fazer , assim que tiver noticia te digo... Obrigado

no ABCrBase...auterei... procedure TACBrInformacoes.LoadFromFile(AFileName : String) ; var I : Integer ; SL : TStringList ; begin SL := TStringList.Create; try Clear; SL.LoadFromFile( AFileName ); For I := 0 to SL.Count-1 do //AddField( SL.Names[ I ], SL.ValueFromIndex[ I ] ); //a que estava mauricio AddField( SL.Names[ I ], SL.Values[ SL.Names ] ); //mudei mauricio finally SL.Free; end ; end ; pois ValueFromIndex <- não funciona no D6

ACBrcomum, ACBrdiversos, ACBrserial - install sysnapse ,ACBr openssl , ACBrcopicon - compilei ACBrnfe2, ACBrNFeDanfeRLpkg - install ACBrboleto e ACBr_BoletoFC_Fortes - install acho que foi isso...agradeço

boa tarde Juliana, Sim , confirme abaixo: case qryFaturas.fieldbyname('cod_banco').AsInteger of 1 : Banco.TipoCobranca := cobBancoDoBrasil; 33 : Banco.TipoCobranca := cobSantander; 41 : Banco.TipoCobranca := cobBanrisul; 104: Banco.TipoCobranca := cobCaixaSicob; //cobCaixaEconomica 237: Banco.TipoCobranca := cobBradesco; 341: Banco.TipoCobranca := cobItau; 389: Banco.TipoCobranca := cobBancoMercantil; 748: Banco.TipoCobranca := cobSicred; 756: Banco.TipoCobranca := cobBancoob; else Banco.TipoCobranca := cobNenhum; end;

Obrigado amigo... fico no aguardo , que tudo dê certo...!

Uso o Delphi 6: Baixei a nova versão do ACBr...todos os componentes funcionam , menos o ACBrBoleto, que mesmo em modo de programação eo alterar as variáveis do componente, e quando clico em salvar o projeto, dá erro... e ao depurar, mostra estas dependencias... [Fatal Error] Required package 'vcldb' not found [Fatal Error] Required package 'dbrtl' not found [Fatal Error] Required package 'designide' not found [Fatal Error] Required package 'dclstd' not found [Fatal Error] Required package 'vclx' not found [Fatal Error] Required package 'vclsmp' not found [Fatal Error] System.pas(1639): Could not compile used unit 'SysInit.pas' [Fatal Error] Required package 'dsnap' not found [Fatal Error] Required package 'dclsmp' not found [Fatal Error] Required package 'vcl' not found [Fatal Error] Required package 'rtl' not found [Fatal Error] System.pas(1639): Could not compile used unit 'SysInit.pas' [Fatal Error] Required package 'visualdbclx' not found [Fatal Error] Required package 'visualclx' not found [Fatal Error] Required package 'bdertl' not found [Fatal Error] System.pas(1639): Could not compile used unit 'SysInit.pas' [Fatal Error] Required package 'qrpt' not found [Fatal Error] System.pas(1639): Could not compile used unit 'SysInit.pas' [Fatal Error] Required package 'soaprtl' not found [Fatal Error] System.pas(1639): Could not compile used unit 'SysInit.pas' [Fatal Error] Required package 'RLibWinD6vcl' not found [Fatal Error] System.pas(1639): Could not compile used unit 'SysInit.pas' [Fatal Error] Required package 'vcljpg' not found na versão antiga , sempre rodou perfeitamente (vs 0.0.31a) alguém pode me ajudar ?? Obrigado

se eu colocar no componente o numero da agencia ou numero da conta , paralisa o delphi...

moderador, só baixei pelo svn a nova versão , desinstalei a antiga e instalei a nova... agradeço desde já sua ajuda... abs

ele paralisa o Delphi 6 , de eu suspender cedente.agencia e os em sequencia, segue código: with ACBrBoleto1 do begin case qryFaturas.fieldbyname('cod_banco').AsInteger of 1 : Banco.TipoCobranca := cobBancoDoBrasil; 33 : Banco.TipoCobranca := cobSantander; 41 : Banco.TipoCobranca := cobBanrisul; 104: Banco.TipoCobranca := cobCaixaSicob; //cobCaixaEconomica 237: Banco.TipoCobranca := cobBradesco; 341: Banco.TipoCobranca := cobItau; 389: Banco.TipoCobranca := cobBancoMercantil; 748: Banco.TipoCobranca := cobSicred; 756: Banco.TipoCobranca := cobBancoob; else Banco.TipoCobranca := cobNenhum; end; case qryEmpresa.fieldbyname('personalidade').AsInteger of 0: Cedente.TipoInscricao := pJuridica; 1: Cedente.TipoInscricao := pFisica; end; Cedente.CNPJCPF := SoNumeros(qryEmpresa.FieldByName('cnpj_cpf').asString); Cedente.Nome := qryEmpresa.FieldByName('razao_social').asString; Cedente.Logradouro := qryEmpresa.fieldbyname('tipo_logradouro').AsString+' '+qryEmpresa.fieldbyname('nome_logradouro').AsString; Cedente.NumeroRes := qryEmpresa.fieldbyname('numero').AsString; Cedente.Complemento := qryEmpresa.fieldbyname('complemento').AsString; Cedente.Bairro := qryEmpresa.fieldbyname('bairro').AsString; Cedente.Cidade := qryEmpresa.fieldbyname('municipio').AsString; Cedente.UF := qryEmpresa.fieldbyname('estado').AsString; Cedente.CEP := SoNumeros(qryEmpresa.fieldbyname('cep').AsString); //até aqui blz... Cedente.Agencia := qryFaturas.fieldbyname('cod_agencia').AsString; Cedente.AgenciaDigito := qryFaturas.fieldbyname('digito').AsString; Cedente.Conta := copy(qryFaturas.fieldbyname('cod_ccorrente').AsString, 1 , pos('-',qryFaturas.fieldbyname('cod_ccorrente').AsString)-1); Cedente.ContaDigito := copy(qryFaturas.fieldbyname('cod_ccorrente').AsString,pos('- ',qryFaturas.fieldbyname('cod_ccorrente').AsString)+1,length(qryFaturas.fieldbyname('cod_ccorrente').AsString)); Cedente.CodigoCedente := copy(qryFaturas.fieldbyname('cod_cedente').AsString, 1 , pos('-',qryFaturas.fieldbyname('cod_cedente').AsString)-1); Cedente.Convenio := qryFaturas.fieldbyname('convenio').AsString; Cedente.ResponEmissao := tbCliEmite; //o bloco acima não passa end;

Baixei hoje a nova vs do ACBr, tudo funciona , menos o Boleto antes eu estava com a vs 0.0.31a e agora á a vs 0.0.66a , mais dá erro ao rodar , estou utilizando o Fortes... alguém pode me ajudar?