Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function CT010Atu() //o Array ParamIxb possui os elementos: {aHeader,aCols,nCont,nTipo}, onde //aHeader - Tipo: Array. Cabeçalho da MsGetDados //aCols - Tipo: Array. Dados da MSGetDados //nCont - Tipo: Numérico. Nro da Linha atual do aCols //nTipo - Tipo: Numérico. Qual é o tipo de manipulação efetuada no PE (1-: // 1 - Leitura de Dados - carga do aCols; // 2 - Persistência do dado em seu relativo campo - criado por usuário). Local aMyHeader := aClone(ParamIxb[1]) //aHeader Local aMyCols := aClone(ParamIxb[2]) //aCols Local nItem := ParamIxb[3] //Linha do aCols Local nTipo := ParamIxb[4] //Tipo de manipulação de dado (1 - Carga do aCols; 2- Salvamento na tabela) Local nPxTeste := aScan(aMyHeader,{|x| Alltrim(x[2]) == "CTG_XTESTE" }) If ( nPxTeste > 0 .And. nTipo == 2 ) Replace CTG_XTESTE With aMyCols[nItem,nPxTeste] ElseIf (nPxTeste > 0) aMyCols[nItem,nPxTeste] := IIf(Empty(CTG->CTG_XTESTE),space(Len(CTG->CTG_XTESTE)),CTG->CTG_XTESTE) EndIf //Essencial Clonar o array para o aCols (array de escopo privado) aCols := aClone(aMyCols) Return() |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas