Jump to content

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

digitosistemas

Membros
  • Posts

    30
  • Joined

  • Last visited

1 Follower

Recent Profile Visitors

767 profile views

digitosistemas's Achievements

Contributor

Contributor (5/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

7

Reputation

1

Community Answers

  1. Então, sei que é um erro genérico. O Problema é que, se fosse um erro de configuração do computador, e/ou erro no formatado do xml, quando eu repetisse a pesquisa sempre daria a mesma rejeição né? Quando envio as notas, algumas dão erro no retorno, sendo necessário fazer a consulta pela chave, e outras não. Isso esta causando um stress no meu cliente. Pensa, em 40 notas enviadas, ter que ficar olhando quais não foram validadas, e ficar consultando 60% +- delas. Lembrando que a rejeição, é na consulta, no envio está "ok". O envio é feito no modo síncrono. Desde já agradeço.
  2. Amigo, blz? Talvez o seu problema seja igual ao meu, veja o link abaixo:
  3. Olá colegas, Não sei se este problema é geral ou só aqui no meu GOIÁS que esta acontecendo este problema desde ontem (De acordo com a reclamação de meu cliente, que me reclamou ontem) de ao consultar a nota retorna o Erro na chamada do WS... 999 - Rejeição: Erro não catalogado. Não são todas as notas que acontece isso, de um total de 40notas uns 60% retorna o erro. Então, tenho que pesquisar a nota novamente, as vezes, tem que fazer o processo umas 2, 3 ou 4 vezes para dar certo. Vocês sabem me dizer se houve alguma mudança de regra na consulta, principalmente aqui em GO? Em tempo, a consulta que é feita pela chave de acesso, sempre foi assim. Desde já agradeço.
  4. Colegas, Consegui consultar do jeito que precisava. Se alguém precisar segue solução: LinkTo('www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=7PhJ+gAVw2g=&tipoConsulta=completa&nfe='+cdsnota_chave.asstring+'&'
  5. Opa blz? Minha sugestão é você retroceder a numeração da Ultima NSU consultada? Isso já aconteceu com meu cliente. Uma vez, era porque o fornecedor havia faturado no cnpj da filial, e ele estava consultando pela matriz. Outra vez, demorou muito, mas depois apareceu. Eu consultei em outro computador, com outro banco de testes que eu tinha e apareceu para mim. Depois disso, ele consultou novamente e apareceu. Doidera né. Por isso sugeri, retroceder a numeração.
  6. Boa tarde, Colegas, antes eu estava passando o link da URL para consultar no site da receita a nota fiscal já passando como parâmetro a chave, bastava eu confirmar o Captcha! dessa forma: Linkto('www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConteudo=XbSeqxE8pl8=&tipoConsulta=completa&nfe='+ cdsNFE_CHAVENFE.AsString + '&') Agora não consigo estou conseguindo mais. Alguém sabe qual o novo link? Obrigado
  7. Olá estou precisando de help de colegas. Tenho um cliente (transportadora) que na mesma UF possui mais de uma agência em cidades diferentes. Problema: Na cidade "A" vamos emitir são emitidos alguns CTE e ao final do dia é emitido um MDFe para outra UF. Este veiculo vai passar na cidade "B" e fazer um novo carregamento dos CTE emitidos nesta agência. Como proceder? Pois se usar os mesmos dados do veiculo e motorista da cidade "A" vai dar a rejeição 611 - Rejeição: Existe MDF-e não encerrado para esta placa, tipo de emitente e UF descarregamento. Não se deu pra entender direito, caso interesse pelo meu problema e não tenha entendido, posso explicar de outra forma. Dados: O sistema e independente. O CNPJ é o mesmo.
  8. Bom dia, Usando o Savedialog para gravar algum arquivo qualquer é normal. Escolho a pasta e peço a gravação. Estou com um probleminha, quando esta "pasta" não existe, quando clico no botão do lado direito para cria-la, as opções ficam todas em "Japonês ou Chinês ou sei lá o que" Veja imagem anexo. O que pode ser? Achei que fosse lá na minha máquina, mas vai para o cliente assim também. Desde já agradeço.
  9. Após fazer atualização do SVN não consigo compilar meus projetos. Estava com erro "StrUtilsEx" ai tentei reinstalar os pacotes pelo instalador trunk2, porém me apresenta o erro abaixo ao compilar Caminho: C:\ACBr\Trunk2\ Versão do delphi: Delphi XE6 (0) Plataforma: Win32(0) ================================================================================ Criando diretórios de bibliotecas... Removendo diretorios e pacotes antigos instalados... Adicionando library paths... COMPILANDO OS PACOTES... Compiling package C:\ACBr\Trunk2\Pacotes\Delphi\synapse\ACBr_synapse.dpk "C:\Program Files (x86)\Embarcadero\Studio\14.0\bin\dcc32.exe" "C:\ACBr\Trunk2\Pacotes\Delphi\synapse\ACBr_synapse.dpk" Embarcadero Delphi for Win32 compiler version 27.0 Copyright (c) 1983,2014 Embarcadero Technologies, Inc. 37153 lines, 0.17 seconds, 369028 bytes code, 29368 bytes data. Compilation success Pacote "ACBr_synapse.dpk" compilado com sucesso. Compiling package C:\ACBr\Trunk2\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk "C:\Program Files (x86)\Embarcadero\Studio\14.0\bin\dcc32.exe" "C:\ACBr\Trunk2\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" Embarcadero Delphi for Win32 compiler version 27.0 Copyright (c) 1983,2014 Embarcadero Technologies, Inc. C:\ACBr\Trunk2\Fontes\ACBrComum\ACBrBase.pas(106) Error: E1012 Constant expression violates subrange bounds C:\ACBr\Trunk2\Fontes\ACBrComum\ACBrUtil.pas(2212) Fatal: F2063 Could not compile used unit 'ACBrConsts.pas' Compilation failure Erro ao compilar o pacote "ACBr_Comum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.
  10. Vc pode me passar quais são as DLLs que são necessárias? Também se é necessário fazer algum procedimento (registrar) alguma coisa.
  11. Galera, Acho que consegui resolver. Mas infelizmente não tem como eu postar a solução, porque mexi muito, retirei alguns componentes, troquei vários de posição, Agradeço a todos, que de alguma forma quebrou a cabeça. Brigadú.
  12. Obrigado, Amigos, Sei disso, porém, não consigo entender o seguinte. Clico no botão Inicio e botão voltar, mais de uma vez, e o erro só acontece depois de algum tempo. Na 5, 6 ou 7 vez que clico. Pensei nisso, mas pesquisei no meu programa, e não vi nenhum thread. Como faço para descobrir se tem algum thread rodando no meu programa? ou se esta rodando alguma coisa em segundo plano? Tem como saber fazendo uma pesquisa? Pensei também se não tem algum Timer em algum componente, mas não consegui identificar também. Removi alguns componentes achando que poderia ser.
  13. Fala Galera, Estou tabalhando em um projeto já tem vários dias e não consigo encontrar onde esta o erro. Já criei um novo projeto e continua dano o mesmo erro vejam só. No trecho abaixo, eu clico no botão IniciarVenda e depois no botão bvoltar uma, duas, três, quatro, cinco, seis, e funciona normalmente na sétima vez (ou oitava vez) ao clicar novamente no botão btiniciavendaclick da erro. Classe de erro: EAccessViolation Mensagem de erro: Access violation at address 0040572B in module 'DSCinema.exe'. Read of address 00300030 As vezes da erro na linha 5 = Queryvalor.close As vezes na linha 8 = Queryvalor.open As vezes na na linha 61 = imCensura01.Picture := ImLivre.Picture 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 procedure TFormBilheteria.btIniciaVendaClick(Sender: TObject); Var i : Integer; Classif : String; begin Try QueryValor.Close; QueryValor.SQL.Text := 'Select Data_Exibicao, id_sala, id_filme from '+ 'sessao_filme Where data_exibicao < current_date'; QueryValor.Open; //AS VEZES DA ERRO AQUI if dm.QueryValor.RecordCount > 0 then Begin KDialog('Existe caixa aberto do dia '+FormatDateTime('dd/mm/yyyy',dm.QueryValor.FieldByName('Data_Exibicao').AsDateTime)+ ' Sala '+dm.QueryValor.FieldByName('id_sala').AsString,'Alerta','Info'); Exit; End; TelaCliente(0,'1','1','1'); //PROCEDIMENTO ESTA VAZIO NÃO FAZ NADA POR ENQUANTO tsFilme.TabVisible := True; RzPageControl1.ActivePageIndex := 1; tsInicial.TabVisible := False; cdsTMP.EmptyDataSet; cdsEventos.Close; cdsEventos.Open; i := 1; PanelData.Caption := 'Data: '+ cdsEventosDATA_EXIBICAO.AsString; lbSelecao.Caption := 'Total Selecionada: 0'; stCadeiraSelec.Caption := lbSELECAO.Caption; imsala01.Picture := Nil; imsala02.Picture := Nil; imsala03.Picture := Nil; imsala04.Picture := Nil; while not cdsEventos.eof do Begin case i of 1 : Begin PanelSALA01.Visible := True; if cdsEventosIMAGEM.AsString <> '' Then begin If FileExists(cdsEventosIMAGEM.AsString) Then imsala01.Picture.LoadFromFile(cdsEventosIMAGEM.AsString); end; stFilme01.Caption := Trim(cdsEventosTITULO.AsString); S1 := cdsEventosID_SALA.AsString; F1 := cdsEventosID_FILME.AsString; H1 := cdsEventosHORA_EXIBICAO.AsString; stSala01.Caption := 'Sala: '+ cdsEventosID_SALA.AsString; stPrecoIS01.Caption := 'R$ '+Formatar_valores(cdsEventosPR_INTEIRA.AsFloat); stPrecoMS01.Caption := 'R$ '+Formatar_valores(cdsEventosPR_MEIA.AsFloat); stHora01.Caption := FormatDateTime('HH:mm',cdsEventosHORA_EXIBICAO.AsDateTime); Classif := RetSomenteNumeros(cdsEventosCENSURA.AsString); stLota01.Caption := 'Lotação: '+cdsEventosLOTACAO.AsString; //88Pinta_sessao(stSessao01,FormTelaCliente.stSessao01, cdsEventosLOTACAO.AsInteger,cdsEventosCAPACIDADE.AsInteger); Case StrToIntDef(Classif,0) of 18 : imCensura01.Picture := im18.Picture; 16 : imCensura01.Picture := im16.Picture; 14 : imCensura01.Picture := im14.Picture; 12 : imCensura01.Picture := im12.Picture; 10 : imCensura01.Picture := im10.Picture; Else //ERRO AQUI........... imCensura01.Picture := ImLivre.Picture; //DA ERRO AQUI End; If cdsEventosAUDIO.AsString = 'L' Then stLegenda01.Caption := 'LEGENDADO' Else stLegenda01.Caption := 'DUBLADO'; if cdsEventosTIPOPROJECAO.AsString = '3' then Proj01.Caption := '3D' Else Proj01.Caption := 'DIGITAL'; Gauge1.MaxValue := cdsEventosCAPACIDADE.AsInteger; cdsVendas.Close; cdsVendas.ParamByName('TSala').AsString := cdsEventosID_SALA.AsString; cdsVendas.ParamByName('Data').AsDate := cdsEventosDATA_EXIBICAO.AsDateTime; cdsVendas.ParamByName('Hora').AsString := cdsEventosHORA_EXIBICAO.AsString; cdsVendas.ParamByName('Filme').AsString := cdsEventosID_FILME.AsString; cdsVendas.Open; gauge1.Progress :=cdsEventosLOTACAO.AsInteger; End; 2 : Begin PanelSALA02.Visible := True; if cdsEventosIMAGEM.AsString <> '' Then begin If FileExists(cdsEventosIMAGEM.AsString) Then imsala02.Picture.LoadFromFile(cdsEventosIMAGEM.AsString); end; stFilme02.Caption := Trim(cdsEventosTITULO.AsString); stSala02.Caption := 'Sala: '+ cdsEventosID_SALA.AsString; stPrecoIS02.Caption := 'R$ '+Formatar_valores(cdsEventosPR_INTEIRA.AsFloat); stPrecoMS02.Caption := 'R$ '+Formatar_valores(cdsEventosPR_MEIA.AsFloat); stHora02.Caption := FormatDateTime('HH:mm',cdsEventosHORA_EXIBICAO.AsDateTime); Classif := RetSomenteNumeros(cdsEventosCENSURA.AsString); F2 := cdsEventosID_FILME.AsString; S2 := cdsEventosID_SALA.AsString; H2 := cdsEventosHORA_EXIBICAO.AsString; Case StrToIntDef(Classif,0) of 18 : imCensura02.Picture := im18.Picture; 16 : imCensura02.Picture := im16.Picture; 14 : imCensura02.Picture := im14.Picture; 12 : imCensura02.Picture := im12.Picture; 10 : imCensura02.Picture := im10.Picture; Else imCensura02.Picture := ImLivre.Picture; End; If cdsEventosAUDIO.AsString = 'L' Then stLegenda02.Caption := 'LEGENDADO' Else stLegenda02.Caption := 'DUBLADO'; if cdsEventosTIPOPROJECAO.AsString = '3' then Proj02.Caption := '3D' Else Proj02.Caption := 'DIGITAL'; Gauge2.MaxValue := cdsEventosCAPACIDADE.AsInteger; cdsVendas.Close; cdsVendas.ParamByName('TSala').AsString := cdsEventosID_SALA.AsString; cdsVendas.ParamByName('Data').AsDate := cdsEventosDATA_EXIBICAO.AsDateTime; cdsVendas.ParamByName('Hora').AsString := cdsEventosHORA_EXIBICAO.AsString; cdsVendas.ParamByName('Filme').AsString := cdsEventosID_FILME.AsString; cdsVendas.Open; gauge2.Progress := cdsEventosLOTACAO.AsInteger; stLota02.Caption := 'Lotação: '+cdsEventosLOTACAO.AsString; End; end; Inc(i); cdsEventos.Next; End; Except on e : Exception do Begin KDialog('Erro ao iniciar venda'#13#13'Classe de erro: '+e.ClassName + #13+ 'Mensagem de erro: '+ e.Message, 'Erro', 'ERRO'); end; end; PanelSALA01.Visible := S1<>''; PanelSALA02.Visible := S2<>''; end; procedure TFormBilheteria.bVoltarClick(Sender: TObject); begin tsInicial.TabVisible := True; RzPageControl1.ActivePageIndex := 0; tsFilme.TabVisible := False; tsPoltrona.TabVisible := False; tsFinalizacao.TabVisible := False; end; Vejam que não DESTRUO nenhum objeto. Video_1565265321.wmv
  14. Olá, Não consegui descobrir a causa do problema. No meu computador funciona, e em alguns clientes, e em outros não funciona. Também estou apanhando.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.