Á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:

Ponto de entrada antes da chamada da tela de consulta de peças.

Localização:

Atualizações / Mov Oficina / Orc. Por Fases (OFIXA011)

Eventos:

aAdd(aVetInfo,{STR0006 , "OC001RCLAS()" , NIL , "@!" })

aAdd(aVetInfo,{"'"+RetTitle("B5_CODCAI")+"'", "SB5->B5_CODCAI" , NIL , "@!" })

if GetNewPar("MV_CUSBAL","S") == "S"

aAdd(aVetInfo,{"'"+RetTitle("B2_CM1")+"'" , "SB2->B2_CM1" , NIL , SB2->(X3PICTURE("B2_CM1")) })

Endif

aAdd(aVetInfo,{"'"+RetTitle("B1_PRV1")+"'" , 'FM_PRODSBZ(SB1->B1_COD,"SB1->B1_PRV1")' , NIL , SB1->(X3PICTURE("B1_PRV1")) })

aAdd(aVetInfo,{"'"+RetTitle("B1_QE")+"'" , "SB1->B1_QE" , NIL , SB1->(X3PICTURE("B1_QE")) })

aAdd(aVetInfo,{"'"+RetTitle("B1_PESO")+"'" , "SB1->B1_PESO" , NIL , SB1->(X3PICTURE("B1_PESO")) })

aAdd(aVetInfo,{"'"+RetTitle("B1_GRUDES")+"'", "SB1->B1_GRUDES" , NIL , "@!" })

aAdd(aVetInfo,{"'"+RetTitle("B1_DTREFP1")+"'", "SB1->B1_DTREFP1" , NIL , "@D" })

// ########################################################################

// # Montagem do vetor com informacoes adicionais #

// ########################################################################

// PONTO DE ENTRADA PARA ALTERACAO DO VETOR aVetInfo

If ExistBlock("OC001AVI")

ExecBlock("OC001AVI",.f.,.f.)

EndIf

If ExistBlock("OC001INI")

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

Return

EndIf

EndIf

Programa Fonte:

OFIXC001.PRW

Função:

OFIXC001()

Parâmetros:

N/A


Retorno:
NomeTipoDescrição

lRet

Lógico

(True ou False) - .t. continua processo / .f. cancela o processo

Exemplo:

Include totvs.ch

User Function OC001INI()

Local lRet := .t.


MsgInfo("Ponto de entrada OC001INI executado com sucesso!")


Return lRet