|
| Inicio → WINDEV 25 → [WINDEV 19][WEBDEV19][WINDEV MOBILE 19] Parâmetros do tipo data |
| [WINDEV 19][WEBDEV19][WINDEV MOBILE 19] Parâmetros do tipo data |
| Iniciado por pedrosao, fev., 21 2015 3:18 AM - Sem resposta |
| |
| | | |
|
| |
Membro registado
42 mensagems |
|
| Publicado em fevereiro, 21 2015 - 3:18 AM |
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 passar este controle para um procedimento que espere uma data 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 |
| |
| |
| | | |
|
| | | | |
| | |
|