Ir para conteúdo
  • Cadastre-se

johnbh3

Membros
  • Total de ítens

    690
  • Registro em

  • Última visita

Tudo que johnbh3 postou

  1. bom dia Ítalo, desculpe incomodar. Mas como eu faço isso? O problema são os erros estranho de HTTP: 400. Mas vou fazer isso que você sugeriu, porque acho que no caso do server, embora eu ache que o o erro HTTP: 400 vai acontecer apos eu fazer isso. Enfim estou chutando que o erro certificado não encontrado ocorre antes do HTTP: 400. Portando pode acontecer ele apos encontrar o ceriticado. Mas não custa tentar ne. Como eu seto pra pegar o arquivo direto, me parece uma alternativa interessante pra testar.
  2. boa tarde, Pessoal estou com uma dor de cabeça sem entender. Tenho um cliente onde o parque deles maioria dos micros são windows 7 (Nenhum funciona) Tem um micro com windows 10 funciona normalmente a emissão da nfse Eles tem um servidor Windows serve 2012. Da um erro tanto no windows server como no windows7. No meu micro de desenvolvimento também funciona normalmente. Erro HTTP: 400 URL: https://producao.ginfes.com.br/ServiceGinfesImpl Nem se eu copiar a pasta do Windows 10 que funciona este erro desaparece. Ai tentamos usar uma solução rdp (Ocorre uma coisa estranha) um botão que tem a função - ACBrNFe1.SSL.SelecionarCertificado lista todos ceriticados no micro, uso ACBr a mais de 5 anos. Nunca aconteceu isto, ele lista uma carga de certificado vencidos que nem instalados estão mais no micro. Quando se abre o internet explorer pra conferir os certificados instalados, estão certificados validos e dentro da validade, onde tem 10 certificados, e no sistema mostra apenas 2 vencidos, eu não faço ideia de onde esta tirando isto, só acontece quando tento usar o sistema via RDP. Por fim tentamos usar diretamente no Windows server 2012 e onde ocorre o mesmo erro do windows 7 (Erro HTTP: 400 URL: https://producao.ginfes.com.br/ServiceGinfesImpl ) Sistema completamente atualizado, fontes do ACBr, ja mechi em tudo que era orientação antiga no internet explorer de TLS, windows 7 original, windows server também, tentei de um tudo nas configurações LT_TLSv1_2, LT_all, etc. Uso o sistema de NFSe com windows 10 em outro cliente, eu mesmo uso pra emitir minhas notas fiscais. No windows server via RDP o erro já e certificado não encontrado pelo relato acima de carregar certificados que nem estão mais na máquina. Então e provável que possa acontecer o mesmo http 400, mas como nem encontra o certificado ele da erro de certificado não encontrado.
  3. johnbh3

    FastReport v6 com ACBR

    Ola Bom dia pessoal, estou querendo instalar o FastReport v6.3.7 no Delphi 2009. Atualmente uso a versão 4. Queria saber se o ACBR funciona nesta versão 6.
  4. johnbh3

    Erro HTTP: 400

    Eu fiz finalmente um teste no windows no parque do cliente. Então o problema só pode ser windows 7.
  5. johnbh3

    Erro HTTP: 400

    Pra mim isto não resolveu
  6. johnbh3

    Erro HTTP: 400

    Bom dia Pessoal, estou com um erro num usuario que começou inesperadamente a 3 dias. Erro HTTP: 400 URL: https://producao.ginfes.com.br/ServiceGinfesImpl Este erro ocorre na NFSe de contagem, ma mudeou TLS_ALL, já mudei tudo possível em em - SSLXmlSignLib Lá esta com Windows 7 Sabem me dizer se foi modificado o endereço de comunicação? ou e falha por ser windows 7?
  7. johnbh3

    Erro SSL em Minas Gerais

    Olá Bom dia Hoje pela manhã e ontem, mas mais hoje pela manha alguns casos de SSL no envio da NFe. Observei que são são usuarios com windows 8 O erro começou inesperamente
  8. Pessoal, bom dia Um cliente esta questionando que deve sair o ICMS ST retido na fonte. Ele e do simples nacional e esta colocando CSONS: 500 - ICMS ST cobrado anteriormente por ST Eu estou colocando essas informações nos campos vBCSTRet :=SP_TabPROD_NFVBCSTRET.AsFloat; pST :=SP_TabPROD_NFpST.AsFloat; vICMSSubstituto:=SP_TabPROD_NFvICMSSubstituto.AsFloat; vICMSSTRet :=SP_TabPROD_NFvICMSSTRet.AsFloat; -<ICMSSN500> <orig>0</orig> <CSOSN>500</CSOSN> </ICMSSN500> No XML esta assim. O que estou fazendo de errado? a PROPRIEDADE: ACBrNFe1.Configuracoes.Geral.ForcarGerarTagRejeicao938:=fgtSempre JÁ coloquei pra fgtSempre
  9. Ola Boa tarde Na NFe estou. Todas condições de pagamento que eu informo. Sai uma com valor zero. Mas eu não programei isto. Até dei um um clear nos pagamento antes de iniciar. Estranhamente, ele gera as cobranças certinho e na tag DetPag gera as 3 condições que eu informei e por ultimo gera uma com valor zerado. O forum não me deixar anexar a imagem esta com apenas 41 sem permissão. Mas anexei o XML -<pag> -<detPag> <tPag>15</tPag> <vPag>8.33</vPag> </detPag> -<detPag> <tPag>15</tPag> <vPag>8.33</vPag> </detPag> -<detPag> <tPag>15</tPag> <vPag>8.34</vPag> </detPag> -<detPag> <tPag>01</tPag> <vPag>0.00</vPag> 31200210918477000104550010000051191881998807-nfe.xml
  10. Eu fiz uma conversão da hora para segundos aparentemente vai resolver. TimeA:=(SecondsBetween(data1,data2)) TimeB:=ScondsBetween(HoraDiaria),StrToTime('00:00:00')) Resto:=TimeA mod TimeB; Depois usei esta função function SecondToTime( Segundos : Cardinal ) : String; var Seg, Min, Hora: Cardinal; begin Hora := Segundos div 3600; Seg := Segundos mod 3600; Min := Seg div 60; Seg := Seg mod 60; Result := FormatFloat(',00', Hora) + ':' + FormatFloat('00', Min) + ':' + FormatFloat('00', Seg); end; Converti o segundos por hora
  11. De toda forma vou ter o erro de TimeA com hora invalida "49:52:53" procedure TForm1.BitBtn1Click(Sender: TObject); Var Resto,TimeA,TimeB:TTime; begin TimeA:=StrToTime(Edt_TimeA.Text); TimeB:=StrToTime(Edt_TimeB.Text); Resto := (TimeA / TimeB) - Trunc(TimeA / TimeB); Edit1.Text:=TimeToStr(Resto) ; end;
  12. Então queria o resto da divisão (TimeA) acumula horas até tudo bem, usei TDateTime para me retornar o acumulo de horas com uma função. Veja exemplo da imagem, acumulou 49:42:53 e fiz um mod por 24:59:59 na coluna a, mas o usuario pode definir que pra ele 1 diaria seria quando atingir 20 hrs. Observe que o resto e diferente Quando e considerado 24 hrs o resto que sobra e 1:52:25 agora se eu considerar como 20 Hrs cobrar 1 diaria o resto seria 9:52:23 Neste caso achei o tempo excedente, quando considerado 24 hrs excedeu 1 hora e 52 min, se considerar 20 hrs uma diaria excedeu 9 horas e 52 min Consegui me entender?
  13. Infelizmente não seria este o caso também. Eu queria pegar o resto. Se eu fizer um menos o outro daria 25:52:24 Outro problema que o timeA pode ter acumulo de horas como "47:59:59" dando erro is not valid time. Eu queria obter um resultado semelhante ao do excel. Eu peguei 47 hrs usei o MOD com tempo pre-derminado (TimB) que vai ser sempre menor que 24 hrs. Dai o tempo restante pegaria como uma sobra. Seria tipo um estacionamento. Carro chega, fica lá, 1, 2, dias dando 48 horas. O Estacionamento cobra algo tipo R$ 30,00 reais a diaria, porem ele ficou 2 dias e 2 horas. Iria cobrar 30 reais das 2 diárias + 2 horas avulsa, a titulo de exemplo seria isto.
  14. Eu rento um retorno de erro "47:59:59" is not valid time De fato não e uma hora valida. Mas no exemplo eu como no excel eu teria um retorno de 1 segundo
  15. Pessoal Não e possivel usar o recurso mod do delphi para pegar resto do tempo NO execel fiz assim No delphi tentei fazer DiferencaTime:= TimeA mod TimeB; Mas o mod só recebe inteiro? Eu defini todas 3 variaveis como Time (DiferencaTime, TimeA e TimeB)
  16. Ola Pessoal como eu faço uma subtração de hora. Exemplo: Tenho 00:40:00 Que diminuiu 1 hora desses 40 minutos Ou seja 01:00:00-00:40:00 Se eu fizer a minuição simples var hra1,hra2,hrSub:TTime; begin hra1:= StrToTime(Edit2.Text); hra2:= StrToTime(Edit1.Text); hrSub:=hra2-hra1; Eu vou ter um resultado de 20 minutos Resultado: 00:20:00 O mesmo ocorre até no execel Na verdade gostaria que ficasse com valor de tempo ZERO.
  17. Perdão desconsiderar! Ele gerou um código 2. Tocantis pra mim foi novidade
  18. Ola Pessoa o cidigo CSC ta certinho e ID também para um cliente do Tocantins. Esta dando esta rejeição. Codigo de Hash no QR-Code difere do calculado
  19. Conseguimos atraves do contador, uma conversa com fiscal. A ideia não e tão simplório assim. Na pratica isto nem era correto de ser feito. Mas não existe também algo que seja previsto legalmente. E algo que o contribuinte precisaria guardar e relacionar os comprovantes das parcela com da primeira venda como crediário. Mas obrigado pela resposta, Infelizmente os usuários são meio mágicos. igual tenho cliente que emiti os cupons no fim do dia, e outra coisa errada. Um fiscal em caso de fiscalização a depender da defesa ele vai fazer vista grossa. Mas na prática o correto e emitir o cupom e entrega no ato da venda. Então são inúmeras situações que o contribuinte tentam dar jeitinhos.
  20. OIa Infelizmente pra gente que estava esperando que fosse realmente vingar o NFCe para Fevereiro/2020 para todos contribuintes, minas geras definiu novos prazos; ´Pra mim foi um balde de agua fria. Em resumo, fica desobrigado aqueles que faturam inferior a 120 mil por ano. Aqueles que entrariam em fev/2020 colocaram para final de 2020.Em fev/2020 praticamente deu um prazo maior para aquele contribuinte com faturamento até alto. RESOLUÇÃO 5313, DE 01 DE NOVEMBRO DE 2019, SECRETARIA DA FAZENDA DE MINAS GERAIS - MEF35459 - LEST MG Altera a Resolução nº 5.234, de 5 de fevereiro de 2019, que estabelece obrigatoriedade de emissão da Nota Fiscal de Consumidor Eletrônica - NFC-e. OSECRETÁRIO DE ESTADO DE FAZENDA DE MINAS GERAIS, no uso da atribuição que lhe confere o inciso III do § 1º do art. 93 da Constituição Estadual e tendo em vista o disposto no art. 36-B da Parte 1 do Anexo V do Regulamento do ICMS - RICMS -, aprovado pelo Decreto nº 43.080, de 13 de dezembro de 2002, RESOLVE: Art. 1° O inciso V do caput do art. 2º da Resolução nº 5.234, de 5 de fevereiro de 2019, passa a vigorar com a seguinte redação, ficando o referido artigo acrescido dos incisos VI e VII e dos §§ 7º a 9º: &quot;Artigo 2º (...) V - 1º de fevereiro de 2020, para os contribuintes cuja receita bruta anual auferida no ano-base 2018 seja superior ao montante de R$ 1.000.000,00 (um milhão de reais), até o limite máximo de R$ 4.500.000,00 (quatro milhões e quinhentos mil reais), observado o disposto nos §§ 4º a 6º; VI - 1º de junho de 2020, para os contribuintes cuja receita bruta anual auferida no ano-base 2018 seja superior ao montante de R$ 500.000,00 (quinhentos mil reais), até o limite máximo de R$ 1.000.000,00 (um milhão de reais) observado o disposto nos §§ 4º a 6º; VII - 1º setembro de 2020, para os contribuintes cuja receita bruta anual auferida no ano-base 2018 seja inferior ou igual ao montante de R$ 500.000,00 (quinhentos mil reais), observado o disposto nos §§ 4º a 7º. (...) § 7º. Fica dispensado da obrigatoriedade de uso da NFC-e o contribuinte que estiver enquadrado como microempresa com receita bruta anual igual ou inferior a R$ 120.000,00 (cento e vinte mil reais). § 8º. O estabelecimento enquadrado como microempresa que ultrapassar o valor previsto no § 7º ficará obrigado a emitir a NFC-e no prazo de até sessenta dias contados da data em que ultrapassar o referido valor. § 9º. Os contribuintes em início de atividades ficam obrigados à emissão da NFC-e quando auferirem receita bruta anual acima de R$ 120.000,00 (cento e vinte mil reais), observado o disposto no § 8º.&quot;. Art. 2° O inciso I do caput do art. 3º da Resolução nº 5.234, de 5 de 2019, passa a vigorar com a seguinte redação: &quot;Artigo 3º (...) I - fica facultada a sua utilização, por até doze meses, contados das respectivas datas a que se referem os incisos do caput do art. 2º, ou até que finde a memória do equipamento, o que ocorrer primeiro;&quot;. Art. 3° Esta resolução entra em vigor na data de sua publicação. Belo Horizonte, ao 1º dia de novembro de 2019; 231º da Inconfidência Mineira e 198º da Independência do Brasil. GUSTAVO DE OLIVEIRA BARBOSA Secretário de Estado de Fazenda
  21. Pessoal Eu estou usando o JEDI no windows 9 funciona perfeitamente. Instalei o delphi 2009 no windows 10. Instalei em outro windows 10. Quando uso o install .bat no windows 10 da essa mensagem No Delphi/BCB/BDS/RAD-Studio versions was found that has required dependencies installed. Please install the dependencies first. To desesperado. Não consigo fazer isto funcionar. esta imagem no meu windows 8. Abre normalmente pra ser instalado
×
×
  • 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.

The popup will be closed in 10 segundos...