Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001LKP - Validação na acols dos itens de peças no Orçamento de Peças e 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: 
Localização: Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado na acols dos itens  de peças.Finalidade: Permitir realizar a validação do sistema.
Eventos
 User Function OX001LKP ()
 
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001LKP - Validação na acols dos itens de peças no Orçamento de Peças e Serviços ( [ ] ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    lRet (logico)
  • Continua ou Aborta.
Observações
 Function OX001LINPOK()
Local nCntFor := 0
Local nValSeq := 0
Local lTudoBranco := .t.
Local nLinDup
//
if lOX001Auto
AADD(oGetPecas:aCols,aCols[n])
for nCntFor := 1 to Len(aCols[n]) - 1
&("M->"+aHeaderP[nCntFor,2]):= aCols[Len(oGetPecas:aCols),nCntFor]
__ReadVar := "M->"+aHeaderP[nCntFor,2]
oGetPecas:nAt := Len(oGetPecas:aCols)
n := Len(oGetPecas:aCols)
OX001FPOK()
next
endif
// ############################################################
// # Pula registros deletados                                 #
// ############################################################
If oGetPecas:aCols[oGetPecas:nAt,len(oGetPecas:aCols[oGetPecas:nAt])]
Return .t.
EndIf
// ############################################################
// # Verifica se a peca realmente existe                      #
// ############################################################
cPeca := oGetPecas:aCols[oGetPecas:nAt,fg_posvar("VS3_CODITE","aHeaderP")]
cGrupo := oGetPecas:aCols[oGetPecas:nAt,fg_posvar("VS3_GRUITE","aHeaderP")]
//
if Empty(cPeca) .and. Empty(cGrupo)
return .t. //<<--- Problema da linha vazia na acols de pecas
endif
// ####################################################################
// Ponto de Entrada para validacao das linhas do acols dos itens pecas
// ####################################################################
If ( ExistBlock("OX001LKP") )
lRet := ExecBlock("OX001LKP",.F.,.F.,{lRet})
If !lRet
return .f.
EndIf
EndIf
 
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não