Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • Rotina automática TMSAD30 - Documentos Exigidos x Motoristas

Função: Rotina automática TMSAD30 - Documentos Exigidos x Motoristas
Abrangências: Microsiga Protheus 11 , Protheus 10
Versões: Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Português (Brasil)
Descrição: 
A rotina automática TMSA430 tem como objetivo definir as amarrações entre os Motoristas e os Documentos Exigidossem a necessidade de interface gráfica.
Sintaxe:

Rotina automática TMSAD30 - Documentos Exigidos x Motoristas ( [ ] )

Retorno:
    ()
Observações
MsExecAuto( {|x,y,z| TMSD30(x,y,z)}, aCab, aItens, nAutoOpc )
aCab = Array composto de campos do cabeçalho
aItens = Array composto de campos dos itens
nAutoOpc = Opção rotina automática
Exemplos 
#Include 'PROTHEUS.CH'User Function TMD30AUT()Local aCab   := {}Local aItens  := {}Private lMSErroAuto := .F.//--Cabecalho Aadd(aCab,{"DD2_FILIAL", xFilial("DD2"), NIL})Aadd(aCab,{"DD2_CODMOT", "000001", NIL})Aadd(aCab,{"DD2_NUMLIB,  1,        NIL})Aadd(aCab,{"DD2_CTRLIB", "2",      NIL}) // 1- Diário; 2- Mensal ou 3- FixoAadd(aCab,{"DD2_STATUS", "1",      NIL})//--ItensaAdd( aItens, {	{"DD4_FILIAL", xFilial("DD4"), NIL},;               {"DD4_CODMOT", "000001", NIL},;               {"DD4_ITEM",   "01", NIL},;               {"DD4_CODDOC", "CNH", NIL},;               {"DD4_PERAPR", 12, NIL},;               {"DD4_TIPPER", "1", NIL},; // 1- Dia; 2- Mes ou 3- Ano               {"DD4_PRXAPR", CToD(Space(8)), NIL}}lMsErroAuto := .F.MsAguarde( {|| MsExecAuto( {|x,y,z| TMSAD30(x,y,z)}, aCab, aItens, 3 ) }, 'AGUARDE, PROCESSANDO...' )If lMSErroAuto    MostraErro()Else    Alert("Conclúido com Sucesso !! ")EndIfReturn
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record