Ponto de Entrada
Descrição: | Desenvolvido ponto de entrada, que visa manipular o aCols da rotina CTBA380 na hora de informar a taxa |
Localização: | Miscelâneas->Ajuste de moedas->Variação Moenetaria |
Eventos: | If lC380VldTx aCols := ExecBlock("C380VLDTX", .F., .F.,{aCols}) If ValType(aCols) <> "A" //Valida o retorno do usuário aCols := AClone(aColsAux) //Se o retorno do usuário não for valido retorno o conteúdo original do array EndIf EndIf |
Programa Fonte: | CTBA380.PRW |
Função: | Ct380StMdas - Edita status das moedas para calculo de variação |
Retorno: | Nome | Tipo | Descrição | Obrigatório | aCols | A | Array contendo os dados digitados pelo usuário | Sim |
|
Exemplo:
#Include 'Protheus.ch'
User Function C380VLDTX()
Local aCols := paramixb[1]
aCols[1][2] := Coluna Critério
aCols[1][6] := 4.00 //Valor da taxa posição 6
aCols[1][7] := Coluna Moeda
Return aCols