Antonio Gomes

Formule sua pergunta para que possamos lhe ajudar? Seria o cedente do sicoob ou seu cliente em varios bancos?

uai.. esse comando vai completar com zeros uma unica posicao, vc deve informar o digito, se antes funcionava e agora nao, devevia estar sendo passado o zero apenas não? E o comando PadRight com 1 no segundo parametro é melhor nem usar mesmo, pois nao vai completar nada, uma vez que o dv deve ser apenas 1 digito mesmo... :=((

Paulo, porque você mesmo não abre o seu modelo de fastreport, eu mesmo faço isso aqui. Não utilizo o modelo postado no fonte, mas um que já bordei de acordo com a necessidade do cliente... Hoje abro 3 modelos de impressão por minha conta, ACBr gera os dados e transcrevo para impressão manual.

Então, pensa só se o componente ao invés de gerar nos números de carteiras, modalidades e outro dado que o banco pede, se fosse tudo property que o programador ficasse responsável em colocar as propriedades. Ex: A caixa, campeã em POG, tem 3 camaras de compensação dentro do brasil hoje, as carteiras são numero e as letras SR, CR etc... Se isso fosse para o responsavel pelo programa colocar, se colocar errado, não é o componente que pois... Componente teria a inteligencia suficiente de pegar os dados repassados e enviar para dentro do arquivo de remessa.

voce usou a planilha que eles fornecem para pre homologação ? senão, segue em anexo. Layouts para troca de informações.xls

Para ter uma ideia de como faço: procedure TFRelBoleto.AutomatizarSlipEIncrementar(var ANossoNumero: Int64; AACBrTitulo: TACBrTitulo); var DV_NossoNumero: string; begin ANossoNumero := StrToInt64Def(Trim(CdsReceber.FieldByName('BOLETO_REC').AsString), 0); AACBrTitulo.NossoNumero := IntToStr(ANossoNumero); DV_NossoNumero := AACBrTitulo.ACBrBoleto.Banco.CalcularDigitoVerificador(AACBrTitulo); AtualizaReceber(ANossoNumero, DV_NossoNumero); end;

Mantenedores: Alguns fontes foram alterados do ACBrNFS-e, porém, para o provedor versa, se faz necessário manter o arquivo versatecnologia.ini como: UseCertificado=0 segue anexo arquivo corrigido. VersaTecnologia.ini

sim eu sei... por isso comentei... essa do fonte gerar numero de carteira.. furada..

Eu costumo gerar um bordero dentro do sistema, para facilitar a vida do usuario nisso, automatizar isso não achei boa coisa, ainda mais que o usuario emite boleto o dia todo e deixar por conta dele achei a melhor opção. Se foi errado o titulo, alguém foi lá e marcou para enviar. Pondere o que pensa ser automatizado.. o arquivo de remessa? Várias no mesmo dia?

Aos mantenedores do projeto boleto, não seria legal isso de gerar a carteira ser uma property para o programador se virar? Ao inves de fazer o componente gerar essas pogs que os bancos inventam? Com isso o componente ficaria a cargo de gerar apenas o txt para remessa.

o pagamento foi feito via internet ou via caixa físico ?

Ao tentar assinar um lote de RPS, o erro de exceção está sendo levantada.. Quando a função GerarLote é chamada: function TWebServices.GeraLote(ALote: String): Boolean; begin FGerarLoteRPS.FNumeroLote := ALote; Result := GerarLoteRPS.Executar; if not (Result) then GerarLoteRPS.GerarException( GerarLoteRPS.Msg ); end; Ela espera um result, que na função GerarLoteRPS.Executar não existe, pois a função está desse formato no trunk2 revisão 12298. Como está: function TNFSeGerarLoteRPS.Executar: Boolean; begin SalvarEnvio; end; Como penso que deveria estar: function TNFSeGerarLoteRPS.Executar: Boolean; begin SalvarEnvio; Result:= True; end; Agora vem uma coisa que alguns vão ser incrédulos, o motivo de o rad studio não ter avisado que a function estava sem retorno. Algumas versões isso é mostrado, como warning Se algum mantenedor puder corrigir isso, adicionado o Result:= True no fonte...

voce ja baixou os pacotes todos ? Mexeu no unit scope name do dpk ou do projeto ? no meu caso: value for all 32: Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde value for all platform: Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win No caso, botao direito no nome projeto, Options...delphi compiler

Efetuado a correção da leitura da data de emissao da NFS-e gerada pelo provedor, a mesma retorna como data + hora. Foi alterado a linha: 950 da unit pnfsNFSeR if FProvedor = proVersaTecnologia then NFSe.dhRecebimento := Leitor.rCampo(tcDatHor, 'DataEmissao'); pnfsNFSeR.pas

você usa .Value ou .AsVariant ? Observe se seu campo tem a precisão de 2 decimais, se tiver mais que isso, pode ser que lá no banco esteja assim: 92,52555566

Porque nao coloca as instrucoes na primeira propriedade?

Mas voce nao tem esse digito no seu programa? Quando voce cadastra a conta, acho legal ter esses campos separados, usuario sempre mexe e coloca errado... pode ser que eu esteja errado também. Da maneira que mexeu no fonte agora, passa para o componente a responsabilidade de calcula-lo.

voce deve consumir o webservice sincrono. ao inves do tradicional. saindo do ginfes, a recepcao do lote e situacao do lote são as unicas funcoes a trocar. A da situacao do lote, anteriormente no ginfes, era preciso 2 funcoes, nesse agora so precisa de uma, já volta a situacao do lote.

respondido no post anterior, mas... http://homologacaouba.versatecnologia.com.br/manuais/NFSe_ManualDeIntegracao.pdf http://homologacaouba.versatecnologia.com.br/site/

está sim. Schema aqui: http://nfe.uba.mg.gov.br/schema/ Segue anexo, respondendo já aquele questionamento so dos fontes alterados. De antemão, não usei o formatsource do delphi, logo, se você precisar fazer merge ou comparar, fique a vontade. ACBrNFSe.zip com relação ao arquivo ini, nessa mensagem anterior, segue 2 modos, pois não mexi no componente para aceitar os 2 modos, pois esse provedor tem endereço distinto. Isso vai de encontro aquela duvida que comentei com você em private. Outro problema que vi, e se preciso for, eu mexo no fonte, que é o namespace ficar travado sempre no endereco daqui da minha cidade. ubá penso que se aquele parse de url_h e url_p fosse aplicado também no namespace, resolveria viu. Com relação do namespace do xml, é um problema similar. Para quem precisar usar isso em cliente, seja homologação e produção, pode optar por enviar o arquivo ini correto. Na ocasiao eu fiz desse jeito, mando os ini dentro de recursos, e de acordo com a configuração do usuario (homologacao/producao) eu extraio esses recursos e troco na pasta do executável. o namespace do schema também varia de acordo com o ambiente.

ao ler esse parametro do INI, no provedor versa tecnologia, o mesmo tem diferença para homologação e produção, como eu poderia colocar isso no codigo fonte ou dentro do ini. segue ini alterado para producao, na duvida de como colocar o grupo xml - namespace e o xmlns dos xmls de recepcao / consulta etc.. Versa.INI

Segue unit com pequena correção do valor do issqn. Quando retencao. pnfsNFSeR.pas

Só para relatar: Esse problema acontece partindo da versão 4 para 5. Conforme relatos: https://github.com/GabrielF7/ACBrTrunk2/blob/master/Fontes/ACBrDFe/ACBrMDFe/DAMDFE/Fast/ACBrMDFeDAMDFEFRDM.dfm https://www.fast-report.com/en/forum/index.php?s=bd87d127579da20e840b46f423ca1a4d&showtopic=12796 http://qiita.com/7of9/items/ffde0c38af4bf1211229

Segue units alteradas para não gerar mais isso, se puder incorporar ao código fonte. ACBrMDFeDAMDFEFRDM.pas ACBrMDFeDAMDFEFRDM.dfm

enviado componente: