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 |