Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
24 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 24 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7038 usuários registrados
O último usuário registrado atende pelo nome de CASTROCV

Os nossos membros postaram um total de 31 mensagens em 17 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