| 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 permite a gravação de dados complementares nos campos do cabeçalho do orçamento (SCJ) e é executado em dois momentos:
A415CANC( cAliasTMP ) --> Nenhum.
Nome | Tipo | Descrição |
|---|---|---|
| cAliasTMP | Carácter | Alias do cabeçalho do Orçamento de Vendas. |
Retorno | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| Nenhum | NILL |
Neste exemplo validamos o cancelamento do orçamento de acordo com Cliente e Loja.
#INCLUDE 'PROTHEUS.CH'
User Function A415CANC()
//Armazena o ambiente ativo para restaurar ao fim do processo
Local aArea := GetArea() as array
Local cAliasTMP := PARAMIXB[1] as array
//Valida cliente e loja, se for cliente 000001 e loja 01, não permite cancelar o orçamento
If (cAliasTMP)->CJ_CLIENTE == '000001' .AND. (cAliasTMP)->CJ_LOJA == '01'
(cAliasTMP)->CJ_STATUS := "A" //Volto o status para em ABERTO
Endif
//Restaura o ambiente ativo no início da chamada
RestArea(aArea)
Return |