Ir para conteúdo
Fórum Script Brasil

Joni Ecker

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Joni Ecker postou

  1. 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
  2. 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 . .
  3. 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 . . .
×
×
  • Criar Novo...