Versão atual:

ExecAuto MDTA695

Olá alguém teria um exemplo da função entrega de Epi via ExecAuto

Estou Utilizando essa Função

Include 'TOTVS.ch'

Include 'TBICONN.ch'

Include 'Protheus.ch'

User Function AU695AT() Local aFunc := {} Local aItem := {} Local nOpcao := 3 LOCAL nAtual :=0

//Opções de apresentação/geração do log de erros disponíveis: //1- Caso o log de erros deverá aparecer em tela, defina a variável cPath como vazia e descomente na chamada da MSExecAuto. Ex: Local cPath := "" //2- Caso o log de erros deverá ser salvo em uma pasta específica dentro da pasta protheus_data, defina a variável com esse caminho e descomente na chamada da MSExecAuto. Ex: Local cPath := "\log_mdt", onde a pasta log_mdt estará dentro da pasta protheus_data //3- Caso o log de erros deverá ser salvo na pasta padrão, apenas deixe o o parâmetro comentado na chamada do MSExecAuto. A pasta padrão será dentro da pasta protheus_data, no caminho \execauto_mdt\epi Local cPath := ""

Private lMSHelpAuto := .T. // para nao mostrar os erro na tela Private lMSErroAuto := .F. // inicializa como .F., volta .T. se houver erro

//PREPARE ENVIRONMENT EMPRESA 'T2' FILIAL 'L MG 01'

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

//Dados dos EPI a ser entregue ao funcionário, deve se preencher no mínimo os campos obrigatórios para que ocorra a entrega.

aAdd( aItem, { {"TNF_CODEPI", '02PROTEAURIPLUG' , Nil },; {"TNF_FORNEC", '001185', Nil },; {"TNF_LOJA", '01', Nil },; {"TNF_NUMCAP", '11512', Nil },; {"TNF_MAT", '002470', Nil },; {"TNF_DTENTR", Date(), Nil },; {"TNF_HRENTR", Time(), Nil },; {"TNF_QTDENT", 1, Nil }})

dbSelectArea("SRA") dbSetOrder(1)

dbSelectArea("TNF")

MSExecAuto({|x,z,y,w| MDTA695(x,z,y,w)},, aFunc, aItem, nOpcao )

If lMSErroAuto MostraErro() else ConOut('Deu Certo')EndIf

Return

Porem não insere a informação na TNF, Também não recebo erro

Versões (2):

Ver a versão formatada

ExecAuto MDTA695

Comentário

new question