Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Descrição

Ponto de entrada para validar a exclusão de uma Solicitação de Compra

Observações

 

Exemplos

#Include "Protheus.ch"

User Function MNTA420U()

Local cFilSC1 := ParamIXB[1]

Local cOrdem := ParamIXB[2]

Local cOP := ParamIXB[3]

Local cCodPSC1 := ParamIXB[4]

Local aArea := SC1->(GetArea())

Local lRet := .F.

 

dbSelectArea("SC1")
dbSetOrder(4) //C1_FILIAL+C1_OP+C1_NUM+C1_ITEM
If dbSeek(cFilSC1+cOrdem+cOP)

While !Eof() .and. SC1->C1_FILIAL == xFilial("SC1") .And. Alltrim(SC1->C1_OP) == cOrdem+cOP .And. Alltrim(SC1->C1_PRODUTO) == Alltrim(cCodPSC1)

If MsgYesNo("Deseja excluir a solicitação de compra numero "+ Alltrim(SC1->C1_NUM)+ " item " + Alltrim(SC1->C1_ITEM)+ "? ")

lRet := .T.

EndIf

 

dbSelectArea("SC1")

dbSkip()

 

End

EndIf

RestArea(aArea)

Return lRet

Preview

Veja também

 

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

 

Parâmetros

SC1->C1_FILIAL

SC1->C1_OP

SC1->C1_PRODUTO

Retorno

Lógico

Eventos de chamada do Ponto de Entrada

 

Variáveis

 

Programa Fonte

MNTA420