Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Req Pecas (OFIOM020) e permite a validação dos dados no levantamento das requisições a serem devolvidas.

Localização:

Atualizações \ Mov Oficina \ Req Pecas (OFIOM020)

Eventos:

Function OM020007_MatrizDev( cNumOsv , cPTipTem , cPGruIte , cPCodIte )


Local cNome, cLoja, cCliente, nCont

Local aInconv

Local lCpoDesconto := VO3->(FieldPos("VO3_VALDES")) <> 0 .and. VO3->(FieldPos("VO3_PERDES")) <> 0 .and. VO3->(FieldPos("VO3_VALLIQ")) <> 0

Local aIteDev:= {}

Local lVO3SEQINC := (VO3->(FieldPos("VO3_SEQINC")) <> 0)

Local cCondPesq := ""

Local aRetDev := {}


Default cPTipTem := ""

Default cPGruIte := ""

Default cPCodIte := ""


DbSelectArea("VO2")

DbSetOrder(1)

DbSeek( xFilial("VO2")+ cNumOsv )


Do While !Eof() .And. VO2->VO2_FILIAL == xFilial("VO2") .and. VO2->VO2_NUMOSV == cNumOsv


//Validacao por Ponto de Entrada

If ExistBlock("OM020QDV") // Validação na Devolução de Peças

If !ExecBlock("OM020QDV",.f.,.f.)

VO2->(dbSkip())

Loop

Endif

Endif

Programa Fonte:

OFIOM020.PRW

Função:

OM020007_MatrizDev()

Parâmetros:

N/A

Retorno:
Nome

Tipo

Descrição

lRetLógicoRetorna .t. / .f. para dar continuidade ao Processo

Exemplo:

Include totvs.ch

User Function OM020QDV()

Local lRet := .t.


MsgInfo("PE OM020QDV chamado com sucesso!")


Return lRet