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
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas