Jump to content

Search the Community

Showing results for tags 'phc'.



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 27 results

  1. 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
  2. camexavi

    PHC - tecla em janela de idu

    Boa noite meus caros, Precisava de atribuir uma tecla de utilizador a um ecrã de impressão de IDU. Como consigo saber o nome desse ecrã ?? Grato pela V/ ajuda
  3. André Moura

    PHC - Campo utilizador com formula

    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!!
  4. 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")
  5. Olá a todos, Necessito de uma ajuda para quem possa disponibilizar tecla de utilizador para importar do excel V.97 ou superior para o PHC Corporate os documentos de faturação e de tesouraria. Obrigado, António
  6. Henrique Caçador

    Ajuda PHC

    Boa tarde, Será possível darem-me uma ajuda. Na ficha de clientes no phc o campo observação está limitado. A minha ideia é criar um campo observação2 onde se preenche com o texto pretendido, ao gravar vai atualizar o campo observação com o texto escrito no observação2 ate ao limite de careteres, se estes forem superiores ele escreve no inicio da frase para consultar a ficha de cliente se for inferior ele escreve o texto da observação2. Podem-me ajudar no código? PHC ADVANCED
  7. Boa tarde meus caros, Preciso uma vez mais da vossa preciosa ajuda, para importar artigos de um ficheiro excel. O objetivo seria importar para a tabela ST e STOBS Importar para ST consigo, mas não consigo para STOBS. O código que tenho é: m_file=Getfile("XLS","Ficheiro","Escolher",0,"Seleccione o Ficheiro a Importar") If Type("m_file")<>"C" Or Not File(m_file) Messagebox("Ficheiro Não Encontrado") Return Endif Create cursor PLANO (a c(100), b c(100), c c(100), d c(100), e c(100), f c(100), g c(100), h c(100), i c(100), j c(100), k c(100), l c(100), m c(100), n c(100), o c(100), p c(100), q c(100), r c(100), s c(100), t c(100), u c(100), v c(100), w c(100), x c(100), y c(100), z c(100), aa c(100), ab c(100), ac c(100), ad c(100), ae c(100)) set point to "." APPEND FROM (m_file) XLS select PLANO go top scan for alltrim(PLANO.a)<>'ref' select st select stobs TEXT TO msel NOSHOW insert into st (st.ststamp,st.ref,st.codigo,st.design,st.epcusto,st.pcusto,st.epv4,st.epv5,st.pv4,st.pv5,st.desc5,st.desc6,st.usr3,st.usr4,st.usr6,st.iva4incl,st.iva5incl,st.forref,st.fornecedor,st.usr2,st.usr1,st.tabiva,st.fornec,st.imagem,st.imgqlook,st.cpoc,st.containv,st.contacev,st.unidade) select ?alltrim(u_stamp()), ?alltrim(PLANO.a), ?alltrim(PLANO.b), ?alltrim(PLANO.c), ?val(PLANO.d), ?val(PLANO.e), ?val(PLANO.f), ?val(PLANO.g), ?val(PLANO.h), ?val(PLANO.i), ?alltrim(PLANO.j), ?alltrim(PLANO.k), ?alltrim(PLANO.l), ?alltrim(PLANO.m), ?alltrim(PLANO.n), ?val(PLANO.o), ?val(PLANO.p), ?alltrim(PLANO.q), ?alltrim(PLANO.r), ?alltrim(PLANO.s), ?alltrim(PLANO.t), ?val(PLANO.u), ?val(PLANO.v), ?alltrim(PLANO.w), ?alltrim(PLANO.x), ?val(PLANO.y), ?val(PLANO.z), ?val(PLANO.aa), ?alltrim(PLANO.ab); insert into stobs (stobs.stobsstamp,stobs.ref,stobs.tipoprod,stobs.tfcla,stobs.tfcladesc) select ?alltrim(u_stamp()), ?alltrim(PLANO.a), ?alltrim(PLANO.ac), ?alltrim(PLANO.ad), ?alltrim(PLANO.ae); ENDTEXT u_sqlexec(msel) endscan mensagem('Terminado...','directa') Agradecia a V/ ajuda . Muito obrigado!
  8. Bom dia a todos. Comecei agora a programar o PHC cá da casa e tenho a seguinte necessidade: No modulo de assistências necessitava de criar no ecrã dos clientes um botão (ou uma tecla de utilizador) para abrir um novo pedido de assistência para esse cliente. Alguém me pode ajudar nesta tarefa? Obrigado.
  9. asimas

    PHC: criar novo preço

    Bom dia a todos, Comecei agora nas andanças do PHC cá na empresa e foi-me pedido que criasse um novo preço P7 à semelhança do que foi feito (por um antigo funcionário) com o P6. O que acontece atualmente com o P6 é que no POS tem um botão "P6" que pede ao utilizador a referencia do produto e insere a linha já com o valor do P6. Sei que tenho que criar o campo de utilizador e adicioná-lo no desenho da ficha de produto, bem como replicar as teclas existentes do P6 para o P7. Até aí tudo bem, mas não encontro a secção onde terei de adicionar o tal botão que aciona a tecla. Suspeito que seja no POS Back > "Opções das zonas do Touch", mas não encontro nenhuma opção que se pareça com o botão do P6. Será que alguém me pode dar uma ajuda, assim como referir algo em falta ou implicação que possa existir que me poderá causar problemas futuros nos pagamentos/faturação? Isto para o PHC CS Advanced 21. Desde já, muito obrigado!
  10. Conceição Martins

    Integração de CRM PHC

    Boa tarde. A empresa onde trabalho utiliza o ERP e o CRM PHC. Tenho um problema: o CRM do PHC não permite a integração com a plataforma de envio de comunicações (e-mails) que utilizo, que é o e-Goi. Será que é possível desenvolver uma integração entre as duas ferramentas? Se sim, gostaríamos de receber contactos/ propostas. Podem contactar-me através do e-mail conceicao.martins@infocontrol.pt. Obrigada
  11. Boa noite. Sou utilizador do PHC há mais de 10 anos e considero-o um excelente software, apesar das limitações já identificadas, mais concretamente, a incapacidade de importar ficheiros SAFT para a contabilidade. Com a introdução das taxonomias e a necessidade de, no próximo ano, submeter à apreciação da AT, o ficheiro SAFT da contabilidade, apenas pode haver um ficheiro SAFT. Acontece que, como contabilista que sou, assumi um novo cliente a 1 de Setembro de 2018, e o anterior colega passou-me o ficheiro SAFT com toda a contabilidade até 31/8/2018. Já tenho toda a informação em excel, pronta a ser importada. Não haverá possibilidade de fazer insert na tabela DO de todos os documentos contabilisticos, e na tabela ML de todas as linhas daqueles documentos, através da consola do SQL Server? Como fazê-lo e assegurar a equivalencia de stamps das tabelas DO e ML, por forma a assegurar a ligação entre ambos? Atentamente, Rui Costa
  12. soares chirrute

    PHC: Corporate V22

    Bom dia! Alguém pode me ajudar com seguinte questão: Não deixar gravar um registro de cliente se o número de caracteres do campo NUIT ( número de contribuinte) for inferior a 9 caracteres.
  13. 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 !
  14. Caros, Bom dia. tenho a seguinte duvida: Tenho um campo em PHC onde coloco manualmente o caminho completo de um determinado ficheiro. por exemplo: \\meu_server\docs\meu_doc.txt Pretendia agora criar um botão que ao clicar, abrisse o documento do diretorio acima. Conseguem ajudar? Obrigado.
  15. Filipe Alves

    PHC - Controlo de acessos

    Ola. Tenho o PHC Corporate v22 e tenho andado a investigar como consigo definir controlo de acessos (sem ser controlo por área) da seguinte forma: Utilizador X apenas consegue aceder/visualizar os seus dossiers internos. Sei que no PHC Advanced existe "Filtros de Utilizador" e queria criar algo semelhante para o PHC Corporate. Alguma ideia de como o fazer ?
  16. Ola a todos , Tenhos nos meus IDU, todos tem um logotipo ( imagem) , queria saber se é possivel fazer um link no logotipo para ir ao website. Se alguem ja conseguio fazer isto? exemplo: logotipo , quando carrego vai para o site www.teste.com.pt Obrigado, Jose
  17. Developer17

    SQL/PHC

    Boas pessoal. Estou com um nó e precisava de uma ajuda vossa. Estou a fazer uma query em sql para usar num desenvolvimento que estou a criar em PHC. A query é a seguinte: select ft.ftstamp, ft.nmdoc, ft.fno, ft.nome, ft.fdata, ft.estab, ft.etotal, (case when fi.bistamp<>'' then (select bi.bistamp, bi.obrano, bi.nmdos from fi inner join bi on fi.bistamp=bi.bistamp) end) from ft inner join fi on fi.ftstamp=ft.ftstamp where ft.fdata='20161228' com esta query dá-me o seguinte erro: Only one expression can be specified in the select list when the subquery is not introduced with EXISTS. O meu problema é o seguinte: Necessito de receber toda a informação pedida da tabela FT e, caso na tabela FI o campo bistamp esteja preenchido, ir buscar também à tabela BI 2 campos. E queria agrupar esta informação pelos dados da tabela FT.
  18. sinx

    PHC - xbase - compras

    Boas ! Alguém que possa partilhar um pequeno snippet, para criar uma entrada nas compras a fornecedores ? Algo do genero ... doread('BO','SBO') do tsread with "",76 v_bibostamp='' requery('bi') v_bostamp='' requery('bo') select bo2 append blank select bo3 append blank select bo append blank replace bo.bostamp with u_stamp() replace bo2.bo2stamp with BO.BOSTAMP replace bo3.bo3stamp with BO.BOSTAMP replace bo2.armazem with 1 (...) mas para as tabelas FO, FN .. Não tenho acesso à biblioteca .. Obrigado !
  19. tiago.nunes9

    XBASE num botão PHC

    Boa tarde. Alguém me pode ajudar com uma programação em xbase? Eu tive de criar um botão que anule o documento. A tabela chama-se po e o botão u_anular. Obrigado
  20. Developer17

    PHC - xvars com decimal

    Boas. Criei uma tecla com um cursor xvars para pesquisar valores. Na caixa para inserir o valor aparece-me isto: 0.00 consoante se digito 152.96 ele não assume o ponto, tenho de digitar 152 e depois com o rato selecionar a área após o ponto para colocar os 96. Alguém me consegue dar uma ajuda?
  21. Bom dia, Criei um botão na página "Clientes" que permite Inactivar o cliente selecionado: dim stamp_ as string = mpage.request.querystring("stamp") dim stamp2 as string = XCFOX.U_SDECRYPT(stamp_) dim str_inact as string = "update cl set inactivo ='1' WHERE cl.clstamp='"+stamp2+"'" cdata.updatedata(str_inact) dim str_link as string = "../neg/clform.aspx" Mpage.response.redirect(str_link) gostaria de saber como posso fazer o cliente em questão desaparecer da pesquisa assim que é inactivado,pois este aparece na barra lateral de pesquisa, apenas indica que está inactivado ao clicar no mesmo. obrigado desde já Nuno Santos
  22. Boas, necessito de fazer a integração de uma loja online em prestashop, com o sistema phc. Procurei pela net e encontrei alguém falar num iCom da innovatio sistemas, mas que pelos visto já desapareceu. Alguém tem alguma sugestão de por onde começar? ou algum conhecimento de algum módulo existente ou alterável? Obrigado pela atenção.
  23. Viva! No sistema PHC em que trabalho temos criada uma tecla para fazer a exportação de facturas por EDI. Num caso especial, dum cliente específico, foi necessário acrescentar o prefixo PT ao número de contribuinte do dito cliente, coisa que se resolveu. Agora é necessário fazer a mesma coisa mas para o nosso campo de nif, da nossa empresa. Uma vez que a importação dos nossos dados é feita directamente da Ficha da Empresa (julgo!!!) como posso fazer para conseguir esse prefixo aparecer? Obrigado
  24. Bom dia a todos, Alguém sabe se, no software PHC, é possível o administrador do sistema entrar em modo alter ego para fazer testes em utilizadores específicos sem utilizar as suas passwords? Obrigado!
  25. Boa tarde, Preciso de ajuda, este código funciona na consola de SQL update st set st.epcpond = (select (((ST2.STOCK- FN.QTT)*(ST2.EPCPOND))+(FO.EVALACRES+FN.ETILIQUIDO))/(ST2.STOCK) from fo (nolock), fn (nolock), ST as ST2(nolock) WHERE FO.ADOC=FN.ADOC AND FO.DOCNOME='V/Fatura' AND FN.REF <> ' ' AND FO.FOSTAMP = FN.FOSTAMP AND ST2.REF=FN.REF AND FO.FOSTAMP = 'ADM14123059639,549675320 ' AND ST.REF=FN.REF) where st.ref in (select fn.ref from fo (nolock),fn(nolock) WHERE FO.ADOC= FN.ADOC AND FO.DOCNOME='V/Fatura' AND FN.REF <> ' ' AND FO.FOSTAMP = FN.FOSTAMP AND FO.FOSTAMP = 'ADM14123059639,549675320 ') e não funciona na Framework - Eventos da PHC select FN sqlUpdPCP = "" sqlUpdPCP = sqlUpdPCP +"update st set st.epcpond = (select (((ST2.STOCK- FN.QTT)*(ST2.EPCPOND))+(FO.EVALACRES+FN.ETILIQUIDO))/(ST2.STOCK) from fo (nolock), fn (nolock), ST as ST2(nolock) " sqlUpdPCP = sqlUpdPCP +"WHERE FO.ADOC=FN.ADOC AND FO.DOCNOME='V/Fatura' AND FN.REF <> ' ' AND FO.FOSTAMP = FN.FOSTAMP AND ST2.REF=FN.REF AND FO.FOSTAMP = '"+ astr(FN.FOSTAMP) +"' AND ST.REF=FN.REF) " sqlUpdPCP = sqlUpdPCP +"where st.ref in (select fn.ref from fo (nolock),fn(nolock) WHERE FO.ADOC= FN.ADOC AND FO.DOCNOME='V/Fatura' " sqlUpdPCP = sqlUpdPCP +"AND FN.REF <> ' ' AND FO.FOSTAMP = FN.FOSTAMP AND FO.FOSTAMP = '"+ astr(FN.FOSTAMP) +"')" u_sqlexec(sqlUpdPCP,"tmpUpdST") messagebox (sqlUpdPCP,"tmpUpdST" ) fecha("tmpUpdST") Obrigada
×
×
  • 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.