Hetosoft Sistemas

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.

Boa tarde!!! @Juliana Tamizou Estou passando pela mesma duvida, e nao consegui entender sua resposta em relação ao campo Titulo.DataBaixa do ACBrBoleto. É a data em que o boleto "caiu na conta" da empresa, ou é a data em que o boleto DEVERÁ ser baixado pelo banco ? Saberia me dizer qual é a Relação dela com a DataLimitePagto? A Data Limite Pagto é a data que o boleto devera ser baixado pelo banco?

Sim, Foi no Componente, Segue em anexo. função ACBrNFSe.ConsultarSituacao(AProtocolo: String; const ANumLote: String): Boolean; ACBrNFSe.pas

Bom dia!!! Isso mesmo Italo, esta ocultando as mensagem de erro. E a principio eu estou utilizando o Provedor da Abaco que segue a versao 1. Entao voce acha que consegue verificar se pode comentar esse try, no GitHub para nós? No meu caso aqui, Resolveu!

Boa tarde!!! Pessoal eu to com problema, de estar usando a função ACBrNFSe.ConsultarSituacao(AProtocolo: String; const ANumLote: String): Boolean; e quando esta dando erro, tem um try Except que esta escondendo a msg o Raise Exception que tem dentro de WebServices.ConsultaSituacao(AProtocolo, ANumLote); A minha pergunta é: tá Certo esse: try Result := WebServices.ConsultaSituacao(AProtocolo, ANumLote); except Result := False; end; Porque pra mim ter o retorno correto tive que tirar esse try except. Pelo q vi esse false ja esta tratado dentro da funcao principal.

Nao, Ocorre esse outro: URL não definida para: TNFeConsultaCadastro.

Boa tarde!!! Ao tentar executar esse procedimento: ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := CNPJ; ACBrNFe1.WebServices.ConsultaCadastro.UF := UF; ACBrNFe1.WebServices.ConsultaCadastro.Executar; Estou obtendo seguinte resultado: É necessário um certificado para concluir a autenticação do cliente - URL:https://homologacao.sefaz.mt.gov.br/nfews/v2/services/CadConsultaCadastro2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2. Ja realizei a configuracao do meu componente AcbrNFe completa, Certificado valido, etc, Consigo ate Emitir nota, mas nao consigo consultar o cadastro. Alguem ja passou por isso? tem alguma ideia do que seja?

Entao Italo, Beleza tenho o FSituacao que me informa esses 4 Status, mas imagine que na emissao de um RPS, me Retorne FSituacao = 3 (Processado com Erro), o Cliente precisa saber que erro é esse pra corrigir, Se é um Erro de Aliquota, Inscricao Municipal Invalida ... Etc; e é esse o real motivo do erro. Se nao ele vai ter que deixar uma aplicacao para acessar um Site para ver essa informação. Mas para quem tiver esse mesmo problema, Resolvi da seguinte forma. ACBrNFSe1.ConsultarSituacao(Protocolo, Lote); Se autorizado aqui fica o FSituacao -> ACBrNFSe1.WebServices.ConsSitLoteRPS.Situacao; e Se não Processado com Sucesso é Gerado um Exception com o Verdadeiro Erro Ex: E30 RPS: 796 - Item da lista de serviço inexistente

Bom dia, Obrigado @Italo Jurisato Junior, Eu entrei em contato com a Abaco e ela informou que devemos usar o WS "aconsultarsituacaoloterps" para ter retorno do erro, que no componente é a funcao: ACBrNFSe1.ConsultarSituacao(Protocolo, Lote); Até ai blz, mas eu consultei a nota e peguei no arquivo Retornos.txt dentro Exemplos\ACBrDFe\ACBrNFSe e lá diz assim: Obter o Resultado da Consulta ... ConsultarSituacao ----------------- ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno[ x ].Codigo ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno[ x ].Mensagem ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno[ x ].Correcao Apos eu realizar a consulta olhei nessas tres opcoes, no item [0] que sempre utilizo e estao Inacessivel. Pelo que eu entendi quando Chamo a funcao ConsultarSituacao , Ela é independente do RPS(NFSE) no componente, Ate porque eu informo Lote e protocolo como parametro. Se eu estiver errado, me corrija! Segue os XMLS. 9D238E33BBBF3241CCD544C8DBE0D381-con-sit.xml 9D238E33BBBF3241CCD544C8DBE0D381-sit.xml

Boa tarde! Alguma Solucao ? Estou com Mesmo Problema e nao estou conseguindo obter mais informacoes. Ja tentei olhar nos schemas da Abaco e Funcoes no Componente. @Wanderson Paiva; @Juliomar Marchetti

Obrigado Italo, eu tinha alterado o provedor no INI Provedor=Abaco Só tinha esquecido de : NomeURL_H=varzeagrande NomeURL_P=varzeagrande Agora ja Esta Ok!

Boa tarde!!! Desde o dia 17/07/2017 a Prefeitura de Varzea Grande - MT trocou o Provedor de NFS-e , que antes era "Betha", para "Ábaco". Gostaria de Saber quando sera disponibilizado as Alteracoes referentes no GitHub ? Anexo Manual e Novos Links disponibilizados pela Abaco! Arquivos Abaco.rar

Betha.

Eu usava if (Titulo.MotivoRejeicaoComando.Text <> '') or(Titulo.DescricaoMotivoRejeicaoComando.Text <> '') then begin Mensagem de recusado . end else begin fazer o pagamento do registro. end; so que depois que atualizei para trank2 vem sempre preenchido Titulo.DescricaoMotivoRejeicaoComando.Text com alguma coisa ex: 04 - Compensado eletrônico 02 - casa loterica 06 - internet banck Qual a melhor maneira de mostra que foi recusado, sabendo que cada banco tem sem código ? obrigado pela atenção.

Bom Dia Italo, Desfiz a alteração e fiz os testes aqui só alterando o arquivo Cidades.INI e deu tudo certo o problema e só o caminho do arquivo, obrigado vou aguardar a alteração.