Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: OX001PPC - Validação do conteúdo dos campos
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), executado na confirmação do conteúdo dos campos  (FieldOk).
Eventos
 User Function OX001PPC()
 
MsgInfo(“Ponto de Entrada OX001PPC”,”Atencao”)
return nil
 
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001PPC - Validação do conteúdo dos campos ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Observações
 if VS3->(FieldPos("VS3_SITTRI")) > 0 .and. Empty(M->VS3_SITTRI) .and. !Empty(M->VS3_GRUITE) .and. !Empty(M->VS3_CODITE)
DbSelectArea("SB1")
DbSetOrder(7)
DbSeek( xFilial("SB1") + M->VS3_GRUITE + M->VS3_CODITE )
if !Empty(SB1->B1_ORIGEM) .and. !Empty(M->VS3_CODTES)
SF4->(dbSeek(xFilial("SF4")+M->VS3_CODTES))
if !Empty(SF4->F4_SITTRIB)
M->VS3_SITTRI := Left(SB1->B1_ORIGEM,1) + SF4->F4_SITTRIB
oGetPecas:aCols[oGetPecas:nAt,FG_POSVAR("VS3_SITTRI","aHeaderP")] := M->VS3_SITTRI
endif
endif
endif
//
If ExistBlock("OX001PPC")
ExecBlock("OX001PPC",.f.,.f.)
EndIf
//
OX001ATUF1()  // Atualiza informacoes adicionais (dependentes do fiscal)
//
if !lOX001Auto
oGetPecas:oBrowse:Refresh()
endif
//
Return .t.
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não