Descripción | Função Función utilizada para | aprovação automática dos orçamentos de venda via rotina la aprobación automática de los presupuestos de venta a través de la rutina automática (ExecAuto). | Exemplos||||
Ejemplos | #Include "Totvs.ch" User Function MyMata416()
Local aItens := {} Local aLinha := {}
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //| | Abertura do ambiente Apertura del entorno | //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 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¡Baja realizada con éxito! ") Else //MostraErro() ConOut(" | Erro na baixa¡Error en la baja!") EndIf RESET ENVIRONMENT Return(.T.) | ||
Idioma | PortuguêsPortugués (Brasil) | Versões|||||
Versiones | Microsiga Protheus 10 | e y Microsiga Protheus 11 | ||||
Sistemas | Operacionais Suportadosoperativos compatibles | Todos | ||||
Compatible con las bases de datos | TOTVSDBAccess | Parâmetros|||||
Parámetros | aCabec ACabec ( | Arrayarray) --> | Cabeçalho do orçamentoEncabezado del presupuesto. | aItens AItems ( | Arrayarray) --> | Itens do orçamentoÍtems del presupuesto. |
Devolución | Nil --> | NenhumNinguno | ||||
Eventos de | chamada do Ponto llamada del Punto de Entrada | MATA416(aCabec,aItens) – > Nil | ||||
Programa | Fontefuente | MATA416.PRW |