MATA360 - Condición de pago (ExecAuto)

Descripción

Tiene el propósito de realizar el registro automático de la condición de pago

Sintaxis

Mata360 ( [xAutoCab] ,[xAutoItens], nOpcAuto ) -> Nil

Ejemplos

User Function MyMata360()
//DEFININDO variáveis
Local aItemAux := {} //Array auxiliar para incluir los ítems
Local aCabecalho := {} //Array del encabezado (SE4)
Local aItens := {} //Array que contendrá los ítems (SEC)
Private lMsErroAuto := .F. //Indicador del estatus después de la llamada
//Completando el encabezado
aAdd(aCabecalho, {“E4_CODIGO” , “811”, Nil})
aAdd(aCabecalho, {“E4_TIPO”, “B”, Nil} )
aAdd(aCabecalho, {“E4_COND”, “16”, Nil} )
aAdd(aCabecalho, {“E4_DESCRI”, “Descricao”, Nil} )
//Populando Item auxiliar
aAdd(aItemAux, {“EC_ITEM”, “01”, Nil} )
aAdd(aItemAux, {“EC_TIPO”, “2”, Nil} )
aAdd(aItemAux, {“EC_COND”, “3”, Nil} )
aAdd(aItemAux, {“EC_IPI”, “N”, Nil} )
aAdd(aItemAux, {“EC_DDD”, “D”, Nil} )
aAdd(aItemAux, {“EC_SOLID”, “N”, Nil} )
aAdd(aItemAux, {“EC_RATEIO”, 100.00, Nil} )
aAdd(aItens, aItemAux)
//Llamando la rutina automática de inclusión
MSExecAuto({|x,y,z|mata360(x,y,z)},aDados,aItens, 3)
//Verificando el estatus de la rutina ejecutada
If !lMsErroAuto
ConOut(“Incluyendo con éxito”)
Else
ConOut(“Error al incluir”)
EndIf
Return

Idioma

Portugués (Brasil)

Versiones

Microsiga_Protheus10_y_Microsiga_Protheus11

Sistemas operativos compatibles

Todos

Compatible con las bases de datos

Todos

Parámetros

xAutoCab: Array con datos del encabezado
xAutoItems: Array con los datos de los ítems.
NOpcAuto: Opción de rutina que se utilizará