MA415OPOR - Permite manipular as informações do orçamento, a partir da alteração da oportunidade de Venda.

Descrição

Este ponto de entrada tem por finalidade permitir a manipulação das informações do orçamento, quando chamado a partir da alteração da rotina 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.

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

lRet - lógico

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

MATA415.PRX