Histórico da Página

Esse O ponto de entrada F415SUMCPO permite a exibição de dos totalizadores de campos numéricos exibidos números no browse na da tela de seleção de títulos.

1) Somente serão são recebidos pelo P.E. ponto de entrada e consequentemente permitido a exibição da totalização de campos do tipo Numérico, que estejam configurados como Usados e para aparecer no browse.

3) O ponto de entrada devera deve retornar Uma uma array com os campos que se quer seja desejado totalizar e as seguintes posições :

• [1] : Nome do Campo
• [2] : Formato\Mascara do campo
• [3] :

• Título a ser exibido antes do valor
• [4] : Tamanho que deve ser ocupado pelo valor

User Function F415SumCpo()
Local aGrid := ParamIxb[1]
Local aRef := {}
Local aRet := {}
lOCAL ni:=0
lOCAL nAux :=0
lOCAL nAux2 :=0
Local cCampo := ""
Local cFromato :=""
Local cTitulo := ""
Local cTamanho := ""


AADD (aRef,{"E1_SALDO","Soma do "})
AADD (aRef,{"E1_VALLIQ","Soma do "})

For nI := 1 To Len(aRef)
nAux:=Ascan(aGrid,{|x| AllTrim(x[2])==aRef[NI][1]})
cCampo := aGrid[nAux][2]
cFromato :=aGrid[nAux][3]
cTitulo := aRef[nI][2] + aGrid[NaUX][1]+":"
cTamanho := (LEN(ALLTRIM(StrTran(aGrid[NaUX][3],"@E",""))))
AADD(aRet,{cCampo,cFromato,cTitulo,cTamanho})
Next


Return aRet

Português(Brasil)

Versões_Anteriores

Todos

Todas

aCpospc : Array contendo nome e configurações de campos permitidos para a totalização.

aRet : Array contendo para cada campo que deseja totalizar 4 posições com as seguintes informações:
[1] : Nome do Campo
[2] : Formato\Mascara do campo
[3] : Titulo a ser exibido antes do valor
[4] : Tamanho que deve ser ocupado pelo valor

aGrid := FA087aHead(cAlias,aCpos,.T.) // Monta Grid
aCpos := aClone(aGrid[2]) // Campos
aHead := aClone(aGrid[3]) // Cabecalho
If lF415SumCpo
For nI := 1 To Len(aGrid[1])
If aGrid[1][nI][8]=="N"
AADD(aCpospc,aGrid[1][nI])
Endif
Next

aCpospc := ExecBlock("F415SumCpo",.F.,.F.,{aCpospc})
For nI := 1 To Len(aCpospc)
cText415+= aCpospc[nI][3] + Space(aCpospc[nI][4])
Next
Endif

FINA415.PRW