Histórico da Página
Descrição | Função utilizada para aprovação automática dos orçamentos de venda via rotina automática (ExecAuto). |
---|---|
Exemplos | #Include "Totvs.ch" User Function MyMata416()
Local aItens := {} Local aLinha := {}
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //| Abertura do ambiente | //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "SC5","SC6","SA1","SA2","SB1","SB2","SF4","SCJ","SCK","SCL"
aItens := {}
aadd(aCabec,{"CJ_CLIENTE","000001" ,Nil}) aadd(aCabec,{"CJ_LOJACLI","01" ,Nil}) aadd(aCabec,{"CJ_CLIENT" ,"000001" ,Nil}) aadd(aCabec,{"CJ_LOJAENT","01" ,Nil}) aadd(aCabec,{"CJ_CONDPAG","001" ,Nil})
aadd(aLinha,{"CK_ITEM" ,"01" ,Nil}) aadd(aLinha,{"CK_PRODUTO","01 " ,Nil}) aadd(aLinha,{"CK_QTDVEN" ,1 ,Nil}) aadd(aLinha,{"CK_PRCVEN" ,100 ,Nil}) aadd(aLinha,{"CK_PRUNIT" ,100 ,Nil}) aadd(aLinha,{"CK_VALOR" ,100 ,Nil}) aadd(aLinha,{"CK_TES" ,"501" ,Nil}) aadd(aItens,aLinha)
If !lMsErroAuto ConOut("Baixa efetuada com sucesso! ") Else //MostraErro() ConOut("Erro na baixa!") EndIf RESET ENVIRONMENT Return(.T.) |
Idioma | Português(Brasil) |
Versões | Microsiga Protheus 10 e Microsiga Protheus 11 |
Sistemas Operacionais Suportados | Todos |
Compatível com as Bases de Dados | TOTVSDBAccess |
Parâmetros | aCabec (Array) --> Cabeçalho do orçamento. |
Retorno | Nil --> Nenhum |
Eventos de chamada do Ponto de Entrada | MATA416(aCabec,aItens) – > Nil |
Programa Fonte | MATA416.PRW |