Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001AEX - Exportação da O.S
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 da Exportação da O.S, com a finalidade de questionar se deseja continuar ou abortar a operação.
Eventos
 User Function OX001AEX()
 
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001AEX - Exportação da O.S ( [ ] ) --> 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
 if !MsgYesNo(STR0077,STR0025)
return .f.
endif
//
if ExistBlock("OX001AEX") // Antes da Exportacao
lRet := ExecBlock("OX001AEX",.f.,.f.)
If !lRet
Return (lRet)
Endif
Endif
// ##############################
// # VERIFICA LIMITE DE CREDITO #
// ##############################
if VS1->VS1_STATUS != "F" .and. VS1->VS1_STATUS != "2"
DBSelectArea("VOI")
DBSetOrder(1)
DBSeek(xFilial("VOI") + VS1->VS1_TIPTEM)
if VOI->VOI_SITTPO == "1"
cTipPag := VS1->VS1_FORPAG
if Empty(GetNewPar("MV_CPNCLC","")) .or. !alltrim(cTipPag) $ GetMv("MV_CPNCLC") .or. Empty(cTipPag)
If "I" $ GetMv("MV_CHKCRE")
DBSelectArea("SA1")
DBSetOrder(1)
if GetMv("MV_CREDCLI") == "C"
if !DBSeek(xFilial("SA1")+VS1->VS1_CLIFAT + "01")
DBSeek(xFilial("SA1")+VS1->VS1_CLIFAT + VS1->VS1_LOJA)
endif
else
DBSeek(xFilial("SA1")+VS1->VS1_CLIFAT + VS1->VS1_LOJA)
endif
If !MaAvalCred(SA1->A1_COD, SA1->A1_LOJA, FG_AVALCRED(SA1->A1_COD, SA1->A1_LOJA) ,1,.T.)
if !lOX001Auto
MsgInfo(STR0078,STR0025)
endif
OI001ATU(VS1->VS1_NUMORC,"3")
return .f.
EndIf
EndIf
Endif
endif
//
endif
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não