Árvore de páginas

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

Realizado alteração para que seja possível realizar a devolução de epis através do ExecAuto. 

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

Medicina e Segurança do Trabalho.

Função:

MDTA695 

Situação/Requisito:

Através do ExecAuto não era possível realizar a devolução de um epi. 

Solução/Implementação:

Realizado alteração para que seja possível realizar a devolução de epis através do ExecAuto.

Realizado tratativa para quando o campo de Filial não seja informado no ExecAuto, não provoque uma inconsistência.

Exemplo

User Function Auto695()

Local aFunc := {}
Local aItem := {}
Local nOpcao:= 4

Private lMSHelpAuto := .T.
Private lMSErroAuto := .F.

aAdd( aFunc, {"RA_MAT", '998 ', Nil } ) // Array com a chave, setando no funcionário a ser entregue o EPI.

aAdd( aItem, { {"TNF_FILIAL" , '0 00 00 ' , Nil },;
{"TNF_FORNEC" , '00 ' , Nil },;
{"TNF_LOJA" , '00' , Nil },;
{"TNF_CODEPI" , '00 ' , Nil },;
{"TNF_NUMCAP" , '0000000 ' , Nil },;
{"TNF_MAT" , '000 ' , Nil },;
{"TNF_DTENTR" , Date() , Nil },;
{"TNF_HRENTR" , 'Time()' , Nil },;
{"TNF_QTDENT" , 0 , Nil },;
{"TNF_INDDEV" , '00' , Nil },;
{"TNF_LOCAL" , '00' , Nil },;
{"TNF_TIPODV" , '0' , Nil },;
{"TNF_LOCDV" , '00' , Nil },;
{"TNF_QTDEVO" , 0 , Nil },;
{"TNF_DTDEVO" , Date() , Nil } })

dbSelectArea("SRA")
dbSetOrder(1)
dbSelectArea("TNF")
MSExecAuto( {|x,z,y,w| MDTA695(x,z,y,w)} , , aFunc, aItem, nOpcao )

If lMSErroAuto
MostraErro()
Endif

Return