Tenho uma função que completa o valor de alguns textbox, fiz as pressas e não ficou muito profissional, gostaria de usar macro substituição mas tentei de todo modo e não consegui, sera que os senhores poderiam me dar uma luz?
Código: Selecionar todos
*_______________________________________________________________________________
func pega_cod(par1,par2,par3)
aEtapa := par1
oCodig := par2
oNumer := par3
dbselectarea('cannomad')
ordsetfocus('nome_can')
cannomad->(dbgotop())
cannomad->(dbseek(aEtapa))
if(!eof())
if oNumer = "1"
form_fit.oGet_ccan1_fit.value := cannomad->codi_can
elseif oNumer = "2"
form_fit.oGet_ccan2_fit.value := cannomad->codi_can
elseif oNumer = "3"
form_fit.oGet_ccan3_fit.value := cannomad->codi_can
elseif oNumer = "4"
form_fit.oGet_ccan4_fit.value := cannomad->codi_can
elseif oNumer = "5"
form_fit.oGet_ccan5_fit.value := cannomad->codi_can
elseif oNumer = "6"
form_fit.oGet_ccan6_fit.value := cannomad->codi_can
elseif oNumer = "7"
form_fit.oGet_ccan7_fit.value := cannomad->codi_can
elseif oNumer = "8"
form_fit.oGet_ccan8_fit.value := cannomad->codi_can
elseif oNumer = "9"
form_fit.oGet_ccan9_fit.value := cannomad->codi_can
elseif oNumer = "10"
form_fit.oGet_ccan10_fit.value := cannomad->codi_can
endi
endi
return(nil)
*_______________________________________________________________________________
