Documento: PMSA700 (Pré-apontamentos) - Rotina automática
Este documento contêm exemplos de utilizações da rotinas automáticas de inclusão, alteração e exclusão no cadastro de Pré-apontamentos de recursos (PMSA700).
//Incluir
USER FUNCTION PMS700INC()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
aArray := { { "AJK_PROJET" , "TESTE " , NIL }, ;
{ "AJK_REVISA" , "0002" , NIL }, ;
{ "AJK_TAREFA" , "01 " , NIL }, ;
{ "AJK_RECURS" , "TI3201 " , NIL }, ;
{ "AJK_DATA" , ddatabase , NIL }, ;
{ "AJK_HORAI" , "08:00" , NIL }, ;
{ "AJK_HORAF" , "17:00" , NIL }, ;
{ "AJK_DOCUME" , "123456" , NIL } }
MsExecAuto( { |x,y| PMSA700(x,y)} , aArray, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Tipo inclusão com sucesso!")
Endif
Return
//Alterar
USER FUNCTION PMS700ALT()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
aArray := { { "AJK_CTRRVS" , "1" , NIL },;
{ "AJK_DOCUME" , "123456 " , NIL },;
{ "AJK_HORAF" , "15:30" , NIL } }
//aArray := { { "AJK_HORAF" , "15:30" , NIL } }
DbSelectArea("AJK")
dbSetOrder(6) //AJK_FILIAL+AJK_CTRRVS+AJK_DOCUME+AJK_ITEM
DbSeek(xFilial("AJK")+"1"+"123456 ") //Alteração deve ter o registro AJK posicionado
MsExecAuto( { |x,y| PMSA700(x,y)} , aArray, 4) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Tipo alteração com sucesso!")
Endif
Return
//Deletar
USER FUNCTION PMS700EXC()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
DbSelectArea("AJK")
dbSetOrder(6) //AJK_FILIAL+AJK_CTRRVS+AJK_DOCUME+AJK_ITEM
DbSeek(xFilial("AJK")+"1"+"123456 ") //Alteração deve ter o registro AJK posicionado
MsExecAuto( { |x,y| PMSA700(x,y)} , aArray, 5) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Tipo Exclusão com sucesso!")
Endif
Return
