sábado, 14 de fevereiro de 2015

Windev Passando datas para uma Procedure

Passando datas para uma Procedure

Se você tiver um controle em uma janela que seja originado por um campo de data de um arquivo, este será apresentado como
uma string ANSI. Desta forma se você tentar passasr este controle para um procedimento que espere uma data, o que
ocasionará um erro.
Uma solução é usar o seguinte código:
Minhadata is Date = DocumentDate
INHEAD.PeriodCode = GetPeriodFromDate(Minhadata)
Isto faz com que o procedimento chamado use a data passada diretamente.
PROCEDURE GetPeriodFromDate(lcDate is Date)
MyReturnVal is int = -1
HReadFirst(Finperiods,FinperiodsID)
WHILE NOT HOut(Finperiods)
IF Finperiods.PeriodStart <= lcDate AND Finperiods.PeriodEnd >= lcDate THEN
MyReturnVal = Finperiods.PeriodCode
BREAK
END
HReadNext(Finperiods, FinperiodsID)
END
RESULT MyReturnVal
Gestão do Conhecimento http://pedroso.mysuite.com.br/services/gcHtml.php
1

Diretorio -

Diretorio -

Data - Duração

Data - Duração


Duration - http://doc.windev.com
















Move Diretorio

Move Diretorio

FMoveDir - http://doc.windev.com


fMoveDir (Function)
In French: fRepDéplace

Moves the content of a directory into another directory.

// Moving the content of a directory 
// The content of the "C:\Directories\MyFiles" directory is moved 
// into the "D:\Documents\FileCopy" directory
Res is boolean
Res = fMoveDir("C:\Directories\MyFiles", "D:\Documents\FileCopy", frRecursive)
IF Res = False THEN
Error(ErrorInfo(errMessage))
END

Windev Data Texto Para Postgres

Windev Data Texto Para Postgres

Para converter um campo texto para campo data, usar a funcao

StringToDate

nota_fiscal.data_emissao = StringToDate("16/09/2014","DD-MM-YYYY")


Data - Passando Data Para Procedure

Data - Passando Data Para Procedure



Teste

Teste
teste