Uma funcionalidade interessante do Protheus é utilizar o Word para geração de documentos como contratos, orçamentos de compra e venda, entre outros. No exemplo, irei gerar um Pedido de Compras para ser utilizado no Word (Este fonte foi readaptado com base de outros fontes) O diferencial é que a inserção dos itens no documento será…
Leia mais
A idéia aqui é bem simples, como visualizo, removo ou copio os filtros e personalizações de um usuário.
O Protheus hoje atende a organizações de múltiplos segmentos de mercado como: agronegócio, logística, manufatura, varejo, serviços, educacional, hospitalidade, construção, saúde, jurídico e serviços financeiros são os principais. Mas mesmo empresas que não se enquadram nessa categoria podem customizar o sistema para que ele se adeque perfeitamente aos seus processos e às suas demandas de…
Leia mais
Sabem aquela telinha que exibe um erro e depois derruba o smartclient? Pois então, tem como exibir o erro mas continuar o processo até o ponto do erro sem derrubar o client.
As vezes passamos por algumas provações quando queremos utilizar os recursos do próprio banco de dados, como o comando INSERT ou UPDATE por exemplo. Nos últimos anos, temos passado por várias evoluções no sistema, e um dos maiores problemas é a sua performance. As vezes ficamos horas a fio esperando determinados processos serem executados, pelo…
Leia mais
A arquitetura Model-View-Controller ou MVC, como é mais conhecida, é um padrão de arquitetura de software que visa separar a lógica de negócio da lógica de apresentação, permitindo desenvolvimento, teste e manutenção isolados.
Os sistemas ERP são hoje o coração das operações das empresas, sendo fundamentais para a tomada de decisão, como fonte de informação para análises e alinhamento estratégico do negócio. Por isso, sua integridade, segurança e disponibilidade são de grande importância.
Executar rotinas agendadas é bem simples, para isso precisamos preparar nosso fonte para que ele rode em console e fazer algumas configurações no appserver.ini (Protheus 11) No artigo Abertura de ambiente em rotinas automáticas – Parte 1, temos um exemplo de um fonte que podemos utilizar, as mensagens de erros, mensagens de alertas e de…
Leia mais
A função GPEMail é uma função utilizada no módulo do RH, eu a achei bem interessante como sendo uma função já pronta e de fácil uso. No exemplo abaixo irei mostrar seu uso, mas antes de usá-la é preciso que você tenha alguns parametros preenchidos: MV_EMCONTA MV_RELSERV MV_EMSENHA Estes parametros devem estar declarados como Private.…
Leia mais
Olá pessoal, vi que alguns colegas que vem acessando meu blog tem me perguntado sobre como acesso o banco de dados do Protheus sem consumir licença. Pelo que aprendi, existem algumas maneiras, e uma delas é pela web, podemos até construir aplicação desktop acessando o banco, mas para aqueles que tem um servidor web seguro…
Leia mais
Um amigo semanas atrás me perguntou: _ Como consigo ver quem está online no Protheus e se posso ver alguns detalhes dos usuários? Então respondi a ele, “_ Porque você não usa o Monitor e o Configurador? “
Outro dia me perguntaram se era possível gerar um arquivo PDF no Protheus, mas sem que abri-se uma tela, procura daqui, procura dali, encontrei a função FWMSPrinter, é o mesmo componente utilizado na geração da Danfe. Para mais detalhes consulte http://tdn.totvs.com/display/public/mp/FWMsPrinter Abaixo tem um bom exemplo funcional para mostrar o seu funcionamento
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#INCLUDE "RPTDEF.CH" #INCLUDE "FWPrintSetup.ch" #INCLUDE "protheus.ch" User Function fPrintPDF() Local lAdjustToLegacy := .F. Local lDisableSetup := .T. Local oPrinter Local cLocal := "c:\siga\" Local cCodINt25 := "34190184239878442204400130920002152710000053475" Local cCodEAN := "123456789012" Local cFilePrint := "" oPrinter := FWMSPrinter():New('orcamento_000000.PD_', IMP_PDF, lAdjustToLegacy,cLocal, lDisableSetup, , , , , , .F., ) oPrinter:FWMSBAR("INT25" /*cTypeBar*/,1/*nRow*/ ,1/*nCol*/, cCodINt25/*cCode*/,oPrinter/*oPrint*/,.T./*lCheck*/,/*Color*/,.T./*lHorz*/,0.02/*nWidth*/,0.8/*nHeigth*/,.T./*lBanner*/,"Arial"/*cFont*/,NIL/*cMode*/,.F./*lPrint*/,2/*nPFWidth*/,2/*nPFHeigth*/,.F./*lCmtr2Pix*/) oPrinter:FWMSBAR("EAN13" /*cTypeBar*/,5/*nRow*/ ,1/*nCol*/ ,cCodEAN /*cCode*/,oPrinter/*oPrint*/,/*lCheck*/,/*Color*/,/*lHorz*/, /*nWidth*/,/*nHeigth*/,/*lBanner*/,/*cFont*/,/*cMode*/,.F./*lPrint*/,/*nPFWidth*/,/*nPFHeigth*/,/*lCmtr2Pix*/) oPrinter:Box( 130, 10, 500, 700, "-4") oPrinter:Say(210,10,"Teste para Code128C") cFilePrint := cLocal+"orcamento_000000.PD_" File2Printer( cFilePrint, "PDF" ) oPrinter:cPathPDF:= cLocal oPrinter:Preview() Return |