Exemplos | User Function F090BRW() Local aCpoOrig := ParamIxb[1] Local aCpoRetur := {} Local nCount := 1 While nCount <= len(aCpoOrig) If len(aCpoRetur)=3 Aadd(aCpoRetur,{"Primeiro campo de usuario","EF_USU1" ,"",00,00,""}) Loop Endif Aadd(aCpoRetur,aCampos[nCount]) nCount++ Enddo Aadd(aCpoRetur,{"Segundo campo de usuario","EF_USU2" ,"",00,00,""}) Return aCpoRetur |
---|
Eventos de chamada do Ponto de Entrada | SetKey (VK_F12,{|a,b| AcessaPerg("FIN090",.T.)}) Pergunte("FIN090",.F.) //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //³ Variaveis utilizadas para parƒmetros ³ //³ mv_par01 Mostra Lan‡ Contabil ³ //³ mv_par02 Aglutina Lancamentos ³ //³ mv_par03 Contabiliza On-Line ³ //³ mv_par04 Gera Cheque automaticamente ³ //³ mv_par05 Ctb Bordero - Total/Por Bordero ³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ //Chama a função pra verificar se o SXB está correto //fa095AjSXB() If (ExistBlock("F090BRW")) aCampos := ExecBlock("F090BRW",.F.,.F.,{aCampos}) Endif dbSelectArea("SEF") SEF->(dbSetOrder(1)) |
---|