Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 12 Visitantes :: 2 Motores de busca

Alexsander Leal

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

Estatísticas
Temos 6987 usuários registrados
O último usuário registrado atende pelo nome de Alexsander Leal

Os nossos usuários postaram um total de 1 mensagem em 1 assuntos

Formatação DATA para a SEFAZ

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Formatação DATA para a SEFAZ

Mensagem por memarques em 8/10/2015, 13:33

Caros

A formatação de datas que a SEFAZ utiliza é da seguinte forma:

<dhEmi>2014-11-07T00:00:00-02:00</dhEmi>

Alguem tem o caminho para transformar esse formato em DATETIME() e vice-versa? Alguma dica?

Talvez uma rotina em NET que posso passar esse texto e retornar datetime()???

Obrigado, ate

Mauro

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Formatação DATA para a SEFAZ

Mensagem por Luiz Ubaldini em 8/10/2015, 15:32

Boa tarde Mauro
Fiz esta função, tenta com ela

cTexto = "2014-11-07T01:22:54-02:00"
? fFortamaDt(cTexto,"")

Function fFortamaDt(cTexto, cRet)
  cData = Substr(cTexto,9,2)+"/"+Substr(cTexto,6,2)+"/"+Left(cTexto,4)
  cData2 = Left(cTexto,4)+"-"+Substr(cTexto,6,2)+"-"+Substr(cTexto,9,2)
  cHora = Substr(cTexto,12,8 )
  Do Case
  Case cRet = "D" && retorna so a data
     Return  Ctod(cData)
  Case cRet = "H" && retorna so a hora
     Return cHora
  Otherwise && retorna datahora
     Return Ctot(cData2+"T"+cHora)
  Endcase
Endfunc

Luiz Ubaldini
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Formatação DATA para a SEFAZ

Mensagem por memarques em 8/10/2015, 16:08

Luiz, Obrigado.

Vc resolveu na "raça", ou seja "fazendo o parse" do conteúdo e extraindo as diversas partes do string. Beleza, imaginei que talvez o VFP tivesse uma função que pudesse fazer isso.

Claro que já tinha imaginado que teria q fazer o parse na raça, assim como na sua sugestão, mas entre outras coisas, temos que levar em conta o fuso horário.

Por exemplo a data:

<dhEmi>2014-11-07T00:00:00-02:00</dhEmi>

tem uma hora de diferença para essa outra:

<dhEmi>2014-11-07T00:00:00-03:00</dhEmi>

se quisermos por exemplo comparar datas, o ideal seria transformar para um valor datetime() no UTC 0, por exemplo:

<dhEmi>2014-11-07T00:00:00-00:00</dhEmi>

Por isso gostaria de "achar" uma função que já levasse isso em consideração. Acho que o Marcos Guedes fez alguma coisa como exemplo em c#. Se houvesse uma função assim em NET, poderia criar uma DLL e chamar do VFP.

Novamente, muito obrigado pela sua atenção.

Ate
Mauro




memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Formatação DATA para a SEFAZ

Mensagem por Luiz Ubaldini em 8/10/2015, 16:55

Versao 2.0

Clear
cTexto = "2014-11-07T01:22:54-03:00"

? fFortamaDt(cTexto,"")

Function fFortamaDt(cTexto, cRet)
cData = Substr(cTexto,9,2)+"/"+Substr(cTexto,6,2)+"/"+Left(cTexto,4)
cData2 = Left(cTexto,4)+"-"+Substr(cTexto,6,2)+"-"+Substr(cTexto,9,2)
cHora = Substr(cTexto,12,Cool
cFuso = Substr(cTexto,20,6)
Do Case
Case cRet = "D" && retorna so a data
Return  Ctod(cData)
Case cRet = "H" && retorna so a hora
Return cHora
Otherwise && retorna datahora
Return Ctot(cData2+"T"+cHora+".0000000"+cFuso)
Endcase
Endfunc

Luiz Ubaldini
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Formatação DATA para a SEFAZ

Mensagem por memarques em 9/10/2015, 10:55

Luiz

Muito obrigado novamente.

Ate
Mauro

memarques
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum