Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Robson Sales De Almeida Ribeiro

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Robson Sales De Almeida Ribeiro

Gravado em

Chave

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

...

Portuguese

Pagetitle
M110STTS - Inclusão de interface após gravar a solicitação
M110STTS - Inclusão de interface após gravar a solicitação

Ponto-de-Entrada: M110STTS - Inclusão de interface após gravar a solicitação


Versões:Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Todos


Descrição:

LOCALIZAÇÃO : Function A110Inclui, A110Altera, e A110Deleta responsaveis pela inclusão, alteração, exclusão e cópia das Solicitações de Compras.

EM QUE PONTO : Após a gravação da Solicitação pela função A110Grava em inclusão, alteração e exclusão , localizado fora da transação possibilitando assim a inclusao de interface após a gravação de todas as solicitações.


Programa Fonte
MATA110.PRX
Sintaxe

M110STTS - Inclusão de interface após gravar a solicitação ( < PARAMIXB> , < PARAMIXB>, <PARAMIXB>, <PARAMIXB>  ) --> NIL

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXB[1]CaractereNumero da Solicitação
X

PARAMIXB[2]

Numérico


Operação: 1 = Inclusão, 2 = Alteração, 3 = Exclusão


X
PARAMIXB[3]LógicoSe a Solicitação de Compra é originada de uma cópia (tipo: LÓGICO)


PARAMIXB[4]LógicoElemento não usado



Retorno
NIL
    (nulo)
  • Nenhum retorno requerido
Exemplos


Bloco de código
languagecpp
firstline1
titleExemplo
linenumberstrue
User Function M110STTS()

Local cNumSol	:= Paramixb[1]
Local nOpt		:= Paramixb[2]
Local lCopia	:= Paramixb[3]

Do case	
	case nOpt == 31		
		msgalert("Solicitação "+alltrim(cNumSol)+" incluída com sucesso!")	
	case nOpt == 42		
		msgalert("Solicitação "+alltrim(cNumSol)+" alterada com sucesso!")   	
	case nOpt == 53		
		msgalert("Solicitação "+alltrim(cNumSol)+" excluída com sucesso!")
Endcase
	
Return Nil