Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (fabiana.silva)

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Julio Jose Nery Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Este ponto de entrada é executado na inicialização da rotina TotvsPDV para adição de novos itens no menu e possui como parâmetro de entrada, o array referente ao menu padrão do TotvsPDV 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

 


Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Protheus versão 11 ou Superior

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

 


Parâmetros

 


Retorno

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

cCol1 - Título do Menu

cCol2 - Função a ser executada

Eventos de chamada do Ponto de Entrada

 


Variáveis

 

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

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

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