| Produto: | TOTVS Backoffice |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Backoffice |
| Módulo: | SIGAFAT - Faturamento |
| Função: | MATA415 - Orçamentos de Venda |
| Abrangências: | Microsiga Protheus 12 |
| Versões: | Microsiga Protheus 12 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível com as Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Todos |
Este ponto de entrada pertence à rotina de atualização de orçamentos de venda, MATA415(). Está localizado na rotina de cancelamento, A415CANCEL(). É usado para validar o cancelamento do orçamento.
M415CANC - Validação de cancelamento ( ) --> nOpcao
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| PARAMIXB | Numérico | Parâmetro com a numeração para cancelamento |
Retorno | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| nOpcao | Numérico | Variável numérica usada para validar o cancelamento de orçamentos: 1 - Realiza o cancelamento. Qualquer outro valor, não cancela. | Sim |
Neste exemplo validamos o cancelamento retornando mensagem de confirmação em tela, caso seja negado, o conteúdo enviado será zero, fazendo com que o cancelamento não ocorra.
#INCLUDE 'PROTHEUS.CH'
User Function M415CANC()
//Armazena o ambiente ativo para restaurar ao fim do processo
Local aArea := GetArea() as array
Local nOpcao := PARAMIXB as numeric
Local cOrcamento := SCJ->CJ_NUM as character
Local lRet := .F. as logical
//Valida opção de cancelamento
If !IsBlind()
lRet := MsgYesNo("Confirme o cancelamento do orçamento: "+cOrcamento+"","Sim","Não")
Else
lRet := .F.
EndIf
if !lRet
nOpcao := 0
endif
//Restaura o ambiente ativo no início da chamada
RestArea(aArea)
Return nOpcao |