Histórico da Página

Descrição	Este

ponto

Ponto de

entrada

Entrada é executado na inicialização da rotina

TotvsPDV

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

TotvsPDV

TOTVS PDV e retorna os itens de menu específicos do usuário.

Observações

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

Preview

Veja também

Versões
Idioma	Português(Brasil)

Microsiga_Protheus11

Protheus versão 11 ou Superior
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas

Updates

Parâmetros

nCol1 - Sequência do Menu
cCol2 - Título do Menu

cCol2 - Função a ser executada
cCol3 - Flag do Menu, onde "M" indica que o mesmo será exibido, mesmo o ECF estando off-line na modalidade PAF-ECF

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

mesma estrutura do parâmetro de entrada.

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

STBSALESOPERATIONS.PRW

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

Image Added

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave