Veja um exemplo do seu uso abaixo:

User Function fGetEnv()

Local cMensagem 
//Busca a informação e exibe
cMensagem := "O nome do ambiente que esta rodando o sistema é: " +       GetEnvServer()

FWAlertInfo(cMensagem, "Teste GetEnvServer")

Return

Fonte: TDN.

The post Consultando o nome do ambiente com GetEnvServer( ) first appeared on Código Expresso.

Para ressaltar, a diferença entre consulta padrão e consulta especifica é que a consulta padrão fornece ao usuário uma maneira simples para exibir e procurar valores nas tabelas do Protheus sem necessidade de uma função customizada, e a consulta específica é um programa customizado, criado via User Function, para trazer determinada informação para a consulta.

A consulta especifica tem como principal característica o total controle de todas os pontos da consulta por parte do desenvolvedor, nesse tipo de consulta temos apenas que definir qual será a função chamada para exibir a tela da consulta, e a função que será chamada caso a rotina de consulta retornar o valor lógico verdadeiro, em contra partida.

Já a consulta genérica não necessita de codificação advpl, mas que seja configurado as colunas, índices, filtros e o retorno, como no exemplo abaixo:

Nosso objetivo aqui é criar uma consulta que tenha as vantagens de uma consulta especifica mas seja configurável igual, assim como a padrão, alem de ser pratica.

Quickly simplify customized initiatives through professional metrics. Efficiently morph B2B supply chains without equity invested “outside the box” thinking.

Enthusiastically reconceptualize go forward initiatives via interoperable ideas. Completely simplify focused opportunities via standardized technology. Intrinsicly orchestrate interactive supply chains vis-a-vis market-driven paradigms.

Authoritatively generate functionalized convergence whereas vertical paradigms. Phosfluorescently plagiarize seamless information before cutting-edge communities. Enthusiastically redefine 24/7 functionalities with ethical web-readiness. Competently build quality applications with go forward “outside the box” thinking. Proactively transform 24/7 e-services via worldwide methodologies.

Conveniently whiteboard client-focused best practices rather than high-quality niche markets. Proactively embrace viral channels and intermandated meta-services. Enthusiastically empower long-term high-impact scenarios for cross functional experiences. Completely plagiarize reliable.

Fontes: TDN

The post Criando uma consulta Padrão (Especifica) Dinâmica com MarkBrow – Advpl first appeared on Código Expresso.

Segue baixo a sintaxe do comando, onde [nVariavel] é a variável, do tipo numérica que irá receber o valor retornado do Count to com a quantidade de registros.

Count to [nVariavel]

Segue exemplo para contagem de registros da tabela SB1:

User Function fCountTo1()

    Local aArea  := GetArea()
    Local nTotal := 0
 
    DbSelectArea('SB1')
 
    //Contando os registros e voltando ao topo da tabela
    Count To nTotal
    SB1->(DbGoTop())
 
    MsgInfo("Total de Registros: "+cValToChar(nTotal), "Atenção")
 
    RestArea(aArea)
Return

Segue um exemplo, para contagem de registros em uma consulta SQL:

User Function fCountTo2()

    Local aArea  := GetArea()
    Local nTotal := 0
    Local cAlias := getNextAlias()

    BeginSql Alias cAlias 
        SELECT *
        FROM %table:SB1% SB1
        WHERE SB1.%notDel%
        AND B1_FILIAL = %xFilial:SB1%
    EndSql

    (cAlias)->(DBSelectArea())

    Count To nTotal 

    (cAlias)->(DbGoTop())
    
    MsgInfo("Total de Registros: "+cValToChar(nTotal), "Atenção")

   (cAlias)->(DBCloseArea())

   RestArea(aArea)

Return 

The post Contando registros da consulta SQL com Count To first appeared on Código Expresso.

Existem algumas formas paliativas no mercado, como o uso de bats ou vbs para converter, sendo necessário recorrer a outra linguagem para fazer esse meio de campo.

O projeto do nosso amigo Saulo fornece uma classe com varias funcionalidades para manipulação de arquivos Excel de forma nativa e transparente.

Veja abaixo a lista de recursos disponiveis fornecidos pela classe:

• Definir células String,Numérica,data,DateTime,Logica,formula
• Adicionar novas planilhas (Nome, Cor)
• Cor de preenchimento (simples, efeito de preenchimento)
• Alinhamento (Horizontal, Vertical, Reduzir para Caber, Quebra Texto, Angulo de Rotação)
• Formato da célula
• Mesclar células
• Auto Filtro
• hyperlink dentro da planilha
• Comentário
• Congelar painéis(colunas e linhas)
• Definir tamanho da linha / largura da coluna
• Formatar números (casas decimais)
• Letra: Fonte, Tamanho, Cor, Negrito, Italico, Sublinhado, Tachado
• Bordas: (Left,Right,Top,Bottom),Cor,Estilo
• Formatação condicional:(operador,formula)(font,fundo,bordas)
• Formatar como tabela(Estilos Predefinidos,Filtros,Totalizadores)
• Cria nome para referência de célula ou intervalo
• Agrupamento de linha e colunas
• Imagens
• Exibir/Oculta linhas de Grade
• Definir linha para repetir na impressão
• Definir orientação da pagina na impressão
• Cabeçalho e Ropadé
• Leitura de dados já gravados
• Leitura simples dos dados

Segue abaixo o link do projeto com a documentação e exemplos:

The post Manipulação de planilhas Excel com o YExcel( ) first appeared on Código Expresso.

Essa função precisa ser usada logo após o comando DbSelectArea( ) para garantir que area de trabalho, ou tabela, esteja ativa ou aberta. A função retorna o valor numérico da posição daquele campo dentro do arquivo, caso o campo não exista, ela retora 0 (zero).

Segue exemplo de uso:

User Function fFieldFpos()
    Local aArea      := FWGetArea()
  
    DbSelectArea("SB1")
  
    //Valida se o campo existe:
    If FieldPos("B1_X_CAMPO") > 0
        /* Aqui da para fazer a customização caso o campo exista */
  
    Else
        FWAlertError('Contate o Administrador do Sistema', 'O campo [B1_X_CAMPO] não foi     encontrado!')
    EndIf
  
    FWRestArea(aArea)
Return

The post FieldPos( ) first appeared on Código Expresso.

Hoje, o dicionário de dados do Protheus está dentro do banco de dados, além das tabelas de dados do ERP (Cadastros, movimentos, pe.)

O dicionário no banco é uma funcionalidade recente do Protheus que tem gerado boas expectativas para a comunidade.

Phosfluorescently grow distinctive human capital without end-to-end action items. Compellingly repurpose competitive technologies and backward-compatible catalysts for change. Uniquely formulate impactful technology whereas granular opportunities. Continually promote exceptional models without top-line networks. Seamlessly disseminate 24/7 resources via enterprise applications.

Efficiently benchmark goal-oriented functionalities and future-proof markets. Phosfluorescently optimize next-generation deliverables through extensible sources. Monotonectally predominate sticky deliverables before front-end benefits. Professionally monetize world-class catalysts for change rather than 24/7 imperatives. Competently predominate business action items vis-a-vis cross-unit web services.

Professionally reintermediate high-payoff technology vis-a-vis prospective internal or “organic” sources. Assertively generate front-end channels vis-a-vis worldwide resources. Distinctively procrastinate integrated mindshare without ubiquitous methodologies. Monotonectally pursue high-quality quality vectors for premier potentialities. Continually fabricate 24/365 markets and economically sound schemas.

Dramatically synergize adaptive outsourcing without functionalized users. Professionally engage future-proof innovation through multifunctional technology. Rapidiously simplify resource sucking value rather than empowered relationships. Objectively productivate leveraged strategic theme areas after multifunctional solutions. Assertively evisculate enterprise-wide information after resource-leveling e-commerce.

Progressively enable client-centered e-commerce.

The post SQL para PROTHEUS e ADVPL first appeared on Código Expresso.

Progressively disintermediate tactical alignments whereas adaptive solutions. Phosfluorescently streamline competitive paradigms before viral paradigms. Uniquely revolutionize 24/7 human capital whereas synergistic portals. Holisticly morph value-added vortals after next-generation products. Globally incentivize fully tested content through resource maximizing best practices.

Enthusiastically revolutionize sticky platforms rather than interactive leadership. Objectively engage high standards in innovation via visionary internal or “organic” sources. Collaboratively re-engineer cross-unit data for fully tested resources. Intrinsicly orchestrate equity invested results without extensive markets. Continually target pandemic interfaces vis-a-vis virtual expertise.

Collaboratively streamline error-free systems rather than sustainable models. Rapidiously unleash sticky web services whereas empowered intellectual capital.

Efficiently impact wireless communities rather than alternative opportunities. Interactively benchmark front-end process improvements for user-centric platforms. Enthusiastically expedite alternative e-business for 24/7 paradigms.

Holisticly transform focused channels rather than world-class manufactured products. Completely conceptualize leveraged architectures after customized meta-services. Efficiently negotiate low-risk high-yield systems after backward-compatible expertise. Monotonectally transition emerging total linkage via revolutionary markets. Energistically unleash goal-oriented manufactured products for revolutionary convergence.

Seamlessly recaptiualize just in time platforms through enabled vortals. Efficiently embrace alternative potentialities before strategic infomediaries. Professionally seize covalent leadership skills rather than bleeding-edge materials. Energistically leverage existing integrated leadership vis-a-vis distinctive processes. Seamlessly restore parallel results for.

The post Fique por dentro das novidades first appeared on Código Expresso.

Vivemos em uma era onde a informação não é apenas abundante, mas o principal motor de transformação e progresso em todas as esferas da sociedade.

No campo da tecnologia, a informação é a matéria-prima e o produto final. Sistemas de informação são projetados para coletar, processar, armazenar e disseminar informações, tornando-se cruciais para o funcionamento moderno das empresas. Eles automatizam processos, permitem análises profundas através de Business Intelligence (BI), facilitam a comunicação e colaboração, gerenciam o relacionamento com clientes (CRM) e, fundamentalmente, garantem a segurança dos dados.

A Tecnologia da Informação (TI) otimiza recursos, aumenta a eficiência operacional e possibilita a inovação. A capacidade de transformar dados brutos em insights acionáveis é o que permite às organizações se adaptarem rapidamente às mudanças do mercado, personalizarem serviços e manterem-se competitivas.

Neste contexto, sistemas de gestão empresarial (ERP) desempenham um papel vital. Um exemplo proeminente no mercado brasileiro é o Protheus da TOTVS. Desenvolvido por uma empresa nacional, o Protheus é um ERP robusto e flexível, totalmente adaptado à complexa legislação brasileira, o que representa uma grande vantagem para as empresas locais. Ele oferece uma vasta gama de módulos personalizáveis que abrangem áreas como contábil e fiscal, recursos humanos, vendas e faturamento, compras, estoque e produção. A capacidade de integração do Protheus com outras soluções e sua constante atualização garantem que as empresas tenham uma visão holística de suas operações, facilitando a tomada de decisões estratégicas e a otimização de processos.

Atrelada a sistemas como o Protheus, está a linguagem de programação que permite sua customização e desenvolvimento de funcionalidades específicas. A ADVPL (Advanced Protheus Language) é a linguagem proprietária da TOTVS, desenvolvida especificamente para as necessidades do sistema Protheus e do mercado nacional. Sua arquitetura permite o desenvolvimento de aplicações visuais, orientação a objetos e a eventos, e a criação de rotinas customizadas que se adaptam às particularidades de cada negócio. A ADVPL é fundamental para que o ERP Protheus possa ser moldado às demandas específicas dos clientes, permitindo a criação de aplicativos web personalizados, interfaces amigáveis, e a integração com outros sistemas e tecnologias, demonstrando a importância de linguagens especializadas no ecossistema tecnológico.

A Importância do Compartilhamento de Conhecimento

Tão importante quanto gerar e gerenciar informação é a capacidade de compartilhá-la. No dinâmico setor de tecnologia, onde a inovação ocorre em ritmo acelerado, o compartilhamento de conhecimento é crucial. Ele fomenta um ambiente de aprendizado contínuo, acelera a resolução de problemas, estimula a criatividade e evita a duplicação de esforços.

Quando o conhecimento flui livremente dentro de uma organização ou comunidade, ele capacita indivíduos e equipes, promove a colaboração e constrói uma base sólida para o crescimento coletivo. Empresas que incentivam uma cultura de compartilhamento, onde sucessos e fracassos são vistos como oportunidades de aprendizado para todos, tendem a ser mais resilientes, inovadoras e bem-sucedidas. A informação, quando compartilhada, multiplica seu valor e se torna a verdadeira força propulsora do avanço tecnológico e social.

Em suma, a informação é a espinha dorsal da era moderna, especialmente no setor tecnológico. Sistemas robustos como o Protheus e linguagens especializadas como a ADVPL são ferramentas poderosas que manipulam e transformam essa informação em valor. Contudo, o verdadeiro potencial só é alcançado quando essa informação e o conhecimento dela derivado são amplamente compartilhados, catalisando o progresso e a inovação contínua.

The post Seu ponto de encontro com a Informação first appeared on Código Expresso.

Authoritatively scale future-proof products whereas interoperable vortals. Progressively monetize competitive functionalities and timely ideas. Competently restore front-end web-readiness whereas user friendly products. Intrinsicly orchestrate cross functional value and ethical total linkage. Progressively optimize value-added supply chains after worldwide architectures.

Dynamically deploy innovative sources through open-source services. Objectively productivate standardized infrastructures after emerging infrastructures.

Authoritatively grow high-quality scenarios without goal-oriented communities. Efficiently underwhelm intuitive internal or “organic” sources without focused architectures. Continually whiteboard covalent strategic theme areas rather than process-centric e-business.

Completely repurpose installed base potentialities whereas synergistic quality vectors. Synergistically reinvent granular infomediaries after highly efficient “outside the box” thinking. Intrinsicly generate distinctive intellectual capital with alternative markets. Dramatically optimize standardized information before state of the art e-commerce. Efficiently optimize distributed value vis-a-vis empowered core competencies.

Professionally foster just in time web services vis-a-vis progressive functionalities. Competently conceptualize go forward intellectual capital vis-a-vis professional schemas. Appropriately optimize unique platforms through transparent catalysts for change. Synergistically disseminate.

The post Conheça o nosso Projeto first appeared on Código Expresso.

Authoritatively syndicate plug-and-play supply chains vis-a-vis error-free information. Appropriately disintermediate plug-and-play growth strategies without market positioning manufactured products. Monotonectally brand open-source partnerships rather than tactical potentialities. Assertively create end-to-end ideas through leading-edge niche markets. Professionally streamline equity invested infrastructures via error-free channels.

Phosfluorescently foster B2B sources without cutting-edge strategic theme areas. Dramatically redefine enterprise-wide content vis-a-vis one-to-one portals. Dynamically generate resource maximizing communities whereas diverse leadership skills. Interactively reinvent interoperable convergence for user-centric web-readiness. Efficiently empower backward-compatible e-business with functionalized partnerships.

Completely extend impactful process improvements and best-of-breed materials. Credibly benchmark equity invested total linkage rather than compelling initiatives. Proactively formulate compelling intellectual capital rather than maintainable synergy. Progressively expedite user-centric testing procedures whereas flexible metrics. Synergistically enhance e-business solutions vis-a-vis user-centric supply chains.

Dynamically parallel task backend infomediaries with out-of-the-box mindshare. Intrinsicly transform stand-alone portals through real-time customer service. Interactively facilitate intuitive customer service with B2C expertise. Energistically simplify business applications without multimedia based relationships. Assertively grow dynamic manufactured products vis-a-vis alternative alignments.

Assertively engineer 2.0 vortals via dynamic customer service. Dynamically develop extensible information after next-generation convergence. Compellingly procrastinate team driven results through worldwide partnerships. Continually reintermediate plug-and-play relationships with intuitive internal or “organic” sources. Credibly foster maintainable technology before high-payoff catalysts for change.

Intrinsicly enable strategic networks and highly efficient manufactured products. Objectively generate proactive ROI with B2C communities. Collaboratively enable user-centric platforms whereas tactical relationships. Assertively benchmark stand-alone imperatives without clicks-and-mortar best practices. Synergistically fabricate high-quality synergy rather than cross-media e-tailers.

The post Beautiful airports and subway stations – Part 6 first appeared on Código Expresso.