Linha Microsiga Protheus

Árvore de páginas

Descrição

Este Ponto de Entrada é executado na inicialização da rotina TOTVS PDV para adição de novos itens no menu e possui como parâmetro de entrada, o array referente ao menu padrão do TOTVS PDV e retorna os itens de menu específicos do usuário.

Exemplos

STMenu - Usado na montagem de itens de menu específico (<uPar>) -> aRet

Idioma

Português(Brasil)

Versões

Protheus versão 11 ou Superior

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Array(array_of_record) Retorno do ponto de entrada, contendo a seguinte estrutura

aRet[1][1] - Título do Menu do Tipo String (Texto) - Ex.: "Menu"

aRet[1][2] - Função a ser executada do Tipo String ( Texto ) - "U_MeuPrograma"

Programa Fonte

STBSALESOPERATIONS.PRW


Exemplo de Ponto de Entrada

#INCLUDE "TOTVS.CH"

/*---------------------------------------

User Function STMenu

---------------------------------------*/

User Function STMenu()
Local aRet := {}

AAdd(aRet,{"Impressao de Comanda Cliente","U_MinhaComanda()"})

//aRet[1][1] - Se Refere: ao Nome no Menu mostrado ao usuário
//aRet[1][2] - Se Refere: à função que sera executada

Return aRet


/*---------------------------------------

User Function Minha Comanda

- Esta função efetua a impressão 
   de um pequeno comprovante

---------------------------------------*/

User Function MinhaComanda()
Local lRet := .F.
Local nRet := -1
Local cTexto := ""
Local cPL := CHR(10)

cTexto := "Comanda Cliente" + cPL
cTexto += "---------------" + cPL
cTexto += "Cód: 0001" + cPL
cTexto += "Prod: 1" + cPL
cTexto += "Valor: R$ 50,00" + cPL
cTexto += "---------------"

nRet := STWPrintTextNotFiscal(cTexto)

lRet := nRet == 0 //Impressao com Sucesso ?

Return lRet


O Menu será visualizado no F2-Menu do Módulo TotvsPDV