Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Jorge Pinguim

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
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: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

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

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

Os nossos membros postaram um total de 10 mensagens em 4 assuntos

Data fica invertida na planilha que é gerada via programa.

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

Data fica invertida na planilha que é gerada via programa.

Mensagem por Linghston em 26/10/2016, 11:53

Olá pessoal,
Vê se alguém pode me ajudar neste problema.
Eu uso a rotina a baixo para gerar uma planilha Excel, porem o campo DATA no Excel enciste em sair invertido(MM/DD/YYYY), e isto só acontece para os dias que vão de 01 a 09 depois do dia 10 normaliza, mesmo que o campo da tabela de onde ele vem esteja no formato correto (DD/MM/YYYY).
Como disse o problema até onde sei não esta na tabela, pois ela esta formatada corretamente, o problema é quando este campos são plotados na planilha Excel...
Alguém poderia me dar uma ideia como corrigir este problema?
Obrigado


MATRICULA DATA_1 DATA_2
123456789 11/01/2016 11/02/2016
789789789 11/01/2016 11/02/2016
569856901 11/01/2016 11/02/2016

Código que gera a planilha

WITH THISFORM
WAIT WINDOW "Aguarde..." NOWAIT
SET REFRESH TO 5
SET EXCLUSIVE OFF
SET SAFETY OFF
SET DATE TO DMY
SET CENTURY ON
set date BRITISH
OPEN DATABASE D:\ARMAZEM\bdados.DBC
SET DEFA TO D:\ARMAZEM\
USE TEMP_CONS
LOCA=1
IF LOCA=1
LOCATE FOR m.FORNEC = FORNEC
SET FILTER TO m.FORNEC = FORNEC
IF .NOT.FOUND()
MESSAGEBOX(Fornecedor inexistente.',48+0+0,'Atenção')
ELSE
COPY TO D:\ARMAZEM\TEMP_USU
CLOSE ALL
CLOSE DATABASES

***CRIAR PLANILHA GERAL PARA CONSULTA
WAIT WINDOW "Atualizando planilha, Aguarde..." NOWAIT

ox=CREATEOBJECT("excel.application")
START = SECONDS()
ox.workbooks.ADD
SET EXCLUSIVE OFF
USE D:\ARMAZEM\TEMP_USU EXCLUSIVE
COUNT TO XVAR FOR DESENHO=DESENHO
SELECT TEMP_USU.MATRICULA,TEMP_USU.dt_EST1 FROM TEMP_USU INTO ARRAY arrSalesincom

ox.Activesheet.cells(1,1).VALUE = "MATRICULA"
ox.Activesheet.cells(1,2).VALUE = "DATA_1"

**** Seleção dos registros

ox.VISIBLE=1
FOR i = 1 TO XVAR && total de registros que tem no banco
FOR j = 1 TO 2
IF ISNULL (arrSalesincom(i,j)) THEN
ox.Activesheet.cells(i+1,j).VALUE = 0
ELSE
ox.Activesheet.cells(i+1,j).VALUE = arrSalesincom(i,j)
ENDIF
ENDFOR
ENDFOR
ox.Activesheet.Range("B2:B12000").NumberFormat = "dd/mm/yyyy"

ox.workbooks[1].Sheets[1].NAME = "ESTOQUE"
ox.workbooks[1].Sheets[3].DELETE
ox.workbooks[1].Sheets[2].DELETE
WITH ox
.VISIBLE = .F.
ERASE D:\ARMAZEM\planilha\planilha_STOCK.xlsx
ox.Activesheet.SAVEAS("D:\ARMAZEM\planilha\planilha_STOCK.xlsx ")
ENDWITH
ox.workbooks(1).CLOSE(0) && close workbook, discarding changes
ox=0 && release Excel
CLOSE ALL
ENDIF
ENDIF
.text1.ENABLED = .F.
ENDWITH

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Data fica invertida na planilha que é gerada via programa.

Mensagem por Linghston em 27/10/2016, 11:00

Problema resolvido, podem fechar o post.
Com a ajuda de DEUS consegui encontrar a solução para este problema.
Deus seja louvado!!!!
Obrigado.

Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Data fica invertida na planilha que é gerada via programa.

Mensagem por FERNANDOMATRELLA em 16/12/2016, 11:38

mesmo assim eu sempre usei o SET SYSFORMATS ON
nunca tive problemas

FERNANDOMATRELLA
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