Search the Community

Saudações, Estou a consumir um API a partir do PHC Advanced usando XMLHTTP. Gostaria de exibir um ícone animado enquanto aguarda a resposta do request. Tenho notado que o PHC exibe um ícone de espera quando processa grandes volumes de dados. Como posso invocar esse ícone? Caso seja restrito, como posso adicionar um gif representando "Pocessando...". Não gostaria de usar Wait Window para este fim. Gratos pela atenção.

Boa tarde, Não sei como fazer uma regra/valor defeito para a tabela de artigos Ao gravar o artigo preencher um campo de utilizador com outras caracteristicas; Por exemplo: A desiganção do Artigo é - Viola de madeira por 100mm / 200mm /300mm Ao gravar substituir o campo de utilizador por - Viola de madeira por 100cm / 200cm /300cm Pretendia substituir ao gravar os mm por cm; Podem-me ajudar? Cumprimentos

Saudações, Estou enfrentando dificuldades ao tentar buscar a referência na linha de compra a fornecedores, após copiar as linhas de um dossier interno (Encomenda). É crucial que eu encontre essa referência para discernir se se trata de uma encomenda ou de uma requisição interna. Isso, por sua vez, me permitirá inserir automaticamente o valor padrão no campo do armazém. O que tentei: Criei um valor por defeito | Tabela: FN | Campo: FN.ARMAZEM | Assim que começa a introduzir | O comando xbase é um programa Comando xbase: select fo select fn if not empty (fn.fnstamp) msg(fn.ref) endif return fn.armazem Ao inserir uma nova compra ou copiar as linhas de DI, a mensagem aparece vazia, corre antes da linha ser carregada. Como posso solucionar essa questão? Agradeço antecipadamente pela atenção.

Boa tarde, Gostaria de saber se é possível adicionar uma linha a um dossier, que já existe, sem ter que clicar o botão gravar por exemplo: SELECT BI go top APPEND BLANK Replace BI.ref with 'ref' Do boactref With 'BORAPIDO',.T.,'NAO','bi' Replace BI.cor with 'BLUE' Replace BI.tam with '45' Replace bi.qtt With 1 do u_bottdeb with 'bi',.F. com este código csg inserir a linha, mas é necessário gravar o dossiers com a intervenção do utilizador Obrigado

Bom dia, Preciso da V/ ajuda na criação de um Evento - PHC, no ecrã de Faturação (FT). Ou seja ao introduzir uma Fatura com determinada referencia deve ser enviado um email de aviso para um determinado destinatário. Agradeço desde já a V/ ajuda. Bom trabalho para todos 🙂

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!!

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")

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 !

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