Hetosoft Sistemas

Não tem mesmo Gustavo. Você está correto. Também gostaria de utilizar os endpoints de consulta. Na collection que recebemos deles do Postman, também não tem, mas documentação online tem. Implementei manualmente aqui no Postman e deu certo. Seria interessante a equipe do ACBr verificar.

Por aqui também seguimos acompanhando. Todos os dias no aguardo

Ok. Pode fechar por enquanto. Vou deixar o meu alterado por aqui mesmo.

Segue o fonte ACBrBancoBrasil.pas

Olá. Atualmente o PDF do Boleto do "Banco do Brasil (CNAB)" mostra o número da agencia e da conta no campo "Agencia/Codigo do Beneficiário", ambos com o dígito verificador. Porém quando o Boleto é do Tipo "Banco do Brasil API" não mostra os dígitos. Estamos homologando um cliente novo, e o gerente da conta solicitou que os dígidos verificadores aparecessem no boleto. Fizemos um teste alterando a função TACBrBancoBrasil.MontarCampoCodigoCedente. Testamos a impressão, o envio via API, a leitura do código dentro de um aplicativo de banco, e tudo funcionou corretamente. Gostaria que analisassem uma possível modificação. Como está atualmente no ACBr function TACBrBancoBrasil.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin if(ACBrTitulo.ACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasilAPI) then begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'/'+ IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)); end else begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end; end; Alteração que fizemos (aparentemente era assim antes): function TACBrBancoBrasil.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ IntToStr(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0)) +'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end;

Tem algum link que explica como gerar essa chave? Ou o código-fonte desse programa pode ser passado pra gente sob solicitação? Queria embarcar essa função no gerenciamento dos clientes.

É só pro Fortes Report?

Qual o post que mostra como utilizar esse modelo de impressão? Não achei, só achei post de dúvidas criados pelo Jamil

Ele nao cria os logs na pasta

Onde eu consigo a lista pra saber que numero corresponde à cada campo? Gostaria de alterar o TipoParcelamento e o TipoTransacao.

Bom dia. Estava com problemas para consultar por lote usando OpenSSL. Atualizei o ACBr e mesmo assim não enviou. Após baixar o Schema disponibilizado pelo BigWings e substituir o arquivo o do ACBr deu certo. Provavelmente precise atualizar o Schema do repositório. ISSNET Cuiabá - MT.

Estou usando Delphi 10.2 Tokyo.

Bom dia Galera! Estou tentando montar um JSON para comunicacao com uma API, o formato que preciso montar é esse: { "id": "1", "type": "TPS", "SubObjeto": { "name": "Teste", "phones": [ "987654321","0123456789" ], "address": { "country": "BR", "state": "MT" } } } Só que ate agora o que consegui foi: var LJson, LJsonObject: TJSONObject; LArray: TJSONArray; LJsonObject := TJSONObject.Create; LJsonObject.AddPair(TJSONPair.Create('id', '1')); LJsonObject.AddPair(TJSONPair.Create('type', 'TPS')); // SubObjeto LArray := TJSONArray.Create; LJson := TJSONObject.Create; LJson.AddPair(TJSONPair.Create('name', 'Teste')); LJson.AddPair(TJSONPair.Create('phones', ?)); //Address ? LArray.Add(LJson); LJsonObject.AddPair(TJSONPair.Create('SubObjeto', LArray)); ShowMessage(LJsonObject.ToString); Alguém já montou algum JSON assim ? Desde já agradeço!

É porque vc esta olhando no arquivo errado (nfse), olhe nos arquivos que contem "-env-lot" no nome, marca no seu componente para salvar todos XMLs. O Numero do Lote tem que ser aumentado cada vez que voce envia. Mesmo que seja o mesmo RPS. ACBRNFSe1.NotasFiscais.NumeroLote := ACBRNFSe1.NotasFiscais.NumeroLote + 1;

Amigo, o Numero de Lote(ACBrNFSe1.NotasFiscais.NumeroLote), deve ser aumentado toda vez que clicar em enviar, nao importa se deu certo ou deu erro, o unico que mantem é o numero de RPS. E somente se o RPS for aceito, recebera o Numero da NFS-e.

Conseguiram Alguma Solução para o Problema no Cancelamento de NFC-e?

Bom dia! Alguem sabe como faz para mostrar um Indicador de ordenacao no DbGrid do Delphi, Ao no OnTitleClick, eu ja inverto a ordenacao, Porem gostaria de colocar uma seta indicando se é crescente, ou decrescente. Segue Imagem exemplo. Tentei fazer de uma forma que desenha a Imagem de um Imagelist, mas ao passar o mouse em cima, a imagem some.

Bom dia! Alguém sabe como definir um tamanho fixo de Height, para cada painel(registro) desse DBCtrlGrid, Pois estou tentando utiliza-lo, mas ele muda o Height de acordo com a quantidade de registros, Queria fazer ele trabalhar parecido com DBGrid, Inserindo os registros em tamanho fixo. Segue print, com 2 registros e com muitos registros. @Sérgio Assunção, vi um post seu parecido que vc utilizou esse componente: Sera que aconteceu esse problema com vc? Se Sim, vc conseguiu resolver?

Bom dia!!! Alguem saberia como colocar um DBGrid MultiDetalhes no delphi? que pode colocar varias informacoes uma em baixo da outra na mesma coluna.. Imagem exemplo em anexo. Desde ja agradeço.

Boa tarde Ficou assim o Bat: echo PosBuildRelease del "E:\pasta\Arq.exe" copy "..\Win32\Release\Arq.exe" "E:\pasta\Arq.exe" pause Ta copiando beleza, so nao abre mesmo o cmd enquanto executa.. Tentei assim "cmd /k SeuScript.bat" mas tambem nao abriu. tem algum bat exemplo?

Incrível a Idéia, configurei aqui para executar um BAT, mas ele executa em Background, Nao tem como sera colocar para mostrar na tela para poder acompanhar o processo? @Daniel Simoes

Era isso Mesmo, segue abaixo como consegui pegar caminho exato: uses Winapi.Windows function TWM.GetModuleFileSpec: String; var cret: integer; ModName: array[0..MAX_PATH - 1] of Char; begin GetModuleFileName(HInstance, ModName, SizeOf(ModName)); cret := GetLongPathName(ModName, ModName, SizeOf(ModName)); SetString(Result, ModName, cret); end; function TWM.GetModulePath: String; begin Result := ExtractFilePath(GetModuleFileSpec); end; var Caminho := GetModulePath;

Ola @Amarildo de Matos, entao, ja esta na pasta da minha aplicacao, a questao é que minha aplicacao pode ter caminho variavel, nao é um caminho fixo, poder ser em qualquer particao. e é exatamente devido a isso que estou tendo esse problema.

Bom dia!!! Estou com um problema ao utilizar um WebService SOAP, que estamos criando em Delphi, a duvida parece ser tao na cara mas nao tenho ideia de como resolver, seguinte: nas aplicacoes normais delphi se solicitarmos ("GetCurrentDir" ou "ExtractFileDir(ParamStr(0))" ou "Application.ExeName(VCL)" ) vai retornar normalmente a pasta que a aplicacao se encontra, mas num WebService SOAP ISAPI Hospedado no IIS do Windows, esses comandos nao retorna o caminho atual da DLL, retorna somente isso "C:\Windows\SysWow64\Inet..."; Sera que tem alguma forma de pegar o caminho exato da DLL? ou setar alguma configuracao tanto no WS ou no IIS, para a aplicacao rodar em algum lugar especifico? Desde de ja agradeço.

Bom dia!!! @Juliana Tamizou, Encontrei um Erro nessas Units: Fontes\ACBrBoleto\ACBrBancoBradesco.pas Fontes\ACBrBoleto\ACBrBancoBradescoSICOOB.pas Fontes\ACBrBoleto\ACBrBancoCaixaSICOB.pas Fontes\ACBrBoleto\ACBrBancoCecred.pas Fontes\ACBrBoleto\ACBrBancoSicredi.pas. Na Seguinte Linha: CodOcorrencia := StrToInt(IfThen(copy(Linha,109,2) = '00','00',copy(Linha,109,2))); essa linha contem em todas essas units. O q esta acontecendo q em certa situacao o banco me retornou um Arquivo de Retorno com essa string do copy(Linha,109,2) = ' ' (vazio). A correçao é bem simples, trocar para StrToIntDef, igual esta na linha acima : OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef( copy(Linha,109,2),0)); Teria como me ajudar? para mim nao precisar modificar meu fonte. Aguardo seu Retorno.