Home

Linha Microsiga Protheus

Páginas filhas
  • PMSA700 Pré-apontamentos - Rotina automática

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PMSA700 Pré-apontamentos - Rotina automática
PMSA700 Pré-apontamentos - Rotina automática

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