Ir para conteúdo
  • Cadastre-se

Élviro Cavalcanti

Membros
  • Total de ítens

    187
  • Registro em

  • Última visita

Tudo que Élviro Cavalcanti postou

  1. 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
  2. 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 ?
  3. 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
  4. 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
  5. Vi agora no exemplo que tem um comando : ACBrReinf1.Eventos.Gerados.Items[i].TipoEvento Não sei se retornaria esse campo que você deseja.
  6. 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;
  7. 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!
  8. 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!
  9. Bom dia, porque não faz a desinstalação e não atualiza ele junto com os shemas ? Acredito que com isso resolverá seu problema!
  10. Bom dia, funciona! Os caras do ACBR são esforçados e como disse Alexandre acima, não medem esforços!
  11. 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.
  12. 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 ?
  13. Felipe, notei uma melhora sim, nada absurda, mas melhorou sim.
  14. 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
  15. Boa tarde, fui postar uma dúvida sobre SQL aqui no site e mostrou como usuário bloqueado, será alguma instabilidade no site ?
  16. Bom dia Carlos, quando você informa que é produtor Rural, você informa a série 920 ?
  17. 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');
  18. Mas explica qual a necessidade desse last, assim posso te ajudar melhor
  19. 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);
  20. 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 ....
  21. 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.
  22. 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.
  23. Assim como Juliomar colocou, da mesma forma que uma conexão numa rede local
  24. Bom dia, eu trabalho com o servidor e um banco para cada cliente.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.