Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001LKP - Validação na acols dos itens de peças no Orçamento de Peças e Serviços
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:
Retorno
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
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas