Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OXA012LS - Calculo da margem do lucro de Serviços
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: 
Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado na montagem do vetor com valores e descontos no cálculo da margem do lucro de Serviços.
Eventos
User Function OXA012LS()
cNumOrc := ParamIXB[1]
MsgInfo(“Ponto de Entrada OXA012LS”,”Atencao”)
aRet := {}
return aRet
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OXA012LS - Calculo da margem do lucro de Serviços ( [ cNumOrc ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cNumOrc Caracter Numero da Ordem de Serviço
Retorno
    aRet (vetor)
  • Vetor com os valores e descontos
Observações
 // #################################################################
// # PONTO DE ENTRADA PARA CUSTOMIZACAO DA MARGEM DE LUCRO SERVICOS#
// #################################################################
if ExistBlock("OXA012LS")
aIDesconS :=  ExecBlock("OXA012LS",.f.,.f.,{cNumOrc})
for nCntFor2 := 1 to Len(aIDesconS)
if !aIDesconS[nCntFor2]
lProbDesSer := .t.
endif
next
else
// Le servicos
DBSelectArea("VS4")
DBSetOrder(1)
DBSeek(xFilial("VS4")+cNumOrc)
while !eof() .and. xFilial("VS4")+VS1->VS1_NUMORC == VS4->VS4_FILIAL+VS4->VS4_NUMORC
VOK->(dbSetOrder(1))
VOK->(dbSeek(xFilial("VOK")+VS4->VS4_TIPSER))
lRetDes := (VOK->VOK_PERMAX >= VS4->VS4_PERDES)
aAdd(aIDesconS,lRetDes)
if !lRetDes
lProbDesSer := .t.
endif
DBSelectArea("VS4")
DBSkip()
enddo
endif
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não