Cadastro de Clientes

[Flavio Ingraci]

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.

[fladimir]

Tenho interesse e saber mais o q precisa e dependendo podemos ver algo.

Não sei se irá passar por aki ou por e-mail (fladimir_arroyo@yahoo.com.br)

[Flavio Ingraci]

fladimir

Enviei um email para voce!

Aguardo.

[fladimir]

Pra ficar registrado foi resolvido pro amigo Flávio, migrei o sistema dele aproveitando os dados das tabelas DBF.

[janio]

Ficou muito bom, Fladimir. Telas muito bonitas. Show

[rubens]

Bom dia...

Já no Windev ?

Rubens

[fladimir]

Sim

[Itamar M. Lins Jr.]

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 ?

Saudações,
Itamar M. Lins Jr.

[janio]

Agora com WinDev ?

E foi passado os fontes? Essa eu nao vi em lugar algum.

Pelo que sabe foi passado apenas o BANCO DE DADOS em DBF (que não tem exclusividade de acesso apenas para o mundo xbase) pra quem quisesse, seja la qual ferramenta fosse, melhorar o visual do sistema, que diga-se de passagem, que visual lindo ficou com windev!

[Itamar M. Lins Jr.]

Ola!
Mesmo assim, não muda o que disse.
Windev é restrito. Não estou tirando os méritos.

Saudações,
Itamar M. Lins Jr.

[fladimir]

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 ?

O Flavio solicitou migrar a tabela DBF para q o cliente dele pudesse rodar o sistema em Windows mais atualizados, não q pra fazer isso precisasse mudar o q ele já tinha lá (um sistema feito com GASPRO), talvez um DOSBOX ou emulador resolvesse, mas quis aproveitar e já pegar como projeto de estudo onde aceitei o trabalho e importei o DBF para SQL no windev e fiz o projeto simples.

Qto a questão dos fontes em CLIPPER qualquer um poderia ver concordo, se os mesmos forem disponibilizados, no Windev tb funciona da mesma maneira, se eu entendi correto tua questão, no caso se eu disponibilizar os fontes as pessoas q tem o windev tb conseguirão ver.

Codigo em PDF o resto é desejado Tela, Botões etc.

[janio]

Windev é restrito

Claro! eh pago, mas com milhares e milhares de programadores no Brasil e no mundo.

Quem tem fontes de sistema em Delphi/Lazarus procura programador em Object Pascal.
Quem tem em xbase, procura em xbase
Quem tem em java procura em java
Quem tem fontes em C# procura programador em C#
Quem tem em ruby procura em ruby.

Quem tem fonts em windev, advinha quem ele vai procurar: programador em windev! Bingo!

So no Brasil são mais de 2mil

[alexlucc]

Boa noite pessoal!
Estou querendo gerar um digito aleatório no meu código de cliente e a rotina esta dando erro na linha que faz esse calculo do "resto". Onde posso estar errando
segue o código

Código: Selecionar todos

 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"

o erro é na linha resto:= mod(soma,13)

[alexlucc]

o resultado teria que ser por exemplo:

00001-1