Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001CPC - Customização da Consulta 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: 
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), permitindo customizar a consulta de Peças .
Eventos
 User Function OX001CPC()
 
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001CPC - Customização da Consulta de Peças ( [ ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    lRet (logico)
  • Se .t. o produto posicionado no SB1 será incluido na lista do orçamento.
Observações
 Function OX001KEYF4()
Local lRetorno := .f.
Local cTmpGrupo, cTmpCodite
//
if readvar() $ "M->VS3_GRUITE,M->VS3_CODITE"
cTmpGrupo := oGetPecas:aCols[oGetPecas:nAt,FG_POSVAR("VS3_GRUITE","aHeaderP")]
cTmpCodite := M->VS3_CODITE
DBSelectArea("SB1")
DBSetOrder(7)
if DBSeek(xFilial("SB1")+cTmpGrupo+cTmpCodite)
If ExistBlock("OX001CPC")
lRetorno := ExecBlock("OX001CPC",.f.,.f.,{SB1->B1_COD})
else
lRetorno := OFIXC001(SB1->B1_COD)
endif
else
If ExistBlock("OX001CPC")
lRetorno := ExecBlock("OX001CPC",.f.,.f.,{cTmpCodite})
else
lRetorno := OFIXC001(cTmpCodite)
endif
endif
if lRetorno
M->VS3_GRUITE := SB1->B1_GRUPO
M->VS3_CODITE := SB1->B1_CODITE
OX001PREPEC()
else
M->VS3_GRUITE := cTmpGrupo
M->VS3_CODITE := cTmpCodite
endif
oGetPecas:aCols[oGetPecas:nAt,FG_POSVAR("VS3_GRUITE","aHeaderP")] := M->VS3_GRUITE
oGetPecas:aCols[oGetPecas:nAt,FG_POSVAR("VS3_CODITE","aHeaderP")] := M->VS3_CODITE
endif
Return
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não