Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (felipe.valcanaia)

Gravado em

comparado com

Nova versão 5

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:Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Espanhol , Inglês

 


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:
 


 

Nome
  


Tipo
  


Descrição
  


Default
  


Obrigatório
 
 


Referência
  


PARAMIXB
  


Array of Record
 
 


Paramixb[1] = Numero da Solicitação
   
  





X
     





PARAMIXB

PARAMIXB

PARAMIXB

  



array_of_record

array_of_record

array_of_record

  


Paramixb[2] = Nr. da opção (1=inclusão / 2=alteração / 3=exclusão)

Paramixb[3] = Se a Solicitação de Compra é originada de uma cópia (tipo: LÓGICO)

Paramixb[4] = Elemento 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		
		msgalert("Solicitação "+alltrim(cNumSol)+" incluída com sucesso!")	
	case nOpt == 4		
		msgalert("Solicitação "+alltrim(cNumSol)+" alterada com sucesso!")   	
	case nOpt == 5		
		msgalert("Solicitação "+alltrim(cNumSol)+" excluída com sucesso!")
endcaseReturn Nil
 

Endcase
	
Return Nil