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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referê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
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |