Jump to content

icones_brancos.png

dia-do-acbr-online.png botao

botao.pngbotao.png

botao.pngbotao.png

Ofertas Embarcadero
Descontos de até 35%

Saiba Mais

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

johnbh3

Membros
  • Content Count

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