➕ Button_AdicionarNovo

Função: Solicitar novo DDO (origem: programação)

OnSelect:

Navigate(DDO_Novo, ScreenTransition.Fade)

➕ Button_AdicionarPassivo

Função: Acessar DDOs passivos

OnSelect:

Navigate(DDO_Passivo, ScreenTransition.Fade)

💾 ButtonCanvas10 - Gerar DDO

OnSelect:

If(
    CountRows(colDDO) = 0,
    Notify("Selecione ao menos um item", NotificationType.Warning);
    Exit(),
    IsBlank(TextInputCanvas7.Text),
    Notify("Informe o número do processo SEI", NotificationType.Warning);
    Exit()
);
UpdateContext({visLoading: true});
Set(varImagem, First(Shuffle(colImagensLoading)).Imagem);
ForAll(
colDDO,
Patch(
BaseControleDDO,
Defaults(BaseControleDDO),
{
‘ID Programação’: ThisRecord.ID,
Objeto: ThisRecord.Objeto,
‘Número SEI’: TextInputCanvas7.Text,
Modalidade: textModalidade.Text,
Observações: TextInputCanvas7_1.Text,
‘Valor Total’: ThisRecord.Replanejado,
Status: “Pendente”,
‘Data Criação’: Now(),
‘Criado Por’: UsuáriosdoOffice365.MyProfileV2().mail,
Ação: ThisRecord.Ação,
‘E.I.’: ThisRecord.‘E.I.’,
‘U.A’: ThisRecord.‘U.A’,
Fonte: ThisRecord.Fonte,
Grupo: ThisRecord.Grupo,
Procedência: ThisRecord.Procedência,
‘SIAFI Entrada’: ThisRecord.‘SIAFI entrada’,
‘SIAFI Saída’: ThisRecord.‘SIAFI saida’
}
);
Patch(
    PlanejamentoGeral2025,
    LookUp(PlanejamentoGeral2025, ID = ThisRecord.ID),
    {
        'DDO Gerado': true,
        'Data DDO': Now()
    }
)
);
Clear(colDDO);
Reset(CheckboxCanvas3);
Reset(TextInputCanvas7);
Reset(TextInputCanvas7_1);
Reset(textModalidade);
Set(Timer3.Start, true);
UpdateContext({visLoading: false});
Notify(“DDO(s) gerado(s) com sucesso!”, NotificationType.Success)

💾 Button_GerarDDO

OnSelect:

If(
    CountRows(colDDO) = 0,
    Notify("Selecione ao menos uma demanda", NotificationType.Warning);
    Exit(),
    IsBlank(TextInput_SEI_DDO.Text),
    Notify("Informe o número do processo SEI", NotificationType.Warning);
    Exit()
);
UpdateContext({visLoading: true});
Set(varImagem, First(Shuffle(colImagensLoading)).Imagem);
ForAll(
colDDO,
Patch(
BaseControleDDO,
Defaults(BaseControleDDO),
{
‘ID Demanda’: ThisRecord.ID,
Objeto: ThisRecord.Título,
‘Número SEI’: TextInput_SEI_DDO.Text,
‘Valor Solicitado’: Value(
LookUp(
Gallery_SolicitarDDO.AllItems,
ID = ThisRecord.ID
).Text_Valor_SolicitarDDO.Text
),
Status: “Pendente Demanda”,
‘Data Criação’: Now(),
‘Criado Por’: UsuáriosdoOffice365.MyProfileV2().mail,
Ação: ThisRecord.Ação,
‘E.I.’: ThisRecord.‘E.I.’,
‘U.A’: ThisRecord.‘U.A’,
Fonte: ThisRecord.Fonte,
Grupo: ThisRecord.Grupo,
Procedência: ThisRecord.Procedência
}
);
Patch(
    BaseDemandasOrcamentarias2025,
    ThisRecord,
    {
        'DDO Gerado': true,
        'Data DDO': Now(),
        'Valor Comprometido': ThisRecord.'Valor Comprometido' + 
            Value(
                LookUp(
                    Gallery_SolicitarDDO.AllItems,
                    ID = ThisRecord.ID
                ).Text_Valor_SolicitarDDO.Text
            )
    }
)
);
Clear(colDDO);
Reset(CheckboxCanvas3_2);
Reset(TextInput_SEI_DDO);
Set(Timer3_1.Start, true);
UpdateContext({visLoading: false});
Notify(“DDO(s) de demanda gerado(s)!”, NotificationType.Success)

💾 ButtonCanvas10_1 - Salvar Alterações

OnSelect:

UpdateContext({visLoading: true});
Set(varImagem, First(Shuffle(colImagensLoading)).Imagem);
ForAll(
Filter(Gallery4_5.AllItems, CheckboxCanvas1_1.Value = true),
Patch(
BaseControleDDO,
ThisRecord,
{
// Atualiza campos editados
Campo1: TextInputCanvas5_16.Text,
Campo2: TextInputCanvas5_17.Text,
Campo3: TextInputCanvas5_18.Text,
Campo4: TextInputCanvas5_19.Text,
Campo5: TextInputCanvas5_20.Text,
Campo6: TextInputCanvas5_21.Text,
Campo7: TextInputCanvas5_22.Text,
‘Última Modificação’: Now(),
‘Modificado Por’: UsuáriosdoOffice365.MyProfileV2().mail
}
)
);
UpdateContext({visLoading: false});
Notify(“Alterações salvas!”, NotificationType.Success);
Refresh(BaseControleDDO)