softwareamigo

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 Jhoni ! Eu disse UTF mas queria dizer UTC. Me parece que a data vem com AAAAMMxxxxxx onde xxxxxx são minutos divide por 3600 e depois por 24 subtrai a diferença do uso e voce tem o dia. Alterei o ACBROfx.pas e testei com o seu arquivo. Parece que funcionou bem voltou a data do de 03/10/2023 inclui a função abaixo no metodo Import para converter as datas Não subi a unit porque não tenho certeza da minha análise sobre xxxxxx serem minutos. ======================== function TACBrOFX.Import: Boolean; var .............. function GetData(Texto:string): string; var Ano,Mes,Dia: word; UTCDia,Fuso:extended; umDia: TdateTime; function IsUTC(var Fuso:extended): boolean; var inicio,fim: integer; begin result := Pos('GMT',InfLine(sLine)) > 0; if result then begin inicio := Pos('[',InfLine(sLine)); fim := Pos(':',InfLine(sLine)); Fuso := StrToInt(Copy(InfLine(sLine), inicio + 1, length(InfLine(sLine)) - (fim +1) -1 )); end else Fuso := 0; end; begin Ano := StrToInt(Copy(InfLine(sLine), 1, 4)); Mes := StrToInt(Copy(InfLine(sLine), 5, 2)); if IsUTC(Fuso) then Dia := Trunc(((StrToInt(Copy(InfLine(sLine), 7, 6)) div 3600) div 24 ) + Fuso) else Dia := StrToInt(Copy(InfLine(sLine), 7, 2)); UmDia := EncodeDate(Ano,Mes,Dia); result := DateToStr(UmDia); end; begin; ............. ............. // Date Start if FindString('<DTSTART>', sLine) then begin if Trim(sLine) <> '' then DateStart := GetData(sLine); end; // Date End if FindString('<DTEND>', sLine) then begin if Trim(sLine) <> '' then DateEnd := GetData(sLine); end; ACBrOFX.pas

Parece ser uma data em formato UTF com fuso horario -3 Não sei como tratar no componente. Mas como pretendo utiliza-lo vou pesquisar

OPa, obrigado pela dica. Vou tentar

Oi Juliomar ! No Santader funcionou bonitinho. Talvez seja problema com o ambiente de hommolgação do BB. Vou tentar de novo amanhã

opa ! vou verificar

pois é, pior que não, esta certinho. estou tentando com o Santander agora

No programa exemplo configurado para o BANCO DO BRASIL (homologação) , configurei os parametros na aba Banco do Brasil exatamente como definidos no site https://developers.bb.com.br/ e escolhi uma das chaves aleatórias. No entanto, ao tentar criar o registro do PIX, recebo erro de acesso não autorizado. Alguém pode me ajudar ? Access-Control-Max-Age: 8400 WWW-Authenticate: Basic realm="Informe as credenciais do software cliente" Resp.Body: {"error":"invalid_client","error_description":"Identificador ou credencial inválidos"} EACBrPixHttpException: Erro HTTP: 401, Metodo: POST, URL: https://oauth.hm.bb.com.br/oauth/token ***************EACBrPixHttpException*************** Erro HTTP: 401, Metodo: POST, URL: https://oauth.hm.bb.com.br/oauth/token - LerConfiguracao: C:\ACBr\Exemplos\ACBrPIXCD\Delphi\PIXCDTeste.ini - AplicarConfiguracao - ConfigurarACBrPIXCD - ConfigurarACBrPSPs ----- Analise do QRCode Estático ----- NomeRecebedor: Software amigo CidadeRecebedor: Belo Horizonte CEPRecebedor: 31035560 ChavePix: 7f6844d0-de89-47e5-9ef7-e0a35a681615 TipoChavePix: tchNenhuma Valor: 0,00 infoAdicional: TxId: *** pss: 0 mcc: 0

De fato era o CSC que estava registrado concatenado ao idCSC Desculpem a poluição do topico.

Existe diferença nos fontes livres e fontes Pro ? A frequencia de atualização é a mesma? Apesar de não ter visualizado diferenças no SVN baixei novamente os fonte, corrigi o arquivo ini,e reinstalei. Mas continuo recebendo o erro "Codigo de HASH no QRCODE difere do calculado" URL-QRCode_2.00=https://portalsped.fazenda.mg.gov.br/portalnfce/sistema/qrcode.xhtml URL-ConsultaNFCe_2.00=https://portalsped.fazenda.mg.gov.br/portalnfce ACBrNFeServicos.ini

Oi Cleber ! Obrigado pela ajuda. Até o dia 05/03 funcionava com estes valores IdCSC=000001 CSC=-------------------000001

Alterei o arquivo ,ini Transmitiu mas deu outro erro: Codigo de HASH no QRCODE difere do calculado 31230341605062000104650010000000251624318310-nfe.xml

Ola Pessoal, de ontem para hoje esta ocorrendo rejeição da NFCe pelo código 878 Utilizo o componente "no braço". Vi o tópico sobre o ACbrMonitor sugerindo recompilar mas não constatei nenhuma modificação no ACBrServices.ini no SVN. Recompilei coloquei o arquivo no mesmo path do exe mas continua ocorrendo o erro. Alguem poderia me ajudar ? -<infNFeSupl> <qrCode>https://portalsped.fazenda.mg.gov.br/portalnfce/sistema/qrcode.xhtml?p=31230341605062000104650010000000161103655017|2|1|1|569DE0EFA69E4C3AACD63A31DDE8B6C4DA1730E8</qrCode> <urlChave>http://nfce.fazenda.mg.gov.br/portalnfce</urlChave> </infNFeSupl> 31230341605062000104650010000000161103655017-nfe.xml

Precisei criar uma função para validar o número de Chassis de veículos (VIN). Segue o código como contribuição. Talvez possa ser incluído no ACBrValidador. function ValidaChassis(Chassis:string): boolean; var i,Soma,Numero,Resto: integer; Digito:string; function NumeroDaLetra(Letra:string):integer; begin if Letra = 'A' then result := 1 else if Letra = 'B' then result := 2 else if Letra = 'C' then result := 3 else if Letra = 'D' then result := 4 else if Letra = 'E' then result := 5 else if Letra = 'F' then result := 6 else if Letra = 'G' then result := 7 else if Letra = 'H' then result := 8 else if Letra = 'I' then result := 9 else if Letra = 'J' then result := 1 else if Letra = 'K' then result := 2 else if Letra = 'L' then result := 3 else if Letra = 'M' then result := 4 else if Letra = 'N' then result := 5 else if Letra = 'O' then result := 6 else if Letra = 'P' then result := 7 else if Letra = 'Q' then result := 8 else if Letra = 'R' then result := 9 else if Letra = 'S' then result := 2 else if Letra = 'T' then result := 3 else if Letra = 'U' then result := 4 else if Letra = 'V' then result := 5 else if Letra = 'W' then result := 6 else if Letra = 'X' then result := 7 else if Letra = 'Y' then result := 8 else result := 9; end; begin if length(Chassis) <> 17 then raise Exception.Create('Número do Chassis deve tger 17 caracteres'); Soma := 0; for i := 1 to 17 do begin if ((Chassis >= '0') and (Chassis <= '9')) then Numero := StrToInt((Chassis)) else Numero := NumeroDaLetra(Chassis); case i of 1,11: Soma := Soma + Numero * 8; 2,12: Soma := Soma + Numero * 7; 3,13: Soma := Soma + Numero * 6; 4,14: Soma := Soma + Numero * 5; 5,15: Soma := Soma + Numero * 4; 6,16: Soma := Soma + Numero * 3; 7,17: Soma := Soma + Numero * 2; 8 : Soma := Soma + Numero * 10; 9 : Soma := Soma + Numero * 0; 10 : Soma := Soma + Numero * 9; end; end; Resto := Soma Mod 11; if Resto = 10 then Digito := 'X' else Digito := IntToStr(Resto); result := Digito = Chassis[9]; end;

Parece que é só a homologação de MG. Em produção roda normal. Em homologação até mesmo os exemplos do ACBR dão este erro no serviço de Enviar.

Oi Daniel, obrigado pela atenção. verificando o log constatei que o nome da forma esta sem acento [Numerario] e não [Numerário]. Cadastrei outra forma e deu certo. Fui voltando no log para ver como carregou as denominações e foi assim: - 24/07 07:14:48:474 Registrador: C4 Retorno: -Sangria[NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL] -Numer[225]rio[NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL] +Boletos[NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL] +Carn[234]s[NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL] +Consumo[NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL][NUL] [ETX]l[STX]234+0000AA[155][128][130][128][128]C4 -- --. 24/07 07:15:34:266 Ativando a porta: COM3 -- 24/07 07:15:34:266 RegistraItemNaoFiscal( 02 , 120 , ) -- 24/07 07:15:34:266 TX -> [STX]@21|Numerario|120,00[ETX]q -- 24/07 07:15:34:344 07:15:34:344 RX <- ACK = 6 Falha: 0 -- 24/07 07:15:34:381 TimeOut estendido -- 24/07 07:15:34:381 07:15:34:381 RX <- (Bloco) = [STX]@21-0041AD[152][144][146][128][128][ETX][217] -- 24/07 07:15:34:381 TX -> ACK = 6 Falha: 0 -- 24/07 07:15:34:413 RX <- [STX]@21-0041AD[152][144][146][128][128][ETX][217] -- 24/07 07:15:34:413 Desativando a porta: COM3 -- 24/07 07:15:34:413 ----------------- ERRO ----------------- Erro retornado pela Impressora: SWEDA Erro (0041) Denominação informada no Registro de Operação não fiscal não encontrada

Pessoal ao tentar o registro de Suprimento e Sangria no emulador Sweda ST120 ocorre o erro 0041. O erro ocorre mesmo no programa exemplo. Tentei contornar passando todos os parametros mas não tive sucesso.Alguem sabe se é um erro apenas do emulador ou se de fato existe um problema no componente ? Não tenho acesso a uma impressora real para verificar. Agradeço toda ajuda. Usando o programa exemplo Parametros: {120 Numerário Dinheiro} Comando enviado: #2=08#3#170 Erro (0041) Denominação informada no Registro de Operação não fiscal não encontrada #2=08+0000AM#732#208#8217#8364#8364#3#29

Oi pessoal, estou tentando usar o emulador sweda com o programa exemplo. Consigo ativar a impressora e executar algumas funções: leitura x, programação de aliquotas, leitura de totais. Mas não condigo emitir cupom. Recebo a mensagem comando não permitido. Alguem tem ideia do que possa ser ? Agradeço muito qualquer ajuda De acordo com o log: Comando enviado: #27.17} Resposta: .-0001ERRO-COMANDO NAO PERMITIDO}

O problema ocorreu porque eu estava utilizando os SCHEMAS 1.01 (que eu julgava mais atualizados) . Encontrei eum um post antigo a dica, Exclui da pasta os xsd distDFeInt_v1.01.xsdresEvento_v1.01.xsdresNFe_v1.01.xsdretDistDFeInt_v1.01.xsdtiposDistDFe_v1.01.xsd e aí funcionou

Ao enviar o comando para buscar a lista de CTes emitidos contra um CNPJ recebo o erro "Rejeicao: Cabecalho - A versao do arquivo xml nao e suportada" Atualizei todos os fontes hoje Apesar de no arquivo enviado a versão ser 1.01 -<distDFeInt versao="1.01" xmlns="http://www.portalfiscal.inf.br/cte"> o retorno devolve como <retDistDFeInt xmlns="http://www.portalfiscal.inf.br/cte" versao="1.00"> <verAplic>1.0.0_1804011131</verAplic> <cStat>239</cStat> Alguém pode me ajudar ? dtmNFeACBR.ACBrCTe1.DistribuicaoDFePorUltNSU(UFtoCUF(MinhaUF),CNPJ,ultNSU); 20180401113136-dist-dfe.xml 20180401113134-con-dist-dfe.xml

Resolvido: ao atualizar os fontes ficou lixo no diretorio