Senhores(as)
Tenho um cliente para um sistema simples de cadastro e pesquisa de clientes.
Tem que aproveitar um banco de dados em DBF já existente.
Se alguém se interessar, passo maiores detalhes.
Moderador: Moderadores
Agora com WinDev ?
Ola!
Quando os fontes estavam em CLIPPER qualquer pessoa poderia ver, alterar, usar Harbour, Minigui, Hwgui até PHP e Object Pascal, C#... São linguagens que temos acesso.
Agora com WinDev ?
Windev é restrito
ccodcli := SPACE(7)
DBSELECTAR("Cli")
ORDSETFOCUS("CODCLI") // criar ordem
DBGOTOP()
DO WHILE !EOF()
IF Cli->tipo = " "
ccodcli := Cli->codcli
ENDIF
DBSKIP()
ENDDO
ccodcli := Val(Substr(ccodcli,1,5))+1
CodA:=StrZero(ccodcli,5)
Soma=0
For i:=6 to 11
Soma:=Soma+(Val(SubStr(CodA,i-5,1))*i)
Next
Resto:=Mod(Soma,13)
Resto:=StrZero(Resto,3)
Resto:=Substr(Resto,3,1)
ccodcli :=CodA+"-"+Resto
@ 03,18 Say ccodcli Pict "99999-9"
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes