Descripción | Función utilizada para la aprobación automática de los presupuestos de venta a través de la rutina automática (ExecAuto). |
Ejemplos | #Include "Totvs.ch" User Function MyMata416()
Local aItens := {} Local aLinha := {}
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //| 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("¡Baja realizada con éxito! ") Else //MostraErro() ConOut("¡Error en la baja!") EndIf RESET ENVIRONMENT Return(.T.) |
Idioma | Portugués (Brasil) |
Versiones | Microsiga Protheus 10 y Microsiga Protheus 11 |
Sistemas operativos compatibles | Todos |
Compatible con las bases de datos | TOTVSDBAccess |
Parámetros | ACabec (array) --> Encabezado del presupuesto. |
Devolución | Nil --> Ninguno |
Eventos de llamada del Punto de Entrada | MATA416(aCabec,aItens) – > Nil |
Programa fuente | MATA416.PRW |