Antonio Gomes

Mantenedor do projeto: A função de validar o xml direciona para assinatura da guia ao ser enviada, porém, pelo que observei nao existe assinatura para o lote de guia. Como estou com alguns fontes para enviar para o forum, não se já posso mexer nessa parte de não tentar assinar ao validar o schema. Aguardando contato.

Vou enviar para o forum, algumas modificacoes, junto a impressão com fast report. Se quiser modificar, a dele funciona corretamente.

Criei seu proprio fr3 e coloque em alguma dll que vc tem ou dentro do proprio executavel seu. Se preciso, vc pode criar até mais de um. Em meu projeto por exemplo tenho 3 modos de impressão, na impressão com acbr, eu faço o desvio da impressão e eu mesmo imprimo. Alias, eu tenho meu dataset de impressão, para casos de imprimir varios ao mesmo tempo.

Sim, depois do itau, para mim foi um dos mais fáceis. O que precisa? Faz a pre homologação antes na planilha fornecida por eles do banco. Em anexo. Com isso, você não fica perdendo tempo mandando coisa incorreta para o banco analisar. Layouts para troca de informações.xls

Geralmente agencia é com 4 digitos... Corrija a unit e manda para o pessoal subir a correção.

O instalador está ficando uma opção quase oculto, para marcar e desmarcar está ficando estranho. Segue imagem

Pode deixar. copiarei do da nota fiscal, pois vi que depois que postado foi, alguem teve alguns problemas, inclusive com pdf saindo gigante.

Mantenedores, posso mexer no projeto GNRE para remover o data module e colocar unit pura a fim de evitar o mesmo problema ocorrido já na NF-e MDF-e e afins? O problema é o auto create dos componentes FRxReport, de acordo com várias versões, algumas propriedades geram problema ao abrir o datamodule. Problema desse tipo:

Aproveitando a brecha, e o banco intermedium, alguém? Material alguem teria?

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?