

-	script	valor_total#mpago	-1,{
	OnAtcommand:
    set .@pass_script$,12345; //Senha do NPC
	
    mes "Por favor insira a senha do script para prosseguir!";
    input .@senha$;
    if(.@senha$ != .@pass_script$){mes "Acesso negado!"; close;}
    next;
    mes "Bem-vindo ao sistema de informaes sobre doaes por cupom!";
    mes "Por favor, insira o cdigo do cupom que deseja verificar:";
    next;
    input .@cupom_desc$;
    query_sql "SELECT SUM(valor) FROM rp_doacoes WHERE cupom = '" + .@cupom_desc$ + "' AND retorno_pag = 'Pagamento Aprovado' AND MONTH(data_pag) = MONTH(NOW())", .@soma_valor;
	
    if(.@soma_valor == NULL || .@soma_valor == 0) {
        mes "No foram encontradas doaes com o cdigo de cupom informado.";
        close;
		} else {
        mes "A soma total das doaes com o cdigo de cupom '" + .@cupom_desc$ + "' : ^080b70" + .@soma_valor + "^000000";
        mes "Por favor, insira a porcentagem que deseja calcular:";
        next;
        input .@porcentagem;
        .@valor_porcentagem = (.@porcentagem * .@soma_valor) / 100;
        mes "O valor de " + .@porcentagem + "% do total : ^080b70" + .@valor_porcentagem + "^000000";
	}
    close;
	OnInit:
	bindatcmd "cupom",strnpcinfo(3)+"::OnAtcommand";
	end;
}