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
User Function M110STTS()
Local cNumSol := Paramixb[1]
Local nOpt := Paramixb[2]
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!")
Endcase
Return Nil |