LOCAL aDataList, aValorList, dData, dValor
aDataList := { Stod( "2018/01/01" ), Stod( "2018/01/15" ), Stod( "2018/02/01") } }
aValorList := { 150, 150, 150 )
FOR EACH dData, nValor IN aDataList, aValorList
? dData, aValor
NEXT
Moderador: Moderadores
LOCAL aDataList, aValorList, dData, dValor
aDataList := { Stod( "2018/01/01" ), Stod( "2018/01/15" ), Stod( "2018/02/01") } }
aValorList := { 150, 150, 150 )
FOR EACH dData, nValor IN aDataList, aValorList
? dData, aValor
NEXT
FOR EACH cType, cName, nNumber IN _HMG_SYSDATA[ 1 ], _HMG_SYSDATA[ 2 ], _HMG_SYSDATA[ 4 ]
k := cType:__EnumIndex
clipper é legado e harbour daqui a pouco tempo será legado também
dbcreate("CLIENTE.DBF"...
If !file("cliente.dbf")
você morre o sistema morre, ninguém vai querer mexer, enfim essa é minha opinião
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 20 visitantes