Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001FAT - Verificação do Faturamento/Cancelamento
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado antes do processamento do Faturamento/Cancelamento, com a finalidade de questionar se  deseja continuar ou abortar a operação.
Eventos
 User Function OX001AFAT()
 
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
 
Programa Fonte
Sintaxe

OX001FAT - Verificação do Faturamento/Cancelamento ( [ ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    lRet(logico)
  • Continua ou Aborta Operação.
Observações
 Function OX001FAT(nOpc, lSoGravar)
// ############################################################
// # Verifica se trata-se de CANCELAMENTO DE ORCAMENTO        #
// ############################################################
Local cOrcAtu := VS1->VS1_NUMORC
Local nCntFor2
Local lret    := .t.
Local lAbortProc
Local aInconv
Local lOk        := .f.
Local cMotCancel := ""
Local aSrvcAdic := {} // Servicos adicionais de 1ª Revisao (Orc. Oficina com Inc. de Revisao)
Local cCpoAlt   := "" // Lista dos campos que poderão ser alterados
Local aCpoAlt   := {} // Controla os Campos que poderão sofrer alteracoes na VO1
Local nPos      := 0
Local nCol      := 42
Local nLin      := 4
Local nDisLin   := 11
Local nTamGet   := 0
Local lOkOSV    := .f.
Local cObjGName := ""
Local cMsgErroInc := "" // Critica retornada pelo OM420VALINC
Local lRetT := .t.
Local cAlias := VAI->(GetArea())
Local lPedApr := .t. //exibe a janela que pede autorizacao de aprovacao
Local lAprUsr := .f. //informa se inconveniente foi aprovado ou nao
Private cMotivo := "000004"  //Filtro da consulta do motivo de Cancelamentos (Orcamento)
Private cNumOrd := "" //numero do orcamento
//
if ExistBlock("OX001FAT")
if !ExecBlock("OX001FAT",.f.,.f.)
Return(.f.)
Endif
Endif
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não