Exemplos | #include "rwmake.ch" #include "protheus.ch" User Function ATF010SAL() Local aConfig := aClone(ParamIxb1) /* Estrutura do aConfig original (passado como parâmetro) é de uma array com três posições, sendo cada uma: Tipo Ativo | | Tipo Saldo | Metodo Metodo Depreciacao | | aConfig1aConfig1 \ | {"01|02|03|04|05|06|07|11|13" ,"1|" | ,"1|7|8|9" } | aConfig2 \ | {"09|08" ,"1|" ,"1|" } | aConfig3 \ | {"10|12|14|15" ,"*" ,"*" } | | Cada posição Cada posição do array corresponde a um conjunto de configurações que respeita | a hierarquiaa hierarquia: | aConfig1 | 1 1 - Tipo de Ativo 2 - | Tipo de Saldo Tipo de Saldo 3 - | Método de Método de Depreciação | aConfig2 | 1 1 - Tipo de Ativo 2 - | Tipo Tipo de Saldo 3 - | Método Método de Depreciação | aConfig3 | 1 1 - Tipo de Ativo 2 - | Tipo Tipo de Saldo 3 - | Método Método de Depreciação | */ | // | Sugestão Sugestão de implementação do ponto de entrada //(esse tipo de validação permite TODAS | as as combinações do tipo: | | //TIPO DE ATIVO X TIPO DE SALDO X | MÉTODO MÉTODO DE DEPRECIAÇÃO | | aConfig11 aConfig11 := | "01|02|03|04|05|06|07|11|13" | aConfig12 aConfig12 := "*" | aConfig13 aConfig13 := "*" | aConfig21 aConfig21 := "09|08" | aConfig22 aConfig22 := "*" | aConfig23 aConfig23 := "*" | aConfig31 aConfig31 := "10|12|14|15" | aConfig32 aConfig32 := "*" | aConfig33 aConfig33 := "*" | | MsgAlert(" | Executou Executou o ponto de entrada ATF010SAL") | | Return Return aClone(aConfig) |
---|
|
Parâmetros | ParamIxb - Array contendo na sua primeira posição o array | aConfig original, com a seguinte estrutura: Estrutura do aConfig original (passado como parâmetro) é de | uma array com três posições, sendo cada uma: | | | | | | | | \{"01|02|03|04|05|06|07|11|13" |
---|
| | | | | | | | | | | Cada posição do array corresponde a um conjunto de |
---|
| configurações que respeita a hierarquia: |
---|
| | | aConfig11 | | 3 - Método de Depreciação |
---|
| | | aConfig21 | | 3 - Método de Depreciação |
---|
| | | aConfig31 | | 3 - Método de Depreciação |
---|
|
| |