softwareamigo

deu certo. muito obrigado Juiomar

Olá pessoal ! Venho trabalhando de forma isolada. Assim mantenho um svn com tortoise no meu notebook para salvar minhas versões. Agora preciso trabalhar de forma compartilhada com outros dois programadores. Instalei o Visual svn server na rede. criei um repositorio . carreguei o projeto Consigo exportar o repositorio para o note. Mas as units não ficam checkoutadas. Alguem tem um passo a passo de como fazer isto ?

Olá pessoal ! O cliente deseja emitir boleto hibrido. Vi que o ACbrBoleto é capaz de gerar o registro no banco mas fiquei perdido com o fluxo de dados. Como o banco me retorna o código para o Qrcode? Existe algum código com um exemplo ? Ou alguém tem algum passo a passo ? Agradeço qualquer ajuda

A mesma procedure funciona corretamente para notas modelo 55. Existe algum evento, notifier ou algo parecido que possa estar causando este efeito. Meu delphi é meio curto para entender esta parada

Debugando descobri que a mágica ocorre na ACBrUtil.FilesIO. Do nada o comando SL.LoadFromFile(IniArquivoOuString) modifica a data que esta no arquivo texto (modelo ini). No texto temos dhEmi=29/12/2023 21:04:00 em SL.Text aparece 'dhEmi=29/12/2023 13:22:48' ===================================================================================== procedure LerIniArquivoOuString(const IniArquivoOuString: String; AMemIni: TMemIniFile); var SL: TStringList; begin SL := TStringList.Create; try if StringIsINI(IniArquivoOuString) then SL.Text := String(StringToBinaryString( IniArquivoOuString )) else begin if not StringIsAFile(IniArquivoOuString) then raise Exception.Create(ACBrStr('String INI informada não é válida.')) else begin if FileExists(IniArquivoOuString) then SL.LoadFromFile(IniArquivoOuString) else raise Exception.CreateFmt(ACBrStr('Arquivo: %s não encontrado.'), [IniArquivoOuString] ); end; end; AMemIni.SetStrings(SL); finally SL.Free; end; end;

Oi Pessoal, quando envio o XML da NFCe recebo a mensagem de que a NF é válida mas que a data-hora esta muito atrasada e o XML não é transmitido. A hora em que o XML foi gerado e gravado na pasta do sistema foi 16:39 mas a data de emissão no XML esta nesta forma: <dhEmi>2023-12-29T13:22:48-03:00</dhEmi> o que poderia ser ? Data e Hora da maquina como configurado abaixo.

Obrigado

Oi Daniel ! Obrigado pela resposta. Mas não, o Delphi é o Berlin. Tudo funciona bem quando o app roda no servidor standalone, inclusive rodando como serviço. o problema ocorre quando gero a aplicação como DLL Isapi. Daí , parece que a DLL não consegue receber respostas para os requests que ela faz a outros servidores. O mesmo problema do FIredac acontece quando uso um servidor HTTP. Ele recebe o request, processa, retorna com 200 mas a DLL parece que não recebe esta mensagem. Aff !

Complementando a situação. Usando um servidor HTTP para obter os dados funciona perfeitamente no standalone mas na DLL acontece a mesma travada de quando trabalho cliente servidor e a conexão direta do Firedac não responde. Monitorando o servidor HTTP pude constatar que ele recebeu o request, processou, respondeu com 200. Tudo perfeito . Só que parece que a resposta não chega na dll.

Oi Pessoal ! Estou com uma situação bem estranha. Estou fazendo os testes de conceito de uma aplicação INTRAWEB. Na UserSessionUnit tem uma conexão Firedac configurada a partir do FDefConnection.ini . Um serviço em modo standalone funciona direitinho. Mas quando gerei uma dll Isapi da mesma aplicação o IW não reconhece o alias. Parece que não acha o arquivo .ini . Configurei a conexão no braço. E aí não dá erro quando starto a aplicação mas o browser abre uma pagina em branco e fica carregando eternamente. Se retiro a conexão FIredac da unit a ela inicial aparece diretinho no browser. Alguem tem alguma idéia do que possa causar esta situação ?

Vou pesquisar mais um pouco

Oi Elias ! na ACBrPIXSchemasCob não temos esta propriedade. ELa só existe na cobV e na devolucao

Opa! Muito obrigado pela dica

O Diego, confundi os assuntos. No post anterior tratei do OFX. Sobre o PIX segue retorno do INTER 2023-10-15T01:40:11.308Z esta 3 horas à frente do real {"chave":"02658379000319","infoAdicionais":[],"pixCopiaECola":"00020101021226930014BR.GOV.BCB.PIX2571spi-qrcode.bancointer.com.br/spi/pj/v2/24fc02913d944a05a02524846932159052040000530398654041.005802BR5901*6013BELO HORIZONT61083041147062070503***63043C02","loc":{"id":11837332,"location":"https://spi-qrcode.bancointer.com.br/spi/pj/v2/24fc02913d944a05a025248469321590","tipoCob":"cob","criacao":"2023-10-15T01:40:11.308Z"},"location":"https://spi-qrcode.bancointer.com.br/spi/pj/v2/24fc02913d944a05a025248469321590","status":"REMOVIDA_PELO_USUARIO_RECEBEDOR","valor":{"original":"1.00","modalidadeAlteracao":0},"calendario":{"expiracao":3600,"criacao":"2023-10-15T01:40:11.331Z"},"txid":"P020027834X000000100141023","revisao":1,"pix":[]} Como eu tratei no meu programa quando o PSP é o INTER function AplicaFuso: TDateTime; var Ano,Mes,Dia,Hora,Minuto,Segundo,Milisegundo: word; Data:TDateTime; umDia:extended; const Fuso = 3; begin Data := ACBrPixCD1.PSP.epCob.CobGerada.calendario.criacao; DecodeDateTime(Data,Ano,Mes,Dia,Hora,Minuto,Segundo,Milisegundo); if Hora <= Fuso then begin if Hora < 0 then begin if Dia = StartOfTheMonth(Data) then begin if Mes = 1 then begin Mes := 12; Ano := Ano -1; end else begin Mes := Mes - 1; end; umDia := EndOfTheMonth(Data); Dia := Trunc(umDia); end; end; end; Hora := 24 - Fuso + Hora; result := EncodeDateTime(Ano,Mes,Dia,Hora,Minuto,Segundo,Milisegundo); end;

Olá Diego! Eu tratei especificamente a data do SANTANDER. Creio que precisamos de uma classe que identifique todos os formatos UTC possíveis. Eu não conheço o assunto e não me senti seguro para subir nenhuma alteração. Esta situação também ocorre no tratamento de mensagens do PIX, como citei em outro post. ACBrOFX.pas Santander.ofx