DT PE DN400AGRUPA - Despesas Nacionais em Lote (EECDN400)

User Function DN400AGRUPA()

// PONTO DE ENTRADA EXECUTADO SOMENTE QUANDO O CAMPO "Agrup. Desp?" (EET_AGRUPA) como "Sim"
//Todos os parâmetros da função são para consulta. Para alterar, deve ser utilizada as variáveis aC7Capa, aC7Item e aTitulo
Local xParam1 := ParamIxb[1]
Local xParam2 := ParamIxb[2]
Local xParam3 := ParamIxb[3]
Local xParam4 := ParamIxb[4]

If SuperGetMv("MV_EEC0043",.F.,.F.) //Se .T. gera Pedido de Compras

    //xParam1 - Não pode alterar - Identifica se será gerado Pedido de Compras (1) ou Autorização de Entrega (2)
    //xParam2 - Não pode alterar - Array com os dados da Capa do Pedido de Compras
    //xParam3 - Não pode alterar - Array com os dados dos Itens do Pedido de Compras
    //xParam4 - Não pode alterar - Operação a ser Executada (Inclusão/Alteração/Exclusão)
    
    //Pode alterar as variáveis aC7Capa e aC7Item
    aC7Capa[6][2] := "CONTATO PE" //Capa
    
    AAdd(aC7Item[1],  {"C7_DESCRI" , "DESCRICAO ALTERADA" , Nil})//Item

Else //Gera Titulo Financeiro

    //xParam1 - Não pode alterar - Array com os dados do Título a ser gerado
    //xParam2 - Não usado
    //xParam3 - Não pode alterar - Operação a ser Executada (Inclusão/Alteração/Exclusão)
    //xParam4 - Não usado

    //Pode alterar a variável aTitulo
    aTitulo[15][2] := "PE: DU400AGRUPA"

EndIf

Return