Ponto-de-Entrada: OXA012LP - Calculo da margem do lucro de peças
| 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 para cacular a margem do lucro de peças.
Eventos
User Function OXA012LP()
cNumOrc := ParamIXB[1]
MsgInfo(“Ponto de Entrada OXA012LP”,”Atencao”)
aRet := {}
return aRet
Programa Fonte
OFIXX001.PRW
Sintaxe
OXA012LP - Calculo da margem do lucro de peças ( [ 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 PECAS#
// ##############################################################
if ExistBlock("OXA012LP")
aIDescont := ExecBlock("OXA012LP",.f.,.f.,{cNumOrc})
for nCntFor2 := 1 to Len(aIDescont)
if !aIDescont[nCntFor2]
lProbDesPec := .t.
endif
next
Else
// Le Pecas
while !eof() .and. xFilial("VS3")+VS1->VS1_NUMORC == VS3->VS3_FILIAL+ VS3->VS3_NUMORC
DBSelectArea("SB1")
DBSetOrder(7)
DBSeek(xFilial("SB1")+VS3->VS3_GRUITE+VS3->VS3_CODITE)
lRetDes := OX005PERDES(VS1->VS1_CODMAR,VS1->VS1_CENCUS,VS3->VS3_GRUITE,VS3->VS3_CODITE,VS3->VS3_QTDITE,VS3->VS3_PERDES,.t.,VS1->VS1_CLIFAT,VS1->VS1_LOJA,VS1->VS1_TIPVEN,VS3->VS3_VALTOT/VS3->VS3_QTDITE,,VS1->VS1_FORPAG)
aAdd(aIDescont,lRetDes)
if !lRetDes .and. VS3->VS3_VALDES != 0
lProbDesPec := .t.
endif
DBSelectArea("VS3")
DBSkip()
enddo
EndIf
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |