Histórico da Página

Descrição

Este ponto de entrada tem por finalidade permitir manipular as a manipulação das informações do orçamento, quando chamado apartir a partir da alteração da rotina oportunidade Oportunidade de Vendas.

TMP1 - Alias utilizado para montagem do acols do orçamento.

Observações

Exemplos

User Function MA415OPOR()

M->CJ_CLIENTE := "01"

dbSelectArea("ADJ")

ADJ->(dbSetOrder(1))

If ADJ->(dbSeek(xFilial("ADJ")+ M->AD1_NROPOR + M->AD1_REVISA))//ADJ_FILIAL+ADJ_NROPOR+ADJ_REVISA+ADJ_PROD

While !ADJ->(EOF())

RecLock("TMP1",Inclui)

TMP1->CK_ITEM := SubStr(ADJ->ADJ_ITEM,2,3)

TMP1->CK_UM := "UU"

TMP1->CK_PRODUTO := ADJ->ADJ_PROD

TMP1->CK_QTDVEN := ADJ->ADJ_QUANT

TMP1->CK_PRCVEN := ADJ->ADJ_PRUNIT

TMP1->CK_VALOR := ADJ->ADJ_VALOR

TMP1->CK_TES := "501"

TMP1->CK_LOCAL := "01"

TMP1->(MsUnLock())

ADJ->(dbSkip())

EndDo

EndIf

Return .T.