Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Elisabete Magalhaes dos Santos Silva

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
OX001DDP - Deleção de Linhas da Acols de Peças
OX001DDP - Deleção de Linhas da Acols de Peças

Ponto-de-Entrada: OX001DDP - Deleção de Linhas da Acols de Peças
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este Ponto de Entrada está localizado na rotina Orçamento de Peças e Serviços (OFIXX001), executado no momento da deleção de linhas da acols de peças, com a finalidade de questionar se deseja ou não continuar.
Eventos
 User Function OX001DDP()
 
lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)
return lRet
Programa Fonte 
OFIXX001.PRW
Sintaxe

OX001DDP - Deleção de Linhas da Acols de Peças ( [ ] ) --> lRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
Array of Record
Retorno
    lRet(logico)
  • Se .t. desconsidera a tratativa padrão de deleçao
Observações
 if ExistBlock("OX001DDP")
If !(ExecBlock("OX001DDP",.f.,.f.))
oGetPecas:aCols[oGetPecas:nAt,Len(oGetPecas:aCols[oGetPecas:nAt])] := lStatAnt
Return .f.
EndIf
Endif
//
DBSelectArea("SX2")
if DBSeek("VPJ")
if M->VS1_TIPORC == "2".and. !Empty(M->VS1_NUMORC)
cACodGrp := oGetPecas:aCols[oGetPecas:nAt,FG_POSVAR("VS3_GRUITE","aHeaderP")]
cACodIte := oGetPecas:aCols[oGetPecas:nAt,FG_POSVAR("VS3_CODITE","aHeaderP")]
if oGetPecas:aCols[oGetPecas:nAt,Len(oGetPecas:aCols[oGetPecas:nAt])]
if !Empty(cACodGrp+cACodIte)
if MsgYesNo(STR0098,STR0025)
OX001GCORT("P")
endif
Endif
else
DBSelectArea("VPJ")
DBSetOrder(1)
if DBSeek(xFilial("VPJ") + M->VS1_NUMORC + cACodGrp + cACodIte)
reclock("VPJ",.f.,.t.)
dbdelete()
msunlock()
endif
dbSelectArea("VPJ")
dbSetOrder(1)
if dbSeek(xFilial("VPJ")+M->VS1_NUMORC)
cCont := 0
While !Eof() .and. xFilial("VPJ") == VPJ->VPJ_FILIAL .and. M->VS1_NUMORC == VPJ->VPJ_NUMORC
cCont += 1
RecLock("VPJ",.F.)
VPJ->VPJ_ORDEM := STRZERO(cCont,3)
dbSelectArea("VPJ")
dbSkip()
Enddo
Endif
endif
endif
endif
 
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão