Jump to content

Search the Community

Showing results for tags 'xbase'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Matemática
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 4 results

  1. Olá a todos, precisava do vossa ajuda, de um nivel mais acima... Ou seja, preciso de criar um campo de utilizador na tabela ST com a operação de multiplicação de dois campos da mesma tabela. Portanto, será o st.stock * st.conversao. isto é um select simples, mas ja percurri por varios sitios e nao consegui com que retornasse corretamente ao dito campo. Posso obter a vossa ajuda? desde já obrigado!!
  2. Bom dia, Estou a desenvolver um módulo para o PHC, em que através de um botão pretendia abrir todos produtos com número de série no formulário de Equipamentos. Alguém sabe como consigo ter acesso ao formulário de Equipamentos (qual a função a chamar no código) com XBASE para depois popular com um cursor? Cumprimentos, Apolo
  3. Boas, Tenho tido dificuldades na importação de ficheiro excel para o PHC (versão corporate), para as linhas da grelha (tabela ML) de contabilidade (tabela DO). Criei o seguinte código, corre tudo bem, mas não consegue colocar o ecrã em modo de edição nem criar as linhas nem preencher o conteúdo. Será que alguém me consegue ajudar? if messagebox('Para iniciar a importação de linhas p/ a CTB, os campos devem ser (obrigatória e respetivamente): "CONTA", "DEBITO", "CREDITO", "CANALITICO", "DESCRITIVO" e "NUMDOC". Confirma?',32+4)=7 return endif qfile = Getfile('XLSX','Escolher', 'Abrir',0,'Escolha o ficheiro a importar') If Empty(qfile) Return Endif mvisible=.T. Wait Window 'A abrir o ficheiro...' Nowait oExcel = Createobject("Excel.Application") oExcel.Visible = mvisible oExcel.Application.UserControl=mvisible oExcel.Application.Interactive=mvisible oExcel.DisplayAlerts = mvisible oWorkbook = oExcel.Application.Workbooks.Open(qfile) oSheet = oWorkbook.activesheet.Name Wait Window 'A verificar a versão do ficheiro...' Nowait If Val(oExcel.Version) > 11 Wait Window 'A guardar o ficheiro em formato compativel...' Nowait oWorkbook.SaveAs(ac_dir+"excel95.xls", 39) && xlExcel8 qfile=ac_dir+"excel95.xls" Endif Wait Window 'A fechar a folha...' Nowait oWorkbook.Close() Wait Window 'A fechar a aplicação excel...' Nowait oExcel.Quit() **************Nr de colunas igual ao excel Create Cursor curgastos (CONTA c(20),DEBITO n(18,2),CREDITO n(18,2),CANALITICO C(20),DESCRITIVO c(50),NUMDOC c(20) ) *************** Select curgastos Erro = .F. Try Mvar = "APPEND FROM '"+qfile+"' TYPE XL5" &Mvar Catch When .T. &&msg('O ficheiro não pode estar aberto ou não existe fisicamente!') &&merror = .t. &&msg(qfile) Endtry If Erro = .T. Return Endif Delete File ac_dir+"excel95.xls" * 3. Conta o nº de colunas da tabela, se não corresponder a 6 não continua. Select curgastos If Fcount("curgastos")<>6 Msg("O Ficheiro excel é INVÁLIDO! Nº de colunas INCONSISTENTE!!!","DIRECTA") Use In curgastos Return EndIf * 4. Altera as decimais que são utilizadas por defeito na aplicação set point to "." * 5. Mostra a informação e pede p/ cancelar a execução ou mandar prosseguir select curgastos go top delete go top m.escolheu=.F. mostrameisto("curgastos", "** Detalhe do lançamento ***** ") If ! (m.escolheu) Return Endif if messagebox('Vai iniciar a importação de linhas p/ a CTB. Os campos devem ser (respetivamente): "CONTA", "DEBITO", "CREDITO", "CANALITICO", "DESCRITIVO" e "NUMDOC". Confirma?',32+4)=7 return endif * 6. Nº DE REGISTOS E ACUMULADOS A DR E CR numerototal=reccount("curgastos")-1 local tvalordeb, tvalorcred tvalordeb=0 tvalorcred=0 select curgastos go top scan tvalordeb = tvalordeb + curgastos.debito tvalorcred = tvalorcred + curgastos.credito endscan Messagebox("6. Total registos = " +astr(reccount("curgastos")-1) +" . Somam a DR = " +astr(tvalordeb) + " €. Somam a CR = " +astr(tvalorcred) + " €. Saldo = " +astr(tvalordeb-tvalorcred) ) * 7. INSERÇÃO DE LINHAS sdo.showsave() Select curgastos go top replace DO.CRIADOIMP with .t. sdo.refresh() * Se o ecrã de DO estiver em modo de introdução ou alteração são eliminados todas as linhas do Docº * Se o ecrã de DO não estiver em modo de introdução ou alteração é colocado em modo de introdução If SDO.Adding or SDO.Editing Select ML Delete All sdo.refresh() Else return EndIf SDO.showsave() Select curgastos go top scan replace ML.CONTA with alltrim(curgastos.CONTA) replace ML.EDEB with curgastos.DEBITO replace ML.ECRE with curgastos.CREDITO replace ML.CCT with curgastos.CANALITICO replace ML.DESCRITIVO with curgastos.DESCRITIVO replace ML.ADOC with curgastos.NUMDOC do dotots with .t. sdo.refresh() endscan fecha("curgastos")
  4. sinx

    Manual PHC xbase

    Boa noite ! Conseguem disponibilizar o manual do PHC ? Trabalho com o phc advanced (PHC18), mas qualquer manual seria bem vindo! refiro-me a manual das suas funções internas (xbase) ! Muito obrigado !
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.