Joni Ecker
Membros-
Total de itens
3 -
Registro em
-
Última visita
Sobre Joni Ecker
Joni Ecker's Achievements
0
Reputação
-
Onde consigo ajuda para script loja interspire 6 . . ?
um tópico no fórum postou Joni Ecker Outros Assuntos
Ola, não estou achando local para discutir assuntos relacionados a loja ecommerce interspire 6 alguém pode me ajudar ? Valeu.. OBS: quando não achar um forum para as suas duvidas, coloque no forum Outros Assuntos -
Ola, gostei da simplicidade de script: https://www.scriptbrasil.com.br/script/cgi/...tual/meshop.zip mas não consegui montar, cabeçalho-corpo-rodape.. como montar ela, desde o index.htm e os outros, para que eu apenas mande por ftp: pro site, e depois eu mudarei apenas o arq. que contenha os produtos. alguém pode me ajudar nisso..? aguardo . .
-
Ola, este codigo dentro do programa que uso esta em (PascalScript) preciso mudar ele para (BasicScript) pois entendo um poudo de VB6 e tenho apostilas, e quero montar os relatorios do meu jeito... este é o codigo que preciso transformar para BasicScript ele apenas acessa o BD e tira a lista de fornecedores colocando na cxMenuSuspenso para escolha, ao escolher o fornecedor e clicando em (OK) Button1 ele abre o relatorio já com os produtos do fornecedor escolhido.... ----------- inicio ------------------------------ procedure Page2OnBeforePrint(Sender: TfrxComponent); begin with Page2, Engine do begin FORNECED.Open; FORNECED.Last; end end; procedure Button1OnBeforePrint(Sender: TfrxComponent); begin with Button1, Engine do begin ESTOQUE.Close; ESTOQUE.SQL.Clear; ESTOQUE.SQL.Add('SELECT * FROM ES010'); ESTOQUE.SQL.Add('WHERE CAST(FABRICANTE AS INTEGER) = '+FORMATFLOAT('000000',<FORNECED."ID">)+''); ESTOQUE.Open; end end; procedure DBLookupComboBox1OnClick(Sender: TfrxComponent); begin end; procedure Button2OnClick(Sender: TfrxComponent); begin end; begin end. --------------------------- fim -------------------- Valeu, aguardo uma ajuda . . .