Histórico da Página

O ponto de entrada MT297EXC esta localizado na rotina de Sugestão de Compra, para retornar se o cliente exclui uma peça no orçamento que gerou solicitação de compra.

Function MT297MExct()
Local aAltEnChoice := {}//CAMPOS P/ ALTERAR NA ENCHOICE
Local lRet
Local nI   := 0
PRIVATE nOpca   := 2
PRIVATE aCols   := {}
PRIVATE aHeader := {}
PRIVATE aAltGetDados := {}// CAMPO P/ ATERAR NO GETDADOS/ITEM
PRIVATE aCpoGetDados := {"DF_FILIAL","DF_CODIGO","DF_DESC","DF_M12","DF_M03","DF_D01","DF_D02","DF_D03",;
"DF_D04","DF_D05","DF_D06","DF_D07","DF_D08","DF_D09","DF_D10","DF_D11","DF_D12",;
"DF_QTDEST","DF_QTDPC","DF_QTDSUGM","DF_PE","DF_FLAG"}//CAMPO P/ NAO MOSTAR NO GETDADOS/ITEM

PRIVATE nUsado := 0
PRIVATE aCpoEnChoice := {{"FJ_CODIGO","FJ_DATREF","FJ_DIASSUG","FJ_TIPPRC","FJ_CUSUNIT","FJ_IMPORT","FJ_GRUPODE","FJ_GRUPOAT","FJ_CLASSIF","FJ_GRUDESC",;
"FJ_TIPGER","FJ_FORNECE","FJ_LOJA","FJ_FILENT","FJ_COND"},;
{"DF_DESC","DF_PE","DF_M12","DF_M03","DF_QTDSUGM","DF_QTDEST","DF_QTDPC","DF_QE",;
"DF_D01","DF_D02","DF_D03","DF_D04","DF_D05","DF_D06","DF_D07","DF_D08","DF_D09","DF_D10","DF_D11","DF_D12"}}  //CAMPOS P/ MOSTRA NA ENCHOICE

For nI := 1 to Len(aCpoGetDados)
 aCpoGetDados[nI] := Padr(aCpoGetDados[nI],10)
Next
IF !Empty(SFJ->FJ_SOLICIT)
 Help(" ",1,"MTA297EXC")
Else

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Boby - 06/04/2010 - Criar PE para Excluir no orcamento de oficina ³
//³ FNC  - 7302/2010    uma peça que gerou solicitação compra         ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
 If ExistBlock("MT297EXC")
  ExecBlock("MT297EXC",.f.,.f.)
  Return
 EndIf

 RegToMemory("SFJ",.F.)
 MontaHead()
 MontaCols()
 lRet:=Modelo3(cCadastro,"SFJ","SDF",aCpoEnChoice,,"MTA297MOKt()",5,4,,,,aAltEnchoice,"",aAltGetDados)

 IF lRet
  SDF->(DbSeek(xFilial("SDF")+SFJ->FJ_CODIGO))
  While SDF->DF_CODIGO==SFJ->FJ_CODIGO .and. SDF->DF_FILIAL==xFilial("SDF") .and. ! SDF->(Eof())
   SDF->(RecLock("SDF",.F.))
   SDF->(DbDelete())
   SDF->(MsUnlock())
   SDF->(DbSkip())
  EndDo
  SFJ->(RecLock("SFJ",.F.))
  SFJ->(DbDelete())
  SFJ->(MsUnlock())
 EndIF
EndIF
Return

MATA297M

MT297EXC - Retorna em caso de exclusão ( [ ] )

()

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡„o    ³ MT297EXC ³ Autor ³  Antonio C Damaceno   ³ Data ³ 06/04/10 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡„o ³PE para Excluir no orcamento de oficina uma peça que gerou  ³±±±±³          ³solicitação compra                                          ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³Oficina                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/USER FUNCTION MT297EXC() MSGSTOP("ENTRAMOS NO PONTO DE ENTRADA - MT297EXC()")RETURN