Porquê um Sistema de Controle de Versionamento? Um sistema de controle de versão (ou versionamento), VCS (do inglês version control system) ou ainda SCM (do inglês source code management) na função prática da Ciência da Computação e da Engenharia de Software, é um software com a finalidade de gerenciar diferentes versões no desenvolvimento de um…
Leia mais
Hoje se cada usuário tem seu login no Windows, este pode entrar automaticamente no Protheus sem precisar informar seu usuário e senha, considerando que você configurou os parâmetros do Smartclient, o acesso ao Protheus será praticamente instantâneo, caso contrário a tela inicial continuará sendo exibida. No Configurador, precisamos configurar dois campos: Habilitar Single Sign-On Modalidade…
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
O Screencast-O-Matic é uma ferramenta online para gravação de screencasts. Ele pode ser utilizado gratuitamente, sem que seja necessário baixar software algum para seu computador. Ele roda totalmente no seu navegador, e apesar de contar com uma versão Pro (a qual custa 15 dólares por ano e conta com mais recursos), sua versão gratuita é…
Leia mais
O Screenr é uma ferramenta online para gravação da tela do computador para criação de screencasts. Embora seja difícil de acreditar, tudo o que o Screenr precisa para funcionar é a instalação de uma pequena applet Java. Depois de ativar a applet, surge na sua tela uma moldura que você usa para indicar qual a seção…
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
Mostra uma tela de mensagem informando ao usuário que a tela será finalizada, conforme configuração dosparâmetros MV_FATOUT e MV_MSGTIM. Parametros: nTimeMsg -> Informar quantos segundos a tela da mensagem deverá aparecer antes do fechamento da tela principal. oDlgAux -> Obejto da tela principal que será fechada. Muito usado no financeiro ou faturamento, um exemplo disso…
Leia mais
Algumas sugestões de grid no Protheus, em pesquisa no TDN, encontrei vários componentes, mas na minha opinião, abaixo estão 5 tipos diferentes e suas particularidades.
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 |
No exemplo, mostro de forma simples a importação de um arquivo texto com duas colunas Exemplo formato do arquivo: linha1coluna1;linha1coluna2; linha2coluna1;linha2coluna2; linha3coluna1;linha3coluna2; linha4coluna1;linha4coluna2; linha5coluna1;linha5coluna2;