DT_OC001TEL_Consulta_do_Orcamento

Descrição:

Ponto de entrada chamado antes da execução da tela da consulta do Orçamento. 

Eventos:

if !Empty(cProduto)

DBSelectArea("SB1")

DBSetOrder(1)

DBSeek(xFilial("SB1")+cProduto)

M->VS3_GRUITE := SB1->B1_GRUPO

M->VS3_CODITE := SB1->B1_CODITE

OC001PREPEC(cProduto)

else

M->VS3_GRUITE := space(TamSx3("VS3_GRUITE")[1])

M->VS3_CODITE := space(TamSx3("VS3_CODITE")[1])

endif

//

If !FM_PILHA("OFIOM020")

cBtnConAction := "{|| OC001CONANA()}"

oBtnCon := TButton():New( aPos[Len(aPos),1]+(aPos[Len(aPos),3] - aPos[Len(aPos),1]),aPos[Len(aPos),2],STR0078, oDlgCP, &(cBtnConAction), nBtnSize+50, 10,,,,.t.)

Endif

If ExistBlock("OC001TEL")

ExecBlock("OC001TEL",.f.,.f.)

EndIf

ACTIVATE MSDIALOG oDlgCP CENTER ON INIT (EnchoiceBar(oDlgCP,{|| lRet := .t. ,OC001POSPEC(),oDlgCP:End()},{ || oDlgCP:End() },,aNewBot))

Função:

OFIXC001