Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001FAT - Verificação do Faturamento/Cancelamento
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:
Retorno
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas