Funções utilizadas na Integração Siga Protheus - Excel

DataValida(Data,Opção)

Retorna a data válida após verificação (sábado, domingo ou feriado)

Parâmetros:

Data – Data para iniciar o cálculo da função.

Opção – 0. Retrocede a data para o dia útil anterior.

                1. Posterga a data recebida para o próximo dia útil.

Exemplo:

DataValida(01/05/2015,1) ==> 04/05/2015

DataValida(01/05/2015,0) ==> 30/04/2015

Extenso(Valor,Tipo_Extenso,Moeda)

Retorna o valor por Extenso.

Parâmetros:

Valor – Valor número a ser tratado.

Tipo_Extenso – 0. Moeda

                             1. Quantidade

Moeda – Identifica em que moeda se dará o retorno.

 Exemplo:

Extenso(150,0,1) ==> CENTO E CINQUENTA REAIS

Extenso(200,1,1) ==> DUZENTOS

Extenso(432,0,2) ==> QUATROCENTOS E TRINTA DE DOIS DOLARES

MesExtenso(Mes)

Retorna o mês por Extenso.

Exemplo:

MesExtenso(2) ==> FEVEREIRO

MesExtenso(11) ==>NOVEMBRO

Contar(Alias,Condição)

Retorna o número de registros que satisfaçam a condição conforme o Alias informado.

Esta função necessita conhecimento especifico da base de dados (arquivos, campos e índices).

Exemplo:

Contar("SA1",A1_LOJA <> ‘01’) ==> Retorna a quantidade de registro com o campo LOJA diferente de 01.

EXEMPLO DE USO DA FUNÇÃO SIGA() C/ USER FUNCTION

Listagem do Programa:

#include "rwmake.ch"

User Function TesteExcel(cPar01,nPar02,dPar03)
//caracter/Numerico/Data

Local nValor := 0
//Obs: Se todos os parametros forem aceitos deve ser retornado o numero 3

If ValType(cPar01) == "C"
nValor := nValor + 1
Endif

If valType(nPar02) == "N"
nValor := nValor + 1
Endif

If ValType(dPar03) == "D"
nValor := nValor + 1
Endif

Return(nValor)

No Excel utilizar:

Siga("U_TesteExcel";"UM";2;25/04/2001)