Erro data Calendario

[Ribeiro]

Peguei esta rotina do forum,

Mas ele da erro na data Data_Efetivado_Estoque

Quando seleciono o Ano e Mês, só funciona a tabela Plano Contas

SET ThousandSep='.';
SET DecimalSep=',';
SET MoneyThousandSep='.';
SET MoneyDecimalSep=',';
SET MoneyFormat='R$  #.##0,00;-R$  #.##0,00';
SET TimeFormat='hh:mm:ss';
SET DateFormat='DD/MM/YYYY';
SET TimestampFormat='DD/MM/YYYY hh:mm:ss[.fff]';
SET MonthNames='jan;fev;mar;abr;mai;jun;jul;ago;set;out;nov;dez';
SET DayNames='seg;ter;qua;qui;sex;sáb;dom';





LET vDateMin=num(makedate(2015,01,01));
LET vDateMax=floor(monthend(today()));
LET vDateToday = num(today());


Calender:
LOAD Distinct Date($(vDateMin) + RowNo() - 1,'DD-MMM-YYYY') AS Date,
month(Date($(vDateMin) + RowNo() - 1,'DD-MMM-YYYY')) AS Month,
year(Date($(vDateMin) + RowNo() - 1,'DD-MMM-YYYY')) AS Year,
  monthname(Date($(vDateMin) + RowNo() - 1,'DD-MMM-YYYY')) AS Monthname,
  Week(Date($(vDateMin) + RowNo() - 1,'DD-MMM-YYYY')) AS Week

AutoGenerate 1 While $(vDateMin) + IterNo() - 1 <=$(vDateMax);


OLEDB CONNECT32 TO [Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=S9_Real;Data Source=localhost\shopcontrol9;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=AGNALDO;Use Encryption for Data=False;Tag with column collation when possible=False] (XPassword is YMNUTJVMODaCWYIGTBDB);
//-------- Start Multiple Select Statements ------


Tab_Mov:
LOAD
    "Movimento_Prod_Serv_Qtde",
    Movimento_Prod_Serv_Preco as Preco_Final,
    "Movimento_Tipo_Operacao",
    Data_Efetivado_Estoque AS Date;
SQL SELECT *
FROM "S9_Real".dbo."View_Vendas"
WHERE Movimento_Data>= '2015-01-01';


PlanoContas:
LOAD
    Data_QuitacaoP as Date ,
    SituacaoP,
    "Tipo_ContaP",
    "Valor_BaseP",
    "Pagar_ReceberP",     
   Exclui_DRE,    
    CodigoFilialP,
    "Valor_QuitadoP";
SQL SELECT *
FROM "S9_Real".dbo."View_A_temp"
WHERE Data_QuitacaoP>= '2015-01-01';;

[fabionakashigue]

Agnaldo,

Sua tabela "Tab_Mov" está retornando a data no formato de timestamp.

Faça a conversão para Data completa.

Abs

[Ribeiro]

Fábio,

Como faço esta alteração,

[fabionakashigue · Accepted solution]

Agnaldo,

Primeiro eu faria criação de arquivos .qvd ao invés de ler informações direto do banco.

Depois Date(Floor(Data_Efetivado_Estoque),'DD-MMM-YYYY')          As Date

Abs.

[Ribeiro]

Obrigado Fábio, este precisava mesmo era da Floor

Risos. Muito Obrigado