Olá a todos!!! Várias pessoas nos têm enviado e-mails nos perguntando como utilizar CSS (Cascading Style Sheets) no Protheus. Cascading Style Sheets (ou simplesmente CSS) é uma linguagem de folhas de estilo utilizada para definir a apresentação de documentos escritos em uma linguagem de marcação, como HTML ou XML. Seu principal benefício é prover a…
Leia mais
Já se perguntou como fazer um inputbox no Protheus? Inputbox é aquela famosa janelinha com um campo texto e os botões Ok e Cancelar.
A idéia aqui é bem simples, como visualizo, removo ou copio os filtros e personalizações de um usuário.
Acredito que alguns já se perguntaram como altero as imagens padrão do Protheus, ou simplesmente mudar a cor do sistema? Para vender o sistema para Sport Club Internacional a Totvs criou o tema Sunset. Mas como podemos alterar nós mesmo o tema ou as imagens? Todas as imagens são armazenados no repositório do sistema, portanto precisamos saber…
Leia mais
Outro dia, me pediram um relatório que permitisse imprimi-lo em vários idiomas (português,inglês,espanhol e alemão). Então fiquei pensando, qual seria a melhor escolha para desenvolver.
O exemplo abaixo, demonstro a criação de um relatório em tReport utilizando 2 seções. Tentei deixar o mais comentado possível, mas qualquer dúvida, comente!!!!
CamStudio é capaz de gravar todas as atividades de tela e áudio em seu computador e criar arquivos de vídeo AVI padrão da indústria e, usando seu SWF Producer integrado, pode transformar esses AVIs em vídeos Flash Streaming (SWFs) enxutos, médios e com largura de banda amigável Aqui estão apenas algumas maneiras de usar este…
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 intuito deste blog é contribuir para que a linguagem ADVPL se propague cada vez mais. A maioria dos fontes são de minha autoria, outros pegos com amigos, TDN ou internet, se por um acaso houver algum fonte que seja de sua autoria e eu não informei, peço gentilmente que me envie uma mensagem, que…
Leia mais
Outro dia me fizerem 3 perguntas: 1) Como faço para repetir o conteudo de um campo de um grid nas linhas abaixo da linha em que estou posicionado? 2) Como faço para repetir o conteudo de um campo de um grid nas linhas abaixo a primeira linha? 3) Como faço para repetir o conteudo de…
Leia mais
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 |
Eu poderia digitar aqui o passo a passo da instalação do TDS, mas colocarei abaixo o índice de instalação feito pela própria Totvs, que a propósito está bem feito e de fácil entendimento. TOTVS | Developer Studio – Versão 11.2 1. Instalação 2. Iniciando o TOTVS | Developer Studio 3. TDS Server 4. Projetos 5.…
Leia mais