Árvore de páginas

Versões comparadas

Chave

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

...

Paramixb
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:
Advanced Protheus 7.10 ,
Microsiga Protheus
8.11 , Microsiga Protheus 10
12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:
Espanhol , Inglês
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> ) --> NIL
Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXB
Array of Record
[1]
=
CaractereNumero da Solicitação
X

PARAMIXB

array_of_recordParamixb[2] = Nr. da opção (3=inclusão / 4=alteração / 5=exclusão)

[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
X



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]
do

Local lCopia	:= Paramixb[3]

Do case	
	case nOpt == 
3
1		
		msgalert("Solicitação "+alltrim(cNumSol)+" incluída com sucesso!")	
	case nOpt == 
4
2		
		msgalert("Solicitação "+alltrim(cNumSol)+" alterada com sucesso!")   	
	case nOpt == 
5
3		
		msgalert("Solicitação "+alltrim(cNumSol)+" excluída com sucesso!")
endcaseReturn

Endcase
	
Return Nil