Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 3 minutos

01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização


Rental by IT Up


Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Locação de equipamentos.
Função:LOCA048.prw
País:Brasil
Ticket:Não há
Requisito/Story/Issue (informe o requisito relacionado) :

DSERLOCA-4008


02. SITUAÇÃO/REQUISITO


Incluir novo ponto de entrada para validar se pode gerar o pedido de venda da medição.

03. SOLUÇÃO

Incluir a chamada ao ponto de entrada LC048VPV assim que se aciona a opção de gerar o pedido de venda no LOCA048, o ponto de entrada deverá retornar .T. se o pedido puder ser gerado ou .F. se o pedido não puder ser gerado e retornar o browse,


04. DEMAIS INFORMAÇÕES

Fonte Exemplo:

EXEMPLO LC048VPV
#INCLUDE "PROTHEUS.CH"
USER FUNCTION LC048VPV()
Local lRet := .T.

dbSelectArea("SA1")
dbSetOrder(1)
dbSeek(xFilial("SA1")+FPN->FPN_CLIENT+FPN->FPN_LOJA)
if SA1->A1_RISCO = 'E' //Cliente com Risco E
    MsgAlert("O Cliente está com risco E, geração de pedido não permitida !")
    lRet := .F.
endif

RETURN lRet


05. ASSUNTOS RELACIONADOS

https://tdn.totvs.com/display/public/PROT/Medicao