-
Total de ítens
187 -
Registro em
-
Última visita
Tudo que Élviro Cavalcanti postou
-
Quando tento gerar pelo ACBRNFSex aparece o retorno: Erro(s): Código : X800 Mensagem: Erro de Validação: '' violates enumeration constraint of '0 1 2 3 4 5 6'. The element '{http://www.sped.fazenda.gov.br/nfse}regEspTrib' with value '' failed to parse
-
Opa, boa tarde, ainda não estou usando ele, uso o ACBrNFSe. Quando não tem retenção tudo certo, mas quando não o retorno vem sempre zerando o iss e com isso tem que entrar no site da Ginfes e efetuar a correção, também não consigo trocar no caso o provedor para giss, ele só gera pela Ginfes. Qual seria a configuração para trocar o provedor de envio da Ginfes para a Giss ?
-
Boa Noite, também estou tendo o mesmo problema com o envio da NFSe para a cidade de Maceió, mesmo destacando o ISS e os demais tributos no rps vai todo certo, mas o retorno vem sem os valores de retenção de iss, detalhe que mesmo direcionando para a pasta Giss o componente só gera o rps.xml com o provedor da Ginfes, não consegui mudar, quando vou imprimir mostra como não destacado, conseguiram resolver essa questão ? Vou deixar em anexo o arquivo de envio e o xml de retorno para melhor análise 2723100431979300016756000000000000114-nfse.xml 2723100431979300016756000000000000114-rps.xml
-
Bom dia, estamos tendo um problema quanto a retenção do INSS do provedor Ginfes, quando enviamos o arquivo rps.xml o mesmo consta a tag IssRetido>1</ns4:IssRetido e justo deles o valor do ISS Retido, mas quando o XML retorna para impressão a Tag IssRetido>2</ns4:IssRetido, volta como 2 e os campos de Valor do ISS retido zerado. Poderiam nos dar um suporte qual a essas informações ? Segue em anexo, os arquivos rps de envio e o xml de retorno, alguém já teve esse erro e conseguiu resolver ? 2723100431979300016756000000000000114-nfse.xml 2723100431979300016756000000000000114-rps.xml
-
Acessar através do componente o ID do XML
Élviro Cavalcanti replied to mauricioaneves's tópico in ACBr-Reinf
Vi agora no exemplo que tem um comando : ACBrReinf1.Eventos.Gerados.Items[i].TipoEvento Não sei se retornaria esse campo que você deseja. -
Acessar através do componente o ID do XML
Élviro Cavalcanti replied to mauricioaneves's tópico in ACBr-Reinf
Boa tarde meu amigo, a Função abaixo não serviria não ? function obterNroResultado(const aXML: String; aTag, aEndTag: string): string; var _Posini, _Posfim : integer; Begin Result := ''; _Posini:= Pos(aTag,aXML); _Posfim:= Pos(aEndTag,aXML); if ( _Posini > 0 ) then begin inc(_PosIni, Length(aTag)); Result:=Copy(aXML,_Posini+1,(_PosFim-_PosIni)-1); end; end; -
Abrir executável no navegador
um tópico no fórum postou Élviro Cavalcanti Object Pascal - Delphi & Lazarus
Bom dia pessoal, estava pesquisando uma forma de abrir o executável do sistema num navegador de internet, seria possível ou teria que ser desenvolvido numa outra linguagem ? Minha intenção seria, ao invés de ter o executável dentro da máquina do cliente, ter apenas um atalho com o IP do servidor (onde apenas ficariam os arquivos exe) e abrindo no navegador. Obrigado! -
Adicionar Protocolo ao XML
Élviro Cavalcanti replied to Paulo2670's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
Eu salvo um XML com os dados originais (sem o número de protocolo) ao gerar a NFe, salvo dentro de uma pasta chamado de XMLOriginal que crio, depois disso, caso dê algum erro eu tenho o xml original gerado com a chave. Segue a rotina onde salvo esse arquivo abaixo. //Comando para gerar o xml antes do envio para a sefaz ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.GravarXML(edtPathLogs.Text + '\PrimeiroLog' + DM.IBNotaNUMERO.AsString + '.xml'); Para buscar o protocolo e colocar dentro do xml para ficar válido eu faço dessa forma: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.WebServices.Consulta.NFeChave := DM.IBNotaIDNOTAFISCAL.AsString; ACBrNFe1.WebServices.Consulta.Executar; Edit2.Text := ACBrNFe1.WebServices.Consulta.XMotivo; MemoResp.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetornoWS; PanelStatus.Visible := True; LabStatus.Caption := 'buscando aquivo xml pela chave da NFe, aguarde ...'; FrmEnvioNFe.Refresh; if Edit2.Text = 'Autorizado o uso da NF-e' then begin DM.IBNota.Edit; DM.IBNotaNPROTOCOLO.AsString := ACBrNFe1.WebServices.Consulta.Protocolo; DM.IBNotaSITUACAONF.AsString := 'ENV'; DM.IBNota.Post; DM.IBTransaction1.CommitRetaining; MemoResp.Lines.SaveToFile(edtPathNFe.Text + '\' + VPasta + '\' + DM.IBNotaIDNOTAFISCAL.AsString + '-nfe.xml'); end; ACBrNFe1.NotasFiscais.Clear; PanelStatus.Visible := True; LabStatus.Caption := 'Arquivo localizado com sucesso!'; FrmEnvioNFe.Refresh; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(ExtractFilePath(Application.ExeName) + '\Arquivos de envio e resposta\' + 'PrimeiroLog' + DM.IBNotaNUMERO.AsString + '.xml'); ACBrNFe1.Consultar; MemoResp.Lines.Text := ACBrNFe1.WebServices.Consulta.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.Consulta.RetornoWS; LoadXML(ACBrNFe1.WebServices.Consulta.RetornoWS, WBResposta); NomeArq := ExtractFilePath(Application.ExeName) + '\Arquivos de envio e resposta\' + 'PrimeiroLog' + DM.IBNotaNUMERO.AsString + '.xml'; if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]); ACBrNFe1.NotasFiscais.Items[0].GravarXML(NomeArq); memoLog.Lines.Add('Arquivo gravado em: '+NomeArq); VsOrigem := ExtractFilePath(Application.ExeName) + '\Arquivos de envio e resposta\' + 'PrimeiroLog' + DM.IBNotaNUMERO.AsString + '.xml'; VsDestino := ExtractFilePath(Application.ExeName) + edtPathNFe.Text + Vpasta + '\' + DM.IBNotaIDNOTAFISCAL.Text + '-nfe.xml'; CopyFile(Pchar(VsOrigem), PChar(VsDestino), False); Espero ter ajudado! -
O acbr funciona ainda com o delphi 7?
Élviro Cavalcanti replied to Valmir Gomes Ribeiro's tópico in Dúvidas Gerais sobre o ACBr
Bom dia, funciona! Os caras do ACBR são esforçados e como disse Alexandre acima, não medem esforços! -
Valor total do item desalinhado no Fortes (ACBrNFeDANFCeFortes)
Élviro Cavalcanti replied to carlos_tedex's tópico in ACBrNFe
Bom dia, no meu caso foi resolvido com as atualizações do próprio Windows, quando ele baixou e instalou todas as atualizações que tinham pendentes, tudo ficou normal. -
Bom dia, sobre o componente ACBRNCM, tem onde pegar as informações de Alíquotas de impostos de cada um deles na hora que estiver consultando ou importando a planilha para dentro do meu banco de dados ?
-
Felipe, notei uma melhora sim, nada absurda, mas melhorou sim.
-
Eu migrei do firebird 2.0 para o 4.0, tive que fazer algumas coisas. Segue abaixo como fiz pra rodar tranquilo. Instruções para migrar para o firebird 4.0 1 - Criar o backup em FBK ainda usando o Firebird 2.5 2 - Zipar o backup 3 - Desistalar o Firebird 2.5 4 - Reiniciar o computador 5 - Instalar o Firebird 4.0 6 - Parar o serviço firebird 4.0 e substituir o arquivo firebird.conf que está dentro da pasta de instalação do firebird 7 - Excluir dentro da pasta gds32.dll (849 kb) do windows system ou substituir ele pelo novo com tamanho 1.604kb 8 - Ativar o serviço Firebird 4.0 9 - Restaurar o backup, pode usar o Restaurar Backup.bat
-
Boa tarde, fui postar uma dúvida sobre SQL aqui no site e mostrou como usuário bloqueado, será alguma instabilidade no site ?
-
Bom dia Carlos, quando você informa que é produtor Rural, você informa a série 920 ?
-
Pelo que entendi, você está querendo pegar algo dentro de um html ou xml por exemplo, você poderia usar o seguinte: function TfrmExemplo.obterNroResultado(const aXML: XMLString; aTag, aEndTag: string): string; var _Posini, _Posfim : integer; Begin Result := ''; _Posini:= Pos(aTag,aXML); _Posfim:= Pos(aEndTag,aXML); if ( _Posini > 0 ) then begin inc(_PosIni, Length(aTag)); Result:=Copy(aXML,_Posini+1,(_PosFim-_PosIni)-1); end; end; E no botão seria esse comando pra chamar o campo desejado, seria isso ? EditResultado.Text := obterNroResultado(mmXML.Text, '<nRec','</nRec');
-
Banco de dados em nuvem para um ou mais clientes
Élviro Cavalcanti replied to Luciano Ramos Palandi's tópico in Banco de Dados
Mas explica qual a necessidade desse last, assim posso te ajudar melhor -
Banco de dados em nuvem para um ou mais clientes
Élviro Cavalcanti replied to Luciano Ramos Palandi's tópico in Banco de Dados
Bom dia Luciano, você poderia me explicar melhor essa questão do last por exemplo, pra inserir os dados seria melhor insert na tabela, ou entendi errado alguma coisa, me explica melhor então. Eu uso uma rotina que fica monitorando no caso o tempo que leva pra cada processo, vou deixar aqui pra você, segue ela abaixo: var FrmPrincipal: TFrmPrincipal; t:Cardinal; //Declaro essa variável que vai pegar o tempo. t := GetTickCount(); Aqui coloco minha rotina t := GetTickCount() - t; Label25.Caption := 'Tempo de resposta : ' + FormatFloat(',0 milisegundos', t); -
Erro com tabela sem dados
Élviro Cavalcanti replied to Élviro Cavalcanti's tópico in Object Pascal - Delphi & Lazarus
Boa tarde, tive que apagar a tabela "transportador" e criando outra com o nome "transportadora" só assim consegui que tudo voltasse ao normal, até agora fiquei sem entender, mas segue .... -
Erro com tabela sem dados
um tópico no fórum postou Élviro Cavalcanti Object Pascal - Delphi & Lazarus
Bom dia, tenho um sistema usando o Firebird 4.0 com uma tabela de TRANSPORTADOR. Quando abro o sistema e nessa tabela tem dados não existe erro, mas quando a tabela de TRANSPORTADOR não tem dados, sempre apresenta um erro "Access violation at address 0070678D in module 'Controller.exe'. Read of address 000000EC" e simplesmente não conegue fazer mais nada. Alguém já passou por esse problema e conseguiu resolver? Uso o IBX. -
Banco de dados em nuvem para um ou mais clientes
Élviro Cavalcanti replied to Luciano Ramos Palandi's tópico in Banco de Dados
No meu servidor, tenho o caminho de cada banco separado, nesse caso todos os meus clientes que usam esse serviço, ficam com o banco na internet, todos separados. -
Banco de dados em nuvem para um ou mais clientes
Élviro Cavalcanti replied to Luciano Ramos Palandi's tópico in Banco de Dados
Assim como Juliomar colocou, da mesma forma que uma conexão numa rede local -
Banco de dados em nuvem para um ou mais clientes
Élviro Cavalcanti replied to Luciano Ramos Palandi's tópico in Banco de Dados
Bom dia, eu trabalho com o servidor e um banco para cada cliente.