Linha Microsiga Protheus

Árvore de páginas

Entrega de epi através do ExecAuto sem informar filial. 

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 informar o campo de filial para inclusão de EPI gerava inconsistência.

Solução/Implementação:

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_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