Histórico da Página
...
nOpcAuto | Operação 3 - Inclusão |
aTurno | Array com informações do turno que será vinculada com o tabela de horário padrão criada via execauto aTurno[1] Filial Caso a sequência não seja informada e for uma inclusão o sistema irá realizar o cadastro na próxima sequência |
aItens | Array com as informações do dia da semana da tabela de horário padrão. O array deve seguir o padrão exigido pela MsGetDAuto OBS: A rotina permite manipular apenas uma sequência da tabela por vez, com isso o tamanho máximo do aItens é 7, sendo uma posição para cada dia da semana, enviar mais de 7 registros pode gerar o erro de chave duplicada. |
04.
...
EXEMPLOS
Na inclusão, caso o campo SPJ_SEMANA não seja passado no array de cabeçalho, aTurno neste exemplo, será criada uma nova sequência.
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" User Function fExecauto() Local aTurno := {} Local aItens := {{}} // Será enviado vazio Local nOpcAuto := 0 Private lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "GPE" ConOut("Inicio: " + Time()) ConOut(PadC("Rotina Automatica Tabela de Horário Padrão", 80)) aAdd(aTurno, {"PJ_FILIAL", "D MG 01 ", Nil}) // Código da Filial aAdd(aTurno, {"PJ_TURNO" , "001", Nil}) // Código do Turno aAdd(aTurno, {"PJ_SEMANA", "01", Nil}) // Sequência // Identifica que será uma Exclusão nOpcAuto := 5 //Chamada do ExecAuto MSExecAuto( {|x, y, z| PONA080(x, y, z)}, aTurno, aItens, nOpcAuto ) If !lMsErroAuto ConOut(PadC("Cadastro realizado!", 80)) Else ConOut(PadC("Erro no cadastro!", 80)) EndIf ConOut("Fim : " + Time()) RESET ENVIRONMENT Return NIL | ||||||||||
HTML |
Templatedocumentos |
---|