Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

johnbh3

Membros
  • Content Count

    531
  • Joined

  • Last visited

Community Reputation

22 Excellent

1 Follower

About johnbh3

  • Rank
    Membro Ativo

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
  2. 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
  3. 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;
  4. 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?
  5. 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.
  6. 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
  7. 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)
  8. 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.
  9. Perdão desconsiderar! Ele gerou um código 2. Tocantis pra mim foi novidade
  10. 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
  11. 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.
  12. 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
  13. 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
×
×
  • Create New...