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
Base de conhecimento é um pequeno software para armazenar seus códigos fontes em um único local, de forma simples e descomplicada. É possível inserir vários tipos de códigos de linguagens variadas. Caracteristicas gerais: Editor de código possue a opção de colorir a sintaxe (sintaxe highlighting). Editor com numeração da linha, localizar e substituir texto, impressão…
Leia mais
Na minha opinião foi um dos melhores editores de tela para desenvolvimento no Protheus, simples e objetivo.
Captura de Tela – Substituindo o Print Screen do Windows É uma ferramenta simples e útil para capturas de tela. Você pode usar esta ferramenta de recorte para capturar uma imagem da tela, ou recorte de qualquer objeto em sua tela, e em seguida, anotar, salvar ou compartilhar a imagem. Pode capturar qualquer um dos…
Leia mais
BKPREST – Rotina de Cópia e Restauração de arquivos 1.2 Para executar basta chamar a rotina na tela inicial de parametros do Protheus: U_BKPREST
Esta é apenas mais uma ferramenta para nos auxiliar na importação de dicionários nas principais tabelas do sistema (SIX,SX2,SX3,SX5,SX6,SX7,SXB) Para executar basta chamar a rotina na tela inicial de parametros do Protheus: U_IMPORDIC
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 |
Função: WinExec – Executa uma aplicação externa na estação onde o SmartClient está em execução.
Função para enviar e-mail pelo Protheus, existe outras formas de envio, mas hoje vou postar apenas uma.